|
|
1.1 ! root 1: /* ! 2: * Interpress utilities ! 3: * ! 4: * Copyright (c) 1984, 1985, 1986 Xerox Corp. ! 5: * ! 6: * HISTORY ! 7: * 17-Jun-86 Lee Moore (lee) at Xerox Webster Research Center ! 8: * Added warning about Op() macro. ! 9: * ! 10: * ! 11: * Written for Xerox Corporation by William LeFebvre ! 12: * 30-May-1984 ! 13: * ! 14: */ ! 15: ! 16: /* ! 17: * Subroutines to help build interpress files: ! 18: * ! 19: * literal interface level - these routines produce interpress output at ! 20: * the token level. ! 21: */ ! 22: ! 23: /* ! 24: * This file contains the macro definitions for some of the literal ! 25: * operations. This is done for efficiency reasons. ! 26: */ ! 27: ! 28: # define append_short_number(number) \ ! 29: append_n_byte_int((long)(number + INTEGER_ZERO), 2) ! 30: ! 31: # define AppendIdentifier(string) \ ! 32: append_Sequence(sequenceIdentifier, strlen(string), (unsigned char *)string) ! 33: ! 34: # define AppendString(string) \ ! 35: append_Sequence(sequenceString, strlen(string), (unsigned char *)string) ! 36: ! 37: # define AppendComment(string) \ ! 38: append_Sequence(sequenceComment, strlen(string), (unsigned char *)string) ! 39: ! 40: # define AppendInsertFile(string) \ ! 41: append_Sequence(sequenceInsertFile, strlen(string), (unsigned char *)string) ! 42: ! 43: /* ! 44: * An abbreviation for AppendOp: ! 45: * using this guy is really a bad idea because it depends on a bug ! 46: * in the C compiler. While it will work for PCC, the Tartan compiler ! 47: * will choke on it. Don't use this feature if you want your code to ! 48: * be portable. ! 49: */ ! 50: #ifndef lint ! 51: # define Op(string) AppendOp((unsigned)OP_/**/string) ! 52: #else ! 53: # define Op(string) AppendOp(1) /* is this the right thing? */ ! 54: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.