|
|
1.1 root 1: /***************************************************************************
2: * This program is Copyright (C) 1986, 1987, 1988 by Jonathan Payne. JOVE *
3: * is provided to you without charge, and with no warranty. You may give *
4: * away copies of JOVE, including sources, provided that this notice is *
5: * included in all the files. *
6: ***************************************************************************/
7:
8: /* macros for getting at and setting the current argument count */
9:
10: extern int arg_supplied_p,
11: arg_count;
12:
13: #define arg_type() arg_supplied_p
14: #define arg_value() arg_count
15: #define set_is_an_arg(there_is) { arg_supplied_p = (there_is); }
16: #define set_arg_value(n) { arg_supplied_p = YES; arg_count = (n); }
17: #define negate_arg_value() { arg_count = -arg_count; }
18: #define clr_arg_value() { arg_supplied_p = NO; arg_count = 1; }
19: #define is_an_arg() (arg_supplied_p != NO)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.