logical sODC_Project :: GenerateCompile ( ) { pc_ODC_Project proj_pc(GetPropertyHandle()); NString output; char *parm = NULL; CompileStates compreq = CPS_undefined; logical nocomp_ignore = NO; logical term = NO; BEGINSEQ if ( !proj_pc.IsClient() ) LEAVESEQ if ( !proj_pc.IsPositioned() ) ERROR // if ( parm = Parm(2) ) // compreq = if ( (parm = Parm(3)) && *parm == 'Y' ) nocomp_ignore = YES; if ( (parm = Parm(1)) && *parm == 'U' ) term = proj_pc.CreateCompAllUnix(compreq,nocomp_ignore,&output); else term = proj_pc.CreateCompAllWin(compreq,nocomp_ignore,&output); RECOVER term = YES; ENDSEQ proj_pc.SetActionResult(output); return(term); }
logical DLInterpreter :: BACKTRACE ( ) { logical term = NO; BEGINSEQ if ( !GetOption('h') ) current_node->ListCallStack(Parm(0) ? atoi(Parm(0)) : AUTO); else { // : Output("list call stack : backtrace|bt [count] \n"); if ( !GetOption('d') ) LEAVESEQ // 1 2 3 4 5 6 7 8 // 12345678901234567890123456789012345678901234567890123456789012345678901234567890 Output(" The command displays the current call stack beginning with the last called\n"); Output(" expression.\n"); Output(" Print backtrace of all stack frames, or innermost COUNT frames.\n"); Output(" !!With a negative argument, print outermost -COUNT frames.\n"); Output(" !!Use of the 'full' qualifier also prints the values of the local variables.\n"); Output(" \n"); // - Output(" count - maximum stack level to be displayed\n"); } ENDSEQ return(term); }
logical DLInterpreter :: SETBREAK ( ) { logical term = NO; BEGINSEQ if ( !GetOption('h') ) if ( Parm(0) ) SetBreakPoint(Parm(0)); else SetBreakPoint(YES); else { // : Output("set break point : SetBreak|dsb [proc_name]\n"); if ( !GetOption('d') ) LEAVESEQ // 1 2 3 4 5 6 7 8 // 12345678901234567890123456789012345678901234567890123456789012345678901234567890 Output(" The command sets a break point at the current position.\n"); Output(" \n"); // - Output(" proc_name - A procedure name containing a list of commands to be executed\n"); Output(" when reaching the breakpoint. The Commandlist must be loaded \n"); Output(" from the calling environment, e.g. the calling OShell.\n"); Output(" \n"); Output("Examples\n"); // : Output(" dsb bp10 : set breakpont at current line and call procedure bp10 \n"); Output(" always when reaching the breakpoint.\n"); } ENDSEQ return(term); }
logical DLInterpreter :: SAV ( ) { logical term = NO; BEGINSEQ if ( !GetOption('h') ) { SetValue(Parm(0)); } else { // : Output("Set attribute value : sav attrname=value -Dn -Cn\n"); if ( !GetOption('d') ) LEAVESEQ // 1 2 3 4 5 6 7 8 // 12345678901234567890123456789012345678901234567890123456789012345678901234567890 Output(" The command assigns a new value to the attribute of the instance selected in\n"); Output(" the current or referenced collection\n"); Output(" \n"); // - Output(" attrname - name of the attribute for assignment\n"); Output(" value - value to be assigned to the attribute. The valu is a constant,\n"); Output(" a variable valid in the current environment or an expression.\n"); Output(" -Dn - redirect to other data source context\n"); Output(" -Cn - redirect to other collection in the hierarchy\n"); Output(" \n"); Output("Examples\n"); // : Output(" sav name='Smith: : change name value to 'Smith'\n"); Output(" \n"); } ENDSEQ return(term); }
void CDialogEditGridColours::OnButtonDefault(wxCommandEvent &) { CParmOsirisGlobal pParm; CParmOsiris Parm(*pParm.Get()); Parm.SetDefaultColours(); _SetupGridColoursAttr(&Parm); _UpdateButtons(-1,-1); m_pGridColor->Refresh(); m_pGridAttr->Refresh(); m_pGridColor->SetFocus(); }
logical sODC_Project :: GetProjectPath ( ) { PropertyHandle *ph = GetPropertyHandle(); NString nstring; logical term = NO; BEGINSEQ SetResult(""); if ( !ph->IsSelected() ) ERROR if ( !ph->IsPositioned() ) if ( !ph->Get().GetData() ) ERROR pc_ODC_Project project_pc(ph); SetResult(project_pc.GetProjectPath(nstring,Parm(1))); RECOVER term = YES; ENDSEQ return(term); }
logical sODC_Project :: InitializeExternalResources ( ) { PropertyHandle *ph = GetPropertyHandle(); char *folder_opt = Parm(1); NString nstring; logical term = NO; BEGINSEQ if ( !ph->IsServer() ) LEAVESEQ SetResult(""); if ( !ph->IsSelected() ) ERROR if ( !ph->IsPositioned() ) if ( !ph->Get().GetData() ) ERROR pc_ODC_Project project_pc(ph); project_pc.InitializeExternalResources(&nstring,folder_opt && *folder_opt == 'Y' ? YES : NO); SetResult(nstring); RECOVER term = YES; ENDSEQ return(term); }
logical DLInterpreter :: LAV ( ) { logical term = NO; BEGINSEQ if ( !GetOption('h') ) { DisplayAttribute(Parm(0)); } else { // : Output("List attribute values : lav [varname|*] -Dn -Cn\n"); if ( !GetOption('d') ) LEAVESEQ // 1 2 3 4 5 6 7 8 // 12345678901234567890123456789012345678901234567890123456789012345678901234567890 Output(" The command shows the attribute value(s) for a property, parameter or local\n"); Output(" or global variable. When an variable is complex, all attribute values for the\n"); Output(" complex data type are displayed.\n"); Output(" \n"); // - Output(" varname - property path to be displayed\n"); Output(" * - display all attributes\n"); Output(" -Dn - redirect to other data source context\n"); Output(" -Cn - redirect to other collection in the hierarchy\n"); Output(" \n"); Output("Examples\n"); // : Output(" lav first_name : display 'first_name' value for selected instance\n"); Output(" lav parm1.name : display the name attribute of parameter parm1\n"); Output(" \n"); } ENDSEQ return(term); }