Data commit

Task/Singleton/Eiffel/singleton-1.e

@@ -0,0 +1,7 @@
+class
+	SINGLETON
+create {SINGLETON_ACCESS}
+	default_create
+feature
+	-- singleton features go here
+end

Task/Singleton/Eiffel/singleton-2.e

@@ -0,0 +1,10 @@
+frozen class
+	SINGLETON_ACCESS
+feature
+	singleton: SINGLETON
+		once ("PROCESS")
+			create Result
+		ensure
+			Result /= Void
+		end
+end

Task/Singleton/Eiffel/singleton-3.e

@@ -0,0 +1,3 @@
+s: SINGLETON -- declaration somewhere
+
+s := (create{SINGLETON_ACCESS}).singleton -- in some routine