xref: /titanic_50/usr/src/lib/libpp/common/pppragma.c (revision 090a8d9e70b0696e7d9bc114c6e021757c9f04fe)
1 /***********************************************************************
2 *                                                                      *
3 *               This software is part of the ast package               *
4 *           Copyright (c) 1986-2007 AT&T Knowledge Ventures            *
5 *                      and is licensed under the                       *
6 *                  Common Public License, Version 1.0                  *
7 *                      by AT&T Knowledge Ventures                      *
8 *                                                                      *
9 *                A copy of the License is available at                 *
10 *            http://www.opensource.org/licenses/cpl1.0.txt             *
11 *         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
12 *                                                                      *
13 *              Information and Software Systems Research               *
14 *                            AT&T Research                             *
15 *                           Florham Park NJ                            *
16 *                                                                      *
17 *                 Glenn Fowler <gsf@research.att.com>                  *
18 *                                                                      *
19 ***********************************************************************/
20 #pragma prototyped
21 /*
22  * Glenn Fowler
23  * AT&T Research
24  *
25  * common preprocessor pragma handler
26  */
27 
28 #include "pplib.h"
29 
30 void
31 pppragma(char* directive, char* pass, char* name, char* value, int newline)
32 {
33 	register int	sep = 0;
34 
35 	ppsync();
36 	if (directive)
37 	{
38 		ppprintf("#%s", directive);
39 		sep = 1;
40 	}
41 	if (pass)
42 	{
43 		if (sep)
44 		{
45 			sep = 0;
46 			ppprintf(" ");
47 		}
48 		ppprintf("%s:", pass);
49 	}
50 	if (name)
51 	{
52 		if (sep)
53 			ppprintf(" ");
54 		else
55 			sep = 1;
56 		ppprintf("%s", name);
57 	}
58 	if (value)
59 	{
60 		if (sep || pass)
61 			ppprintf(" ");
62 		ppprintf("%s", value);
63 	}
64 	if (newline)
65 		ppprintf("\n");
66 }
67