C++ (Cpp) xlsenterの例

コード例 #1

ファイル: xlsym.c プロジェクト: CARV-ICS-FORTH/scoop

xlsinit(void)
{
NODE *array,*p;
obarray = xlmakesym("*OBARRAY*",1);
array = newvector(199);
((obarray)->n_info.n_xsym.xsy_value = (array));
p = consa(obarray);
((array)->n_info.n_xvect.xv_data[hash("*OBARRAY*",199)] = (p));
s_unbound = xlsenter("*UNBOUND*");
((s_unbound)->n_info.n_xsym.xsy_value = (s_unbound));
}

コード例 #2

ファイル: xlsym.c プロジェクト: 8l/csolve

/* xlsinit - symbol initialization routine */
void xlsinit(void)
{
    NODE *array,*p;

    /* initialize the obarray */
    obarray = xlmakesym("*OBARRAY*",STATIC);
    array = newvector(HSIZE);
    setvalue(obarray,array);

    /* add the symbol *OBARRAY* to the obarray */
    p = consa(obarray);
    setelement(array,hash("*OBARRAY*",HSIZE),p);

    /* enter the unbound symbol indicator */
    s_unbound = xlsenter("*UNBOUND*");
    setvalue(s_unbound,s_unbound);
}

コード例 #3

ファイル: xlsubr.c プロジェクト: CARV-ICS-FORTH/scoop

xlsubr(char *sname, int type, NODE *(*subr) ())
{
NODE *sym;
sym = xlsenter(sname);
((sym)->n_info.n_xsym.xsy_value = (cvsubr(subr,type)));
}