Subversion Repositories wimsdev

Rev

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

Rev 3879 Rev 3902
Line 37... Line 37...
37 
 
 37 
 
38 
char *nameofcmd="gp";
 38 
char *nameofcmd="gp";
39 
char *gprcenv="GPRC";
 39 
char *gprcenv="GPRC";
40 
char *gprc="../.gprc";
 40 
char *gprc="../.gprc";
41 
char header[]="default(output,0)\n\
 41 
char header[]="default(output,0)\n\
- 
 
 42 
default(secure,1)\n\
42 
alias(ln,log)\n\
 43 
alias(ln,log)\n\
43 
alias(pi,Pi)\n\
 44 
alias(pi,Pi)\n\
44 
alias(euler,Euler)\n\
 45 
alias(euler,Euler)\n\
45 
alias(PI,Pi)\n\
 46 
alias(PI,Pi)\n\
46 
i=I\n\
 47 
i=I\n\
Line 82... Line 83...
82 
      {"w_pari_serieslength",   "8",    "\\ps "}
 83 
      {"w_pari_serieslength",   "8",    "\\ps "}
83 
};
 84 
};
84 
 
 85 
 
85 
        /* names which are not allowed */
 86 
        /* names which are not allowed */
86 
char *illegal[]={
 87 
char *illegal[]={
87 
        "alias","allocatemem","default","extern",
 - 
 
88 
      "getrand", "setrand", "getstack","input","psdraw",
 - 
 
89 
      "read","readvec","system","install", "externstr",
 - 
 
90 
      "Strexpand"
 - 
 
91 
};
 88 
};
92 
 
 89 
 
93 
        /* name parts which are not allowed */
 90 
        /* name parts which are not allowed */
94 
char *illpart[]={
 91 
char *illpart[]={
95 
    "plot", "write", "help"
 92 
    "plot", "write", "help"
Line 169... Line 166...
169 
 
 166 
 
170 
    prepabout("\\v\nquit\n",outputfname,NULL);
 167 
    prepabout("\\v\nquit\n",outputfname,NULL);
171 
    if(readabout()>0) {
 168 
    if(readabout()>0) {
172 
        p=strchr(aboutbuf,'\n'); if(p!=NULL) *p=0;
 169 
        p=strchr(aboutbuf,'\n'); if(p!=NULL) *p=0;
173 
        strip_trailing_spaces(aboutbuf);
 170 
        strip_trailing_spaces(aboutbuf);
174 
        printf("<A HREF=\"%s\">%s</A>",homepage,aboutbuf);
 171 
        printf("<a href=\"%s\">%s</a>",homepage,aboutbuf);
175 
    }
 172 
    }
176 
}
 173 
}
177 
 
 174 
 
178 
char *dynsetup(char *ptr, char *end)
 175 
char *dynsetup(char *ptr, char *end)
179 
{
 176 
{