|
|
1.1 ! root 1: /* ! 2: * Interpress utilities ! 3: * ! 4: * Copyright (c) 1984, 1985 Xerox Corp. ! 5: * ! 6: * Written for Xerox Corporation by William LeFebvre ! 7: * 30-May-1984 ! 8: * ! 9: */ ! 10: ! 11: /* ! 12: * Subroutines to help build interpress files: ! 13: * ! 14: * literal interface level - these routines produce interpress output at ! 15: * the token level. ! 16: */ ! 17: ! 18: /* ! 19: * This file contains the macro definitions for some of the literal ! 20: * operations. This is done for efficiency reasons. ! 21: */ ! 22: ! 23: # define append_short_number(number) \ ! 24: append_word((unsigned short)(number + INTEGER_ZERO)) ! 25: ! 26: # define AppendIdentifier(string) \ ! 27: append_Sequence(sequenceIdentifier, strlen(string), (unsigned char *)string) ! 28: ! 29: # define AppendString(string) \ ! 30: append_Sequence(sequenceString, strlen(string), (unsigned char *)string) ! 31: ! 32: # define AppendComment(string) \ ! 33: append_Sequence(sequenceComment, strlen(string), (unsigned char *)string) ! 34: ! 35: # define AppendInsertFile(string) \ ! 36: append_Sequence(sequenceInsertFile, strlen(string), (unsigned char *)string) ! 37: ! 38: /* An abbreviation for AppendOp: */ ! 39: ! 40: #ifndef lint ! 41: # define Op(string) AppendOp((unsigned)OP_/**/string) ! 42: #else ! 43: # define Op(string) AppendOp(1) /* is this the right thing? */ ! 44: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.