coins.ffront
Class F77Sym

java.lang.Object
  coins.ffront.F77Sym

public class F77Sym

extends java.lang.Object

Field Summary

(package private) FirList	commonList
(package private) FirList	dataList
(package private) FirList	dimensionList
(package private) FirList	entryStmtList
(package private) FirList	equivList
(package private) FirList	externalList
(package private) FirToHir	fFirToHir
(package private) java.util.Map	formatMap
(package private) FirList	implicitList
(package private) HeaderStmt	programHeader
(package private) java.lang.String	programName
(package private) FirList	saveVarsList
(package private) FirList	typedDeclList

Constructor Summary

F77Sym(SymRoot sRoot, HirRoot hRoot, IoRoot iRoot, F77Hir fir)

Method Summary

Node	arrayDecl(Token pIdent, Node pDim, Node pOptLength) make Fir node of array declaration [f77.jay] one_declaration : IDENT dims opt_length_spec { $$ = fSym.arrayDecl($1, $2, $3); } common_var : IDENT dims { $$ = fSym.arrayDecl($1, $2, null); }
Node	block(Token p1, Node p2)
Node	blockDataStmt(Node p1, Node p2)
char	checkLetter(java.lang.String letter)
FStmt	commonDecl(FirList p1) add declaration list to commonList ??? not yet [f77.jay] data_spec_stmt : COMMON common_decl { $$ = fSym.commonDecl($2); }
FStmt	dataDecl(FirList p1) add declaration list to dataDeclList ??? not yet [f77.jay] data_spec_stmt : DATA data_decl { $$ = fSym.dataDecl($2); }
void	debugPrint(int level, java.lang.String pMsg)
FStmt	declList(Node pType, FirList pList) add declaration list to dimensionList or typedDeclList [f77.jay] data_spec_stmt : type declaration_list { $$ = fSym.declList($1, $2); }
Node	dim(Node p1, Node p2)
Node	entryStmt(Token pIdent, FirList pArgs) make Fir node of entry statement and add it to entryStmtList [f77.jay] entry_stmt : opt_label_def ENTRY IDENT subr_dummy_args { $$ = fSym.entryStmt($3, $4); }
FStmt	equivalenceDecl(Node p1) add declaration list to equivalenceList ??? not yet [f77.jay] data_spec_stmt : EQUIVALENCE equivalence_decl { $$ = fSym.equivalenceDecl($2); }
FStmt	externalDecl(Node p1) add declaration list to externalList.
Node	funcStmt(Node pType, Token pIdent, FirList pArgs) make Fir node of function header statement [f77.jay] function_stmt : opt_label_def type FUNCTION IDENT func_dummy_args { $$ = fSym.funcStmt($2, $4, $5); } | opt_label_def FUNCTION IDENT func_dummy_args { $$ = fSym.funcStmt(null, $3, $4); }
Node	impItem(Node p1, Node p2, Node p3)
FStmt	implicitDecl(FirList p1) add declaration list to implicitList ??? not yet [f77.jay] data_spec_stmt : IMPLICIT implicit_decl { $$ = fSym.implicitDecl($2); }
void	initialize()
FStmt	intrinsicDecl(Node p1) [f77.jay] functional_spec_stmt : INTRINSIC intrinsic_decl { $$ = fSym.intrinsicDecl($2); }
Node	letterGroup(Token p1, Token p2)
FirList	list()
FirList	list(java.lang.Object pElem)
Token	modifiedToken(Token t) Add an instance of FirToHir to Token
(package private) void	p(java.lang.String str)
Pair	pair(Node n1, Node n2)
FStmt	parameterDecl(Node p1) add declaration list to paramList ??? not yet [f77.jay] data_spec_stmt : PARAM '(' const_list ')' { $$ = fSym.parameterDecl($3); }
void	print(int level)
Node	programStmt(Token pName) set main program name [f77.jay] program_stmt : opt_label_def PROGRAM IDENT EOS { $$ = fSym.programStmt($3); }
void	registFormat(Token label, java.lang.String formatstring)
FStmt	saveDecl(Node p1) add declaration list to saveList ??? not yet [f77.jay] data_spec_stmt : SAVE opt_save_list { $$ = fSym.saveDecl($2); }
Node	scalarDecl(Token pIdent, Node pOptLength) make Fir node of scalar declaration [f77.jay] one_declaration : IDENT opt_length_spec { $$ = fSym.scalarDecl($1, $2); } common_var : IDENT { $$ = fSym.scalarDecl($1, null);; }
void	setProgramHeader(FStmt pHeader)
Node	subrStmt(Token pIdent, FirList pArgs) make Fir node of subroutine header statement [f77.jay] subroutine_stmt : opt_label_def SUBROUTINE IDENT subr_dummy_args { $$ = fSym.subrStmt($3, $4); }
Node	type(Token pType, Node pOptLength) make Fir node of type declaration [f77.jay] type : type_name opt_length_spec { $$ = fSym.type($1, $2); } | DIMENSION { $$ = $1; }

Methods inherited from class java.lang.Object

clone, equals, finalize, getClass, hashCode, notify, notifyAll, toString, wait, wait, wait

Field Detail

fFirToHir

FirToHir fFirToHir

dimensionList

FirList dimensionList

typedDeclList

FirList typedDeclList

implicitList

FirList implicitList

entryStmtList

FirList entryStmtList

externalList

FirList externalList

dataList

FirList dataList

commonList

FirList commonList

equivList

FirList equivList

saveVarsList

FirList saveVarsList

formatMap

java.util.Map formatMap

programName

java.lang.String programName

programHeader

HeaderStmt programHeader

Constructor Detail

F77Sym

public F77Sym(SymRoot sRoot,
              HirRoot hRoot,
              IoRoot iRoot,
              F77Hir fir)

Method Detail

initialize

public void initialize()

debugPrint

public void debugPrint(int level,
                       java.lang.String pMsg)

print

public void print(int level)

list

public FirList list(java.lang.Object pElem)

list

public FirList list()

pair

public Pair pair(Node n1,
                 Node n2)

modifiedToken

public Token modifiedToken(Token t)

Add an instance of FirToHir to Token

Parameters:

t - old Token

Returns:

modified Token

setProgramHeader

public void setProgramHeader(FStmt pHeader)

funcStmt

public Node funcStmt(Node pType,
                     Token pIdent,
                     FirList pArgs)

make Fir node of function header statement [f77.jay] function_stmt : opt_label_def type FUNCTION IDENT func_dummy_args { $$ = fSym.funcStmt($2, $4, $5); } | opt_label_def FUNCTION IDENT func_dummy_args { $$ = fSym.funcStmt(null, $3, $4); }

Parameters:

pType -

pIdent -

pArgs -

Returns:

function header statement.

subrStmt

public Node subrStmt(Token pIdent,
                     FirList pArgs)

make Fir node of subroutine header statement [f77.jay] subroutine_stmt : opt_label_def SUBROUTINE IDENT subr_dummy_args { $$ = fSym.subrStmt($3, $4); }

Parameters:

pIdent -

pArgs -

Returns:

subroutine header.

entryStmt

public Node entryStmt(Token pIdent,
                      FirList pArgs)

make Fir node of entry statement and add it to entryStmtList [f77.jay] entry_stmt : opt_label_def ENTRY IDENT subr_dummy_args { $$ = fSym.entryStmt($3, $4); }

Parameters:

pIdent -

pArgs -

Returns:

entry statement.

programStmt

public Node programStmt(Token pName)

set main program name [f77.jay] program_stmt : opt_label_def PROGRAM IDENT EOS { $$ = fSym.programStmt($3); }

Parameters:

pName -

Returns:

null.

blockDataStmt

public Node blockDataStmt(Node p1,
                          Node p2)

declList

public FStmt declList(Node pType,
                      FirList pList)

add declaration list to dimensionList or typedDeclList [f77.jay] data_spec_stmt : type declaration_list { $$ = fSym.declList($1, $2); }

Parameters:

pType -

pList -

Returns:

null.

commonDecl

public FStmt commonDecl(FirList p1)

add declaration list to commonList ??? not yet [f77.jay] data_spec_stmt : COMMON common_decl { $$ = fSym.commonDecl($2); }

Parameters:

p1 -

Returns:

null.

equivalenceDecl

public FStmt equivalenceDecl(Node p1)

add declaration list to equivalenceList ??? not yet [f77.jay] data_spec_stmt : EQUIVALENCE equivalence_decl { $$ = fSym.equivalenceDecl($2); }

Parameters:

p1 -

Returns:

equivalence list.

dataDecl

public FStmt dataDecl(FirList p1)

add declaration list to dataDeclList ??? not yet [f77.jay] data_spec_stmt : DATA data_decl { $$ = fSym.dataDecl($2); }

Parameters:

p1 -

Returns:

null.

implicitDecl

public FStmt implicitDecl(FirList p1)

add declaration list to implicitList ??? not yet [f77.jay] data_spec_stmt : IMPLICIT implicit_decl { $$ = fSym.implicitDecl($2); }

Parameters:

p1 - declaration list.

Returns:

null.

saveDecl

public FStmt saveDecl(Node p1)

add declaration list to saveList ??? not yet [f77.jay] data_spec_stmt : SAVE opt_save_list { $$ = fSym.saveDecl($2); }

Parameters:

p1 -

Returns:

null.

parameterDecl

public FStmt parameterDecl(Node p1)

add declaration list to paramList ??? not yet [f77.jay] data_spec_stmt : PARAM '(' const_list ')' { $$ = fSym.parameterDecl($3); }

Parameters:

p1 -

Returns:

parameter list.

externalDecl

public FStmt externalDecl(Node p1)

add declaration list to externalList. [f77.jay] functional_spec_stmt : EXTERNAL external_decl { $$ = fSym.externalDecl($2); }

Parameters:

p1 -

Returns:

null.

intrinsicDecl

public FStmt intrinsicDecl(Node p1)

[f77.jay] functional_spec_stmt : INTRINSIC intrinsic_decl { $$ = fSym.intrinsicDecl($2); }

Parameters:

p1 -

Returns:

intrinsic declaration.

arrayDecl

public Node arrayDecl(Token pIdent,
                      Node pDim,
                      Node pOptLength)

make Fir node of array declaration [f77.jay] one_declaration : IDENT dims opt_length_spec { $$ = fSym.arrayDecl($1, $2, $3); } common_var : IDENT dims { $$ = fSym.arrayDecl($1, $2, null); }

Parameters:

pIdent -

pDim -

pOptLength -

Returns:

array declaration node.

scalarDecl

public Node scalarDecl(Token pIdent,
                       Node pOptLength)

make Fir node of scalar declaration [f77.jay] one_declaration : IDENT opt_length_spec { $$ = fSym.scalarDecl($1, $2); } common_var : IDENT { $$ = fSym.scalarDecl($1, null);; }

Parameters:

pIdent -

pOptLength -

Returns:

scalar declaration.

type

public Node type(Token pType,
                 Node pOptLength)

make Fir node of type declaration [f77.jay] type : type_name opt_length_spec { $$ = fSym.type($1, $2); } | DIMENSION { $$ = $1; }

Parameters:

pType -

pOptLength -

Returns:

type declaration.

block

public Node block(Token p1,
                  Node p2)

dim

public Node dim(Node p1,
                Node p2)

registFormat

public void registFormat(Token label,
                         java.lang.String formatstring)

impItem

public Node impItem(Node p1,
                    Node p2,
                    Node p3)

letterGroup

public Node letterGroup(Token p1,
                        Token p2)

checkLetter

public char checkLetter(java.lang.String letter)

p

void p(java.lang.String str)