1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "qpoe.h"
# QP_EXPANDTEXT -- Copy a statement to the output, breaking it up into tokens
# and expanding any macro references in the process. This is used to resolve
# macro references which might otherwise be repeatedly expanded, or which it
# might not be possible to expand if this is left to some future time when
# the referenced macros are no longer defined.
int procedure qp_expandtext (qp, s1, s2, maxch)
pointer qp #I QPOE descriptor
char s1[ARB] #I input string containing macros
char s2[maxch] #O output string buffer
int maxch #I max chars out
pointer sp, tokbuf, in
int token, op, otop
int gstrcpy(), qp_gettok()
pointer qp_opentext()
begin
call smark (sp)
call salloc (tokbuf, SZ_TOKBUF, TY_CHAR)
# Open input text for macro expanded token input.
in = qp_opentext (qp, s1)
otop = maxch + 1
op = 1
# Copy tokens to the output, inserting a space after every token.
repeat {
token = qp_gettok (in, Memc[tokbuf], SZ_TOKBUF)
if (token != EOF) {
if (token == TOK_STRING) {
s2[op] = '"'
op = min (otop, op + 1)
}
op = op + gstrcpy (Memc[tokbuf], s2[op], otop-op)
if (token == TOK_STRING) {
s2[op] = '"'
op = min (otop, op + 1)
}
s2[op] = ' '; op = min (otop, op + 1)
if (op >= otop)
break
}
} until (token == EOF)
# Cancel the trailing blank and add the EOS.
if (op > 1 && op < otop)
op = op - 1
s2[op] = EOS
call qp_closetext (in)
call sfree (sp)
return (op - 1)
end
|
