Data commit

Task/Object-serialization/E/object-serialization-1.e

@@ -0,0 +1,21 @@
+def makeEvent(time :int) {
+    return def event {
+        to __printOn(out) { out.print(`@@$time`) }
+        to __optUncall() { return [makeEvent, "run", [time]] }
+        to getTime() { return time }
+    }
+}
+
+def makeArrival(time :int, what :any, position :int) {
+    return def arrival extends makeEvent(time) {
+        to __printOn(out) {
+            out.print(`$what to $position $super`)
+        }
+        to __optUncall() {
+            return [makeArrival, "run", [time, what, position]]
+        }
+
+        to getWhat() { return what }
+        to getPosition() { return position }
+    }
+}

Task/Object-serialization/E/object-serialization-2.e

@@ -0,0 +1,3 @@
+def surgeon := <import:org.erights.e.elib.serial.makeSurgeon>().diverge()
+surgeon.addExit(makeEvent, "makeEvent")
+surgeon.addExit(makeArrival, "makeArrival")

Task/Object-serialization/E/object-serialization-3.e

@@ -0,0 +1,6 @@
+def objs := [makeEvent(timer.now()),
+             makeArrival(timer.now(), "Smith", 7)]
+
+stdout.println(objs)
+<file:objects.dat>.setBytes(surgeon.serialize(objs))
+stdout.println(surgeon.unserialize(<file:objects.dat>.getBytes()))