[Commit] nickle builtin-toplevel.c,1.23,1.24 nickle.h,1.114,1.115

Bart Massey commit at keithp.com
Thu May 13 01:21:46 PDT 2004


Committed by: bart

Update of /local/src/CVS/nickle
In directory home.keithp.com:/tmp/cvs-serv14909

Modified Files:
	builtin-toplevel.c nickle.h 
Log Message:
Added boolean is_defined(&poly)



Index: builtin-toplevel.c
===================================================================
RCS file: /local/src/CVS/nickle/builtin-toplevel.c,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- a/builtin-toplevel.c	16 Apr 2004 05:26:44 -0000	1.23
+++ b/builtin-toplevel.c	13 May 2004 08:21:44 -0000	1.24
@@ -53,6 +53,7 @@
         { do_is_thread, "is_thread", "b", "p" },
         { do_is_bool, "is_bool", "b", "p" },
         { do_is_void, "is_void", "b", "p" },
+        { do_is_defined, "is_defined", "b", "*p" },
         { do_mantissa, "mantissa", "r", "R" },
         { do_numerator, "numerator", "i", "R" },
         { do_precision, "precision", "i", "R" },
@@ -701,6 +702,23 @@
 }
 
 Value
+do_is_defined (Value av)
+{
+    ENTER ();
+    if (!av) {
+	RaiseStandardException (exception_invalid_argument,
+				"do_is_defined: invalid reference",
+				2, NewInt (0), av);
+	av = Void;
+    } else if (!RefValueGet(av)) {
+	av = FalseVal;
+    } else {
+	av = TrueVal;
+    }
+    RETURN (av);
+}
+
+Value
 do_is_array (Value av)
 {
     ENTER ();

Index: nickle.h
===================================================================
RCS file: /local/src/CVS/nickle/nickle.h,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -d -r1.114 -r1.115
--- a/nickle.h	11 Apr 2004 06:06:52 -0000	1.114
+++ b/nickle.h	13 May 2004 08:21:44 -0000	1.115
@@ -985,6 +985,7 @@
 Value	do_is_func (Value);
 Value	do_is_bool (Value);
 Value	do_is_void (Value);
+Value	do_is_defined (Value);
 Value	do_hash (Value);
 Value	do_Thread_get_priority (Value);
 Value	do_Thread_id_to_thread (Value);




More information about the Commit mailing list