1 /*-
2  * SPDX-License-Identifier: BSD-3-Clause
72 static bool	incomm;		/* in a comment of the primary type */
83 static int	comtype;	/* type of comment */
97 char	*l_acmbeg;		/* string introducing a comment */
98 char	*l_acmend;		/* string ending a comment */
103 char	*l_combeg;		/* string introducing a comment */
104 char	*l_comend;		/* string ending a comment */
107 char	*l_nocom;		/* regexp for non-comments */
115 static char minus[] = "-";
116 static char minusn[] = "-n";
127     argc--, argv++;  in main()
133 	    if (!strcmp(argv[0], "-h")) {  in main()
140 		argc--, argv++;  in main()
141 		argc--, argv++;  in main()
148 	    if (!strcmp(argv[0], "-f")) {  in main()
150 		argv[0] = argv[argc-1];  in main()
151 		argv[argc-1] = minus;  in main()
156 	    if (!strcmp(argv[0], "-")) {  in main()
162 	    if (!strcmp(argv[0], "-x")) {  in main()
168 	    if (!strcmp(argv[0], "-n")) {  in main()
170 		argc--, argv++;  in main()
175 	    if (!strncmp(argv[0], "-s", 2)) {  in main()
179 		    i = i * 10 + (*cp++ - '0');  in main()
181 		argc--, argv++;  in main()
186 	    if (!strncmp(argv[0], "-l", 2)) {  in main()
188 		argc--, argv++;  in main()
193 	    if (!strncmp(argv[0], "-d", 2)) {  in main()
195 		argc--, argv++;  in main()
196 		argc--, argv++;  in main()
206 	    argc--, argv++;  in main()
214 	if (i == -1) {  in main()
217 	} else  if (i == -2) { fprintf(stderr,  in main()
220 	} else if (i == -3) { fprintf(stderr,  in main()
225 	if (cgetustr(defs, "kw", &cp) == -1)  in main()
280 	psptr = -1;  in main()
281 	ps("'-F\n");  in main()
285 	    ps("'wh -1i vF\n");  in main()
342     char *comptr;			/* end of a comment delimiter */  in putScp()
343     char *acmptr;			/* end of a comment delimiter */  in putScp()
348     char *nocomptr;			/* end of a non-comment delimiter */  in putScp()
367 	/* check for string, comment, blockstart, etc */  in putScp()
378 	    /* start of non-comment? */  in putScp()
382 		    /* continue after non-comment */  in putScp()
383 		    putKcp (s, nocomptr-1, false);  in putScp()
388 	    /* start of a comment? */  in putScp()
395 		    putKcp(s, comptr-1, false);  in putScp()
405 	    /* start of a comment? */  in putScp()
411 		    putKcp(s, acmptr-1, false);  in putScp()
426 		    putKcp(s, strptr-1, false);  in putScp()
436 		    putKcp(s, chrptr-1, false);  in putScp()
445 		    putKcp(s, blkeptr - 1, false);  in putScp()
448 			    blklevel--;  in putScp()
454 			ps("\\c\n'-F\n");  in putScp()
458 			if (--psptr >= 0)  in putScp()
461 			    psptr = -1;  in putScp()
469 		putKcp(s, blksptr - 1, false);  in putScp()
475 	/* check for end of comment */  in putScp()
482 		    putKcp(s, comptr-1, true);  in putScp()
485 		    putKcp(s, acmptr-1, true);  in putScp()
489 		ps("\\c\n'-C\n");  in putScp()
492 		putKcp(s, s + strlen(s) -1, true);  in putScp()
500 		putKcp(s, strptr-1, true);  in putScp()
505 		putKcp(s, s+strlen(s)-1, true);  in putScp()
513 		putKcp(s, chrptr-1, true);  in putScp()
518 		putKcp(s, s+strlen(s)-1, true);  in putScp()
525 	putKcp(s, s + strlen(s) -1, false);  in putScp()
558 	    i = tabs(s_start, start) - margin / 8;  in putKcp()
559 	    printf("\\h'|%dn'", i * 10 + 1 - margin % 8);  in putKcp()
565 	    && (start == s_start || !isidchr(start[-1]))) {  in putKcp()
571 		    while (--i > 0);  in putKcp()
572 		    ps("\\*(-K");  in putKcp()
625 		ps("\\*(+K{\\*(-K");  in putcp()
629 		ps("\\*(+K}\\*(-K");  in putcp()
640 	case '-':  in putcp()
641 		ps("\\*-");  in putcp()
661 		ps("\\fI\\h'\\w' 'u-\\w'/'u'/\\fP");  in putcp()
688 /*  iskw -	check to see if the next word is a keyword