blob: 875a17e5ebc08b6716eed524f16be2b89003054d (
plain)
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
61
62
63
64
65
66
|
/***********************************************************************
* *
* This software is part of the ast package *
* Copyright (c) 1986-2007 AT&T Knowledge Ventures *
* and is licensed under the *
* Common Public License, Version 1.0 *
* by AT&T Knowledge Ventures *
* *
* A copy of the License is available at *
* http://www.opensource.org/licenses/cpl1.0.txt *
* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
* *
* Information and Software Systems Research *
* AT&T Research *
* Florham Park NJ *
* *
* Glenn Fowler <gsf@research.att.com> *
* *
***********************************************************************/
#pragma prototyped
/*
* Glenn Fowler
* AT&T Research
*
* common preprocessor pragma handler
*/
#include "pplib.h"
void
pppragma(char* directive, char* pass, char* name, char* value, int newline)
{
register int sep = 0;
ppsync();
if (directive)
{
ppprintf("#%s", directive);
sep = 1;
}
if (pass)
{
if (sep)
{
sep = 0;
ppprintf(" ");
}
ppprintf("%s:", pass);
}
if (name)
{
if (sep)
ppprintf(" ");
else
sep = 1;
ppprintf("%s", name);
}
if (value)
{
if (sep || pass)
ppprintf(" ");
ppprintf("%s", value);
}
if (newline)
ppprintf("\n");
}
|
