Changeset View
Changeset View
Standalone View
Standalone View
swh/web/tests/resources/contents/code/extensions/test.cal
- This file was added.
// Data types | |||||
BigIntegerVar := -9223372036854775807L; | |||||
BigIntegerVar := BigIntegerVar - 1; | |||||
Date1 := 0D; | |||||
Date1 := 112710D; | |||||
MESSAGE(FORMAT(Date1)); | |||||
MESSAGE(FORMAT(Date1)); | |||||
Date1 := 11271810D; | |||||
Q = DIV(5, 7); | |||||
R = MOD(5, 7); | |||||
// Compound Statments | |||||
// ------------------ | |||||
// BEGIN-END | |||||
IF (x = y) AND (a = b) THEN BEGIN | |||||
x := a; | |||||
y := b; | |||||
END; | |||||
// Conditional Statments | |||||
// --------------------- | |||||
// IF-THEN-ELSE | |||||
IF x < y THEN | |||||
EXIT(TRUE) | |||||
ELSE BEGIN | |||||
x := x * 2L; | |||||
y := y - 1L; | |||||
END; | |||||
// CASE-OF | |||||
CASE Field OF | |||||
Field::A: | |||||
BEGIN | |||||
x := x + 1; | |||||
y := -y - 1; | |||||
END; | |||||
Field::B: | |||||
x := y; | |||||
Field::C,Field::D: | |||||
y := x; | |||||
ELSE BEGIN | |||||
y := x; | |||||
a := b; | |||||
END; | |||||
END; |