Subversion Repositories wimsdev

Rev

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

Rev 10 Rev 3901
Line 33... Line 33...
33 
        /* String to search for answers */
 33 
        /* String to search for answers */
34 
char ans_str[]="ans =";
 34 
char ans_str[]="ans =";
35 
 
 35 
 
36 
char *nameofcmd="octave -Hf --no-line-editing";
 36 
char *nameofcmd="octave -Hf --no-line-editing";
37 
int precision=9;
 37 
int precision=9;
38 
char header[]="split_long_rows=0\n\
 38 
char header[]="split_long_rows(0)\n\
39 
page_screen_output=0\n\
 39 
page_screen_output(0)\n\
40 
function y=sh(x) y=sinh(x); endfunction\n\
 40 
function y=sh(x) y=sinh(x); endfunction\n\
41 
function y=ch(x) y=cosh(x); endfunction\n\
 41 
function y=ch(x) y=cosh(x); endfunction\n\
42 
function y=th(x) y=tanh(x); endfunction\n\
 42 
function y=th(x) y=tanh(x); endfunction\n\
43 
function y=ln(x) y=log(x); endfunction\n\
 43 
function y=ln(x) y=log(x); endfunction\n\
44 
function y=lg(x) y=log10(x); endfunction\n\
 44 
function y=lg(x) y=log10(x); endfunction\n\
Line 134... Line 134...
134 
    prepabout(quitstring,outputfname,NULL);
 134 
    prepabout(quitstring,outputfname,NULL);
135 
    if(readabout()>0) {
 135 
    if(readabout()>0) {
136 
        p=strchr(aboutbuf,'\n'); if(p!=NULL) *p=0;
 136 
        p=strchr(aboutbuf,'\n'); if(p!=NULL) *p=0;
137 
        p=strchr(aboutbuf,'('); if(p!=NULL) *p=0;
 137 
        p=strchr(aboutbuf,'('); if(p!=NULL) *p=0;
138 
        strip_trailing_spaces(aboutbuf);
 138 
        strip_trailing_spaces(aboutbuf);
139 
        printf("<A HREF=\"%s\">%s</A>",homepage,aboutbuf);
 139 
        printf("<a href=\"%s\">%s</a>",homepage,aboutbuf);
140 
    }
 140 
    }
141 
}
 141 
}
142 
 
 142 
 
143 
char *dynsetup(char *ptr, char *end)
 143 
char *dynsetup(char *ptr, char *end)
144 
{
 144 
{
Line 146... Line 146...
146 
    char *p, *pp;
 146 
    char *p, *pp;
147 
    for(i=0;i<SETUP_NO;i++) {
 147 
    for(i=0;i<SETUP_NO;i++) {
148 
        p=getenv(setups[i].wname);
 148 
        p=getenv(setups[i].wname);
149 
        if(p!=NULL) for(pp=p;*pp;pp++) if(!isspace(*pp) && !isalnum(*pp)) p="";
 149 
        if(p!=NULL) for(pp=p;*pp;pp++) if(!isspace(*pp) && !isalnum(*pp)) p="";
150 
        if(p==NULL || *p==0) p=setups[i].defaultval;
 150 
        if(p==NULL || *p==0) p=setups[i].defaultval;
151 
        snprintf(ptr,end-ptr,"%s=%s\n",setups[i].setname,p);
 151 
        snprintf(ptr,end-ptr,"%s(%s)\n",setups[i].setname,p);
152 
        ptr+=strlen(ptr);
 152 
        ptr+=strlen(ptr);
153 
        if(strstr(setups[i].wname,"octave_precision")!=NULL)
 153 
        if(strstr(setups[i].wname,"octave_precision")!=NULL)
154 
          precision=atoi(p);
 154 
          precision=atoi(p);
155 
        if(precision<0) precision=-precision;
 155 
        if(precision<0) precision=-precision;
156 
    }
 156 
    }