Artifact 489ef3357082bbf6aab82d9e011fa1c01e71959df957d9c0f2515d43540f964a:

• Executable file r38/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: 942) [annotate] [blame] [check-ins using] [more...]

/* Signature: 4e6ba505 09-Jun-2005 */

#include "headers.h"


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}
};