static SymbolEntry ** hashTable; /* Πίνακας κατακερματισμού */
static struct Type_tag typeConst [] = {
{ TYPE_VOID, NULL, 0, 0 },
{ TYPE_INTEGER, NULL, 0, 0 },
{ TYPE_BOOLEAN, NULL, 0, 0 },
{ TYPE_CHAR, NULL, 0, 0 },
{ TYPE_REAL, NULL, 0, 0 },
};
const Type typeVoid = &(typeConst[0]);
const Type typeInteger = &(typeConst[1]);
const Type typeBoolean = &(typeConst[2]);
const Type typeChar = &(typeConst[3]);
const Type typeReal = &(typeConst[4]);
const Type typeString = typeIArray(typeChar);
/* ---------------------------------------------------------------------
------- Υλοποίηση βοηθητικών συναρτήσεων του πίνακα συμβόλων --------
--------------------------------------------------------------------- */
typedef unsigned long int HashType;
static HashType PJW_hash (const char * key)
{
/*
* P.J. Weinberger's hashing function. See also:
* Aho A.V., Sethi R. & Ullman J.D, "Compilers: Principles,
* Techniques and Tools", Addison Wesley, 1986, pp. 433-437.
*/
void define_routines(void)
{
SymbolEntry *se;
const char *name;
name = "READ_INT";
se = newFunction(name);
openScope();
endFunctionHeader(se, typeInteger);
closeScope();
name = "READ_BOOL";
se = newFunction(name);
openScope();
endFunctionHeader(se, typeBoolean);
closeScope();
name = "getchar";
se = newFunction(name);
openScope();
endFunctionHeader(se, typeInteger);
closeScope();
name = "READ_REAL";
se = newFunction(name);
openScope();
endFunctionHeader(se, typeReal);
closeScope();
name = "READ_STRING";
se = newFunction(name);
openScope();
newParameter("par1", typeInteger, PASS_BY_VALUE, se);
newParameter("par2", typeIArray(typeChar), PASS_BY_REFERENCE, se);
endFunctionHeader(se, typeVoid);
closeScope();
name = "putchar";
se = newFunction(name);
openScope();
newParameter("par", typeChar, PASS_BY_VALUE, se);
endFunctionHeader(se, typeVoid);
closeScope();
name = "puts";
se = newFunction(name);
openScope();
newParameter("par", typeIArray(typeChar), PASS_BY_REFERENCE, se);
endFunctionHeader(se, typeVoid);
closeScope();
name = "writeInteger";
se = newFunction(name);
openScope();
newParameter("par1", typeInteger, PASS_BY_VALUE, se);
//newParameter("par2", typeInteger, PASS_BY_VALUE, se);
endFunctionHeader(se, typeVoid);
closeScope();
name = "writeBoolean";
se = newFunction(name);
openScope();
newParameter("par1", typeBoolean, PASS_BY_VALUE, se);
//newParameter("par2", typeInteger, PASS_BY_VALUE, se);
endFunctionHeader(se, typeVoid);
closeScope();
name = "writeChar";
se = newFunction(name);
openScope();
newParameter("par1", typeChar, PASS_BY_VALUE, se);
//newParameter("par2", typeInteger, PASS_BY_VALUE, se);
endFunctionHeader(se, typeVoid);
closeScope();
name = "writeReal";
se = newFunction(name);
openScope();
newParameter("par1", typeReal, PASS_BY_VALUE, se);
newParameter("par2", typeInteger, PASS_BY_VALUE, se);
//newParameter("par3", typeInteger, PASS_BY_VALUE, se);
endFunctionHeader(se, typeVoid);
closeScope();
name = "writeString";
se = newFunction(name);
openScope();
newParameter("par1", typeIArray(typeChar), PASS_BY_REFERENCE, se);
//newParameter("par2", typeInteger, PASS_BY_VALUE, se);
endFunctionHeader(se, typeVoid);
closeScope();
/*Math builtin functions*/
name = "abs";
se = newFunction(name);
openScope();
newParameter("par", typeInteger, PASS_BY_VALUE, se);
endFunctionHeader(se, typeInteger);
closeScope();
name = "fabs";
se = newFunction(name);
openScope();
newParameter("par", typeReal, PASS_BY_VALUE, se);
endFunctionHeader(se, typeReal);
closeScope();
name = "sqrt";
se = newFunction(name);
openScope();
newParameter("par", typeReal, PASS_BY_VALUE, se);
endFunctionHeader(se, typeReal);
closeScope();
name = "sin";
se = newFunction(name);
openScope();
newParameter("par", typeReal, PASS_BY_VALUE, se);
endFunctionHeader(se, typeReal);
closeScope();
name = "cos";
se = newFunction(name);
openScope();
newParameter("par", typeReal, PASS_BY_VALUE, se);
endFunctionHeader(se, typeReal);
closeScope();
name = "tan";
se = newFunction(name);
openScope();
newParameter("par", typeReal, PASS_BY_VALUE, se);
endFunctionHeader(se, typeReal);
closeScope();
name = "arctan";
se = newFunction(name);
openScope();
newParameter("par", typeReal, PASS_BY_VALUE, se);
endFunctionHeader(se, typeReal);
closeScope();
name = "exp";
se = newFunction(name);
openScope();
newParameter("par", typeReal, PASS_BY_VALUE, se);
endFunctionHeader(se, typeReal);
closeScope();
name = "ln";
se = newFunction(name);
openScope();
newParameter("par", typeReal, PASS_BY_VALUE, se);
endFunctionHeader(se, typeReal);
closeScope();
name = "pi";
se = newFunction(name);
openScope();
endFunctionHeader(se, typeReal);
closeScope();
name = "trunc";
se = newFunction(name);
openScope();
newParameter("par", typeReal, PASS_BY_VALUE, se);
endFunctionHeader(se, typeReal);
closeScope();
name = "round";
se = newFunction(name);
openScope();
newParameter("par", typeReal, PASS_BY_VALUE, se);
endFunctionHeader(se, typeReal);
closeScope();
name = "TRUNC";
se = newFunction(name);
openScope();
newParameter("par", typeReal, PASS_BY_VALUE, se);
endFunctionHeader(se, typeInteger);
closeScope();
name = "ROUND";
se = newFunction(name);
openScope();
newParameter("par", typeReal, PASS_BY_VALUE, se);
endFunctionHeader(se, typeInteger);
closeScope();
/*End Math builtin functions*/
/*String handling builtin functions*/
name = "strlen";
se = newFunction(name);
openScope();
newParameter("par", typeIArray(typeChar), PASS_BY_REFERENCE, se);
endFunctionHeader(se, typeInteger);
closeScope();
name = "strcmp";
se = newFunction(name);
openScope();
newParameter("par1", typeIArray(typeChar), PASS_BY_REFERENCE, se);
newParameter("par2", typeIArray(typeChar), PASS_BY_REFERENCE, se);
endFunctionHeader(se, typeInteger);
closeScope();
name = "strcpy";
se = newFunction(name);
openScope();
newParameter("par1", typeIArray(typeChar), PASS_BY_REFERENCE, se);
newParameter("par2", typeIArray(typeChar), PASS_BY_REFERENCE, se);
endFunctionHeader(se, typeVoid);
closeScope();
name = "strcat";
se = newFunction(name);
openScope();
newParameter("par1", typeIArray(typeChar), PASS_BY_REFERENCE, se);
newParameter("par2", typeIArray(typeChar), PASS_BY_REFERENCE, se);
endFunctionHeader(se, typeVoid);
closeScope();
/*End String handling builtin functions*/
}
