along/secondo
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
dfd1e745480fabd88139d2804acb90d5b6dc055e
secondo/Tools/TypeMap/OpSigParser.y

855 lines
26 KiB
Plaintext
Raw Normal View History

firs commit
2026-01-23 17:03:45 +08:00
/*
---- /Tools/TypeMap/OpSigParser.y
----
----
This file is part of SECONDO.
Copyright (C) 2014,
Faculty of Mathematics and 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
----
*/
%{
/*
Includes
*/
#include "OpSigParser.tab.h"
#include <iostream>
#include <string>
#include <vector>
#include <fstream>
#include <cstring>
#ifdef YYDEBUG
#undef YYDEBUG
#endif
#define YYDEBUG 1
#ifdef YYERROR_VERBOSE
#undef YYERROR_VERBOSE
#endif
#define YYERROR_VERBOSE 1
using namespace std;
/*
Some variables
*/
extern FILE* opsigin;
//const char* infile = "../Tools/TypeMap/sigs";
//string outfile = "../Tools/TypeMap/OpSigs.tmp";
string outfile2 = "../Tools/TypeMap/OpSigsOpdPar.tmp";
string outfile3 = "../Tools/TypeMap/OpSigsArgs.tmp";
ofstream ofile;
ofstream ofile2;
ofstream ofile3;
extern int opsiglex();
void opsigerror( const char* s ) {
cerr << endl << s << endl << endl;
}
string varToLower(string varNameIn);
vector<string> opsigs; vector<string> opsigs2;
vector<string> opsigs3;
/*
Type string is not possible in union
*/
string collectSig = ""; string collectSig2 = "";
string collectSiglist = ""; string collectSiglist2 = "";
string collectArgs = ""; string collectArgs2 = "";
string collectRes = "";
string collectPreds = ""; string collectSig3 = "";
string collectDecls = ""; string collectSiglist3 = "";
string collectEnum = ""; string collectArgs3 = "";
%}
%union {
const char* tokenchar;
}
/*
use opsig instead of yy to avoid naming conflicts with other
parsers of the system
*/
%name-prefix "opsig"
%token ZZALG ZZWHERE ZZIN ZZPARAM ZZCROSSPRODUCT ZZFOLLOWS ZZSEMICOLON ZZERROR
%token<tokenchar> ZZATTR ZZATTRS ZZCOMBINE ZZCONCAT ZZDISTATTRS
ZZMINUS ZZCREATEATTR
ZZIDENT ZZSYMBOL ZZINTI
%type<tokenchar> opname type varname attrsindex varindex datatypes datatype
/*
---- The output is specified as follows:
<algsig> = <algebraname> <sig>
<sig> = (<opname>|<opsymbol>) <siglist>
<siglist> = <sigargtypes> <resulttype>
| <sigargtypes> <resulttype>; <condpreds>
| <sigargtypes> <resulttype> <decls>.
----
*/
%%
start : signatures
;
signatures : algsig
| signatures algsig
;
algsig : ZZALG ZZIDENT sigs
{
string str2 = $2;
/* Output in outfile */
string algSigs = "";
int size = opsigs.size();
for(int i=0; i<size; i++) {
algSigs += "\n(" + str2 + " " + opsigs[i];
}
ofile << algSigs;
opsigs.clear();
algSigs = "";
/* Output in file OpSigsOpdPar.tmp where
operand and parameter are separated */
string algSigs2 = "";
int size2 = opsigs2.size();
for(int i=0; i<size2; i++) {
algSigs2 += "\n(" + str2 + " " + opsigs2[i];
}
ofile2 << algSigs2;
opsigs2.clear();
algSigs2 = "";
/* Output in file OpSigsArgs.tmp for
QueryconstructionViewer */
string algSigs3 = "";
int size3 = opsigs3.size();
for(int i=0; i<size3; i++) {
algSigs3 += "\n(" + str2 + " " + opsigs3[i];
}
//ofile3 << algSigs3;
opsigs3.clear();
algSigs3 = "";
}
;
sigs : sig
{
opsigs.push_back(collectSig);
opsigs2.push_back(collectSig2);
opsigs3.push_back(collectSig3);
}
| sigs sig
{
opsigs.push_back(collectSig);
opsigs2.push_back(collectSig2);
opsigs3.push_back(collectSig3);
}
;
sig : opname':' sigargtypes ZZFOLLOWS resulttype
{/* sig: simple */
string str1 = $1;
collectSiglist = ""; collectSig = "";
collectSiglist += "( " + collectArgs + " )\n ";
collectSiglist += collectRes;
collectSig += str1 + " \n ( " + collectSiglist + " )";
collectSig += " )\n";
collectSiglist2 = ""; collectSig2 = "";
collectSiglist2 += "( " + collectArgs2 + " )\n ";
collectSiglist2 += collectRes;
collectSig2 += str1 + " \n ( " + collectSiglist2 + " )";
collectSig2 += " )\n";
collectSiglist3 = ""; collectSig3 = "";
collectSiglist3 += collectArgs3;
collectSig3 += str1 + " " + collectSiglist3;
collectSig3 += ")\n";
}
| opname':' sigargtypes ZZFOLLOWS resulttype semicolon condpreds
{/* sig: simple + condpreds */
string str1 = $1;
collectSiglist = ""; collectSig = "";
collectSiglist += "( " + collectArgs + " )\n ";
collectSiglist += collectRes + "\n ";
collectSiglist += "()\n "; // without decls
collectSiglist += "( " + collectPreds + " )";
collectSig += str1 + " \n ( " + collectSiglist + " )";
collectSig += " )\n";
collectSiglist2 = ""; collectSig2 = "";
collectSiglist2 += "( " + collectArgs2 + " )\n ";
collectSiglist2 += collectRes + "\n ";
collectSiglist2 += "()\n "; // without decls
collectSiglist2 += "( " + collectPreds + " )";
collectSig2 += str1 + " \n ( " + collectSiglist2 + " )";
collectSig2 += " )\n";
collectSiglist3 = ""; collectSig3 = "";
collectSiglist3 += collectArgs3;
collectSig3 += str1 + " " + collectSiglist3;
collectSig3 += ")\n";
}
| opname':' sigargtypes ZZFOLLOWS resulttype decls '.'
{/* sig: simple + decls */
string str1 = $1;
collectSiglist = ""; collectSig = "";
collectSiglist += "( " + collectArgs + " )\n ";
collectSiglist += collectRes + "\n ";
collectSiglist += "( " + collectDecls + " )\n ";
collectSiglist += "()\n "; // without condpreds
collectSig += str1 + " \n ( " + collectSiglist + " )";
collectSig += " )\n";
collectSig2 = collectSig;
collectSiglist3 = ""; collectSig3 = "";
collectSiglist3 += collectArgs3;
collectSig3 += str1 + " " + collectSiglist3;
collectSig3 += ")\n";
}
;
sigargtypes : type ZZCROSSPRODUCT type
{/* argsOP: e.g. + */
string str1 = $1; string str3 = $3;
collectArgs = "";
collectArgs += str1 + " " + str3;
collectArgs2 = "";
collectArgs2 = collectArgs;
collectArgs3 = "";
collectArgs3 += "\"" + str1 + ";" + str3 + "\" \"\"";
}
| type'('varname')'
{/* argsOP: e.g. feed/consume */
string str1 = $1; string str3 = $3;
string str32 = "";
str32 = varToLower(str3);
collectArgs = "";
collectArgs += "(" + str1 + " ";
collectArgs += "(var " + str32 + " 1))";
collectArgs2 = "";
collectArgs2 = collectArgs;
collectArgs3 = "";
collectArgs3 += "\"" + str1 + "\" \"\"";
}
| type'('varname')' ZZCROSSPRODUCT type
{/* argsOP: e.g. atinstant */
string str1 = $1; string str3 = $3;
string str6 = $6;
string str32 = "";
str32 = varToLower(str3);
collectArgs = "";
collectArgs += "(" + str1 + " ";
collectArgs += "(var " + str32 + " 1)) " + str6;
collectArgs2 = "";
collectArgs2 = collectArgs;
collectArgs3 = "";
collectArgs3 += "\"" + str1 + "\" \"\"";
}
| type'('varname')' ZZPARAM
'('varname ZZFOLLOWS type')'
{/* argsOP: e.g. filter */
string str1 = $1; string str3 = $3;
string str7 = $7; string str9 = $9;
string str32 = ""; string str72 = "";
str32 = varToLower(str3); str72 = varToLower(str7);
collectArgs = "";
collectArgs += "(" + str1 + " ";
collectArgs += "(var " + str32 + " 1)) ";
collectArgs += "(map ";
collectArgs += "(var " + str72 + " 1) " + str9 + ")";
collectArgs2 = "";
collectArgs2 += "((" + str1 + " ";
collectArgs2 += "(var " + str32 + " 1))) ";
collectArgs2 += "((map ";
collectArgs2 += "(var " + str72 + " 1) " + str9 + "))";
collectArgs3 = "";
collectArgs3 += "\"" + str1 + "\" \"" + str9 + "\"";
}
| type'('varname')' ZZPARAM varname
{/* argsOP: e.g. attr */
string str1 = $1; string str3 = $3;
string str6 = $6;
string str32 = ""; string str62 = "";
str32 = varToLower(str3); str62 = varToLower(str6);
collectArgs = "";
collectArgs += "(" + str1 + " ";
collectArgs += "(any " + str32 + " 1)) ";
collectArgs += "(var " + str62 + " 1)";
collectArgs2 = "";
collectArgs2 += "((" + str1 + " ";
collectArgs2 += "(any " + str32 + " 1))) ";
collectArgs2 += "((var " + str62 + " 1))";
collectArgs3 = "";
collectArgs3 += "\"" + str1 + "\" \"\"";
}
| type'('type'('varname attrsindex')' ')' ZZCROSSPRODUCT
type'('type'('varname attrsindex')' ')'
ZZPARAM varname varindex ZZCROSSPRODUCT varname varindex
{/* argsOP: e.g. hashjoin */
string str1 = $1; string str3 = $3;
string str5 = $5; string str6 = $6;
string str10 = $10; string str12 = $12;
string str14 = $14; string str15 = $15;
string str19 = $19; string str20 = $20;
string str22 = $22; string str23 = $23;
string str52 = ""; string str142 = "";
string str192 = ""; string str222 = "";
str52 = varToLower(str5); str142 = varToLower(str14);
str192 = varToLower(str19); str222 = varToLower(str22);
collectArgs = "";
collectArgs += "(" + str1 + " (" + str3 + " ";
collectArgs += "(any " + str52 + " " + str6 + ")))\n ";
collectArgs += "(" + str10 + " (" + str12 + " ";
collectArgs += "(any " + str142 + " " + str15 + ")))\n ";
collectArgs += "(var " + str192 + " " + str20 + ") ";
collectArgs += "(var " + str222 + " " + str23 + ")";
collectArgs2 = "";
collectArgs2 += "((" + str1 + " (" + str3 + " ";
collectArgs2 += "(any " + str52 + " " + str6 + ")))\n ";
collectArgs2 += " (" + str10 + " (" + str12 + " ";
collectArgs2 += "(any " + str142 + " " + str15 + "))))\n ";
collectArgs2 += "((var " + str192 + " " + str20 + ") ";
collectArgs2 += "(var " + str222 + " " + str23 + "))";
collectArgs3 = "";
collectArgs3 += "\"" + str1 + ";" + str10 + "\" ";
collectArgs3 += "\"attr,attr\"";
}
| type'('type'('varname attrsindex')' ')'
ZZPARAM '('varname varindex')' ZZSYMBOL
{/* argsOP: e.g. project */
string str1 = $1; string str3 = $3;
string str5 = $5; string str6 = $6;
string str11 = $11; string str12 = $12;
string str14 = $14;
string str52 = ""; string str112 = "";
str52 = varToLower(str5); str112 = varToLower(str11);
collectArgs = "";
collectArgs += "(" + str1 + " (" + str3 + " ";
collectArgs += "(any " + str52 + " " + str6 + ")))\n ";
collectArgs += "(" + str14 + " ";
collectArgs += "(lvar " + str112 + " " + str12 + "))";
collectArgs2 = "";
collectArgs2 += "((" + str1 + " (" + str3 + " ";
collectArgs2 += "(any " + str52 + " " + str6 + "))))\n ";
collectArgs2 += "((" + str14 + " ";
collectArgs2 += "(lvar " + str112 + " " + str12 + ")))";
collectArgs3 = "";
collectArgs3 += "\"" + str1 + "\" \"attrlist\"";
}
| type'('type'('varname attrsindex')' ')'
ZZPARAM '('varname varindex ZZCROSSPRODUCT
'('type'('varname attrsindex')' ZZFOLLOWS
varname varindex')' ')' ZZSYMBOL
{/* argsOP: e.g. extend */
string str1 = $1; string str3 = $3;
string str5 = $5; string str6 = $6;
string str11 = $11; string str12 = $12;
string str15 = $15;
string str17 = $17; string str18 = $18;
string str21 = $21; string str22 = $22;
string str25 = $25;
string str52 = ""; string str112 = "";
string str172 = ""; string str212 = "";
str52 = varToLower(str5); str112 = varToLower(str11);
str172 = varToLower(str17); str212 = varToLower(str21);
collectArgs = "";
collectArgs += "(" + str1 + " (" + str3 + " ";
collectArgs += "(any " + str52 + " " + str6 + ")))\n ";
collectArgs += "(" + str25 + " ";
collectArgs += "(lvar " + str112 + " " + str12 + ") ";
collectArgs += "(" + str15 + " ";
collectArgs += "(any " + str172 + " " + str18 + "))\n ";
collectArgs += "append ";
collectArgs += "(lvar " + str212 + " " + str22 + "))";
collectArgs2 = "";
collectArgs2 += "((" + str1 + " (" + str3 + " ";
collectArgs2 += "(any " + str52 + " " + str6 + "))))\n ";
collectArgs2 += "((" + str25 + " ";
collectArgs2 += "(lvar " + str112 + " " + str12 + ") ";
collectArgs2 += "(" + str15 + " ";
collectArgs2 += "(any " + str172 + " " + str18 + "))\n ";
collectArgs2 += " append ";
collectArgs2 += "(lvar " + str212 + " " + str22 + ")))";
collectArgs3 = "";
collectArgs3 += "\"" + str1 + "\" \"new rel list\"";
}
| type'('type'('varname attrsindex')' ')'
ZZPARAM '('varname varindex')' ZZSYMBOL ZZCROSSPRODUCT
'('varname varindex ZZCROSSPRODUCT
'('type'('varname attrsindex')' ZZFOLLOWS
varname varindex')' ')' ZZSYMBOL
{/* argsOP: e.g. projectextend */
string str1 = $1; string str3 = $3;
string str5 = $5; string str6 = $6;
string str11 = $11; string str12 = $12;
string str14 = $14;
string str17 = $17; string str18 = $18;
string str21 = $21;
string str23 = $23; string str24 = $24;
string str27 = $27; string str28 = $28;
string str31 = $31;
string str52 = ""; string str112 = "";
string str172 = ""; string str232 = "";
string str272 = "";
str52 = varToLower(str5); str112 = varToLower(str11);
str172 = varToLower(str17); str232 = varToLower(str23);
str272 = varToLower(str27);
collectArgs = "";
collectArgs += "(" + str1 + " (" + str3 + " ";
collectArgs += "(any " + str52 + " " + str6 + ")))\n ";
collectArgs += "(" + str14 + " ";
collectArgs += "(lvar " + str112 + " " + str12 + "))\n ";
collectArgs += "(" + str31 + " ";
collectArgs += "(lvar " + str172 + " " + str18 + ") ";
collectArgs += "(" + str21 + " ";
collectArgs += "(any " + str232 + " " + str24 + "))\n ";
collectArgs += "append ";
collectArgs += "(lvar " + str272 + " " + str28 + "))";
collectArgs2 = "";
collectArgs2 += "((" + str1 + " (" + str3 + " ";
collectArgs2 += "(any " + str52 + " " + str6 + "))))\n ";
collectArgs2 += "((" + str14 + " ";
collectArgs2 += "(lvar " + str112 + " " + str12 + "))\n ";
collectArgs2 += " (" + str31 + " ";
collectArgs2 += "(lvar " + str172 + " " + str18 + ") ";
collectArgs2 += "(" + str21 + " ";
collectArgs2 += "(any " + str232 + " " + str24 + "))\n ";
collectArgs2 += " append ";
collectArgs2 += "(lvar " + str272 + " " + str28 + ")))";
collectArgs3 = "";
collectArgs3 += "\"" + str1 + "\" \"attrlist; new list\"";
}
| type'('type'('varname attrsindex')' ')'
ZZPARAM '('varname varindex')' ZZSYMBOL ZZCROSSPRODUCT
'('varname ZZCROSSPRODUCT
'('type'('varname attrsindex')' ZZFOLLOWS
type'('varname')' ')' ')'
{/* argsOP: e.g. projectextendstream */
string str1 = $1; string str3 = $3;
string str5 = $5; string str6 = $6;
string str11 = $11; string str12 = $12;
string str14 = $14;
string str17 = $17; string str20 = $20;
string str22 = $22; string str23 = $23;
string str26 = $26; string str28 = $28;
string str52 = ""; string str112 = "";
string str172 = ""; string str222 = "";
string str282 = "";
str52 = varToLower(str5); str112 = varToLower(str11);
str172 = varToLower(str17); str222 = varToLower(str22);
str282 = varToLower(str28);
collectArgs = "";
collectArgs += "(" + str1 + " (" + str3 + " ";
collectArgs += "(any " + str52 + " " + str6 + ")))\n ";
collectArgs += "(" + str14 + " ";
collectArgs += "(lvar " + str112 + " " + str12 + "))\n ";
collectArgs += "((var " + str172 + " 1) ";
collectArgs += "(" + str20 + " ";
collectArgs += "(any " + str222 + " " + str23 + "))\n ";
collectArgs += "append (" + str26 + " ";
collectArgs += "(var " + str282 + " 1)))";
collectArgs2 = "";
collectArgs2 += "((" + str1 + " (" + str3 + " ";
collectArgs2 += "(any " + str52 + " " + str6 + "))))\n ";
collectArgs2 += "((" + str14 + " ";
collectArgs2 += "(lvar " + str112 + " " + str12 + "))\n ";
collectArgs2 += " ((var " + str172 + " 1) ";
collectArgs2 += "(" + str20 + " ";
collectArgs2 += "(any " + str222 + " " + str23 + "))\n ";
collectArgs2 += " append (" + str26 + " ";
collectArgs2 += "(var " + str282 + " 1))))";
collectArgs3 = "";
collectArgs3 += "\"" + str1 + "\" ";
collectArgs3 += "\"attrlist; new stream list\"";
}
| type'('type'('varname attrsindex')' ')'
ZZPARAM '('varname varindex')' ZZSYMBOL ZZCROSSPRODUCT
'('varname varindex ZZCROSSPRODUCT
'('type'('type'('varname attrsindex')' ')' ZZFOLLOWS
varname varindex')' ')' ZZSYMBOL
{/* argsOP: e.g. groupby */
string str1 = $1; string str3 = $3;
string str5 = $5; string str6 = $6;
string str11 = $11; string str12 = $12;
string str14 = $14;
string str17 = $17; string str18 = $18;
string str21 = $21; string str23 = $23;
string str25 = $25; string str26 = $26;
string str30 = $30; string str31 = $31;
string str34 = $34;
string str52 = ""; string str112 = "";
string str172 = ""; string str252 = "";
string str302 = "";
str52 = varToLower(str5); str112 = varToLower(str11);
str172 = varToLower(str17); str252 = varToLower(str25);
str302 = varToLower(str30);
collectArgs = "";
collectArgs += "(" + str1 + " (" + str3 + " ";
collectArgs += "(any " + str52 + " " + str6 + ")))\n ";
collectArgs += "(" + str14 + " ";
collectArgs += "(lvar " + str112 + " " + str12 + "))\n ";
collectArgs += "(" + str34 + " ";
collectArgs += "(lvar " + str172 + " " + str18 + ") ";
collectArgs += "(" + str21 + " (" + str23 + " ";
collectArgs += "(any " + str252 + " " + str26 + "))\n ";
collectArgs += "append ";
collectArgs += "(lvar " + str302 + " " + str31 + ")))";
collectArgs2 = "";
collectArgs2 += "((" + str1 + " (" + str3 + " ";
collectArgs2 += "(any " + str52 + " " + str6 + "))))\n ";
collectArgs2 += "((" + str14 + " ";
collectArgs2 += "(lvar " + str112 + " " + str12 + "))\n ";
collectArgs2 += " (" + str34 + " ";
collectArgs2 += "(lvar " + str172 + " " + str18 + ") ";
collectArgs2 += "(" + str21 + " (" + str23 + " ";
collectArgs2 += "(any " + str252 + " " + str26 + "))\n ";
collectArgs2 += " append ";
collectArgs2 += "(lvar " + str302 + " " + str31 + "))))";
collectArgs3 = "";
collectArgs3 += "\"" + str1 + "\" \"attrlist; new list\"";
}
| '('type')' '('type')' '('type')' ZZPARAM
'('type')' '('type')' '('type')' '('type')'
'('type')' '('type')' '('type')'
{/* argsOP: testQcV2 */
vector<string> str(10);
str[0] = $2; str[1] = $5; str[2] = $8;
str[3] = $12; str[4] = $15; str[5] = $18; str[6] = $21;
str[7] = $24; str[8] = $27; str[9] = $30;
for(int i=0; i<10; i++) {
if (str[i] == "Comma" ) {
str[i] = ",";
}
if (str[i] == "Semicolon" ) {
str[i] = ";";
}
if (str[i] == "Space" ) {
str[i] = " ";
}
if (str[i] == "Empty" ) {
str[i] = "";
}
}
collectArgs = "";
collectArgs2 = "";
collectArgs3 = "";
collectArgs3 += "\"" + str[0] + str[1] + str[2] + "\" ";
collectArgs3 += "\"" + str[3] + str[4] + str[5] + str[6];
collectArgs3 += str[7] + str[8] + str[9] +"\"";
str.clear();
}
;
resulttype : type
{/* resOP: e.g. + */
string str1 = $1;
collectRes = "";
collectRes += str1;
}
| type'('varname')'
{/* resOP: e.g. feed/consume/filter */
string str1 = $1; string str3 = $3;
string str32 = "";
str32 = varToLower(str3);
collectRes = "";
collectRes += "(" + str1 + " ";
collectRes += "(var " + str32 + " 1))";
}
| '('varname',' varname')'
{/* resOP: e.g. attr */
collectRes = "";
collectRes += "( append ";
collectRes += "(var attrNo 1) (var attrType 1) )";
}
| type'('type'('varname attrsindex')' ')'
{/* resOP: e.g. hashjoin */
string str1 = $1; string str3 = $3;
string str5 = $5; string str6 = $6;
string str52 = ""; str52 = varToLower(str5);
collectRes = "";
collectRes += "(" + str1 + " (" + str3 + " ";
collectRes += "(var " + str52 + " " + str6 + ")))";
}
| '('varname varindex','
type'('type'('varname attrsindex')' ')' ')'
{/* resOP: e.g. project */
string str2 = $2; string str3 = $3;
string str5 = $5; string str7 = $7;
string str9 = $9; string str10 = $10;
string str22 = ""; string str92 = "";
str22 = varToLower(str2); str92 = varToLower(str9);
collectRes = "";
collectRes += "( append ";
collectRes += "(var " + str22 + " " + str3 + ")\n ";
collectRes += "(" + str5 + " (" + str7 + " ";
collectRes += "(var " + str92 + " " + str10 + "))) )";
}
;
condpreds : condpred
| condpreds ',' condpred
;
condpred : ZZATTR'('varname',' varname','
varname',' varname')'
{ /* Ident */
string str1 = $1;
string str3 = $3; string str5 = $5;
string str32 = ""; string str52 = "";
str32 = varToLower(str3); str52 = varToLower(str5);
collectPreds += "(" + str1 + " ";
collectPreds += "(var " + str32 + " 1) ";
collectPreds += "(var " + str52 + " 1)\n ";
collectPreds += "(var attrType 1) (var attrNo 1))\n ";
}
| ZZATTR'('varname varindex',' varname attrsindex','
varname varindex',' varname varindex')'
{ /* Ident_i */
string str1 = $1;
string str3 = $3; string str4 = $4;
string str6 = $6; string str7 = $7;
string str10 = $10;
string str13 = $13;
string str32 = ""; string str62 = "";
str32 = varToLower(str3); str62 = varToLower(str6);
collectPreds += "(" + str1 + " ";
collectPreds += "(var " + str32 + " " + str4 + ") ";
collectPreds += "(var " + str62 + " " + str7 + ")\n ";
collectPreds += "(var attrType " + str10 + ") ";
collectPreds += "(var attrNo " + str13 + "))\n ";
}
| ZZATTRS'('varname varindex',' varname attrsindex','
varname varindex',' varname varindex')'
{
string str1 = $1;
string str3 = $3; string str4 = $4;
string str6 = $6; string str7 = $7;
string str9 = $9; string str10 = $10;
string str12 = $12; string str13 = $13;
string str32 = ""; string str62 = "";
string str92 = ""; string str122 = "";
str32 = varToLower(str3); str62 = varToLower(str6);
str92 = varToLower(str9); str122 = varToLower(str12);
collectPreds += "(" + str1 + " ";
collectPreds += "(var " + str32 + " " + str4 + ") ";
collectPreds += "(var " + str62 + " " + str7 + ")\n ";
collectPreds += "(var " + str92 + " " + str10 + ") ";
collectPreds += "(var " + str122 + " " + str13 + "))\n ";
}
| ZZCOMBINE'('varname',' varname','
varname attrsindex')'
{ /* Ident */
string str1 = $1;
string str3 = $3; string str5 = $5;
string str7 = $7; string str8 = $8;
string str32 = ""; string str52 = "";
string str72 = "";
str32 = varToLower(str3); str52 = varToLower(str5);
str72 = varToLower(str7);
collectPreds += "(" + str1 + " ";
collectPreds += "(var " + str32 + " 1) ";
collectPreds += "(var " + str52 + " 1)\n ";
collectPreds += "(var " + str72 + " " + str8 + "))\n ";
}
| ZZCOMBINE'('varname varindex',' varname varindex','
varname attrsindex')'
{ /* Ident_i */
string str1 = $1;
string str3 = $3; string str4 = $4;
string str6 = $6; string str7 = $7;
string str9 = $9; string str10 = $10;
string str32 = ""; string str62 = "";
string str92 = "";
str32 = varToLower(str3); str62 = varToLower(str6);
str92 = varToLower(str9);
collectPreds += "(" + str1 + " ";
collectPreds += "(var " + str32 + " " + str4 + ") ";
collectPreds += "(var " + str62 + " " + str7 + ")\n ";
collectPreds += "(var " + str92 + " " + str10 + "))\n ";
}
| ZZCONCAT'('varname attrsindex',' varname attrsindex','
varname attrsindex')'
{
string str1 = $1;
string str3 = $3; string str4 = $4;
string str6 = $6; string str7 = $7;
string str9 = $9; string str10 = $10;
string str32 = ""; string str62 = "";
string str92 = "";
str32 = varToLower(str3); str62 = varToLower(str6);
str92 = varToLower(str9);
collectPreds += "(" + str1 + " ";
collectPreds += "(var " + str32 + " " + str4 + ") ";
collectPreds += "(var " + str62 + " " + str7 + ")\n ";
collectPreds += "(var " + str92 + " " + str10 + "))\n ";
}
| ZZCREATEATTR'('varname varindex','
type'('type'('varname attrsindex')' ')' ','
varname attrsindex')'
| ZZDISTATTRS'('varname attrsindex')'
{
string str1 = $1;
string str3 = $3; string str4 = $4;
string str32 = "";
str32 = varToLower(str3);
collectPreds += "(" + str1 + " ";
collectPreds += "(var " + str32 + " " + str4 + "))\n ";
}
| ZZMINUS'('varname attrsindex',' varname varindex','
varname attrsindex')'
;
decls : ZZWHERE varname ZZIN '{'datatypes'}'
{
string str2 = $2; string str5 = $5;
string str22 = "";
str22 = varToLower(str2);
collectDecls = "";
collectDecls += "((var " + str22 + " 1) ";
collectDecls += "(" + collectEnum + ")) ";
}
;
datatypes : datatype
{
string str1 = $1;
collectEnum = "";
collectEnum += str1;
}
| datatypes datatype
{
string str2 = $2;
collectEnum += " " + str2;
}
;
opname : ZZIDENT
| ZZIDENT '_' ZZIDENT
{ /* for ops with '_' */
string str1 = $1; string str3 = $3;
string strOp = str1 + "_" + str3;
char* buffer = new char[strOp.length()];
strcpy(buffer, strOp.c_str());
$$ = buffer;
}
| ZZSYMBOL
;
varname : ZZIDENT
;
type : ZZIDENT
;
attrsindex : '_'ZZINTI
{ $$ = $2; }
;
varindex : '_'ZZINTI
{ $$ = $2; }
| '_'ZZIDENT
{ $$ = $2; }
;
datatype : type ','
| type
;
semicolon : ZZSEMICOLON { collectPreds = ""; }
%%
/*
Functions
*/
string varToLower(string varNameIn) {
string varNameOut = "";
for (int i=0; i<varNameIn.length(); i++) {
varNameOut += tolower(varNameIn[i]);
}
return (varNameOut);
}
bool parseSigs(const char* infile, const string& outfile) {
FILE* ifile;
ifile = fopen(infile, "r");
opsigin = ifile;
ofile.open(outfile.c_str(), ios_base::out);
ofile << "(\n";
ofile2.open(outfile2.c_str(), ios_base::out);
ofile2 << "(\n";
ofile3.open(outfile3.c_str(), ios_base::out);
ofile3 << "(\n";
opsigparse(); //yyparse()
ofile << "\n)";
ofile.close();
ofile2 << "\n)";
ofile2.close();
ofile3 << "\n)";
ofile3.close();
return (true);
}
Reference in New Issue Copy Permalink