home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_c / schem2c1.lzh / Scheme2C / Scheme-src.lzh / scrt / apply.h < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-11  |  3.1 KB  |  72 lines
  1. /* SCHEME->C */
  2.  
  3. /*              Copyright 1989 Digital Equipment Corporation
  4.  *                         All Rights Reserved
  5.  *
  6.  * Permission to use, copy, and modify this software and its documentation is
  7.  * hereby granted only under the following terms and conditions.  Both the
  8.  * above copyright notice and this permission notice must appear in all copies
  9.  * of the software, derivative works or modified versions, and any portions
  10.  * thereof, and both notices must appear in supporting documentation.
  11.  *
  12.  * Users of this software agree to the terms and conditions set forth herein,
  13.  * and hereby grant back to Digital a non-exclusive, unrestricted, royalty-free
  14.  * right and license under any changes, enhancements or extensions made to the
  15.  * core functions of the software, including but not limited to those affording
  16.  * compatibility with other hardware or software environments, but excluding
  17.  * applications which incorporate this software.  Users further agree to use
  18.  * their best efforts to return to Digital any such changes, enhancements or
  19.  * extensions that they make and inform Digital of noteworthy uses of this
  20.  * software.  Correspondence should be provided to Digital at:
  21.  * 
  22.  *                       Director of Licensing
  23.  *                       Western Research Laboratory
  24.  *                       Digital Equipment Corporation
  25.  *                       100 Hamilton Avenue
  26.  *                       Palo Alto, California  94301  
  27.  * 
  28.  * This software may be distributed (but not offered for sale or transferred
  29.  * for compensation) to third parties, provided such third parties agree to
  30.  * abide by the terms and conditions of this notice.  
  31.  * 
  32.  * THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
  33.  * WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
  34.  * MERCHANTABILITY AND FITNESS.   IN NO EVENT SHALL DIGITAL EQUIPMENT
  35.  * CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
  36.  * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
  37.  * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
  38.  * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
  39.  * SOFTWARE.
  40. */
  41.  
  42. /* This module defines the APPLY and UNKNOWNCALL functions.  APPLY is as
  43.    defined in Revised**3 and UNKNOWNCALL is a variant of APPLY which is used
  44.    by the compiler to call unknown functions.
  45. */
  46.  
  47. #ifdef TITAN
  48. #define MAXARGS 16    /* Maximum number of required arguments permitted.
  49.                Note that this does not preclude an optional
  50.                argument list as an additional argument.  This
  51.                number is typically determined by the ability
  52.                of one's C compiler.  */
  53. #else
  54. #define MAXARGS 25    /* Maximum number of required arguments permitted.
  55.                Note that this does not preclude an optional
  56.                argument list as an additional argument.  This
  57.                number is typically determined by the ability
  58.                of one's C compiler.  */
  59. #endif
  60.  
  61. extern  int  sc_unknownargc;    /* Data structures for sc_unknowncall */
  62.  
  63. extern  TSCP  sc_unknownproc[ 4 ];
  64.  
  65. extern  TSCP  sc_arg[MAXARGS];
  66.  
  67. /* The procedural interfaces in this module are:  */
  68.  
  69. extern  TSCP  sc_apply_2dtwo();
  70.  
  71. extern  TSCP  sc_unknowncall();
  72.