From Revision 10:
Fix for == operator (broken from rev 9)
Fix for OVER operator (broken from rev 9, for strings values in stacks).
Addition: Stacks and Pointers to Groups (also Inventories but broken, and fixed in rev. 11)
From Revision 11
Inventories in static variables
Test program:
Module CheckMe {
Class alfa {
x=1000
}
Global Enum aaa {a,b,c,d}
\\ use Clear to clear static from level of modules like Checkit
Rem : Clear
Module Checkit {
\\ we can use stacks, arrays, inventories and pointers to groups
\\ enumerators
\\ for stacks
static z=(stack:=1,2), m=(1,2,3,4), k->alfa()
static b as aaa=a, cc=(List:="a":=100,"b":=500,"c":=200)
read ? z
Print k=>x
k=>x++
Print z
Stack z {
if isnum then print number
}
Print m
m++
Return cc, "a":=cc("a")+1
If Exist(cc,"a") Then Print Eval(cc)
}
Checkit
Checkit
Checkit (stack:=5,6,7)
Checkit
Checkit
}
CheckMe
Fix for == operator (broken from rev 9)
Fix for OVER operator (broken from rev 9, for strings values in stacks).
Addition: Stacks and Pointers to Groups (also Inventories but broken, and fixed in rev. 11)
From Revision 11
Inventories in static variables
Test program:
Module CheckMe {
Class alfa {
x=1000
}
Global Enum aaa {a,b,c,d}
\\ use Clear to clear static from level of modules like Checkit
Rem : Clear
Module Checkit {
\\ we can use stacks, arrays, inventories and pointers to groups
\\ enumerators
\\ for stacks
static z=(stack:=1,2), m=(1,2,3,4), k->alfa()
static b as aaa=a, cc=(List:="a":=100,"b":=500,"c":=200)
read ? z
Print k=>x
k=>x++
Print z
Stack z {
if isnum then print number
}
Print m
m++
Return cc, "a":=cc("a")+1
If Exist(cc,"a") Then Print Eval(cc)
}
Checkit
Checkit
Checkit (stack:=5,6,7)
Checkit
Checkit
}
CheckMe
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου
You can feel free to write any suggestion, or idea on the subject.