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