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);
}
