aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
Task/Object-serialization/ALGOL-68/object-serialization.alg Normal file
View file

@ -0,0 +1,29 @@
MODE ENTITY = STRUCT([6]CHAR name, INT creation);
FORMAT entity repr = $"Name: "g", Created:"g$;
MODE PERSON = STRUCT(ENTITY entity, STRING email);
FORMAT person repr = $f(entity repr)", Email: "g$;
PERSON instance1 := PERSON(ENTITY("Cletus", 20080808), "test+1@localhost.localdomain");
print((name OF entity OF instance1, new line));
ENTITY instance2 := ENTITY("Entity",20111111);
print((name OF instance2, new line));
FILE target;
INT errno := open(target, "rows.dat", stand back channel); # open file #
# Serialise #
put(target,(instance1, new line, instance2, new line));
printf(($"Serialised..."l$));
close(target); # flush file stream #
errno := open(target, "rows.dat", stand back channel); # load again #
# Unserialise #
PERSON i1;
ENTITY i2;
get(target,(i1, new line, i2, new line));
printf(($"Unserialised..."l$));
printf((person repr, i1, $l$));
printf((entity repr, i2, $l$))