127 lines
3.4 KiB
Plaintext
127 lines
3.4 KiB
Plaintext
OBJECT=ARIAL14
|
|
ARIAL14:TYPE=FONT
|
|
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT
|
|
|
|
OBJECT=TXTMSG
|
|
TXTMSG:TYPE=TEXT
|
|
TXTMSG:VISIBLE=TRUE
|
|
TXTMSG:HYPERTEXT=
|
|
TXTMSG:FONT=ARIAL14
|
|
TXTMSG:TOCANVAS=TRUE
|
|
TXTMSG:RECT=0,0,800,600
|
|
TXTMSG:PRIORITY=10000
|
|
TXTMSG:HJUSTIFY=CENTER
|
|
TXTMSG:VJUSTIFY=CENTER
|
|
TXTMSG:MONITORCOLLISION=FALSE
|
|
TXTMSG:MONITORCOLLISIONALPHA=FALSE
|
|
|
|
OBJECT=TEST_BEH
|
|
TEST_BEH:TYPE=BEHAVIOUR
|
|
TEST_BEH:CODE={@RETURN(2);}
|
|
|
|
OBJECT=TEST_STRUCT
|
|
TEST_STRUCT:TYPE=STRUCT
|
|
TEST_STRUCT:FIELDS=NAME<STRING>,VAL<INTEGER>
|
|
|
|
OBJECT=TEST_DB
|
|
TEST_DB:TYPE=DATABASE
|
|
TEST_DB:MODEL=TEST_STRUCT
|
|
|
|
OBJECT=TEST1
|
|
TEST1:TYPE=BEHAVIOUR
|
|
TEST1:CODE={@RETURN([1+2*3]);}
|
|
|
|
OBJECT=TEST2
|
|
TEST2:TYPE=BEHAVIOUR
|
|
TEST2:CODE={@RETURN([[10-3]*[2+1]]);}
|
|
|
|
OBJECT=TEST3
|
|
TEST3:TYPE=BEHAVIOUR
|
|
TEST3:CODE={@RETURN([10%3]);}
|
|
|
|
OBJECT=TEST4
|
|
TEST4:TYPE=BEHAVIOUR
|
|
TEST4:CODE={@RETURN([2+2*2]);}
|
|
|
|
OBJECT=TEST5
|
|
TEST5:TYPE=BEHAVIOUR
|
|
TEST5:CODE={@RETURN([1.2+2.3]);}
|
|
|
|
OBJECT=TEST6
|
|
TEST6:TYPE=BEHAVIOUR
|
|
TEST6:CODE={@INT("A", 5); @RETURN([A + 2]);}
|
|
|
|
OBJECT=TEST7
|
|
TEST7:TYPE=BEHAVIOUR
|
|
TEST7:CODE={@STRING("TEST", "");@IF("1'1","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
|
|
|
|
OBJECT=TEST8
|
|
TEST8:TYPE=BEHAVIOUR
|
|
TEST8:CODE={@STRING("TEST", "");@IF("TEST_BEH^RUN()'2","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
|
|
|
|
OBJECT=TEST9
|
|
TEST9:TYPE=BEHAVIOUR
|
|
TEST9:CODE={@STRING("TEST", "");@IF("TEST_BEH'2","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
|
|
|
|
OBJECT=TEST10
|
|
TEST10:TYPE=BEHAVIOUR
|
|
TEST10:CODE={@STRING("TEST", "");@IF("TEST_STRUCT|VAL'5","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
|
|
|
|
OBJECT=TEST11
|
|
TEST11:TYPE=BEHAVIOUR
|
|
TEST11:CODE={@STRING("TEST", "");@IF("1","_","1","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
|
|
|
|
OBJECT=TEST12
|
|
TEST12:TYPE=BEHAVIOUR
|
|
TEST12:CODE={@STRING("TEST", "");@IF("TEST_BEH^RUN()","_","2","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
|
|
|
|
OBJECT=TEST13
|
|
TEST13:TYPE=BEHAVIOUR
|
|
TEST13:CODE={@STRING("TEST", "");@IF("TEST_BEH","_","2","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
|
|
|
|
OBJECT=TEST14
|
|
TEST14:TYPE=BEHAVIOUR
|
|
TEST14:CODE={@STRING("TEST", "");@IF("TEST_STRUCT|VAL","_","5","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
|
|
|
|
OBJECT=TEST15
|
|
TEST15:TYPE=BEHAVIOUR
|
|
TEST15:CODE={@INT("A",1);@INT("A",[A+1]);@RETURN(A);}
|
|
|
|
OBJECT=TEST16
|
|
TEST16:TYPE=BEHAVIOUR
|
|
TEST16:CODE={@INT("A",1);@INT("A",2);@RETURN(A);}
|
|
|
|
OBJECT=TEST17
|
|
TEST17:TYPE=BEHAVIOUR
|
|
TEST17:CODE={@INT("A",1);@INT("B",[A+1]);@RETURN(B);}
|
|
|
|
OBJECT=TEST18
|
|
TEST18:TYPE=BEHAVIOUR
|
|
TEST18:CODE={@INT("A",0);@INT("B",1);@INT("I",2);@INT("N",10);@INT("TMP",0);@LOOP("{TMP^SET(B);B^SET([A+B]);A^SET(TMP);}",I,[N-I+1],1);@RETURN(B);}
|
|
|
|
OBJECT=TEST19
|
|
TEST19:TYPE=BEHAVIOUR
|
|
TEST19:CODE={@INT("A",0);@INT("B",1);@INT("TMP",0);@LOOP("{TMP^SET(B);B^SET([A+B]);A^SET(TMP);}",2,9,1);@RETURN(B);}
|
|
|
|
OBJECT=TEST20
|
|
TEST20:TYPE=BEHAVIOUR
|
|
TEST20:CODE={@INT("B",0);@RETURN(B);B^SET(1);}
|
|
|
|
OBJECT=TEST21
|
|
TEST21:TYPE=BEHAVIOUR
|
|
TEST21:CODE={@INT("B",0);@RETURN(B);B^SET(1);@RETURN(B);B^SET(2);}
|
|
|
|
OBJECT=TEST22
|
|
TEST22:TYPE=BEHAVIOUR
|
|
TEST22:CODE={@INT("B",-420);B^ABS(-420);@RETURN(B);}
|
|
|
|
OBJECT=TEST_RESULTS
|
|
TEST_RESULTS:TYPE=STRING
|
|
TEST_RESULTS:VALUE=
|
|
TEST_RESULTS:ONBRUTALCHANGED={TXTMSG^SETTEXT(TEST_RESULTS^GET());}
|
|
|
|
OBJECT=__INIT__
|
|
__INIT__:TYPE=BEHAVIOUR
|
|
__INIT__:CODE={TEST_DB^LOAD("TEST_DB.DTA");TEST_STRUCT^SET("TEST_DB_CURSOR");@LOOP("{@STRING("TEST_NAME", ["TEST"+_I_]);@STRING("RESULT", *TEST_NAME^RUN());TEST_RESULTS^ADD([TEST_NAME+"_"]);TEST_RESULTS^ADD([RESULT+"|"]);}",1,22,1);}
|
|
|