|
|
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.