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