21 lines
481 B
Plaintext
21 lines
481 B
Plaintext
class MAIN is
|
|
main is
|
|
-- creation of a map between strings and integers
|
|
map ::= #MAP{STR, INT};
|
|
|
|
-- add some values
|
|
map := map.insert("red", 0xff0000);
|
|
map := map.insert("green", 0xff00);
|
|
map := map.insert("blue", 0xff);
|
|
|
|
#OUT + map + "\n"; -- show the map...
|
|
|
|
-- test if "indexes" exist
|
|
#OUT + map.has_ind("red") + "\n";
|
|
#OUT + map.has_ind("carpet") + "\n";
|
|
|
|
-- retrieve a value by index
|
|
#OUT + map["green"] + "\n";
|
|
end;
|
|
end;
|