[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