static boolean setboundsverb (hdltreenode hparam1, boolean flsize, tyvaluerecord *vreturned) {
/*
10/6/91 dmb: shellmovewindow and shellsizewindow now return a result
*/
hdlwindowinfo hinfo;
short int1, int2;
register boolean fl = false;
if (!getwinparam (hparam1, 1, &hinfo))
return (false);
if (!getintvalue (hparam1, 2, &int1))
return (false);
flnextparamislast = true;
if (!getintvalue (hparam1, 3, &int2))
return (false);
if (hinfo != nil) { /*a window is open*/
if (flsize)
fl = shellsizewindow (hinfo, int1, int2);
else
fl = shellmovewindow (hinfo, int1, int2);
}
return (setbooleanvalue (fl, vreturned));
} /*setboundsverb*/
EmObject *listobject_slice_by_list(EmObject *ob, EmObject *slice) {
EmObject *start, *end, *step;
start = listobject_get(slice, 0);
end = listobject_get(slice, 1);
step = listobject_get(slice, 2);
EmObject *newlo = listobject_slice(ob, getintvalue(start), getintvalue(end), getintvalue(step));
DECREF(start);
DECREF(end);
DECREF(step);
return newlo;
}
static void
set_compstate(UNUSED(Param pm), HashTable ht)
{
struct compparam *cp;
Param *pp;
HashNode hn;
int i;
struct value v;
char *str;
if (!ht)
return;
for (i = 0; i < ht->hsize; i++)
for (hn = ht->nodes[i]; hn; hn = hn->next)
for (cp = compkparams,
pp = compkpms; cp->name; cp++, pp++)
if (!strcmp(hn->nam, cp->name)) {
v.isarr = v.flags = v.start = 0;
v.end = -1;
v.arr = NULL;
v.pm = (Param) hn;
if (cp->type == PM_INTEGER)
*((zlong *) cp->var) = getintvalue(&v);
else if ((str = getstrvalue(&v))) {
zsfree(*((char **) cp->var));
*((char **) cp->var) = ztrdup(str);
}
(*pp)->node.flags &= ~PM_UNSET;
break;
}
deleteparamtable(ht);
}
PROCESS_THREAD(test_send_process, ev, data)
{
static struct etimer et;
static char hello[5];
static int i;
static char *testvalue;
PROCESS_BEGIN();
etimer_set(&et,CLOCK_CONF_SECOND/100);
//event_temperature_send = process_alloc_event();
//event_uart_send = process_alloc_event();
//process_post(&test_send_process,event_uart_send,NULL);
while(1)
{
PROCESS_WAIT_EVENT_UNTIL(etimer_expired(&et));
//PROCESS_WAIT_EVENT_UNTIL(ev == event_uart_send);
if(strncmp(rxbuf,"hello",5) == 0)
{
//putstring("instruction indicated");
strcpy(rxbuf,"");
bufpos = 0;
buflen = 0;
unsigned char __code *dst = (__code unsigned char *)FRAME802154_BROADCASTADDR;
puthex(*dst);
puthex(*dst++);
testvalue = getintvalue();
strcpy(testvalue,"hello");
printf("\r\ntest value is %s, function value = %d, initial value = %d\r\n", testvalue, (char*)getintvalue(),integerValue);
//strcpy(hello,"hello");
//now I'm trying to test the basic cc2530rf functionality
/*cc2530_rf_driver.init();
if(cc2530_rf_driver.send((void*)hello,sizeof("hello")) == RADIO_TX_OK)
{
strcpy(hello,"");
putstring("some packets sent");
}
else
putstring("send failed");
*/
//edited by dognbo huang, the codes commented below is used for to analyse the ADC module working procedure
//puttemperature();
//putstring("getting temperature...\r\n");
//process_post(&sensors_test_process,event_temperature_send,NULL);
}
else
{
strcpy(rxbuf,"");
bufpos = 0;
buflen = 0;
}
etimer_reset(&et);
}
PROCESS_END();
}
EmObject *listobject_idxlist(EmObject *ob, EmObject *idxlist) {
EmListObject *newlo;
EmObject *idx;
int ii, nitems;
nitems = listobject_len(idxlist);
newlo = (EmListObject *)newlistobject(nitems);
newlo->nitems = nitems;
for (ii=0; ii<nitems; ii++) {
idx = listobject_get(idxlist, ii);
newlo->list[ii] = listobject_get(ob, getintvalue(idx));
DECREF(idx);
}
return (EmObject *)newlo;
}
int listobject_set_idxlist(EmObject *ob, EmObject *idxlist, EmObject *val) {
if (listobject_len(idxlist) != listobject_len(val)) {
ex_runtime("number of items do not match for assignment");
return 0;
}
int ii;
EmObject *idx, *item;
for (ii=0;ii<listobject_len(idxlist);ii++) {
idx = listobject_get(idxlist, ii);
item = listobject_get(val, ii);
listobject_set(ob, getintvalue(idx), item);
DECREF(idx);
DECREF(item);
}
return 1;
}
static boolean tablefunctionvalue (short token, hdltreenode hparam1, tyvaluerecord *vreturned, bigstring bserror) {
/*
bridges table.c with the language. the name of the verb is bs, its first parameter
is hparam1, and we return a value in vreturned.
we use a limited number of support routines from lang.c to get parameters and
to return values.
return false only if the error is serious enough to halt the running of the script
that called us, otherwise error values are returned through the valuerecord, which
is available to the script.
if we return false, we try to provide a descriptive error message in the
returned string bserror.
11/14/91 dmb: getcursorfunc returns address, not full path
10/3/92 dmb: commented out setcolwidthfunc. (this verb still isn't "offical")
4/2/93 dmb: added jettisonfunc
6/1/93 dmb: when vreturned is nil, return whether or not verb token must
be run in the Frontier process
5.1.5b11 dmb: fixed gotofunc silent failure
*/
register tyvaluerecord *v = vreturned;
register boolean fl = false;
WindowPtr targetwindow;
if (v == nil) { /*need Frontier process?*/
switch (token) {
case sortbyfunc:
case getcursorfunc:
case getselectionfunc:
case gotofunc:
case gotonamefunc:
case gofunc:
case getdisplaysettings:
case setdisplaysettings:
return (true);
default:
return (false);
}
}
setbooleanvalue (false, v); /*by default, table functions return false*/
switch (token) { /*these verbs don't require an open table window*/
/*
case findfunc:
if (!tablefindverb (hparam1, v))
goto error;
return (true);
*/
case validatefunc:
return (tablevalidateverb (hparam1, v));
case movefunc:
return (tablemoveverb (hparam1, v));
case copyfunc:
return (tablecopyverb (hparam1, v));
case renamefunc:
return (tablerenameverb (hparam1, v));
case moveandrenamefunc:
return (tablemoveandrenameverb (hparam1, v));
/*
case lockfunc:
case islockedfunc:
*/
case assignfunc:
return (tableassignverb (hparam1, v));
#ifdef MACVERSION
case packtablefunc:
return (tablepacktableverb (hparam1, v));
#endif
case emptytablefunc:
return (tableemptytableverb (hparam1, v));
case jettisonfunc: { /*toss an object w/out forcing it into memory. for database recovery.*/
hdlhashtable htable;
bigstring bs;
if (!getvarparam (hparam1, 1, &htable, bs)) /*name of table*/
return (false);
pushhashtable (htable);
(*v).data.flvalue = hashdelete (bs, true, false);
pophashtable ();
return (true);
}
} /*switch*/
/*all other verbs require a table window in front*/
if (!langfindtargetwindow (idtableprocessor, &targetwindow)) {
getstringlist (tableerrorlist, notableerror, bserror);
return (false);
}
shellpushglobals (targetwindow); /*following verbs assume that an table is pushed*/
(*shellglobals.gettargetdataroutine) (idtableprocessor); /*set table globals*/
switch (token) {
/*
case setcolwidthfunc: {
short colnum, colwidth;
if (!getintvalue (hparam1, 1, &colnum))
break;
flnextparamislast = true;
if (!getintvalue (hparam1, 2, &colwidth))
break;
(*v).data.flvalue = (*(**tableformatsdata).adjustcolwidthroutine) (colnum - 1, colwidth);
tablesmashdisplay ();
fl = true;
break;
}
*/
case sortbyfunc: {
bigstring bssort, bstitle;
short ixcol;
flnextparamislast = true;
if (!getstringvalue (hparam1, 1, bssort))
break;
alllower (bssort);
for (ixcol = namecolumn; ixcol <= kindcolumn; ++ixcol) {
tablegettitlestring (ixcol, bstitle);
alllower (bstitle);
if (equalstrings (bssort, bstitle)) {
hdlhashtable ht;
bigstring bs;
tablegetcursorinfo (&ht, bs, nil, nil);
(*v).data.flvalue = tablesetsortorder (ht, ixcol);
break;
}
}
fl = true;
break;
}
/*
case centertablefunc: {
boolean flcenter;
flnextparamislast = true;
if (!getbooleanvalue (hparam1, 1, &flcenter))
break;
(*v).data.flvalue = tablesetcenter (flcenter);
fl = true;
break;
}
*/
case getcursorfunc: {
hdlhashtable htable;
bigstring bs;
tyvaluerecord val;
hdlhashnode hhashnode;
if (!langcheckparamcount (hparam1, 0)) /*too many parameters were passed*/
break;
/*
tablegetcursorpath (bspath);
fl = setstringvalue (bspath, v);
*/
if (!tablegetcursorinfo (&htable, bs, &val, &hhashnode))
fl = setstringvalue (zerostring, v);
else
fl = setaddressvalue (htable, bs, v);
break;
}
case getselectionfunc:
fl = tablegetselectionverb (hparam1, v);
break;
case gotofunc: {
short row;
hdlheadrecord hsummit;
flnextparamislast = true;
if (!getintvalue (hparam1, 1, &row))
break;
if (opnthsummit (row, &hsummit)) {
opclearallmarks ();
opmoveto (hsummit);
(*v).data.flvalue = true;
}
fl = true;
break;
}
case gotonamefunc: {
hdlhashtable ht;
bigstring bs;
if (!tablegetcursorinfo (&ht, bs, nil, nil))
ht = nil;
flnextparamislast = true;
if (!getstringvalue (hparam1, 1, bs))
break;
(*v).data.flvalue = tablemovetoname (ht, bs);
fl = true;
break;
}
case gofunc: {
tydirection dir;
short count;
if (!getdirectionvalue (hparam1, 1, &dir))
break;
flnextparamislast = true;
if (!getintvalue (hparam1, 2, &count))
break;
opsettextmode (false);
if (dir == down)
dir = flatdown;
if (dir == up)
dir = flatup;
(*v).data.flvalue = opmotionkey (dir, count, false);
fl = true;
break;
}
case getdisplaysettings:
fl = tablegetdisplaysettingsverb (hparam1, v);
break;
case setdisplaysettings:
fl = tablesetdisplaysettingsverb (hparam1, v);
break;
case sortorderfunc: {
hdlhashtable ht;
bigstring bs;
short ixcol;
tablegetcursorinfo (&ht, bs, nil, nil);
tablegetsortorder (ht, &ixcol);
tablegettitlestring (ixcol, bs);
fl = setstringvalue (bs, v);
break;
}
} /*switch*/
shellupdatescrollbars (shellwindowinfo);
shellpopglobals ();
return (fl);
} /*tablefunctionvalue*/
static boolean wpfunctionvalue (short token, hdltreenode hparam1, tyvaluerecord *vreturned, bigstring bserror) {
/*
bridges wp.c with the language. the name of the verb is bs, its first parameter
is hparam1, and we return a value in vreturned.
we use a limited number of support routines from lang.c to get parameters and
to return values.
return false only if the error is serious enough to halt the running of the script
that called us, otherwise error values are returned through the valuerecord, which
is available to the script.
if we return false, we try to provide a descriptive error message in the
returned string bserror.
12/30/91 dmb: use wpinserthandle for insertfunc
5/17/92 dmb: setselectfunc now uses longs, as it should always have
6/1/93 dmb: when vreturned is nil, return whether or not verb token must
be run in the Frontier process
5.0.2b17 dmb: insert, settext get readonly handles
*/
register tyvaluerecord *v = vreturned;
register boolean fl;
WindowPtr targetwindow;
short idprocessor = idwordprocessor;
if (v == nil)
return (true);
errornum = 0;
setbooleanvalue (false, v); /*by default, wp functions return true*/
switch (token) {
/*
case packtextfunc:
if (!wppacktextverb (hparam1, v))
goto error;
return (true);
case unpacktextfunc:
if (!wpunpacktextverb (hparam1, v))
goto error;
return (true);
*/
case intextmodefunc: /*verb that don't require wp-specific target*/
case settextmodefunc:
idprocessor = -1;
break;
}
/*all other verbs require a wp window in front -- set wpengine.c globals*/
if (!langfindtargetwindow (idprocessor, &targetwindow)) {
errornum = nowperror;
goto error;
}
shellpushglobals (targetwindow);
(*shellglobals.gettargetdataroutine) (idprocessor); /*set wp globals*/
fl = false; /*default return value*/
switch (token) {
case intextmodefunc: {
WindowPtr textwindow;
if (!langcheckparamcount (hparam1, 0))
break;
fl = setbooleanvalue (langfindtargetwindow (idwordprocessor, &textwindow), v);
break;
}
case settextmodefunc: {
boolean flenter;
flnextparamislast = true;
if (!getbooleanvalue (hparam1, 1, &flenter))
break;
fl = setbooleanvalue ((*shellglobals.settextmoderoutine) (flenter), v);
break;
}
case gettextfunc: {
Handle htext;
if (!langcheckparamcount (hparam1, 0))
break;
if (!wpgettexthandle (&htext))
break;
fl = setheapvalue (htext, stringvaluetype, v);
break;
}
case settextfunc: {
Handle htext;
flnextparamislast = true;
if (!getreadonlytextvalue (hparam1, 1, &htext))
break;
if (!wpsettexthandle (htext))
break;
fl = setbooleanvalue (true, v);
break;
}
case getseltextfunc: {
/*
bigstring bs;
*/
Handle htext;
if (!langcheckparamcount (hparam1, 0))
break;
if (!wpgetseltexthandle (&htext))
break;
fl = setheapvalue (htext, stringvaluetype, v);
/*
wpgetseltext (bs);
fl = setstringvalue (bs, v);
*/
break;
}
case getdisplayfunc:
if (!langcheckparamcount (hparam1, 0)) /*too many parameters were passed*/
break;
(*v).data.flvalue = !(**wpdata).flinhibitdisplay;
fl = true;
break;
case setdisplayfunc: {
boolean fldisplay;
flnextparamislast = true;
if (!getbooleanvalue (hparam1, 1, &fldisplay))
break;
(*v).data.flvalue = wpsetdisplay (fldisplay);
fl = true;
break;
}
case getrulerfunc:
if (!langcheckparamcount (hparam1, 0))
break;
(*v).data.flvalue = wpgetruler ();
fl = true;
break;
case setrulerfunc: {
boolean flruler;
flnextparamislast = true;
if (!getbooleanvalue (hparam1, 1, &flruler))
break;
(*v).data.flvalue = wpsetruler (flruler);
fl = true;
break;
}
case getindentfunc: {
short indent;
if (!langcheckparamcount (hparam1, 0))
break;
wpgetindent (&indent);
fl = setlongvalue (indent, v);
break;
}
case setindentfunc: {
short indent;
flnextparamislast = true;
if (!getintvalue (hparam1, 1, &indent))
break;
(*v).data.flvalue = wpsetindent (indent);
fl = true;
break;
}
case getleftmarginfunc: {
short leftmargin;
if (!langcheckparamcount (hparam1, 0))
break;
wpgetleftmargin (&leftmargin);
fl = setlongvalue (leftmargin, v);
break;
}
case setleftmarginfunc: {
short leftmargin;
flnextparamislast = true;
if (!getintvalue (hparam1, 1, &leftmargin))
break;
(*v).data.flvalue = wpsetleftmargin (leftmargin);
fl = true;
break;
}
case getrightmarginfunc: {
short rightmargin;
if (!langcheckparamcount (hparam1, 0))
break;
wpgetrightmargin (&rightmargin);
fl = setlongvalue (rightmargin, v);
break;
}
case setrightmarginfunc: {
short rightmargin;
flnextparamislast = true;
if (!getintvalue (hparam1, 1, &rightmargin))
break;
(*v).data.flvalue = wpsetrightmargin (rightmargin);
fl = true;
break;
}
case setspacingfunc: {
short spacing;
flnextparamislast = true;
if (!getintvalue (hparam1, 1, &spacing))
break;
(**wpwindowinfo).selectioninfo.leading = spacing;
fl = setbooleanvalue (wpsetleading (), v);
break;
}
case setjustificationfunc: {
short justification;
flnextparamislast = true;
if (!getintvalue (hparam1, 1, &justification))
break;
(**wpwindowinfo).selectioninfo.justification = (tyjustification) (justification - 1);
fl = setbooleanvalue (wpsetjustify (), v);
break;
}
case settabfunc: {
short pos;
short type;
char fill;
if (!getintvalue (hparam1, 1, &pos))
break;
if (!getintvalue (hparam1, 2, &type)) /*1 for left tab; 2 center; etc.*/
break;
flnextparamislast = true;
if (!getcharvalue (hparam1, 3, &fill))
break;
fl = setbooleanvalue (wpsettab (pos, type - 1, fill), v);
break;
}
case cleartabsfunc: {
if (!langcheckparamcount (hparam1, 0))
break;
fl = setbooleanvalue (wpcleartabs (), v);
break;
}
case getselectfunc: {
long startsel, endsel;
wpgetselection (&startsel, &endsel);
if (!langsetlongvarparam (hparam1, 1, startsel))
return (false);
flnextparamislast = true;
if (!langsetlongvarparam (hparam1, 2, endsel))
return (false);
(*v).data.flvalue= true;
fl = true;
break;
}
case setselectfunc: {
long startsel, endsel;
if (!getlongvalue (hparam1, 1, &startsel))
break;
flnextparamislast = true;
if (!getlongvalue (hparam1, 2, &endsel))
break;
wpsetselection (startsel, endsel);
(*v).data.flvalue= true;
fl = true;
break;
}
case insertfunc: {
Handle x;
flnextparamislast = true;
if (!getreadonlytextvalue (hparam1, 1, &x))
break;
wptrimhiddentext ();
if (!wpinserthandle (x))
break;
(*v).data.flvalue = true;
fl = true;
break;
}
/*
case findfunc: {
bigstring bs;
flnextparamislast = true;
if (!getstringvalue (hparam1, 1, bs))
break;
(*v).data.flvalue = wpsearch (bs, false, false, false, false);
fl = true;
break;
}
case replacefunc:
if (!langcheckparamcount (hparam1, 0))
break;
(*v).data.flvalue = wpinsert (searchparams.bsreplace);
fl = true;
break;
*/
#if false
case writetofilefunc: {
bigstring bs;
flnextparamislast = true;
if (!getstringvalue (hparam1, 1, bs))
break;
(*v).data.flvalue = wpwritetofile (bs);
fl = true;
break;
}
case readfromfilefunc: {
bigstring bs;
flnextparamislast = true;
if (!getstringvalue (hparam1, 1, bs))
break;
(*v).data.flvalue = wpreadfromfile (bs);
fl = true;
break;
}
case readfromtextfilefunc: {
bigstring bs;
flnextparamislast = true;
if (!getstringvalue (hparam1, 1, bs))
break;
(*v).data.flvalue = wpreadfromtextfile (bs);
fl = true;
break;
}
case writetotextfilefunc: {
bigstring bs;
flnextparamislast = true;
if (!getstringvalue (hparam1, 1, bs))
break;
(*v).data.flvalue = wpwritetotextfile (bs);
fl = true;
break;
}
#endif
#ifdef flvariables
case newvariablefunc: {
bigstring bs, bsvalue;
if (!getstringvalue (hparam1, 1, bs))
break;
flnextparamislast = true;
if (!getstringvalue (hparam1, 2, bsvalue))
break;
(*v).data.flvalue = wpnewvariable (bs, bsvalue);
fl = true;
break;
}
case deletevariablefunc: {
bigstring bs;
flnextparamislast = true;
if (!getstringvalue (hparam1, 1, bs))
break;
(*v).data.flvalue = wpdeletevariable (bs);
fl = true;
break;
}
case getnthvariablefunc: {
short ix;
bigstring bs;
flnextparamislast = true;
if (!getintvalue (hparam1, 1, &ix))
break;
if (!wpgetnthvariable (ix, bs))
setemptystring (bs);
fl = setstringvalue (bs, v);
break;
}
case setvariablevaluefunc: {
bigstring bs, bsvalue;
if (!getstringvalue (hparam1, 1, bs))
break;
flnextparamislast = true;
if (!getstringvalue (hparam1, 2, bsvalue))
break;
(*v).data.flvalue = wpsetvariablevalue (bs, bsvalue);
fl = true;
break;
}
case getvariablevaluefunc: {
bigstring bs, bsvalue;
flnextparamislast = true;
if (!getstringvalue (hparam1, 1, bs))
break;
if (!wpgetvariablevalue (bs, bsvalue))
setemptystring (bsvalue);
fl = setstringvalue (bsvalue, v);
break;
}
case insertvariablefunc: {
bigstring bs;
flnextparamislast = true;
if (!getstringvalue (hparam1, 1, bs))
break;
(*v).data.flvalue = wpinsertvariable (bs);
fl = true;
break;
}
case getevalfunc:
if (!langcheckparamcount (hparam1, 0))
break;
(*v).data.flvalue = wpgetevaluate ();
fl = true;
break;
case setevalfunc: {
boolean flexpand;
flnextparamislast = true;
if (!getbooleanvalue (hparam1, 1, &flexpand))
break;
(*v).data.flvalue = wpsetevaluate (flexpand);
fl = true;
break;
}
case hilitevariablesfunc: {
boolean flhilite;
flnextparamislast = true;
if (!getbooleanvalue (hparam1, 1, &flhilite))
break;
(*v).data.flvalue = wphilitevariables (flhilite);
fl = true;
break;
}
#endif
case rulerlengthfunc:
if (!langcheckparamcount (hparam1, 0))
break;
fl = setlongvalue (wpavailwidth (), v);
break;
case gofunc: {
tydirection dir;
long dist;
if (!getdirectionvalue (hparam1, 1, &dir))
break;
flnextparamislast = true;
if (!getlongvalue (hparam1, 2, &dist))
break;
fl = setbooleanvalue (wpgo (dir, dist), v);
break;
}
case selectwordfunc:
if (!langcheckparamcount (hparam1, 0))
break;
fl = setbooleanvalue (wpselectword (), v);
break;
case selectlinefunc:
if (!langcheckparamcount (hparam1, 0))
break;
fl = setbooleanvalue (wpselectline (), v);
break;
case selectparafunc:
if (!langcheckparamcount (hparam1, 0))
break;
fl = setbooleanvalue (wpselectpara (), v);
break;
} /*switch*/
shellupdatescrollbars (shellwindowinfo);
shellsetselectioninfo (); /*force ruler update*/
shellpopglobals ();
return (fl);
error:
if (errornum != 0) /*get error string*/
getstringlist (wperrorlist, errornum, bserror);
return (false);
} /*wpfunctionvalue*/
int listobject_set_slice(EmObject *ob, EmObject *slice, EmObject *val) {
EmObject *startob, *endob, *stepob;
startob = listobject_get(slice, 0);
endob = listobject_get(slice, 1);
stepob = listobject_get(slice, 2);
int start, end, step;
start = getintvalue(startob);
end = getintvalue(endob);
step = getintvalue(stepob);
DECREF(startob);
DECREF(endob);
DECREF(stepob);
int retval = 1;
int nitems_0, nitems;
nitems_0 = listobject_len(ob);
if (start < 0)
start += nitems_0;
if (end < 0)
end += nitems_0;
if (start >= nitems_0 || end >= nitems_0) {
ex_index("slice out of list boundary");
retval = 0;
goto end_listobject_set_slice;
}
nitems = (int) (fabs((start - end)/step) + 1);
if (nitems != listobject_len(val)) {
ex_runtime("number of items do not match for assignment");
retval = 0;
goto end_listobject_set_slice;
}
EmObject *item;
int i = 0;
if (start <= end) {
for (; start <= end; start += step) {
item = listobject_get(val, i);
listobject_set(ob, start, item);
DECREF(item);
i++;
}
} else {
for (; start >= end; i -= step) {
item = listobject_get(val, i);
listobject_set(ob, start, item);
DECREF(item);
i++;
}
}
end_listobject_set_slice:
return retval;
}
static boolean launchfunctionvalue (short token, hdltreenode hparam1, tyvaluerecord *vreturned, bigstring bserror) {
/*
3/10/92 dmb: added launch.appWithDocument. check default paths
5/6/93 dmb: make sure that we return false is an oserror has occurred
*/
register tyvaluerecord *v = vreturned;
setbooleanvalue (false, v); /*assume the worst*/
oserror (noErr); /*clear now so we can check it at end*/
switch (token) { /*these verbs don't need any special globals pushed*/
#ifdef MACVERSION
case applemenufunc: {
bigstring bs;
flnextparamislast = true;
if (!getstringvalue (hparam1, 1, bs))
return (false);
(*v).data.flvalue = shellapplemenu (bs);
break;
}
#endif
case launchappfunc: {
tyfilespec fsapp;
flnextparamislast = true;
if (!getfilespecvalue (hparam1, 1, &fsapp))
return (false);
(*v).data.flvalue = launchapplication (&fsapp, nil, false);
break;
}
case launchappwithdocfunc: {
tyfilespec fsapp, fsdoc;
if (!getfilespecvalue (hparam1, 1, &fsapp))
return (false);
flnextparamislast = true;
if (!getfilespecvalue (hparam1, 2, &fsdoc))
return (false);
(*v).data.flvalue = launchapplication (&fsapp, &fsdoc, false);
break;
}
case executeresourcefunc: {
ResType type;
short id;
if (!getostypevalue (hparam1, 1, &type))
return (false);
flnextparamislast = true;
if (!getintvalue (hparam1, 2, &id))
return (false);
(*v).data.flvalue = executeresource (type, id, nil);
break;
}
case anythingfunc:
#ifdef MACVERSION
return (filelaunchanythingverb (hparam1, v));
#endif
#ifdef WIN95VERSION
#pragma message ("WIN95: anythingfunc - not yet implemented! (uses filelaunchanthingverb)")
getstringlist (langerrorlist, unimplementedverberror, bserror);
return (false);
#endif
default:
getstringlist (langerrorlist, unimplementedverberror, bserror);
return (false);
}
return (getoserror () == noErr);
} /*launchfunctionvalue*/
static boolean sysfunctionvalue (short token, hdltreenode hparam1, tyvaluerecord *vreturned, bigstring bserror) {
//
// 2006-06-28 creedon: for Mac, FSRef-ized
//
// 5.0b16 dmb: undo that change. it affect performance adversely if many threads do it.
//
// 5.0b12 dmb: in systemtaskfunc, set flresting to false to make sure we don't slow down too much
//
// 1/18/93 dmb: in systemtaskfunc, don't call processyield directly; use langbackgroundtask
//
// 8/11/92 dmb: make apprunningfunc accept a string or an ostype
//
// 5/20/92 dmb: do processyield directly on systemtaskfunc
//
// 2/12/92 dmb: do partialeventloop on systemtask & bringapptofrontfunc
//
register tyvaluerecord *v = vreturned;
setbooleanvalue (false, v); /*assume the worst*/
switch (token) { /*these verbs don't need any special globals pushed*/
case systemversionfunc: {
bigstring bs;
getsystemversionstring (bs, nil);
if (!langcheckparamcount (hparam1, 0))
return (false);
return (setstringvalue (bs, v));
}
case systemtaskfunc:
if (!langcheckparamcount (hparam1, 0)) /*shouldn't have any parameters*/
return (false);
shellsysverbwaitroutine ();
/*
if (!processyield ())
return (false);
*/
if (!langbackgroundtask (true))
return (false);
(*v).data.flvalue = true;
return (true);
case browsenetworkfunc:
#ifdef MACVERSION
return (langipcbrowsenetwork (hparam1, v));
#endif
#ifdef WIN95VERSION
#pragma message ("WIN95: browsenetworkfunc - not yet implemented!")
break;
#endif
case apprunningfunc: {
OSType appid;
bigstring bsapp;
tyvaluerecord val;
flnextparamislast = true;
/*
if (!getostypevalue (hparam1, 1, &appid))
return (false);
(*v).data.flvalue = findrunningapplication (&appid, nil);
*/
if (!getparamvalue (hparam1, 1, &val))
return (false);
if (val.valuetype == ostypevaluetype) {
setemptystring (bsapp);
appid = val.data.ostypevalue;
}
else {
if (!coercetostring (&val))
return (false);
pullstringvalue (&val, bsapp);
if (!stringtoostype (bsapp, &appid))
appid = 0;
}
(*v).data.flvalue = findrunningapplication (&appid, bsapp, nil);
return (true);
}
case frontappfunc: {
bigstring bs;
if (!langcheckparamcount (hparam1, 0))
return (false);
if (!getfrontapplication (bs, false))
return (false);
return (setstringvalue (bs, v));
}
case bringapptofrontfunc: {
bigstring bs;
flnextparamislast = true;
if (!getstringvalue (hparam1, 1, bs))
return (false);
(*v).data.flvalue = activateapplication (bs);
return (true);
}
case countappsfunc:
if (!langcheckparamcount (hparam1, 0))
return (false);
return (setlongvalue (countapplications (), v));
case getnthappfunc: {
short n;
bigstring bs;
if (!getintvalue (hparam1, 1, &n))
return (false);
if (!getnthapplication (n, bs))
setemptystring (bs);
return (setstringvalue (bs, v));
}
case getapppathfunc: {
bigstring bs;
tyfilespec fs;
flnextparamislast = true;
if ( ! getstringvalue ( hparam1, 1, bs ) )
return ( false );
if ( ! getapplicationfilespec ( bs, &fs ) ) // 2006-02-17 aradke: initializes fs even if it fails
setemptystring (bs);
return ( setfilespecvalue ( &fs, v ) );
}
case memavailfunc:
{
unsigned long memavail;
#ifdef WIN95VERSION
MEMORYSTATUS meminfo;
meminfo.dwLength = sizeof (MEMORYSTATUS);
GlobalMemoryStatus (&meminfo);
memavail = meminfo.dwAvailVirtual;
#endif
#ifdef MACVERSION
memavail = TempFreeMem();
#endif
if (!langcheckparamcount (hparam1, 0)) /*shouldn't have any parameters*/
return (false);
return (setlongvalue (memavail, v));
}
case machinefunc:
#ifdef MACVERSION
//Code change by Timothy Paustian Friday, June 16, 2000 3:13:09 PM
//Changed to Opaque call for Carbon
//Carbon only runs on PPC
#if TARGET_API_MAC_CARBON
return (setstringvalue (machinePPC, v));
#else
#if GENERATINGPOWERPC
return (setstringvalue (machinePPC, v));
#endif
#if GENERATING68K
return (setstringvalue (machine68K, v));
#endif
#endif
#endif
#ifdef WIN95VERSION
return (setstringvalue (machinex86, v));
#endif
break;
case osfunc:
return (sysos (v));
break;
#ifdef WIN95VERSION
case getenvironmentvariablefunc: {
bigstring bsenvname;
bigstring buf;
DWORD res;
flnextparamislast = true;
if (!getstringvalue (hparam1, 1, bsenvname))
return (false);
nullterminate(bsenvname);
res = GetEnvironmentVariable (stringbaseaddress(bsenvname), stringbaseaddress(buf), sizeof(buf)-2);
if (res > sizeof(buf) - 2) {
return (setbooleanvalue (false, v)); //safety valve
}
setstringlength (buf, res);
return (setstringvalue (buf, v));
}
break;
case setenvironmentvariablefunc: {
bigstring bsenvname;
bigstring bsenvval;
bigstring bserror, bserror2;
boolean res;
if (!getstringvalue (hparam1, 1, bsenvname))
return (false);
flnextparamislast = true;
if (!getstringvalue (hparam1, 2, bsenvval))
return (false);
nullterminate(bsenvname);
nullterminate(bsenvval);
res = SetEnvironmentVariable (stringbaseaddress(bsenvname), stringbaseaddress(bsenvval));
if (res) {
return (setbooleanvalue (true, v));
}
getsystemerrorstring (GetLastError(), bserror);
nullterminate(bserror);
wsprintf (bserror2, "Can't set environment variable \"%s\" to \"%s\" because %s", stringbaseaddress (bsenvname), stringbaseaddress (bsenvval), stringbaseaddress (bserror));
setstringlength (bserror2, strlen(stringbaseaddress(bserror2)));
shellerrormessage (bserror2);
return (setbooleanvalue (false, v));
}
break;
#endif
#if TARGET_API_MAC_CARBON == 1
case unixshellcommandfunc: { /*7.0b51 PBS: call shell on OS X*/
Handle hcommand, hreturn;
flnextparamislast = true;
if (!getexempttextvalue (hparam1, 1, &hcommand))
return (false);
newemptyhandle (&hreturn);
if (!unixshellcall (hcommand, hreturn)) {
disposehandle (hreturn);
disposehandle (hcommand);
return (false);
} /*if*/
disposehandle (hcommand);
return (setheapvalue (hreturn, stringvaluetype, v));
}
#endif
#ifdef WIN95VERSION
case winshellcommandfunc: {
Handle hcommand;
Handle houttext = nil;
Handle herrtext = nil;
long exitcode = 0;
tyaddress adrexitcode, adrstderr;
short ctconsumed = 1;
short ctpositional = 1;
boolean flneedexitcode, flneedstderr;
tyvaluerecord val;
if (!getexempttextvalue (hparam1, 1, &hcommand))
return (false);
if (!getoptionaladdressparam (hparam1, &ctconsumed, &ctpositional, "\x0b" "adrExitCode", &adrexitcode.ht, adrexitcode.bs))
return (false);
flnextparamislast = true;
if (!getoptionaladdressparam (hparam1, &ctconsumed, &ctpositional, "\x0b" "adrStdErr", &adrstderr.ht, adrstderr.bs))
return (false);
flneedexitcode = (adrexitcode.ht != nil) || !isemptystring (adrexitcode.bs);
flneedstderr = (adrstderr.ht != nil) || !isemptystring (adrstderr.bs);
newemptyhandle (&houttext);
if (flneedstderr)
newemptyhandle (&herrtext);
if (!winshellcall (hcommand, houttext, herrtext,
(flneedexitcode ? &exitcode : nil))) {
disposehandle (houttext);
disposehandle (herrtext);
disposehandle (hcommand);
return (false);
} /*if*/
disposehandle (hcommand);
if (flneedexitcode) {
setlongvalue (exitcode, &val);
if (!langsetsymboltableval (adrexitcode.ht, adrexitcode.bs, val))
return (false);
}
if (flneedstderr) {
setheapvalue (herrtext, stringvaluetype, &val);
if (!langsetsymboltableval (adrstderr.ht, adrstderr.bs, val))
return (false);
exemptfromtmpstack (&val);
}
return (setheapvalue (houttext, stringvaluetype, v));
}
#endif //WIN95VERSION
default:
break;
}
getstringlist (langerrorlist, unimplementedverberror, bserror);
return (false);
} /*sysfunctionvalue*/
static boolean threadfunctionvalue (short token, hdltreenode hparam1, tyvaluerecord *vreturned, bigstring bserror) {
/*
4.1b3 dmb: new verbs
4.1b5 dmb: added thread.sleep
4.1b6 dmb: make thread.sleepFor take seconds, not ticks
5.0d13 dmb: added v == nil check
*/
register tyvaluerecord *v = vreturned;
typrocessid processid;
unsigned long ticks;
if (v == nil) { /*need Frontier process?*/
switch (token) {
case evaluatefunc:
case callscriptfunc:
case sleepfunc:
case sleepforfunc:
case sleepticksfunc:
case issleepingfunc:
case wakefunc:
case killfunc:
/*
case begincriticalfunc:
case endcriticalfunc:
*/
case statsfunc:
return (true);
case existsfunc:
case getcurrentfunc:
case getcountfunc:
case getnththreadfunc:
case gettimeslicefunc:
case getdefaulttimeslicefunc:
case settimeslicefunc:
case setdefaulttimeslicefunc:
default:
return (false);
}
}
setbooleanvalue (false, v); // assume the worst
processid = getcurrentprocessid ();
if (!iscurrentapplication (processid)) {
getstringlist (langerrorlist, cantbackgroundclipboard, bserror); // ***
return (false);
}
switch (token) {
case existsfunc: {
long id;
flnextparamislast = true;
if (!getlongvalue (hparam1, 1, &id))
return (false);
return (setbooleanvalue (getprocessthread (id) != nil, v));
}
case evaluatefunc: {
Handle htext;
hdlprocessrecord hp;
hdlprocessthread hthread;
flnextparamislast = true;
if (!getexempttextvalue (hparam1, 1, &htext))
return (false);
newlyaddedprocess = nil; //process manager global
if (!processruntext (htext))
return (false);
hp = newlyaddedprocess; //process.c global; will be nil if a process wasn't just added
if ((hp == nil) || !scheduleprocess (hp, &hthread))
return (setlongvalue (0, v));
(**hp).processstartedroutine = &threadverbprocessstarted;
return (setlongvalue (getthreadid (hthread), v));
}
case callscriptfunc: {
bigstring bsscriptname;
tyvaluerecord vparams;
hdlhashtable hcontext = nil;
boolean fl;
if (!getstringvalue (hparam1, 1, bsscriptname))
return (false);
if (!getparamvalue (hparam1, 2, &vparams))
return (false);
if (vparams.valuetype != recordvaluetype)
if (!coercetolist (&vparams, listvaluetype))
return (false);
if (langgetparamcount (hparam1) > 2) {
flnextparamislast = true;
if (!gettablevalue (hparam1, 3, &hcontext))
return (false);
}
(**(getcurrentthreadglobals ())).debugthreadingcookie = token;
fl = threadcallscriptverb (bsscriptname, vparams, hcontext, v);
(**(getcurrentthreadglobals ())).debugthreadingcookie = 0;
return (fl);
}
case getcurrentfunc:
if (!langcheckparamcount (hparam1, 0))
return (false);
return (setlongvalue (getthreadid (getcurrentthread ()), v));
case getcountfunc:
if (!langcheckparamcount (hparam1, 0))
return (false);
return (setlongvalue (processthreadcount (), v));
case getnththreadfunc: {
short n;
flnextparamislast = true;
if (!getintvalue (hparam1, 1, &n))
return (false);
return (setlongvalue (getthreadid (nthprocessthread (n)), v));
}
case sleepfunc: {
hdlprocessthread hthread;
flnextparamislast = true;
if (!getthreadvalue (hparam1, 1, &hthread))
return (false);
return (setbooleanvalue (processsleep (hthread, -1), v));
}
case sleepforfunc: {
long n;
boolean fl;
flnextparamislast = true;
if (!getlongvalue (hparam1, 1, &n))
return (false);
(**(getcurrentthreadglobals ())).debugthreadingcookie = token;
fl = processsleep (getcurrentthread (), n * 60);
(**(getcurrentthreadglobals ())).debugthreadingcookie = 0;
return (setbooleanvalue (fl, v));
}
case sleepticksfunc: {
long n;
boolean fl;
flnextparamislast = true;
if (!getlongvalue (hparam1, 1, &n))
return (false);
(**(getcurrentthreadglobals ())).debugthreadingcookie = token;
fl = processsleep (getcurrentthread (), n);
(**(getcurrentthreadglobals ())).debugthreadingcookie = 0;
return (setbooleanvalue (fl, v));
}
case issleepingfunc: {
hdlprocessthread hthread;
flnextparamislast = true;
if (!getthreadvalue (hparam1, 1, &hthread))
return (false);
return (setbooleanvalue (processissleeping (hthread), v));
}
case wakefunc: {
hdlprocessthread hthread;
flnextparamislast = true;
if (!getthreadvalue (hparam1, 1, &hthread))
return (false);
return (setbooleanvalue (wakeprocessthread (hthread), v));
}
case killfunc: {
hdlprocessthread hthread;
flnextparamislast = true;
if (!getthreadvalue (hparam1, 1, &hthread))
return (false);
return (setbooleanvalue (killprocessthread (hthread), v));
}
case gettimeslicefunc:
if (!langcheckparamcount (hparam1, 0))
return (false);
getprocesstimeslice (&ticks);
return (setlongvalue (ticks, v));
case settimeslicefunc:
flnextparamislast = true;
if (!getlongvalue (hparam1, 1, (long *) (&ticks)))
return (false);
return (setbooleanvalue (setprocesstimeslice (ticks), v));
case getdefaulttimeslicefunc:
if (!langcheckparamcount (hparam1, 0))
return (false);
getdefaulttimeslice (&ticks);
return (setlongvalue (ticks, v));
case setdefaulttimeslicefunc:
flnextparamislast = true;
if (!getlongvalue (hparam1, 1, (long *) (&ticks)))
return (false);
return (setbooleanvalue (setdefaulttimeslice (ticks), v));
/*
case begincriticalfunc:
if (!langcheckparamcount (hparam1, 0))
return (false);
++fldisableyield;
return (setbooleanvalue (true, v));
case endcriticalfunc:
if (!langcheckparamcount (hparam1, 0))
return (false);
if (fldisableyield > 0) {
--fldisableyield;
(*v).data.flvalue = true;
}
return (true);
*/
case statsfunc:
return (threadstatsverb (hparam1, v));
default:
return (false);
}
} /*threadfunctionvalue*/
