724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
|
}
SCOPE void
rde_param_query_es (RDE_PARAM p, long int* ec, ERROR_STATE*** ev)
{
rde_stack_get (p->ES, ec, (void***) ev);
}
SCOPE void
rde_param_query_ls (RDE_PARAM p, long int* lc, long int** lv)
{
rde_stack_get (p->LS, lc, (void***) lv);
}
SCOPE Tcl_HashTable*
rde_param_query_nc (RDE_PARAM p)
{
return &p->NC;
}
SCOPE int
|
|
|
>
>
>
>
>
|
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
|
}
SCOPE void
rde_param_query_es (RDE_PARAM p, long int* ec, ERROR_STATE*** ev)
{
rde_stack_get (p->ES, ec, (void***) ev);
}
SCOPE void
rde_param_query_ls (RDE_PARAM p, long int* lc, void*** lv)
{
rde_stack_get (p->LS, lc, lv);
}
SCOPE long int
rde_param_query_lstop (RDE_PARAM p)
{
(long int) rde_stack_top (p->LS);
}
SCOPE Tcl_HashTable*
rde_param_query_nc (RDE_PARAM p)
{
return &p->NC;
}
SCOPE int
|
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
|
if (rde_param_query_st (p)) {
long int ac;
Tcl_Obj** av;
rde_param_query_ast (p, &ac, &av);
if (ac > 1) {
long int lsc;
long int* lsv;
rde_param_query_ls (p, &lsc, &lsv);
lv [1] = Tcl_NewIntObj (1 + lsv [lsc-1]);
lv [2] = Tcl_NewIntObj (rde_param_query_cl (p));
Tcl_SetObjResult (interp, Tcl_NewListObj (3, lv));
ckfree ((char*) lv);
} else if (ac == 0) {
/*
|
<
<
<
<
|
|
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
|
if (rde_param_query_st (p)) {
long int ac;
Tcl_Obj** av;
rde_param_query_ast (p, &ac, &av);
if (ac > 1) {
Tcl_Obj** lv = NALLOC (3+ac, Tcl_Obj*);
memcpy(lv + 3, av, ac * sizeof (Tcl_Obj*));
lv [0] = Tcl_NewObj ();
lv [1] = Tcl_NewIntObj (1 + rde_param_query_lstop (p));
lv [2] = Tcl_NewIntObj (rde_param_query_cl (p));
Tcl_SetObjResult (interp, Tcl_NewListObj (3, lv));
ckfree ((char*) lv);
} else if (ac == 0) {
/*
|
