Komodo Edit TorqueScript Plugin (Mac/PC/Linux)

%{
 /* Reserved Word Definitions */
import astnodes
from astnodes import *
debug = 0                
        
%}
%token rwDEFINE rwENDDEF rwDECLARE rwDECLARESINGLETON
%token rwBREAK rwELSE rwCONTINUE rwGLOBAL
%token rwIF rwNIL rwRETURN rwWHILE rwDO
%token rwENDIF rwENDWHILE rwENDFOR rwDEFAULT
%token rwFOR rwDATABLOCK rwSWITCH rwCASE rwSWITCHSTR
%token rwCASEOR rwPACKAGE rwNAMESPACE rwCLASS
%token rwASSERT
%token ILLEGAL_TOKEN
%{
 /* Constants and Identifier Definitions */
%}
%token CHRCONST
%token INTCONST
%token TTAG
%token VAR
%token IDENT
%token TYPE
%token DOCBLOCK
%token STRATOM
%token TAGATOM
%token FLTCONST

%{
 /* Operator Definitions */
%}
%token '+' '-' '*' '/' '<' '>' '=' '.' '|' '&' '%'
%token '(' ')' ',' ':' ';' '{' '}' '^' '~' '!' '@'
%token opINTNAME opINTNAMER
%token opMINUSMINUS opPLUSPLUS
%token STMT_SEP
%token opSHL opSHR opPLASN opMIASN opMLASN opDVASN opMODASN opANDASN
%token opXORASN opORASN opSLASN opSRASN opCAT
%token opEQ opNE opGE opLE opAND opOR opSTREQ
%token opCOLONCOLON

%left '['
%right opMODASN opANDASN opXORASN opPLASN opMIASN opMLASN opDVASN opMDASN opNDASN opNTASN opORASN opSLASN opSRASN '='
%left '?' ':'
%left opOR
%left opAND
%left '|'
%left '^'
%left '&'
%left opEQ opNE
%left '<' opLE '>' opGE
%left '@' opCAT opSTREQ opSTRNE
%left opSHL opSHR
%left '+' '-'
%left '*' '/' '%'
%right '!' '~' opPLUSPLUS opMINUSMINUS UNARY
%left '.'
%left opINTNAME opINTNAMER

%%

start:
decl_list {
        pass
};

decl_list:
{
        $$ = None
} | decl_list decl {
        if not astnodes.gStatementList:
                astnodes.gStatementList = []
        else:
                astnodes.gStatementList.append()
};

decl:
stmt {
        $$ = 
} | fn_decl_stmt{
        $$ = 
} | package_decl
{
        $$ = ;
};

package_decl:
rwPACKAGE IDENT '{' fn_decl_list '}' ';' {
        $$ = 
        for walk in ():
                walk.set_package()
};

fn_decl_list:
fn_decl_stmt {
        $$ = []
} | fn_decl_list fn_decl_stmt {
        $$ = 
        ().append()
};

statement_list:
{
        $$ = None
} | statement_list stmt {
        if not :
                $$ = []
        else:
                ().append()
                $$ = ;
};

stmt
   : if_stmt
   | while_stmt
   | for_stmt
   | datablock_decl
   | switch_stmt
   | rwBREAK ';' {
        $$ = BreakStmtNode()
} | rwCONTINUE ';' {
        $$ = ContinueStmtNode()
} | rwRETURN ';' {
        $$ = ReturnStmtNode(None)
} | rwRETURN expr ';' {
        $$ = ReturnStmtNode()
} | expression_stmt ';' {
        $$ = ;
} | TTAG '=' expr ';' {
        $$ = TTagSetStmtNode(, , None)
} | TTAG '=' expr ',' expr ';' {
        $$ = TTagSetStmtNode(, , )
} | DOCBLOCK {
        $$ = StrConstNode(, False, True)
};

fn_decl_stmt:
rwDEFINE IDENT '(' var_list_decl ')' '{' statement_list '}' {
        $$ = FunctionDeclStmtNode(, None, , )
} | rwDEFINE IDENT opCOLONCOLON IDENT '(' var_list_decl ')' '{' statement_list '}' {
        $$ = FunctionDeclStmtNode(, , , )
};

var_list_decl:
{
        $$ = []
} | var_list {
        $$ = 
};

var_list:
VAR {
        $$ = [VarNode(, None)]
} | var_list ',' VAR{
        $$ = 
        ().append(VarNode(, None))
};

//------------------------
//  ...ETC...
//-----------------------

ConsoleFunction(dumpConsoleTypes, void, 1, 1, "dumpConsoleTypes")
{
    Con::printf("gConsoleTypeTable = {");
    ConsoleBaseType *walk = ConsoleBaseType::getListHead();
    while( walk != NULL )
    {
        Con::printf("    '%s' : %d,", walk->getTypeName(), walk->getTypeID());        
        walk = walk->getListNext();
    }
    Con::printf("}");
}