YAPC::EU 2018 Glasgow Update!

Task/History-variables/Phix/history-variables-1.phix

@@ -0,0 +1,12 @@
+sequence history = {}
+
+type hvt(object o)
+    history = append(history,o)
+    return true
+end type
+
+hvt test = 1
+test = 2
+test = 3
+?{"current",test}
+?{"history",history}

Task/History-variables/Phix/history-variables-2.phix

@@ -0,0 +1,19 @@
+-- history.e
+sequence histories = {}
+
+global function new_history_id(object v)
+    histories = append(histories,{v})
+    return length(histories)
+end function
+
+global procedure set_hv(integer hv, object v)
+    histories[hv] = append(histories[hv],v)
+end procedure
+
+global function get_hv(integer hv)
+    return histories[hv][$]
+end function
+
+global function get_hv_full_history(integer hv)
+    return histories[hv]
+end function

Task/History-variables/Phix/history-variables-3.phix

@@ -0,0 +1,7 @@
+include history.e
+
+constant test2 = new_history_id(1)
+set_hv(test2, 2)
+set_hv(test2, 3)
+?{"current",get_hv(test2)}
+?{"history",get_hv_full_history(test2)}