Artifact 761727997bdbef69ab696e8f6f4ed4ba5b80b76bc408c86b9d999234436b0ff1:

• Executable file r36/cslbase/stubs.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: 1798) [annotate] [blame] [check-ins using] [more...]

/*  stubs.c                         Copyright (C) 1990-95 Codemist Ltd */

/*
 * Placeholder for compiler-generated C code.
 * This module is linked in in place of the machine-generated files
 * "u01.c" to "u10.c" to create a cold-start, unspecialised version of CSL
 */

/* Signature: 09f2483d 31-May-1997 */

#include <stdarg.h>
#include <string.h>
#include <ctype.h>

#include "machine.h"
#include "tags.h"
#include "cslerror.h"
#include "externs.h"
#include "arith.h"
#include "entries.h"
#ifdef TIMEOUT
#include "timeout.h"
#endif



static Lisp_Object Lsample(Lisp_Object nil, Lisp_Object x)
{
    CSL_IGNORE(nil);
    return onevalue(x);
}

setup_type const u01_setup[] =
{
    {"sample",                Lsample,     too_many_1,   wrong_no_1},
    {NULL,                    0, 0, 0}
};

setup_type const u02_setup[] =
{
    {NULL,                      0, 0, 0}
};

setup_type const u03_setup[] =
{
    {NULL,                      0, 0, 0}
};

setup_type const u04_setup[] =
{
    {NULL,                      0, 0, 0}
};

setup_type const u05_setup[] =
{
    {NULL,                      0, 0, 0}
};

setup_type const u06_setup[] =
{
    {NULL,                      0, 0, 0}
};

setup_type const u07_setup[] =
{
    {NULL,                      0, 0, 0}

};

setup_type const u08_setup[] =
{
    {NULL,                      0, 0, 0}
};

setup_type const u09_setup[] =
{
    {NULL,                      0, 0, 0}
};

/*
 * A bit of a horrible fudge - but I will use u10_setup[0].name==NULL to
 * decide that I have these stubs loaded.
 */

setup_type const u10_setup[] =
{
    {NULL,                      0, 0, 0}
};

setup_type const u11_setup[] =
{
    {NULL,                      0, 0, 0}
};

setup_type const u12_setup[] =
{
    {NULL,                      0, 0, 0}
};

/* end of stubs.c */