WebSVN – wimsdev – Diff – /trunk/wims/src/Interfaces/octave.c

  *  You should have received a copy of the GNU General Public License
  *  along with this program; if not, write to the Free Software
  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  */
-        /* Interface octave to wims */
+/* Interface octave to wims */
 /* 'Permission denied' error generated by Octave: it is trying to
  * write to .octave.history even with the -H switch. */
 /*************** Customization: change values hereafter ****************/
-        /* limit of input/output file sizes */
+/* limit of input/output file sizes */
 #define fsizelim 131072
-        /* This string tells octave to exit. */
+/* This string tells octave to exit. */
 #define quitstring "\nquit\n"
-        /* The way to print a string in the program. */
+/* The way to print a string in the program. */
 #define stringprinter "\"%s\"\n"
-        /* This is octave home page. To be kept up to date. */
+/* This is octave home page. To be kept up to date. */
 #define homepage "http://www.gnu.org/software/octave/"
-        /* String to search for answers */
+/* String to search for answers */
 char ans_str[]="ans =";
 char *nameofcmd="octave -Hf --no-line-editing";
 int precision=9;
 char header[]="split_long_rows(0)\n\
 PI=pi\n\
 Pi=pi\n\
 ";
 struct {
-    char *wname;    char *defaultval;   char *setname;
+    char *wname; char *defaultval; char *setname;
 } setups[]={
-        {"w_octave_precision",  "9",    "output_precision"}
+      {"w_octave_precision", "9", "output_precision"}
 };
-        /* names which are not allowed */
+/* names which are not allowed */
 char *illegal[]={
       "system","fopen","fclose","readdir","popen","mkdir","rmdir",
       "dir","ls","cd","chdir","more","save","load","diary",
       "fork","putenv","graw","eval",
       "scanf","exec","unlink","umask","lstat","stat","rename",
       "glob","tilde_expand","pclose","popen2","waitpid",
 };
-        /* name parts which are not allowed */
+/* name parts which are not allowed */
 char *illpart[]={
     "file", "debug", "plot"
 };
 /***************** Nothing should need change hereafter *****************/
 #define progname "octave"
 #include "common.h"
 #include "common.c"
-        /* check for security violations in command string */
+/* check for security violations in command string */
 void check_parm(char *p)
+{
     char *pp, *s;
-          /* Underscore replacement */
+ /* Underscore replacement */
     for(pp=strchr(p,'_'); pp!=NULL; pp=strchr(pp+1,'_')) {
-        if(pp==p || !isalnum(*(pp-1))) *pp='K';
+      if(pp==p || !isalnum(*(pp-1))) *pp='K';
+    }
     for(s=p;*s;s++) *s=tolower(*s);
     find_illegal(p);
+}
-        /* process and print octave output */
+/* process and print octave output */
 void output(char *p)
+{
     int i,n;
     char *pp, *pe, *pt;
     pp=strchr(p,'\n');
     for(pp++; *pp; pp=pe) {
-        pe=strchr(pp,'\n'); if(pe) *pe++=0; else pe=pp+strlen(pp);
+      pe=strchr(pp,'\n'); if(pe) *pe++=0; else pe=pp+strlen(pp);
-        if(memcmp(pp,ans_str,strlen(ans_str))==0) pp+=strlen(ans_str);
+      if(memcmp(pp,ans_str,strlen(ans_str))==0) pp+=strlen(ans_str);
-        n=strlen(pp); if(n==0) {
+      n=strlen(pp); if(n==0) {
-            puts(""); continue;
+          puts(""); continue;
-        }
+      }
-                /* make every output one-line */
+/* make every output one-line */
-        for(i=0;i<n;i++) {
+      for(i=0;i<n;i++) {
-            if(*(pp+i)=='\n' || *(pp+i)=='\%') *(pp+i)=' ';
+          if(*(pp+i)=='\n' || *(pp+i)=='\%') *(pp+i)=' ';
-        }
+      }
-          /* strip leading and trailing spaces */
+/* strip leading and trailing spaces */
-        while(isspace(*pp) && pp<pe) pp++;
+      while(isspace(*pp) && pp<pe) pp++;
-        pt=pp+strlen(pp)-1;
+      pt=pp+strlen(pp)-1;
-        while(isspace(*pt) && pt>pp) *pt--=0;
+      while(isspace(*pt) && pt>pp) *pt--=0;
-        strip_zeros(pp);
+      strip_zeros(pp);
-        puts(pp);
+      puts(pp);
+    }
+}
 void about(void)
+{
     char *p;
     prepabout(quitstring,outputfname,NULL);
     if(readabout()>0) {
-        p=strchr(aboutbuf,'\n'); if(p!=NULL) *p=0;
+      p=strchr(aboutbuf,'\n'); if(p!=NULL) *p=0;
-        p=strchr(aboutbuf,'('); if(p!=NULL) *p=0;
+      p=strchr(aboutbuf,'('); if(p!=NULL) *p=0;
-        strip_trailing_spaces(aboutbuf);
+      strip_trailing_spaces(aboutbuf);
-        printf("<a href=\"%s\">%s</a>",homepage,aboutbuf);
+      printf("<a href=\"%s\">%s</a>",homepage,aboutbuf);
+    }
+}
 char *dynsetup(char *ptr, char *end)
+{
     int i;
     char *p, *pp;
     for(i=0;i<SETUP_NO;i++) {
-        p=getenv(setups[i].wname);
+      p=getenv(setups[i].wname);
-        if(p!=NULL) for(pp=p;*pp;pp++) if(!isspace(*pp) && !isalnum(*pp)) p="";
+      if(p!=NULL) for(pp=p;*pp;pp++) if(!isspace(*pp) && !isalnum(*pp)) p="";
-        if(p==NULL || *p==0) p=setups[i].defaultval;
+      if(p==NULL || *p==0) p=setups[i].defaultval;
-        snprintf(ptr,end-ptr,"%s(%s)\n",setups[i].setname,p);
+      snprintf(ptr,end-ptr,"%s(%s)\n",setups[i].setname,p);
-        ptr+=strlen(ptr);
+      ptr+=strlen(ptr);
-        if(strstr(setups[i].wname,"octave_precision")!=NULL)
+      if(strstr(setups[i].wname,"octave_precision")!=NULL)
-          precision=atoi(p);
+        precision=atoi(p);
-        if(precision<0) precision=-precision;
+      if(precision<0) precision=-precision;
+    }
     return ptr;
+}
 int main(int argc,char *argv[])
+{
     prepare1();
     run();
     return 0;
+}

Subversion Repositories wimsdev

(root)/trunk/wims/src/Interfaces/octave.c – Rev 4326 → 7674