tasks a-s

Task/Null-object/Component-Pascal/null-object.component

@@ -0,0 +1,17 @@
+MODULE ObjectNil;
+IMPORT StdLog;
+TYPE
+	Object = POINTER TO ObjectDesc;
+	ObjectDesc = RECORD
+	END;
+VAR	
+	x: Object; (* default initialization to NIL *)
+	
+PROCEDURE DoIt*;
+BEGIN
+	IF x = NIL THEN
+		StdLog.String("x is NIL");StdLog.Ln
+	END
+END DoIt;
+
+END ObjectNil.