Data commit

Task/Singleton/Phix/singleton-1.phix

@@ -0,0 +1,19 @@
+-- <separate include file>
+object chk = NULL
+class singleton
+    public procedure check()
+        if chk==NULL then
+            chk = this
+        elsif this!=chk then
+            ?9/0
+        end if
+        ?"ok"
+    end procedure
+end class
+
+global singleton s = new()
+--global singleton s2 = new()
+-- </separate include file>
+
+s.check()
+--s2.check()    -- dies

Task/Singleton/Phix/singleton-2.phix

@@ -0,0 +1,6 @@
+global function get_singleton()
+    if chk==NULL then
+        chk = new("singleton")
+    end if
+    return chk
+end function