![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to otrans.l CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / cmd / docgen|
Return to otrans.l CVS log | Up to [Research Unix] / researchv10dc / cmd / docgen |
1.1 root 1: %{
2: #include <sys/types.h>
3: #include <pwd.h>
4: #include <sys/stat.h>
5: #include <time.h>
6: #include "header.h"
7:
8: char *wpn = "311403-0101"; /*default 1127 workproject number*/
9: #define DATE DOCNUM+6
10: #define SEQNUM DOCNUM+13
11: #define TYPE DOCNUM+15
12: #define SOFT DOCNUM+17
13: struct passwd *getpwuid(), *ps;
14: int soft;
15: char *p, *s1, *s2;
16: char *getarg();
17: int type, ci=0, pm=0, rl=0;
18: char buf[HEADSIZE];
19: char *co = &buf[CO];
20: char *dept = &buf[DOCNUM], *date = &buf[DATE], *seqnum = &buf[SEQNUM];
21: char *stype = &buf[TYPE], *ssoft = &buf[SOFT];
22: char *machine = buf;
23: char *login = &buf[ULOG], *timestamp = &buf[TIMESTAMP];
24: char *version = &buf[VERSION];
25: char *pages = &buf[PAGES];
26: int more = 1;
27: %}
28: %%
29: ^".so".* ;
30: ^".TI" {
31: printf(".TL\n");
32: }
33: ^".DT".* ;
34: ^".AH".* {
35: s1 = s2 = &yytext[0];
36: p = getarg();
37: yytext[yyleng] = '\0';
38: printf(".AU %s \"\" %s\n",p, s2+2);
39: more = 1;
40: }
41: ^".AP".* {
42: yytext[yyleng] = '\0';
43: printf(".rP %s\n",&yytext[3]);
44: }
45: ^".SA" {
46: printf(".AS\n");
47: }
48: ^".SE" {
49: printf(".AE\n");
50: }
51: ^".KW".* {
52: printf(".OK %s\n",&yytext[3]);
53: }
54: ^".TY".* {
55: for(p = &yytext[3]; *p == ' ';p++);
56: if(*p == 'I')type=2;
57: else if(*(p+1) == 'M')type=1;
58: else type=3;
59: *stype = *p;
60: *(stype+1) = *(p+1);
61: while(*p != ' '){
62: if(*p == '\n'){
63: soft=0;
64: break;
65: }
66: p++;
67: }
68: if(*p == ' ')
69: if(*++p == 'y')
70: soft=1;
71: printf(".MT %d\n",type);
72: if(soft){
73: *ssoft = 'S';
74: printf(".sF\n");
75: }
76: }
77: ^".NU".* {
78: yytext[yyleng] = '\0';
79: type = 0;
80: s1 = s2 = &yytext[0];
81: p = getarg();
82: if(p != 0){
83: sprintf(dept,"%s-",p);
84: printf(".dN %s-",p);
85: type = 1;
86: }
87: if(more){
88: p = getarg();
89: if(p != 0){
90: sprintf(date,"%s-",p);
91: printf("%s-",p);
92: }
93: }
94: if(more){
95: p = getarg();
96: if(p != 0){
97: *seqnum = *p;
98: *(seqnum+1) = *(p+1);
99: printf("%s\n",p);
100: }
101: else if(type) printf("\n");
102: }
103: if(more){
104: p = getarg();
105: if(p != 0)
106: printf(".fC %s\n",p);
107: if(more){
108: p = getarg();
109: if(p != 0)
110: printf(".wP %s\n",p);
111: else printf(".wP %s\n",wpn);
112: }
113: }
114: more = 1;
115: }
116: ^".MY".* {
117: printf(".mE %s\n",&yytext[3]);
118: }
119: ^".ED".* {
120: printf(".eD %s'n",&yytext[3]);
121: }
122: ^".PR".* {
123: pm=1;
124: printf(".PM %s\n",&yytext[3]);
125: }
126: ^".RL".* {
127: rl=1;
128: if(yyleng>3){
129: p=&yytext[3];
130: while(*p == ' ')p++;
131: if(*p == '\"')p++;
132: if(*p == 'n')printf(".fA n\n");
133: else printf(".fA y\n");
134: }
135: else printf(".fA y\n");
136: }
137: ^".GS" {
138: printf(".gS\n");
139: }
140: ^".CI".* {
141: /* ci = 1; gone away
142: if(yyleng == 3)
143: printf(".cI n\n");
144: else {
145: p = &yytext[3];
146: while(*p == ' ')p++;
147: if(*p == '\n' || *p == 'n')
148: printf(".cI n\n");
149: else if(*p == '\"')p++;
150: if(*p == 'y')
151: printf(".cI y\n");
152: else if(*p == '\"' || *p == 'n')
153: printf(".cI n\n");
154: else fprintf(stderr,".CI unknown argument %c\n",*p);
155: }*/
156: }
157: ^".CO".* {
158: /* if(!ci){
159: printf(".cI n\n");
160: ci = 1;
161: }*/
162: if(!rl){
163: printf(".fA y\n");
164: rl = 1;
165: }
166: printf(".cC\n");
167: }
168: ^".CE" {
169: printf(".cE\n");
170: }
171: ^".CV".* {
172: /* if(!ci){
173: printf(".cI n\n");
174: ci = 1;
175: }*/
176: if(!rl){
177: printf(".fA y\n");
178: rl = 1;
179: }
180: printf(".cS\n");
181: }
182: ^".SC".* {
183: /* if(!ci){
184: printf(".cI n\n");
185: ci = 1;
186: }*/
187: if(!rl){
188: printf(".fA y\n");
189: rl = 1;
190: }
191: p = s1 = &yytext[3];
192: while(*s1 == ' ')s1++;
193: while(*s1 != ' ')s1++;
194: while(*s1 == ' ')s1++;
195: while(*s1 != ' ')s1++;
196: *s1 = '\0';
197: s1++;
198: printf(".CS %s \"\" %s\n", p, s1);
199: return(0);
200: }
201: .* {
202: ECHO;
203: printf("\n");
204: }
205: \n ;
206: %%
207: char *header="/tmp/ ";
208: char *dest = "mhuxd!/usr/spool/uucppublic/doc.mcs";
209: char *dco = "BL";
210: main(argc, argv)
211: char *argv[];
212: {
213: FILE *inp;
214: char *filename, *name, *cover, *pid;
215: int nuchars, npid, uid, days;
216: long mtime;
217: if(argc < 3){
218: fprintf(stderr,"file name must be supplied to sendcover\n");
219: exit(1);
220: }
221: if((inp=fopen("/etc/whoami","r")) == NULL){
222: fprintf(stderr,"can't open /etc/whoami\n");
223: exit(1);
224: }
225: nuchars = fread(machine, sizeof(char), 10, inp);
226: nuchars -= 1;
227: if(nuchars < 5)pid = machine + nuchars +1;
228: else pid = machine + 6;
229: cover = pid + 5;
230: fclose(inp);
231: *(pid-1) = '.';
232: npid = getpid();
233: sprintf(pid,"%05d",npid);
234: *cover = 'c';
235: sprintf(&header[5],"%s",machine);
236: uid = getuid();
237: if ((ps = getpwuid(uid)) == NULL){
238: fprintf(stderr, "login not found");
239: exit(1);
240: }
241: strcpy (login,ps->pw_name);
242: sprintf(version,"080687L"); /*version*/
243: strcpy(co, dco); /*company name=BL*/
244: name = argv[1];
245: argc--; argv++;
246: if(freopen(argv[1],"r",stdin)==NULL) {
247: fprintf(stderr,"%s: cannot open\n", argv[1]);
248: exit(1);
249: }
250: if(freopen(header,"w",stdout)== NULL){
251: fprintf(stderr,"%s: cannot open\n",header);
252: exit(1);
253: }
254: if((nuchars = fwrite(buf,sizeof(char),HEADSIZE,stdout)) != HEADSIZE){
255: fprintf(stderr,"wrong number of characters written %d\n",nuchars);
256: exit(1);
257: }
258: filename = argv[1];
259: mtime = getstamp(filename);
260: sprintf(timestamp,"%ld",mtime);
261: argv++;
262: sprintf(pages,"TP%s",argv[1]);
263: yylex();
264: rewind(stdout);
265: for(p=buf; p < &buf[HEADSIZE-1]; p++)
266: if(*p == '\0')*p = ' ';
267: *p = '\n';
268: if((nuchars = fwrite(buf,sizeof(char),HEADSIZE,stdout)) != HEADSIZE){
269: fprintf(stderr,"wrong number of characters written %d\n",nuchars);
270: exit(1);
271: }
272: *(cover+1) = '\0';
273: if((inp=fopen(name,"a")) == NULL){
274: fprintf(stderr,"can't open tmp file %s\n",name);
275: exit(1);
276: }
277: fprintf(inp,"cd /tmp; uucp -m -C %s %s; rm %s\n",machine,dest,machine);
278: fclose(inp);
279: }
280: char *
281: getarg()
282: {
283: if(s1 == s2){
284: while(*s1 != ' ')
285: if(*s1++ == '\0'){
286: more = 0;
287: return(0);
288: }
289: }
290: else s1 = s2+1;
291: if(*s1 == ' ')
292: while(*s1 == ' ')s1++;
293: if(*s1 == '\0'){
294: more = 0;
295: return(0);
296: }
297: if(*s1 == '\"'){
298: if(*(s1+1) == '\"'){
299: s2 = s1+1;
300: return(0);
301: }
302: for(s2=s1+1; *s2 != '\"'; s2++);
303: if(*(s2+1) == '\0'){
304: more = 0;
305: *(s2+1) = '\0';
306: return(s1);
307: }
308: else {
309: *(s2+1) = '\0';
310: return(s1);
311: }
312: }
313: for(s2 = s1; *s2 != ' '; s2++)
314: if(*s2 == '\0'){
315: more = 0;
316: *s2 = '\0';
317: return(s1);
318: }
319: *s2 = '\0';
320: return(s1);
321: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.