summaryrefslogtreecommitdiff
path: root/Build/source/utils/vlna/vlna.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/vlna/vlna.c')
-rw-r--r--Build/source/utils/vlna/vlna.c215
1 files changed, 102 insertions, 113 deletions
diff --git a/Build/source/utils/vlna/vlna.c b/Build/source/utils/vlna/vlna.c
index 5f4673c1159..76998053f81 100644
--- a/Build/source/utils/vlna/vlna.c
+++ b/Build/source/utils/vlna/vlna.c
@@ -21,33 +21,33 @@
#define DISPLAYMODE 2
#define VERBMODE 3
/*1:*/
-#line 19 "../vlna-1.3/vlna.w"
+#line 19 "vlna.w"
/*3:*/
-#line 39 "../vlna-1.3/vlna.w"
+#line 39 "vlna.w"
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
/*:3*/
-#line 20 "../vlna-1.3/vlna.w"
+#line 20 "vlna.w"
/*4:*/
-#line 56 "../vlna-1.3/vlna.w"
+#line 56 "vlna.w"
char*prog_name;
int status;
/*:4*//*7:*/
-#line 133 "../vlna-1.3/vlna.w"
+#line 131 "vlna.w"
int isfilter= 0,silent= 0,rmbackup= 0,nomath= 0,noverb= 0,web= 0,latex= 0;
char charsetdefault[]= "KkSsVvZzOoUuAI";
char*charset= charsetdefault;
/*:7*//*15:*/
-#line 292 "../vlna-1.3/vlna.w"
+#line 289 "vlna.w"
typedef struct PATITEM{
char*str;
@@ -56,36 +56,36 @@ struct PATITEM*next;
}PATITEM;
typedef struct PATTERN{
PATITEM*patt;
-void(*proc)();
+void(*proc)(void);
struct PATTERN*next;
}PATTERN;
/*:15*//*16:*/
-#line 344 "../vlna-1.3/vlna.w"
+#line 341 "vlna.w"
PATITEM*lapi[MAXPATT];
PATTERN*lapt[MAXPATT];
PATTERN*listpatt,*normallist,*commentlist,*pt,*lastpt= NULL;
-PATITEM*pi,*lastpi= NULL;
+PATITEM*lastpi= NULL;
char c;
char buff[MAXBUFF];
int ind;
/*:16*//*20:*/
-#line 418 "../vlna-1.3/vlna.w"
+#line 411 "vlna.w"
char strings[512];
int i;
/*:20*//*25:*/
-#line 506 "../vlna-1.3/vlna.w"
+#line 496 "vlna.w"
char*filename;
long int numline,numchanges;
int mode;
/*:25*//*33:*/
-#line 637 "../vlna-1.3/vlna.w"
+#line 626 "vlna.w"
char tblanks[]= " ~\t";
char blanks[]= " \t";
@@ -101,12 +101,12 @@ char letters[]= "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
PATTERN*vlnkalist,*mathlist,*parcheck,*verblist;
/*:33*/
-#line 21 "../vlna-1.3/vlna.w"
+#line 21 "vlna.w"
/*6:*/
-#line 110 "../vlna-1.3/vlna.w"
+#line 108 "vlna.w"
-void printusage()
+static void printusage(void)
{
fprintf(stderr,
"usage: vlna [opt] [filenames]\n"
@@ -124,19 +124,17 @@ fprintf(stderr,
}
/*:6*//*10:*/
-#line 168 "../vlna-1.3/vlna.w"
+#line 166 "vlna.w"
-void ioerr(f)
-char*f;
+static void ioerr(char*f)
{
fprintf(stderr,"%s: cannot open file %s\n",prog_name,f);
}
/*:10*//*17:*/
-#line 357 "../vlna-1.3/vlna.w"
+#line 354 "vlna.w"
-void*myalloc(size)
-int size;
+static void*myalloc(int size)
{
void*p;
p= malloc(size);
@@ -149,10 +147,9 @@ return p;
}
/*:17*//*18:*/
-#line 375 "../vlna-1.3/vlna.w"
+#line 371 "vlna.w"
-PATTERN*setpattern(proc)
-void(*proc)();
+static PATTERN*setpattern(void(*proc)(void))
{
PATTERN*pp;
pp= myalloc(sizeof(PATTERN));
@@ -166,11 +163,9 @@ return pp;
}
/*:18*//*19:*/
-#line 394 "../vlna-1.3/vlna.w"
+#line 389 "vlna.w"
-void setpi(str,flag)
-char*str;
-int flag;
+static void setpi(char*str,int flag)
{
PATITEM*p;
p= myalloc(sizeof(PATITEM));
@@ -182,11 +177,9 @@ lastpi= p;
}
/*:19*//*22:*/
-#line 429 "../vlna-1.3/vlna.w"
+#line 422 "vlna.w"
-PATTERN*normalpattern(proc,str)
-void(*proc)();
-char*str;
+static PATTERN*normalpattern(void(*proc)(void),const char*str)
{
PATTERN*pp;
int j= 0;
@@ -206,10 +199,9 @@ return pp;
}
/*:22*//*23:*/
-#line 467 "../vlna-1.3/vlna.w"
+#line 458 "vlna.w"
-int match(p)
-PATITEM*p;
+static int match(PATITEM*p)
{
int m;
if(strchr(p->str,c)!=NULL)m= 1;
@@ -220,7 +212,7 @@ case ONE:if(p->next==NULL)return FOUND;
return 1;
case ONE_NOT:return NOFOUND;
case ANY_NOT:/*24:*/
-#line 486 "../vlna-1.3/vlna.w"
+#line 476 "vlna.w"
switch(m= match(p->next)){
case NOFOUND:return NOFOUND;
@@ -229,16 +221,16 @@ default:return 1+m;
}
/*:24*/
-#line 479 "../vlna-1.3/vlna.w"
+#line 469 "vlna.w"
;
}
return 0;
}
/*:23*//*36:*/
-#line 670 "../vlna-1.3/vlna.w"
+#line 659 "vlna.w"
-void vlnkain()
+static void vlnkain(void)
{
char p;
ind--;
@@ -251,9 +243,9 @@ numchanges++;
}
/*:36*//*38:*/
-#line 709 "../vlna-1.3/vlna.w"
+#line 698 "vlna.w"
-void vlnkacr()
+static void vlnkacr(void)
{
char p;
int i,j;
@@ -274,17 +266,17 @@ numchanges++;
}
/*:38*//*41:*/
-#line 775 "../vlna-1.3/vlna.w"
+#line 764 "vlna.w"
-void tielock()
+static void tielock(void)
{
c= 1;
}
/*:41*//*42:*/
-#line 784 "../vlna-1.3/vlna.w"
+#line 773 "vlna.w"
-void printwarning()
+static void printwarning(void)
{
if(!silent)
fprintf(stderr,
@@ -294,15 +286,15 @@ status= WARNING;
}
/*:42*//*44:*/
-#line 809 "../vlna-1.3/vlna.w"
+#line 798 "vlna.w"
-void mathin()
+static void mathin(void)
{
if(mode!=TEXTMODE)printwarning();
mode= MATHMODE;
normallist= listpatt= mathlist;
}
-void mathout()
+static void mathout(void)
{
if(mode!=MATHMODE)printwarning();
mode= TEXTMODE;
@@ -310,9 +302,9 @@ normallist= listpatt= vlnkalist;
}
/*:44*//*45:*/
-#line 827 "../vlna-1.3/vlna.w"
+#line 816 "vlna.w"
-void onedollar()
+static void onedollar(void)
{
if(buff[ind-3]=='\\'||(buff[ind-3]=='$'&&buff[ind-4]!='\\'))return;
if(mode==DISPLAYMODE)printwarning();
@@ -323,9 +315,9 @@ else mathout();
}
/*:45*//*47:*/
-#line 846 "../vlna-1.3/vlna.w"
+#line 835 "vlna.w"
-void checkmode()
+static void checkmode(void)
{
if(mode!=TEXTMODE){
printwarning();
@@ -335,19 +327,19 @@ normallist= listpatt= vlnkalist;
}
/*:47*//*49:*/
-#line 872 "../vlna-1.3/vlna.w"
+#line 861 "vlna.w"
-void displayin()
+static void displayin(void)
{
if(mode!=TEXTMODE)printwarning();
mode= DISPLAYMODE;normallist= listpatt= parcheck;
}
-void displayout()
+static void displayout(void)
{
if(mode!=DISPLAYMODE)printwarning();
mode= TEXTMODE;normallist= listpatt= vlnkalist;
}
-void twodollars()
+static void twodollars(void)
{
if(buff[ind-3]=='\\')return;
if(mode==DISPLAYMODE)displayout();
@@ -355,12 +347,12 @@ else displayin();
}
/*:49*//*51:*/
-#line 921 "../vlna-1.3/vlna.w"
+#line 910 "vlna.w"
int prevmode;
PATTERN*prevlist,*verboutlist[4];
char verbchar[2];
-void verbinchar()
+static void verbinchar(void)
{
prevmode= mode;
verbchar[0]= c;
@@ -372,9 +364,9 @@ mode= VERBMODE;
}
/*:51*//*52:*/
-#line 942 "../vlna-1.3/vlna.w"
+#line 931 "vlna.w"
-void verbin()
+static void verbin(void)
{
int i;
i= 0;
@@ -394,9 +386,9 @@ mode= VERBMODE;
}
/*:52*//*53:*/
-#line 962 "../vlna-1.3/vlna.w"
+#line 951 "vlna.w"
-void verbout()
+static void verbout(void)
{
if(mode!=VERBMODE)return;
if(web&&buff[ind-2]=='@'&&buff[ind-3]=='@')return;
@@ -410,25 +402,24 @@ case TEXTMODE:normallist= listpatt= vlnkalist;break;
}
/*:53*//*55:*/
-#line 984 "../vlna-1.3/vlna.w"
+#line 973 "vlna.w"
-void tieoff()
+static void tieoff(void)
{
normallist= NULL;
}
-void tieon()
+static void tieon(void)
{
normallist= vlnkalist;
}
/*:55*/
-#line 22 "../vlna-1.3/vlna.w"
+#line 22 "vlna.w"
/*26:*/
-#line 515 "../vlna-1.3/vlna.w"
+#line 505 "vlna.w"
-void tie(input,output)
-FILE*input,*output;
+static void tie(FILE*input,FILE*output)
{
int ap;
register int k,m,n;
@@ -437,7 +428,7 @@ PATTERN*pp;
PATITEM*pi;
/*27:*/
-#line 546 "../vlna-1.3/vlna.w"
+#line 535 "vlna.w"
for(k= 0;k<MAXPATT;k++)lapi[k]= NULL;
c= '\n';
@@ -446,17 +437,17 @@ numline= 1;numchanges= 0;
mode= TEXTMODE;
/*:27*//*35:*/
-#line 667 "../vlna-1.3/vlna.w"
+#line 656 "vlna.w"
listpatt= normallist= vlnkalist;
/*:35*/
-#line 525 "../vlna-1.3/vlna.w"
+#line 514 "vlna.w"
;
while(!feof(input)){
/*30:*/
-#line 591 "../vlna-1.3/vlna.w"
+#line 580 "vlna.w"
pp= listpatt;
while(pp!=NULL){
@@ -464,7 +455,7 @@ switch(m= match(pp->patt)){
case FOUND:(*pp->proc)();
case NOFOUND:break;
default:/*31:*/
-#line 606 "../vlna-1.3/vlna.w"
+#line 595 "vlna.w"
pi= pp->patt;
while(m--)pi= pi->next;
@@ -484,17 +475,17 @@ lapt[k]= pp;lapi[k]= pi;ap++;
}
/*:31*/
-#line 597 "../vlna-1.3/vlna.w"
+#line 586 "vlna.w"
;
}
pp= pp->next;
}
/*:30*/
-#line 528 "../vlna-1.3/vlna.w"
+#line 517 "vlna.w"
;
if(ap==0&&ind> BUFI&&c!='\\')/*28:*/
-#line 561 "../vlna-1.3/vlna.w"
+#line 550 "vlna.w"
{
buff[ind]= 0;
@@ -503,7 +494,7 @@ ind= 1;
}
/*:28*/
-#line 529 "../vlna-1.3/vlna.w"
+#line 518 "vlna.w"
;
if(ind>=MAXBUFF){
fprintf(stderr,"Operating buffer overflow, is anything wrong?\n");
@@ -515,7 +506,7 @@ buff[ind++]= c= ic;
if(c=='\n')numline++,listpatt= normallist;
if(c=='%'&&mode!=VERBMODE&&buff[ind-2]!='\\')listpatt= commentlist;
/*29:*/
-#line 574 "../vlna-1.3/vlna.w"
+#line 563 "vlna.w"
n= ap;k= 0;
while(n){
@@ -530,11 +521,11 @@ k++;n--;
}
/*:29*/
-#line 539 "../vlna-1.3/vlna.w"
+#line 528 "vlna.w"
;
}
/*28:*/
-#line 561 "../vlna-1.3/vlna.w"
+#line 550 "vlna.w"
{
buff[ind]= 0;
@@ -543,43 +534,41 @@ ind= 1;
}
/*:28*/
-#line 541 "../vlna-1.3/vlna.w"
+#line 530 "vlna.w"
;
if(!web)checkmode();
if(!silent)/*32:*/
-#line 625 "../vlna-1.3/vlna.w"
+#line 614 "vlna.w"
fprintf(stderr,"~~~ file: %s\t lines: %ld, changes: %ld\n",
filename,numline,numchanges);
/*:32*/
-#line 543 "../vlna-1.3/vlna.w"
+#line 532 "vlna.w"
;
}
/*:26*/
-#line 23 "../vlna-1.3/vlna.w"
+#line 23 "vlna.w"
/*5:*/
-#line 61 "../vlna-1.3/vlna.w"
+#line 61 "vlna.w"
-int main(argc,argv)
-int argc;
-char**argv;
+int main(int argc,char**argv)
{
/*9:*/
-#line 161 "../vlna-1.3/vlna.w"
+#line 159 "vlna.w"
FILE*infile,*outfile;
char backup[MAXLEN];
int j;
/*:9*/
-#line 66 "../vlna-1.3/vlna.w"
+#line 64 "vlna.w"
;
prog_name= argv[0];status= OK;
/*8:*/
-#line 138 "../vlna-1.3/vlna.w"
+#line 136 "vlna.w"
while(argc> 1&&argv[1][0]=='-'){
if(argv[1][2]!=0)printusage(),exit(BAD_OPTIONS);
@@ -600,18 +589,18 @@ argc--;argv++;
}
/*:8*/
-#line 68 "../vlna-1.3/vlna.w"
+#line 66 "vlna.w"
;
if(!silent)fprintf(stderr,BANNER);
/*21:*/
-#line 423 "../vlna-1.3/vlna.w"
+#line 416 "vlna.w"
for(i= 0;i<256;i++){
strings[2*i]= (char)i;strings[2*i+1]= 0;
}
/*:21*//*34:*/
-#line 657 "../vlna-1.3/vlna.w"
+#line 646 "vlna.w"
vlnkalist= setpattern(vlnkain);
setpi(tblankscr,ONE);
@@ -623,7 +612,7 @@ setpi(blanks,ANY);
setpi(nochar,ONE_NOT);
/*:34*//*37:*/
-#line 685 "../vlna-1.3/vlna.w"
+#line 674 "vlna.w"
setpattern(vlnkacr);
setpi(tblankscr,ONE);
@@ -636,7 +625,7 @@ setpi(blanks,ANY);
setpi(nochar,ONE_NOT);
/*:37*//*39:*/
-#line 731 "../vlna-1.3/vlna.w"
+#line 720 "vlna.w"
setpattern(vlnkain);
setpi(tblankscr,ONE);
@@ -666,7 +655,7 @@ setpi(nochar,ONE_NOT);
/*:39*//*40:*/
-#line 764 "../vlna-1.3/vlna.w"
+#line 753 "vlna.w"
normalpattern(tielock,"\\TeX");
setpi(blankscr,ONE);
@@ -674,7 +663,7 @@ normalpattern(tielock,"\\LaTeX");
setpi(blankscr,ONE);
/*:40*//*43:*/
-#line 798 "../vlna-1.3/vlna.w"
+#line 787 "vlna.w"
if(!nomath){
mathlist= setpattern(onedollar);
@@ -687,7 +676,7 @@ normalpattern(mathout,"\\end.{math}");
}
/*:43*//*46:*/
-#line 840 "../vlna-1.3/vlna.w"
+#line 829 "vlna.w"
parcheck= setpattern(checkmode);
setpi(cr,ONE);
@@ -695,7 +684,7 @@ setpi(blanks,ANY);
setpi(cr,ONE);
/*:46*//*48:*/
-#line 861 "../vlna-1.3/vlna.w"
+#line 850 "vlna.w"
if(!nomath){
normalpattern(twodollars,"$$");
@@ -708,7 +697,7 @@ normalpattern(displayout,"\\end.{equation");
}
/*:48*//*50:*/
-#line 893 "../vlna-1.3/vlna.w"
+#line 882 "vlna.w"
if(!noverb){
verblist= normalpattern(verbinchar,"\\verb");
@@ -735,20 +724,20 @@ normalpattern(verbout,"@>|");
/*:50*//*54:*/
-#line 979 "../vlna-1.3/vlna.w"
+#line 968 "vlna.w"
lastpt= 0;
commentlist= normalpattern(tieoff,"%.~.-");
normalpattern(tieon,"%.~.+");
/*:54*/
-#line 70 "../vlna-1.3/vlna.w"
+#line 68 "vlna.w"
;
/*11:*/
-#line 176 "../vlna-1.3/vlna.w"
+#line 173 "vlna.w"
if(isfilter)/*12:*/
-#line 188 "../vlna-1.3/vlna.w"
+#line 185 "vlna.w"
{
if(argc> 3)printusage(),exit(BAD_OPTIONS);
@@ -765,17 +754,17 @@ if(infile!=stdin)fclose(infile);
}
/*:12*/
-#line 177 "../vlna-1.3/vlna.w"
+#line 174 "vlna.w"
else/*13:*/
-#line 211 "../vlna-1.3/vlna.w"
+#line 208 "vlna.w"
{
if(argc==1)printusage(),exit(BAD_OPTIONS);
while(argc> 1){
argc--;argv++;
/*14:*/
-#line 242 "../vlna-1.3/vlna.w"
+#line 239 "vlna.w"
infile= NULL;
j= strlen(argv[0])-1;
@@ -792,7 +781,7 @@ if(j==0)infile= fopen(backup,"r");
}
/*:14*/
-#line 216 "../vlna-1.3/vlna.w"
+#line 213 "vlna.w"
;
if(infile==NULL){
ioerr(argv[0]);continue;
@@ -812,17 +801,17 @@ if(rmbackup)remove(backup);
}
/*:13*/
-#line 178 "../vlna-1.3/vlna.w"
+#line 175 "vlna.w"
/*:11*/
-#line 71 "../vlna-1.3/vlna.w"
+#line 69 "vlna.w"
;
return status;
}
/*:5*/
-#line 24 "../vlna-1.3/vlna.w"
+#line 24 "vlna.w"
/*:1*/