Modulinos: Difference between revisions

=={{header|Mathematica}}==

scriptedmain.ma

<lang mathematica>#!/usr/bin/env MathKernel -script

MeaningOfLife[] = 42

ScriptName[] = Piecewise[

{

{"Interpreted", Position[$CommandLine, "-script", 1] == {}}

},

$CommandLine[[Position[$CommandLine, "-script", 1][[1,1]] + 1]]

]

Program = ScriptName[];

If[StringMatchQ[Program, ".*scriptedmain.*"],

Print["Main: The meaning of life is " <> ToString[MeaningOfLife[]]]

]</lang>

test.ma:

<lang mathematica>#!/usr/bin/env MathKernel -script

Get["scriptedmain.ma"]

Print["Test: The meaning of life is " <> ToString[MeaningOfLife[]]]</lang>

Example:

<lang sh>$ ./scriptedmain.ma

Main: The meaning of life is 42

wonko:scriptedmain andrew$ ./test.ma

Test: The meaning of life is 42</lang>

In Mac and Windows, the output will be surrounded by spurious quotes.