Artifact ea78fd99a8e2a2c01686c697d527c0dd1517e4f4df96d7a0a3548bc1de80812a:
- Executable file
r37/lisp/csl/cslbase/ompsetup.c
— part of check-in
[f2fda60abd]
at
2011-09-02 18:13:33
on branch master
— Some historical releases purely for archival purposes
git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1027) [annotate] [blame] [check-ins using] [more...]
#include <stdarg.h> #include "machine.h" #include "tags.h" #include "externs.h" #include "cslerror.h" /* Signature: 2edc7539 08-Apr-2002 */ extern Lisp_Object om_read(Lisp_Object, Lisp_Object); extern Lisp_Object om_supportsCD(Lisp_Object, Lisp_Object); extern Lisp_Object om_supportsSymbol(Lisp_Object, Lisp_Object, Lisp_Object); extern Lisp_Object MS_CDECL om_listCDs(Lisp_Object, int, ...); extern Lisp_Object om_listSymbols(Lisp_Object, Lisp_Object); extern Lisp_Object om_whichCDs(Lisp_Object, Lisp_Object); setup_type const om_parse_setup[] = { /* LISP Name */ /* Unary */ /* Binary */ /* Nary */ {"om-read", om_read, too_many_1, wrong_no_1}, {"om-supportsCD", om_supportsCD, too_many_1, wrong_no_1}, {"om-supportsSymbol", too_few_2, om_supportsSymbol, wrong_no_2}, {"om-listCDs", wrong_no_0a, wrong_no_0b, om_listCDs}, {"om-listSymbols", om_listSymbols, too_many_1, wrong_no_1}, {"om-whichCDs", om_whichCDs, too_many_1, wrong_no_1}, {NULL, 0, 0, 0} };