Changeset 12094 for lang/c

Timestamp:

05/21/08 08:35:30 (5 years ago)

Author:

mokehehe

Message:

Add builtin (symbol?, number?)

Location:

lang/c/misc/mlisp

Files:

• core/m_basic.cpp (modified) (2 diffs)
• core/s_util.h (modified) (1 diff)
• readme.txt (modified) (1 diff)

lang/c/misc/mlisp/core/m_basic.cpp

@@ -51 +51 @@
         rplacd(a, d);
         return nil;
+}
+
+static SExp builtin_symbolp() {
+        SExp a = get_arg(0);
+        return symbolp(a) ? t : nil;
+}
+
+static SExp builtin_numberp() {
+        SExp a = get_arg(0);
+        return numberp(a) ? t : nil;
 }
 
@@ -291 +301 @@
                 {       "set-car!",     builtin_rplaca,         2,      2,      },
                 {       "set-cdr!",     builtin_rplacd,         2,      2,      },
+
+                {       "symbol?",      builtin_symbolp,        1,      1,      },
+                {       "number?",      builtin_numberp,        1,      1,      },
+
                 {       "list",         builtin_list,           0,      -1,     },
                 {       "append",       builtin_append,         0,      -1,     },

lang/c/misc/mlisp/core/s_util.h

@@ -58 +58 @@
 __inline int consp(SExp s)              { return type_of(s) == tCell; }
 __inline int symbolp(SExp s)    { return type_of(s) == tSymb; }
+__inline int numberp(SExp s)    { return type_of(s) == tInt; }
 __inline int zerop(SExp s)              { return eq(s, int2s(0)); }
 __inline SExp cadr(SExp s)              { return car(cdr(s)); }

lang/c/misc/mlisp/readme.txt

@@ -52 +52 @@
 - ��s���ɕϐ�������������Ƃ��̎�����
 - ��������
+- �}�N�����g�����Ƃ��́A���R�ϐ���t!�̎g�p�̃`�F�b�N
+
 
 - �R���p�C�����̃V���^�b�N�X�G���[