void ERxPachubeService::PrintHelp(ERxServiceContext& context)
{
ERxOutputStream& rResultStream = context.GetResultStream();
PROG(serviceName) = "> ERxPachubeService\r\n";
rResultStream.printP(serviceName);
}
/**
*
* Initialize OSD.
*
* pOsdCfg SHOULD NOT BE NULL
*
* @ingroup osd_ddi_func
*/
void OSD_Init(D2A_OSD_CFG_T *pOsdCfg)
{
/// Init _d2aosdreg
_d2aosdreg = (GFXOSD_REG_T*)(&(gpVdpRealReg->osd_register[0]));
OSD_WR_OSD_LYR_CTRL((LYR_EN(DISABLE)|PROG(pOsdCfg->scanMode)));
OSD_WR_OSD_LYR_BADDR(OSD_HEADER_WORDADDR);
/// To draw OSD, you should set OSD header first
return;
}
/*-------------Function: sa() ---------------------------
start syntax analysis
-----------------------------------------------------------------*/
int sa(){
printf("\n******syntax analysis******\n");
if(PROG()==TRUE){
printf("program parsed successfully .\n");
return 1;
}
else{
printf("syntax error \n");
return -1;
}
}
/**
*
* Set OSD Scan mode
*
* @param intprog interlaced(0) or progress(1)
* @return void
*
* @ingroup osd_ddi_func
*/
void OSD_SetScanMode(int intprog)
{
unsigned int layerctrl;
layerctrl = BITMASK_1(OSD_RD_OSD_LYR_CTRL());
layerctrl |= PROG(intprog);
OSD_WR_OSD_LYR_CTRL(layerctrl);
return;
}
/*
** [[[cog
** import cog
** cog.outl("*" "/")
** from confloader import output_cconf2
** output_cconf2()
** cog.outl("/" "*")
** ]]]
*/
int sp_loadconf_programs(t_env *e)
{
t_program const tmp[sp_num_programs] = {
PROG(sp_landrender_vshader, sp_landrender_fshader, sp_landrender_gshader
, sp_landrender_tcshader, sp_landrender_teshader, sp_pointshadowland_program
, TEXI(0, 1, 2, 3)),
PROG(sp_poin_poout_mvptrans_vshader, sp_co_sun_fshader
, sp_po_facegrey_gshader, sp_test_tcshader, sp_test_teshader
, sp_pointshadow_program, TEXI(-1, -1, -1, -1)),
PROG(sp_po_to_noop_noviewproj_vshader, sp_depth01_fshader
, sp_pos_to_cubemap_gshader, sp_no_tcshader, sp_no_teshader
, sp_pointshadow_program, TEXI(-1, -1, -1, -1)),
PROG(sp_landsbox_vshader, sp_depth01_fshader, sp_pos_to_cubemap_gshader
, sp_no_tcshader, sp_no_teshader, sp_pointshadow_program, TEXI(0, -1, -1
, -1)),
PROG(sp_poteno_to_uv_vshader, sp_couvno_blendli_fshader
, sp_face_grey_gshader, sp_no_tcshader, sp_no_teshader
, sp_pointshadow_program, TEXI(1, -1, -1, 0)),
PROG(sp_po2_noop_vshader, sp_landgen_normals_fshader, sp_no_gshader
, sp_no_tcshader, sp_no_teshader, sp_pointshadow_program, TEXI(-1, -1, -1
, -1)),
PROG(sp_po2_noop_vshader, sp_landgen_diag_fshader, sp_no_gshader
, sp_no_tcshader, sp_no_teshader, sp_pointshadow_program, TEXI(-1, -1, -1
, -1)),
PROG(sp_po2_noop_vshader, sp_landgen_horiz_fshader, sp_no_gshader
, sp_no_tcshader, sp_no_teshader, sp_pointshadow_program, TEXI(-1, -1, -1
, -1)),
PROG(sp_po2_noop_vshader, sp_landgen_notrel_fshader, sp_no_gshader
, sp_no_tcshader, sp_no_teshader, sp_pointshadow_program, TEXI(-1, -1, -1
, -1)),
PROG(sp_po2_noop_vshader, sp_debug_print_sampler_fshader, sp_no_gshader
, sp_no_tcshader, sp_no_teshader, sp_pointshadow_program, TEXI(-1, -1, -1
, -1)),
};
memcpy(&e->programs, &tmp, sizeof(tmp));
return (0);
}
/*******************************************************************************
*** FUNCTION REST()
*******************************************************************************
*** DESCRIPTION : Processes REST grammar rule.
***
*** REST -> ( PARAMLIST ) COMPOUND |
*** IDTAIL ; PROG
******************************************************************************/
void RecursiveParser::REST(VarType & type, int & offset, ParamPtr & paramptr, int & local_size, int & param_num)
{
if (global->Token == Global::lparent)
{
depth++;
offset = 2;
param_num = 0;
int param_size = 0;
match(Global::lparent);
PARAMLIST(offset, paramptr, local_size, param_num, param_size);
EntryPtr ptr = symtab->lookup(funcname);
ptr->function.ParamList = base;
ptr->function.SizeOfLocal = local_size + offset;
ptr->function.NumberOfParameters = param_num;
ptr->function.sizeOfParams = param_size;
if (param_num == 0)
base = NULL;
// cout << "Depth change: " << depth-1 << " to " << depth << ": Enter to Continue"<< endl;
// cin.ignore();
// system("clear");
// symtab->writeTable(depth-1);
match(Global::rparent);
COMPOUND(offset);
// cout << "Depth change: " << depth+1 << " to " << depth << ": Enter to Continue"<< endl;
// cin.ignore();
// system("clear");
// symtab->writeTable(depth+1);
}
else
{
IDTAIL(type, offset);
match(Global::semicolont);
PROG();
}
}
ParseTree* Parser::start(std::string filename)
{
parser = new Scanner(filename.c_str());
numSymbols = 0;
symbolIndex = 0;
symbolList = new Symbol[5000];
tree = new ParseTree();
(*parser).Advance();
Token tmp = (*parser).get();
if(tmp.token == PROGRAM)
{
tree = PROG();
}
else
{
ThrowParserError();
}
(*tree).setSymbolList(symbolList);
(*tree).setNumSymbols(symbolIndex);
return tree;
}
void
plugin_function (PREFERENCES *preferences)
{
/* Run the program */
system (PROG(preferences));
}
/*******************************************************************************
*** FUNCTION PROG()
*******************************************************************************
*** DESCRIPTION : Processes PROG grammar rule.
***
*** PROG -> TYPE idt REST PROG |
*** const idt = num ; PROG |
*** e
******************************************************************************/
void RecursiveParser::PROG()
{
EntryPtr ptr;
VarType type;
ParamPtr paramptr = NULL;
base = NULL;
bool func;
string code;
int local_vars = 0;
int param_num = 0;
if (global->Token == Global::intt || global->Token == Global::floatt || global->Token == Global::chart)
{
TYPE(type);
symtab->insert(global->Lexeme, global->Token, depth);
ptr = symtab->lookup(global->Lexeme);
funcname = global->Lexeme;
match(Global::idt);
if (global->Token == Global::lparent)
{
func = true;
code = "proc " + funcname;
emit(code);
//if function
ptr->TypeOfEntry = functionEntry;
ptr->function.ReturnType = type;
ptr->function.ParamList = new ParamNode();
paramptr = ptr->function.ParamList;
ptr->function.NumberOfParameters = 0;
base = paramptr;
}
else
{
funcname = "::EMPTY::";
//if variable declaration
ptr->TypeOfEntry = varEntry;
ptr->var.TypeOfVariable = type;
ptr->var.Offset = offset;
ptr->var.size = getsize(type, offset);
}
REST(type, offset, paramptr, local_vars, param_num);
if (func)
{
code = "endp " + funcname;
emit(code);
code = "START PROC " + funcname;
emit(code);
func = false;
}
PROG();
}
//rest is for constant
else if (global->Token == Global::constt)
{
match(Global::constt);
symtab->insert(global->Lexeme, global->Token, depth);
ptr = symtab->lookup(global->Lexeme);
ptr->TypeOfEntry = constEntry;
match(Global::idt);
match(Global::assignopt);
if (lex->isFloat)
{
ptr->constant.TypeOfConstant = floatType;
ptr->constant.ValueR = global->ValueR;
}
else
{
ptr->constant.TypeOfConstant = intType;
ptr->constant.Value = global->Value;
}
match(Global::numt);
match(Global::semicolont);
PROG();
}
else
return;
}
// Main entry point
int main(int argc,char **argv)
{
IPCData *startup_pic;
/******** Startup Stuff that happens before the progress bar is displayed ********/
startup_misc_init(); // Miscellaneous startup stuff
startup_check_assign(); // Check for DOPUS5: assignment
startup_open_dopuslib(); // Open dopus5.library
init_locale_data(&locale); // Initialise locale info
startup_check_duplicate(); // See if DOpus is already running
startup_open_libraries(); // Open libraries
startup_run_update(); // Run the update module
startup_init_gui(); // Create a global memory pool and GUI structure
startup_init_environment(); // Initialise environment structure
startup_process_args(argc,argv); // Get startup parameters
startup_show_startup_picture(&startup_pic); // Show startup picture
/******** Startup Stuff that happens after the progress bar is displayed ********/
startup_init_desktop();
PROG(1); // Initialise desktop stuff
startup_read_positions();
PROG(2); // Initialise the position list
startup_init_ipc();
PROG(3); // Initialise IPC
startup_init_ports();
PROG(4); // Initialise message ports
startup_read_openwith();
PROG(5); // Read the OpenWith file
startup_get_env();
PROG(6); // Get environment variables
startup_init_arexx_cx();
PROG(7); // Initialise ARexx and the commodity
startup_init_commands();
PROG(8); // Initialise the commands
startup_init_filetypes();
PROG(9); // Initialise filetypes
environment_open(environment,0,1,0);
PROG(10); // Read initial environment
startup_init_notification();
PROG(11); // Initialise file notifications
startup_init_icons();
PROG(12); // Initialise icons and images
startup_prestartup_script();
PROG(13); // Pre-Startup script
startup_init_display(startup_pic);
PROG(14); // Initialise display
startup_check_pirates();
PROG(15); // Check for pirated version
startup_misc_final();
PROG(16); // Startup final miscellaneous steps
// Run main event loop
if (GUI->flags&GUIF_OK) event_loop();
quit(0);
return 0; // never reached
}
