Subversion Repositories wimsdev

Rev

Rev 10 | Rev 3902 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10 Rev 3879
Line 44... Line 44...
44 
alias(euler,Euler)\n\
 44 
alias(euler,Euler)\n\
45 
alias(PI,Pi)\n\
 45 
alias(PI,Pi)\n\
46 
i=I\n\
 46 
i=I\n\
47 
e=exp(1)\n\
 47 
e=exp(1)\n\
48 
E=exp(1)\n\
 48 
E=exp(1)\n\
49 
{ sec(x)=return(1/cos(x)) }\n\
 49 
sec(x)=1/cos(x);\n\
50 
{ csc(x)=return(1/sin(x)) }\n\
 50 
csc(x)=1/sin(x);\n\
51 
{ lg(x) =log(x)/log(10) }\n\
 51 
lg(x)=log(x)/log(10);\n\
52 
{ log2(x) =log(x)/log(10) }\n\
 52 
log2(x)=log(x)/log(10);\n\
53 
alias(log10,lg)\n\
 53 
alias(log10,lg)\n\
54 
alias(sgn,sign)\n\
 54 
alias(sgn,sign)\n\
55 
alias(ch,cosh)\n\
 55 
alias(ch,cosh)\n\
56 
alias(sh,sinh)\n\
 56 
alias(sh,sinh)\n\
57 
alias(th,tanh)\n\
 57 
alias(th,tanh)\n\
Line 83... Line 83...
83 
};
 83 
};
84 
 
 84 
 
85 
        /* names which are not allowed */
 85 
        /* names which are not allowed */
86 
char *illegal[]={
 86 
char *illegal[]={
87 
        "alias","allocatemem","default","extern",
 87 
        "alias","allocatemem","default","extern",
88 
      "getrand","getstack","input","psdraw",
 88 
      "getrand", "setrand", "getstack","input","psdraw",
89 
      "read","system","install"
 89 
      "read","readvec","system","install", "externstr",
- 
 
 90 
      "Strexpand"
90 
};
 91 
};
91 
 
 92 
 
92 
        /* name parts which are not allowed */
 93 
        /* name parts which are not allowed */
93 
char *illpart[]={
 94 
char *illpart[]={
94 
    "plot", "write", "help"
 95 
    "plot", "write", "help"
Line 177... Line 178...
177 
char *dynsetup(char *ptr, char *end)
 178 
char *dynsetup(char *ptr, char *end)
178 
{
 179 
{
179 
    int i;
 180 
    int i;
180 
    char *p, *pp;
 181 
    char *p, *pp;
181 
 
 182 
 
182 
    snprintf(ptr,end-ptr,"\nsetrand(%u)\n",seed&(0x7FFFFFFF));
 183 
    snprintf(ptr,end-ptr,"\nsetrand(%u);\n",seed&(0x7FFFFFFF));
183 
    ptr+=strlen(ptr);
 184 
    ptr+=strlen(ptr);
184 
    for(i=0;i<SETUP_NO;i++) {
 185 
    for(i=0;i<SETUP_NO;i++) {
185 
        p=getenv(setups[i].wname);
 186 
        p=getenv(setups[i].wname);
186 
        if(p!=NULL) for(pp=p;*pp;pp++) if(!isspace(*pp) && !isalnum(*pp)) p="";
 187 
        if(p!=NULL) for(pp=p;*pp;pp++) if(!isspace(*pp) && !isalnum(*pp)) p="";
187 
        if(p==NULL || *p==0) p=setups[i].defaultval;
 188 
        if(p==NULL || *p==0) p=setups[i].defaultval;