Mercurial > emacs
annotate src/vms-pp.c @ 20033:2c0e89d1488b
(x-long-option-alist): New variable.
(msdos-handle-args): Handle and complete long options with
attached arguments. Support "-name", "-T" and "-rv" options.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Mon, 13 Oct 1997 16:05:32 +0000 |
parents | ee40177f6c68 |
children |
rev | line source |
---|---|
118 | 1 /* vms_pp - preprocess emacs files in such a way that they can be |
2 * compiled on VMS without warnings. | |
3 * Copyright (C) 1986 Free Software Foundation, Inc. | |
4 | |
5 This file is part of GNU Emacs. | |
6 | |
7 GNU Emacs is free software; you can redistribute it and/or modify | |
8 it under the terms of the GNU General Public License as published by | |
12244 | 9 the Free Software Foundation; either version 2, or (at your option) |
118 | 10 any later version. |
11 | |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
18 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
20 Boston, MA 02111-1307, USA. |
118 | 21 |
22 * | |
23 * Usage: | |
24 * vms_pp infile outfile | |
25 * implicit inputs: | |
26 * The file "vms_pp.trans" has the names and their translations. | |
27 * description: | |
28 * Vms_pp takes the input file and scans it, replacing the long | |
29 * names with shorter names according to the table read in from | |
30 * vms_pp.trans. The line is then written to the output file. | |
31 * | |
32 * Additionally, the "#undef foo" construct is replaced with: | |
33 * #ifdef foo | |
34 * #undef foo | |
35 * #endif | |
36 * | |
37 * The construct #if defined(foo) is replaced with | |
38 * #ifdef foo | |
39 * #define foo_VAL 1 | |
40 * #else | |
41 * #define foo_VAL 0 | |
42 * #endif | |
43 * #define defined(XX) XX_val | |
44 * #if defined(foo) | |
45 * | |
14036 | 46 * This last construction only works on single line #if's and takes |
118 | 47 * advantage of a questionable C pre-processor trick. If there are |
48 * comments within the #if, that contain "defined", then this will | |
49 * bomb. | |
50 */ | |
51 #include <stdio.h> | |
52 | |
53 #define Max_table 100 | |
54 #define Table_name "vms_pp.trans" | |
55 #define Word_member \ | |
56 "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_$" | |
57 | |
58 static FILE *in,*out; /* read from, write to */ | |
59 struct item { /* symbol table entries */ | |
60 char *name; | |
61 char *value; | |
62 }; | |
63 static struct item name_table[Max_table]; /* symbol table */ | |
64 static int defined_defined = 0; /* small optimization */ | |
65 | |
66 main(argc,argv) int argc; char **argv; { | |
67 char buffer[1024]; | |
68 | |
69 if(argc != 3) { /* check argument count */ | |
70 fprintf(stderr,"usage: vms_pp infile outfile"); | |
71 exit(); | |
72 } | |
73 init_table(); /* read in translation table */ | |
74 | |
75 /* open input and output files | |
76 */ | |
77 if((in = fopen(argv[1],"r")) == NULL) { | |
78 fprintf(stderr,"vms_pp: unable to open file '%s'",argv[1]); | |
79 exit(); | |
80 } | |
81 if((out = fopen(argv[2],"w")) == NULL) { | |
82 fprintf(stderr,"vms_pp: unable to create file '%s'",argv[2]); | |
83 exit(); | |
84 } | |
85 | |
86 while(fgets(buffer,1023,in) != NULL) { /* loop through buffer until end */ | |
87 process_line(buffer); /* process the line */ | |
88 fputs(buffer,out); /* write out the line */ | |
89 } | |
90 } | |
91 | |
92 /* buy - allocate and copy a string | |
93 */ | |
94 static char *buy(str) char *str; { | |
95 char *temp; | |
96 | |
97 if(!(temp = malloc(strlen(str)+1))) { | |
98 fprintf(stderr,"vms_pp: can't allocate memory"); | |
99 exit(); | |
100 } | |
101 strcpy(temp,str); | |
102 return temp; | |
103 } | |
104 | |
105 /* gather_word - return a buffer full of the next word | |
106 */ | |
107 static char *gather_word(ptr,word) char *ptr, *word;{ | |
108 for(; strchr(Word_member,*ptr); ptr++,word++) | |
109 *word = *ptr; | |
110 *word = 0; | |
111 return ptr; | |
112 } | |
113 | |
114 /* skip_white - skip white space | |
115 */ | |
116 static char *skip_white(ptr) char *ptr; { | |
117 while(*ptr == ' ' || *ptr == '\t') | |
118 ptr++; | |
119 return ptr; | |
120 } | |
121 | |
122 /* init_table - initialize translation table. | |
123 */ | |
124 init_table() { | |
125 char buf[256],*ptr,word[128]; | |
126 FILE *in; | |
127 int i; | |
128 | |
129 if((in = fopen(Table_name,"r")) == NULL) { /* open file */ | |
130 fprintf(stderr,"vms_pp: can't open '%s'",Table_name); | |
131 exit(); | |
132 } | |
133 for(i = 0; fgets(buf,255,in) != NULL;) { /* loop through lines */ | |
134 ptr = skip_white(buf); | |
135 if(*ptr == '!') /* skip comments */ | |
136 continue; | |
137 ptr = gather_word(ptr,word); /* get long word */ | |
138 if(*word == 0) { /* bad entry */ | |
139 fprintf(stderr,"vms_pp: bad input line '%s'\n",buf); | |
140 continue; | |
141 } | |
142 name_table[i].name = buy(word); /* set up the name */ | |
143 ptr = skip_white(ptr); /* skip white space */ | |
144 ptr = gather_word(ptr,word); /* get equivalent name */ | |
145 if(*word == 0) { /* bad entry */ | |
146 fprintf(stderr,"vms_pp: bad input line '%s'\n",buf); | |
147 continue; | |
148 } | |
149 name_table[i].value = buy(word); /* and the equivalent name */ | |
150 i++; /* increment to next position */ | |
151 } | |
152 for(; i < Max_table; i++) /* mark rest as unused */ | |
153 name_table[i].name = 0; | |
154 } | |
155 | |
156 /* process_line - do actual line processing | |
157 */ | |
158 process_line(buf) char *buf; { | |
159 char *in_ptr,*out_ptr; | |
160 char word[128],*ptr; | |
161 int len; | |
162 | |
163 check_pp(buf); /* check for preprocessor lines */ | |
164 | |
165 for(in_ptr = out_ptr = buf; *in_ptr;) { | |
166 if(!strchr(Word_member,*in_ptr)) /* non alpha-numeric? just copy */ | |
167 *out_ptr++ = *in_ptr++; | |
168 else { | |
169 in_ptr = gather_word(in_ptr,word); /* get the 'word' */ | |
170 if(strlen(word) > 31) /* length is too long */ | |
171 replace_word(word); /* replace the word */ | |
172 for(ptr = word; *ptr; ptr++,out_ptr++) /* copy out the word */ | |
173 *out_ptr = *ptr; | |
174 } | |
175 } | |
176 *out_ptr = 0; | |
177 } | |
178 | |
179 /* check_pp - check for preprocessor lines | |
180 */ | |
181 check_pp(buf) char *buf; { | |
182 char *ptr,*p; | |
183 char word[128]; | |
184 | |
185 ptr = skip_white(buf); /* skip white space */ | |
186 if(*ptr != '#') /* is this a preprocessor line? */ | |
187 return; /* no, just return */ | |
188 | |
189 ptr = skip_white(++ptr); /* skip white */ | |
190 ptr = gather_word(ptr,word); /* get command word */ | |
191 if(!strcmp("undef",word)) { /* undef? */ | |
192 ptr = skip_white(ptr); | |
193 ptr = gather_word(ptr,word); /* get the symbol to undef */ | |
194 fprintf(out,"#ifdef %s\n",word); | |
195 fputs(buf,out); | |
196 strcpy(buf,"#endif"); | |
197 return; | |
198 } | |
199 if(!strcmp("if",word)) { /* check for if */ | |
200 for(;;) { | |
201 ptr = strchr(ptr,'d'); /* look for d in defined */ | |
202 if(!ptr) /* are we done? */ | |
203 return; | |
204 if(strchr(Word_member,*(ptr-1))){ /* at beginning of word? */ | |
205 ptr++; continue; /* no, continue looking */ | |
206 } | |
207 ptr = gather_word(ptr,word); /* get the word */ | |
208 if(strcmp(word,"defined")) /* skip if not defined */ | |
209 continue; | |
210 ptr = skip_white(ptr); /* skip white */ | |
211 if(*ptr != '(') /* look for open paren */ | |
212 continue; /* error, continue */ | |
213 ptr++; /* skip paren */ | |
214 ptr = skip_white(ptr); /* more white skipping */ | |
215 ptr = gather_word(ptr,word); /* get the thing to test */ | |
216 if(!*word) /* null word is bad */ | |
217 continue; | |
218 fprintf(out,"#ifdef %s\n",word); /* generate the code */ | |
219 fprintf(out,"#define %s_VAL 1\n",word); | |
220 fprintf(out,"#else\n"); | |
221 fprintf(out,"#define %s_VAL 0\n",word); | |
222 fprintf(out,"#endif\n"); | |
223 if(!defined_defined) { | |
224 fprintf(out,"#define defined(XXX) XXX/**/_VAL\n"); | |
225 defined_defined = 1; | |
226 } | |
227 } | |
228 } | |
229 } | |
230 | |
231 /* replace_word - look the word up in the table, and replace it | |
232 * if a match is found. | |
233 */ | |
234 replace_word(word) char *word; { | |
235 int i; | |
236 | |
237 for(i = 0; i < Max_table && name_table[i].name; i++) | |
238 if(!strcmp(word,name_table[i].name)) { | |
239 strcpy(word,name_table[i].value); | |
240 return; | |
241 } | |
242 fprintf(stderr,"couldn't find '%s'\n",word); | |
243 } |