Rev 10 | Rev 7674 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 10 | Rev 3898 | ||
|---|---|---|---|
| Line 28... | Line 28... | ||
| 28 | /* This is m2 home page. To be kept up to date. */ |
28 | /* This is m2 home page. To be kept up to date. */ |
| 29 | #define homepage "http://www.math.uiuc.edu/Macaulay2/" |
29 | #define homepage "http://www.math.uiuc.edu/Macaulay2/" |
| 30 | 30 | ||
| 31 | char *nameofcmd="M2"; |
31 | char *nameofcmd="M2"; |
| 32 | int precision=20; /* default */ |
32 | int precision=20; /* default */ |
| 33 | char header[]="\ |
33 | char header[]="Thing#{Standard,BeforePrint} = toString; \ |
| - | 34 | scan(methods {Standard,AfterPrint}, (a,b) -> installMethod(a,b,identity));\ |
|
| 34 | "; |
35 | "; |
| 35 | 36 | ||
| 36 | struct { |
37 | struct { |
| 37 | char *wname; char *defaultval; char *setname; |
38 | char *wname; char *defaultval; char *setname; |
| 38 | } setups[]={ |
39 | } setups[]={ |
| Line 41... | Line 42... | ||
| 41 | 42 | ||
| 42 | /* names which are not allowed */ |
43 | /* names which are not allowed */ |
| 43 | char *illegal[]={ |
44 | char *illegal[]={ |
| 44 | "exec","run","fork", |
45 | "exec","run","fork", |
| 45 | "input", /* "load","needs", */ |
46 | "input", /* "load","needs", */ |
| 46 | "tmpname", |
47 | "tmpname", "path", "processID", |
| 47 | "getWWW", |
48 | "getWWW", "getenv", |
| - | 49 | "<<", "close" |
|
| 48 | }; |
50 | }; |
| 49 | 51 | ||
| 50 | /* name parts which are not allowed */ |
52 | /* name parts which are not allowed */ |
| 51 | char *illpart[]={ |
53 | char *illpart[]={ |
| 52 | }; |
54 | }; |
| Line 114... | Line 116... | ||
| 114 | 116 | ||
| 115 | cmdparm=""; prepabout(quitstring,"/dev/null",outputfname); |
117 | cmdparm=""; prepabout(quitstring,"/dev/null",outputfname); |
| 116 | if(readabout()>0) { |
118 | if(readabout()>0) { |
| 117 | p=strchr(aboutbuf,'\n'); if(p!=NULL) *p=0; |
119 | p=strchr(aboutbuf,'\n'); if(p!=NULL) *p=0; |
| 118 | strip_trailing_spaces(aboutbuf); |
120 | strip_trailing_spaces(aboutbuf); |
| 119 | printf("< |
121 | printf("<a href=\"%s\">%s</a>",homepage,aboutbuf); |
| 120 | } |
122 | } |
| 121 | } |
123 | } |
| 122 | 124 | ||
| 123 | char *dynsetup(char *ptr, char *end) |
125 | char *dynsetup(char *ptr, char *end) |
| 124 | { |
126 | { |