115 lines
2.7 KiB
Plaintext
115 lines
2.7 KiB
Plaintext
|
/*
|
||
|
|
----
|
||
|
|
This file is part of SECONDO.
|
||
|
|
|
||
|
|
Copyright (C) 2004, University in Hagen, Department of Computer Science,
|
||
|
|
Database Systems for New Applications.
|
||
|
|
|
||
|
|
SECONDO is free software; you can redistribute it and/or modify
|
||
|
|
it under the terms of the GNU General Public License as published by
|
||
|
|
the Free Software Foundation; either version 2 of the License, or
|
||
|
|
(at your option) any later version.
|
||
|
|
|
||
|
|
SECONDO is distributed in the hope that it will be useful,
|
||
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
GNU General Public License for more details.
|
||
|
|
|
||
|
|
You should have received a copy of the GNU General Public License
|
||
|
|
along with SECONDO; if not, write to the Free Software
|
||
|
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||
|
|
----
|
||
|
|
|
||
|
|
*/
|
||
|
|
|
||
|
|
%{
|
||
|
|
int i;
|
||
|
|
%}
|
||
|
|
|
||
|
|
blank [ ]
|
||
|
|
tab [\t]
|
||
|
|
newline [\n]
|
||
|
|
fieldsep ({blank}|{tab})*{tab}({blank}|{tab})*
|
||
|
|
rowsep ({blank}|{tab})*({newline}({blank}|{tab})*)+
|
||
|
|
char [^\t\n]
|
||
|
|
nonblankchar [^\ \t\n]
|
||
|
|
string {nonblankchar}({char}*{nonblankchar})*
|
||
|
|
digit [0-9]
|
||
|
|
nonzero [1-9]
|
||
|
|
zero [0]
|
||
|
|
int -?{nonzero}{digit}*|{zero}
|
||
|
|
bool TRUE|FALSE
|
||
|
|
real -?{digit}+\.({digit}+)?(E-?{digit}+)?
|
||
|
|
start =+({blank}|{tab})*({newline}({blank}|{tab})*)+
|
||
|
|
end ({blank}|{tab})*({newline}({blank}|{tab})*)+=+{newline}?
|
||
|
|
|
||
|
|
%%
|
||
|
|
{int} {for (i=0; i<yyleng; i++) putchar(yytext[i]);}
|
||
|
|
{bool} {for (i=0; i<yyleng; i++) putchar(yytext[i]);}
|
||
|
|
{real} {for (i=0; i<yyleng; i++) putchar(yytext[i]);}
|
||
|
|
{string} {printf("\""); for (i=0; i<yyleng; i++)
|
||
|
|
putchar(yytext[i]); printf("\"");}
|
||
|
|
|
||
|
|
{fieldsep} printf(" ");
|
||
|
|
{rowsep} printf(")\n\t(");
|
||
|
|
{start} printf("\t(");
|
||
|
|
{end} printf(")\n");
|
||
|
|
|
||
|
|
%%
|
||
|
|
|
||
|
|
main (argc, argv)
|
||
|
|
int argc;
|
||
|
|
char** argv;
|
||
|
|
{
|
||
|
|
if (argc == 2)
|
||
|
|
{
|
||
|
|
FILE *ofile, *ifile;
|
||
|
|
char c;
|
||
|
|
int cmp1, cmp2;
|
||
|
|
|
||
|
|
cmp1 = strcmp(argv[1],"help");
|
||
|
|
cmp2 = strcmp(argv[1],"h");
|
||
|
|
if ( (cmp1 == 0) || (cmp2 == 0) )
|
||
|
|
{
|
||
|
|
printf("\nUSAGE:\n");
|
||
|
|
printf("\tTableToList inputfilename [> outputfilename]\n\n");
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
ofile = fopen("TTL", "w");
|
||
|
|
putc('=', ofile);
|
||
|
|
putc('\n', ofile);
|
||
|
|
fclose(ofile);
|
||
|
|
ofile = fopen("TTL", "a");
|
||
|
|
ifile = fopen(argv[1], "r");
|
||
|
|
if (ifile == NULL)
|
||
|
|
{
|
||
|
|
printf("ERROR: cannot open file ");
|
||
|
|
printf(argv[1]);
|
||
|
|
printf("\n");
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
while ((c = getc(ifile)) != EOF)
|
||
|
|
putc(c, ofile);
|
||
|
|
putc('\n', ofile);
|
||
|
|
putc('=', ofile);
|
||
|
|
fclose(ifile);
|
||
|
|
fclose(ofile);
|
||
|
|
ofile = fopen("TTL", "r");
|
||
|
|
yyin = ofile;
|
||
|
|
printf("(\n");
|
||
|
|
yylex();
|
||
|
|
printf(")\n");
|
||
|
|
fclose(ofile);
|
||
|
|
remove("TTL");
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
printf("ERROR: wrong number of parameters\n");
|
||
|
|
printf("Try TableToList h or TableToList help for more information\n");
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|