Exemplo n.º 1
0
bool Parser::Read()
{
	if (!("read" == lex)) {
		std::cout << "Expected read\n";
		return false;
	} else {
		L.getTokLex(tok,lex);
	}
	
	if (!("(" == lex)) {
		std::cout << "'read' keyword not followed by '('\n";
		return false;
	} else {
		L.getTokLex(tok,lex);
	}
	
	if (!VarList()) return false;
	
	if (!(")" == lex)) {
		std::cout << "Argument list in Read not followed by ')'\n";
		return false;
	} else {
		L.getTokLex(tok,lex);
	}
	
	if (!(";" == lex)) {
		std::cout << "Read statement not ended with ';'\n";
		return false;
	} else {
		L.getTokLex(tok,lex);
	}
	
	std::cout << "Read => read ( VarList ) ;\n";
	return true;
}
Exemplo n.º 2
0
bool Parser::Decl()
{
	if (!Type()) return false;
	if (!VarList()) return false;
	
	if (";" == lex) {
		L.getTokLex(tok,lex);
		std::cout << "Decl => Type VarList ;\n";
		return true;
	}
	else {
		std::cout << "Declaration did not end with ';'\n";
		return false;
	}
}
Exemplo n.º 3
0
static  void    DoData( void ) {
//========================

// Process one vlist/dlist/ pair.

    STMT    save_stmtproc;

    StmtSw |= SS_DATA_INIT;
    save_stmtproc = StmtProc;
    StmtProc = PR_READ; // so I/O processing works correctly
    IOData = 0;         // ...
    AError = false;
    VarList();
    if( !AError ) {
        GEndVarSet();
        ConList();
    }
    StmtProc = save_stmtproc;
    StmtSw &= ~SS_DATA_INIT;
}
Exemplo n.º 4
0
STATUS CommandParser::Execute()
{
	STATUS status = STATUS_OK;
	scanner_.AcceptPara();
	std::string FileName;

	switch (cmd_)
	{
	case COMMAND_LOAD:
		FileName = scanner_.Symbol();
		status = Load(FileName);
		break;
	case COMMAND_FUNCTION:
		FunList();
		break;
	case COMMAND_HELP:
		Help();
		break;
	case COMMAND_VARIABLE:
		VarList();
		break;
	case COMMAND_SAVE:
		FileName = scanner_.Symbol();
		status = Save(FileName);
		break;
	case COMMAND_QUIT:
		std::cout<<"Good bye!"<<std::endl;
		status = STATUS_QUIT;
		break;
	default:
		std::cout<<"Unknown command: "<<"\""<<cmdName_<<"\"."<<std::endl;
		status = STATUS_ERROR;
	}

	return status;
}
Exemplo n.º 5
0
void HostStatus::returnSlaveFrames( bool commitHostStatus )
{
	Database::current()->beginTransaction();
	Database::current()->exec( "SELECT return_slave_tasks_3(?)", VarList() << host().key() );
	Database::current()->commitTransaction();
}
Exemplo n.º 6
0
void TimeEntryDialog::setupSuggestedTimeSheet()
{
	VarList v;
	v += QDate::currentDate();
	v += User::currentUser().key();
	ScheduleList sl = Schedule::select( "date = ? and fkeyuser = ?", v );
	if( !sl.isEmpty() ) {
		Schedule s = sl[0];
		setElementList( s.element() );
	} else {
		TimeSheetList recent = TimeSheet::select( "fkeyemployee=? order by dateTime desc limit 1", VarList() += User::currentUser().key() );
		if( !recent.isEmpty() ) {
			TimeSheet ts = recent[0];
			setProject( ts.project() );
			setAssetType( ts.assetType() );
			setElementList( ts.element() );
		}
	}
}
Exemplo n.º 7
0
JobAssignmentList Host::activeAssignments() const
{
	return JobAssignment::select( "WHERE fkeyhost=? AND fkeyjobassignmentstatus IN (SELECT keyjobassignmentstatus FROM jobassignmentstatus WHERE status IN ('ready','copy','busy'))", VarList() << key() );
}