void IF_execCSvl(void) { char * f; f = getString(); if (f != NULL) { if (IF_execVar(f)) putBool(TRUE); else putBool(FALSE); free((void*)f); } else putBool(FALSE); }
void IF_statusTask(void) { long V; int i; if (getParLong(&V)) { i = V -1; if (TASKp[i] != 0) { if (kill(TASKp[i],SIGUSR1)==0) { putBool(TRUE); return; } } } putBool(FALSE); }
static void exec_Var(void * A) { void * C; struct Var * N; void (*f) (void); N = (struct Var*) A; /* printf("executeVar %s %d !!\n",N->l, N->t);*/ switch(N->t) { case VT_B : putBool(N->b); break; case VT_C : putString((char*)N->a); break; case VT_N : if (nbOnStack(N->a) > 0) { C = duplicateNum(N->a,1); N->a = C; } putVar(N->a); break; case VT_L : f = (PFV)(N->a); f(); break; case VT_F : execFctV(N->a); break; default : /* VT_I */ break; } }
void IF_IsError(void) { if (LASTERR) putBool(TRUE); else putBool(FALSE); }