add rogue submodule and support for compiling, some cleanup
This commit is contained in:
parent
a060b65bb9
commit
3eb51f7d4e
9 changed files with 132 additions and 7 deletions
20
tests/settest2.pas
Normal file
20
tests/settest2.pas
Normal file
|
|
@ -0,0 +1,20 @@
|
|||
program settest2;
|
||||
type weekday = (Mon,Tue,Wed,Thu,Fri,Sat,Sun);
|
||||
days = set of weekday;
|
||||
|
||||
var s:days;
|
||||
d:weekday;
|
||||
|
||||
begin
|
||||
s := [Sat,Sun]; (* set literal *)
|
||||
|
||||
d := Sun;
|
||||
if d in [Sat,Sun] then (* array literal *)
|
||||
writeln('weekend');
|
||||
|
||||
if d in s then
|
||||
writeln('also weekend');
|
||||
|
||||
d := Mon;
|
||||
s := s + [d];
|
||||
end.
|
||||
Loading…
Add table
Add a link
Reference in a new issue