GeezerVison

4D79B8ED1A375F4700DD750C /* type-convert.mlc in Sources */ = {isa = PBXBuildFile; fileRef = 4D79B67D1A273BA000DD750C /* type-convert.mlc */; };

4DDA20451A136FF4001B0CA2 /* script-builder.cpp in Sources */ = {isa = PBXBuildFile; fileRef = 4DDA20441A136FF4001B0CA2 /* script-builder.cpp */; };

4DDA20701A139BC0001B0CA2 /* script-test.cpp in Sources */ = {isa = PBXBuildFile; fileRef = 4DDA206F1A139BC0001B0CA2 /* script-test.cpp */; };

5DDE27B91A37909500D5ABD2 /* math-foundation.mlc in Sources */ = {isa = PBXBuildFile; fileRef = 4D79B6781A273BA000DD750C /* math-foundation.mlc */; };

766113441A2F298E0042DE7F /* list.mlc in Sources */ = {isa = PBXBuildFile; fileRef = 4D79B6751A273BA000DD750C /* list.mlc */; };

766113891A31FB640042DE7F /* module-array.cpp in Sources */ = {isa = PBXBuildFile; fileRef = 766113881A31FB640042DE7F /* module-array.cpp */; };

7661138A1A31FB690042DE7F /* module-array.cpp in Sources */ = {isa = PBXBuildFile; fileRef = 766113881A31FB640042DE7F /* module-array.cpp */; };

isa = PBXSourcesBuildPhase;

buildActionMask = 2147483647;

files = (

5DDE27B91A37909500D5ABD2 /* math-foundation.mlc in Sources */,

7661138D1A31FE1B0042DE7F /* array.mlc in Sources */,

766113441A2F298E0042DE7F /* list.mlc in Sources */,

4D79B6CF1A27405600DD750C /* arithmetic.mlc in Sources */,

output: True if <Left> is greater than <Right>, and false otherwise.

*/

syntax IsGreaterThan is neutral binary operator with precedence 1

syntax IsGreaterThan is neutral binary operator with precedence 3

<Left: Expression> ">" <Right: Expression>

begin

MCArithmeticEvalIntegerIsGreaterThanInteger(Left, Right, output)

output: True if <Left> is less than <Right>, and false otherwise.

*/

syntax IsLessThan is neutral binary operator with precedence 1

syntax IsLessThan is neutral binary operator with precedence 3

<Left: Expression> "<" <Right: Expression>

begin

MCArithmeticEvalIntegerIsLessThanInteger(Left, Right, output)

corresponding byte in <Left> is of greater value.

*/

syntax LessThan is neutral binary operator with precedence 1

syntax LessThan is neutral binary operator with precedence 3

<Left: Expression> "<" <Right: Expression>

begin

MCBinaryEvalIsLessThan(Left, Right, output)

corresponding byte in <Right> is of greater value.

*/

syntax GreaterThan is neutral binary operator with precedence 1

syntax GreaterThan is neutral binary operator with precedence 3

<Left: Expression> ">" <Right: Expression>

begin

MCBinaryEvalIsGreaterThan(Left, Right, output)

--

foreign handler ExecRoundRealToNearest(inout Target as real) as undefined binds to "<builtin>"

foreign handler ExecRoundNumberToNearest(inout Target as number) as undefined binds to "<builtin>"

foreign handler ExecRoundRealDown(inout Target as real) as undefined binds to "<builtin>"

foreign handler ExecRoundNumberDown(inout Target as number) as undefined binds to "<builtin>"

foreign handler ExecRoundRealUp(inout Target as real) as undefined binds to "<builtin>"

foreign handler ExecRoundNumberUp(inout Target as number) as undefined binds to "<builtin>"

foreign handler EvalFloorOfReal(in Target as real, out Value as real) as undefined binds to "<builtin>"

foreign handler EvalFloorOfNumber(in Target as number, out Value as number) as undefined binds to "<builtin>"

foreign handler EvalCeilOfReal(in Target as real, out Value as real) as undefined binds to "<builtin>"

foreign handler EvalCeilOfNumber(in Target as number, out Value as number) as undefined binds to "<builtin>"

public foreign handler MCMathFoundationExecRoundRealToNearest(inout Target as double) as undefined binds to "<builtin>"

public foreign handler MCMathFoundationExecRoundNumberToNearest(inout Target as number) as undefined binds to "<builtin>"

public foreign handler MCMathFoundationEvalFloorOfReal(in Target as double, out Value as double) as undefined binds to "<builtin>"

public foreign handler MCMathFoundationEvalFloorOfNumber(in Target as number, out Value as number) as undefined binds to "<builtin>"

public foreign handler MCMathFoundationEvalCeilOfReal(in Target as double, out Value as double) as undefined binds to "<builtin>"

public foreign handler MCMathFoundationEvalCeilOfNumber(in Target as number, out Value as number) as undefined binds to "<builtin>"

--

public constant pi = 3.14159265358979323846

//public constant pi is 3.14159265358979323846

--

syntax RoundToNearest is statement

"round" <Target: Expression>

begin

ExecRoundRealToNearest(Target)

ExecRoundNumberToNearest(Target)

end syntax

/*

Summary: Rounds <Target> to the nearest integer.

If <Target> is exactly halfway between two integers, rounds to the greatest integer less than <Target>.

Target: An expression that evaluates to a number.

Round half down

*/

syntax RoundDown is statement

"round" <Target: Expression> "down"

begin

ExecRoundRealDown(Target)

ExecRoundNumberDown(Target)

end syntax

/*

Summary: Rounds <Target> to the least integer greater than or equal to <Target>.

If <Target> is exactly halfway between two integers, rounds to the least integer greater than <Target>.

Target: An expression that evaluates to a number.

Round half up

*/

syntax RoundUp is statement

"round" <Target: Expression> "up"

begin

ExecRoundRealUp(Target)

ExecRoundNumberUp(Target)

MCMathFoundationExecRoundRealToNearest(Target)

MCMathFoundationExecRoundNumberToNearest(Target)

end syntax

--

syntax FloorOperator is prefix operator with precedence 1

"the" "floor" "of" <Target: Expression>

begin

EvalFloorOfReal(Target, output)

EvalFloorOfNumber(Target, output)

MCMathFoundationEvalFloorOfReal(Target, output)

MCMathFoundationEvalFloorOfNumber(Target, output)

end syntax

/*

syntax CeilOperator is prefix operator with precedence 1

"the" "ceiling" "of" <Target: Expression>

begin

EvalCeilOfReal(Target, output)

EvalCeilOfNumber(Target, output)

MCMathFoundationEvalCeilOfReal(Target, output)

MCMathFoundationEvalCeilOfNumber(Target, output)

end syntax

end module

public foreign handler MCMathEvalRandomReal(out Value as double) as undefined binds to "<builtin>"

public foreign handler MCMathEvalConvertBase(in Operand as string, in Source as int, in Target as int, out Value as string) as undefined binds to "<builtin>"

public foreign handler MCMathEvalConvertFromBase(in Operand as string, in Source as int, out Value as int) as undefined binds to "<builtin>"

public foreign handler MCMathEvalConvertToBase(in Operand as int, in Target as int, out Value as string) as undefined binds to "<builtin>"

public foreign handler MCMathEvalConvertToBase10(in Operand as string, in Source as int, out Value as int) as undefined binds to "<builtin>"

public foreign handler MCMathEvalConvertFromBase10(in Operand as int, in Target as int, out Value as string) as undefined binds to "<builtin>"

--

--

/*

Summary: Converts the base of <Operand>

Operand: An expression that evaluates to a string.

Source: An expression that evaluates to an integer.

output: <Operand> converted to base 10.

Description:

Interprets a string in the desired base and converts it to decimal.

>*Note:* The source base must be an integer between 2 and 32.

*/

syntax BaseConvertFrom is left binary operator with precedence 1

<Operand: Expression> "converted" "from" "base" <Source: Expression>

begin

MCMathEvalConvertToBase10(Operand, Source, output)

end syntax

/*

Summary: Converts the base of <Operand>

Operand: An expression that evaluates to an integer.

From: An expression that evaluates to an integer.

To: An expression that evaluates to an integer.

output: A string representation of the value of <Operand> when interpreted as a number in base <From>, converted to base <To>.

Target: An expression that evaluates to an integer.

output: A string representation of <Operand> in base <Target>.

Description:

Converts a decimal into the desired base, and returns a string representation.

>*Note:* The destination base must be an integer between 2 and 32.

*/

syntax BaseConvertTo is left binary operator with precedence 1

<Operand: Expression> "converted" "to" "base" <Target: Expression>

begin

MCMathEvalConvertFromBase10(Operand, Target, output)

end syntax

/*

Summary: Converts the base of <Operand>

Operand: An expression that evaluates to a string.

Source: An expression that evaluates to an integer.

Target: An expression that evaluates to an integer.

output: A string representation <Operand> interpreted as a number in base <From>, converted to base <To>.

Description:

Interprets a string in the desired source base and converts it to the desired target base, and returns a string representation.

>*Note:* The source and destination bases must be integers between 2 and 32.

*/

syntax BaseConvert is postfix operator with precedence 1

<Operand: Expression> "converted" ["from" "base" <Source: Expression> ] ["to" "base" <Target: Expression> ]

syntax BaseConvert is left binary operator with precedence 1

<Operand: Expression> "converted" "from" "base" <Source: Expression> "to" "base" <Target: Expression>

begin

MCMathEvalConvertBase(Operand, Source, Target, output)

MCMathEvalConvertFromBase(Operand, Target, output)

MCMathEvalConvertToBase(Operand, Source, output)

end syntax

--

if (MCNumberIsInteger(p_operand))

{

integer_t t_abs;

MCMathEvalAbsInteger(MCNumberFetchAsInteger(p_operand), t_abs);

MCMathEvalTruncInteger(MCNumberFetchAsInteger(p_operand), t_abs);

MCNumberCreateWithInteger(t_abs, r_output);

return;

}

double t_abs_real;

MCMathEvalAbsReal(MCNumberFetchAsReal(p_operand), t_abs_real);

MCMathEvalTruncReal(MCNumberFetchAsReal(p_operand), t_abs_real);

MCNumberCreateWithReal(t_abs_real, r_output);

}

x_target = ceil(x_target - 0.5);

}

void MCMathFoundationExecRoundToNearestReal(double& x_target)

extern "C" void MCMathFoundationExecRoundToNearestReal(double& x_target)

{

if (x_target < 0.0)

x_target = ceil(x_target - 0.5);

else

x_target = floor(x_target + 0.5);

}

void MCMathFoundationExecRoundDownNumber(MCNumberRef& x_target)

extern "C" void MCMathFoundationExecRoundDownNumber(MCNumberRef& x_target)

{

double t_target = MCNumberFetchAsReal(x_target);

MCMathFoundationExecRoundDownReal(t_target);

MCNumberCreateWithReal(t_target, x_target);

}

void MCMathFoundationExecRoundUpNumber(MCNumberRef& x_target)

extern "C" void MCMathFoundationExecRoundUpNumber(MCNumberRef& x_target)

{

double t_target = MCNumberFetchAsReal(x_target);

MCMathFoundationExecRoundUpReal(t_target);

MCNumberCreateWithReal(t_target, x_target);

}

void MCMathFoundationExecRoundToNearestNumber(MCNumberRef& x_target)

extern "C" void MCMathFoundationExecRoundToNearestNumber(MCNumberRef& x_target)

{

double t_target = MCNumberFetchAsReal(x_target);

MCMathFoundationExecRoundToNearestReal(t_target);

MCNumberCreateWithReal(t_target, x_target);

}

void MCMathFoundationEvalFloorReal(double& x_target)

extern "C" void MCMathFoundationEvalFloorReal(double p_target, double& r_output)

{

x_target = floor(x_target);

r_output = floor(p_target);

}

void MCMathFoundationEvalCeilingReal(double& x_target)

extern "C" void MCMathFoundationEvalCeilingReal(double p_target, double& r_output)

{

x_target = ceil(x_target);

r_output = ceil(p_target);

}

void MCMathFoundationEvalFloorNumber(MCNumberRef& x_target)

extern "C" void MCMathFoundationEvalFloorNumber(MCNumberRef p_target, MCNumberRef& r_output)

{

double t_target = MCNumberFetchAsReal(x_target);

MCMathFoundationEvalFloorReal(t_target);

double t_target = MCNumberFetchAsReal(p_target);

MCMathFoundationEvalFloorReal(t_target, t_target);

MCValueRelease(x_target);

MCNumberCreateWithReal(t_target, x_target);

if (!MCNumberCreateWithReal(t_target, r_output))

return;

}

void MCMathFoundationEvalCeilingNumber(MCNumberRef& x_target)

void MCMathFoundationEvalCeilingNumber(MCNumberRef p_target, MCNumberRef& r_output)

{

double t_target = MCNumberFetchAsReal(x_target);

MCMathFoundationEvalCeilingReal(t_target);

double t_target = MCNumberFetchAsReal(p_target);

MCMathFoundationEvalCeilingReal(t_target, t_target);

MCValueRelease(x_target);

MCNumberCreateWithReal(t_target, x_target);

if (!MCNumberCreateWithReal(t_target, r_output))

return;

}

<Left> is greater than <Right> if and only if <Left> and <Right> are not equal, and the unicode codepoint of the first char in <Left> that is not equal to the corresponding char in <Right> is of greater value.

*/

syntax LessThan is neutral binary operator with precedence 1

syntax LessThan is neutral binary operator with precedence 3

<Left: Expression> "<" <Right: Expression>

begin

MCStringEvalIsLessThan(Left, Right, output)

<Left> is greater than <Right> if and only if <Left> and <Right> are not equal, and the unicode codepoint of the first char in <Left> that is not equal to the corresponding char in <Right> is of greater value.

*/

syntax GreaterThan is neutral binary operator with precedence 1

syntax GreaterThan is neutral binary operator with precedence 3

<Left: Expression> ">" <Right: Expression>

begin

MCStringEvalIsGreaterThan(Left, Right, output)

"$(SRCROOT)/../../libscript/src/array.mlc",

"$(SRCROOT)/../../engine/src/canvas.mlc",

"$(SRCROOT)/../../engine/src/widget.mlc",

"$(SRCROOT)/../../libscript/src/math.mlc",

);

name = Bootstrap;

outputPaths = (

"$(SRCROOT)/src/grammar_full.g",

);

runOnlyForDeploymentPostprocessing = 0;

shellPath = /bin/sh;

shellScript = "cd src\nmkdir -p \"_G_\"\n\"${BUILT_PRODUCTS_DIR}/lc-bootstrap-compile\" -bootstrap -template \"${SRCROOT}/src/grammar.g\" -output \"${SRCROOT}/src/grammar_full.g\" \"${SRCROOT}/../../libscript/src/string.mlc\" \"${SRCROOT}/../../libscript/src/binary.mlc\" \"${SRCROOT}/../../libscript/src/arithmetic.mlc\" \"${SRCROOT}/../../libscript/src/bitwise.mlc\" \"${SRCROOT}/../../libscript/src/byte.mlc\" \"${SRCROOT}/../../libscript/src/char.mlc\" \"${SRCROOT}/../../libscript/src/list.mlc\" \"${SRCROOT}/../../libscript/src/type-convert.mlc\" \"${SRCROOT}/../../libscript/src/logic.mlc\" \"${SRCROOT}/../../libscript/src/sort.mlc\" \"${SRCROOT}/../../libscript/src/array.mlc\"\nif [ \"$?\" != \"0\" ]; then exit 1; fi\n";

shellScript = "cd src\nmkdir -p \"_G_\"\n\"${BUILT_PRODUCTS_DIR}/lc-bootstrap-compile\" -bootstrap -template \"${SRCROOT}/src/grammar.g\" -output \"${SRCROOT}/src/grammar_full.g\" \"${SRCROOT}/../../libscript/src/string.mlc\" \"${SRCROOT}/../../libscript/src/binary.mlc\" \"${SRCROOT}/../../libscript/src/arithmetic.mlc\" \"${SRCROOT}/../../libscript/src/bitwise.mlc\" \"${SRCROOT}/../../libscript/src/byte.mlc\" \"${SRCROOT}/../../libscript/src/char.mlc\" \"${SRCROOT}/../../libscript/src/list.mlc\" \"${SRCROOT}/../../libscript/src/type-convert.mlc\" \"${SRCROOT}/../../libscript/src/logic.mlc\" \"${SRCROOT}/../../libscript/src/sort.mlc\" \"${SRCROOT}/../../libscript/src/array.mlc\" \"${SRCROOT}/../../libscript/src/math.mlc\" \"${SRCROOT}/../../libscript/src/math-foundation.mlc\"\nif [ \"$?\" != \"0\" ]; then exit 1; fi\n";

showEnvVarsInLog = 0;

};

/* End PBXShellScriptBuildPhase section */