[BACK]Return to shell.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Kan

Diff for /OpenXM/src/kan96xx/Kan/shell.c between version 1.15 and 1.17

version 1.15, 2012/10/29 02:51:41 version 1.17, 2020/10/06 11:33:47
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/shell.c,v 1.14 2005/07/03 11:08:54 ohara Exp $ */  /* $OpenXM: OpenXM/src/kan96xx/Kan/shell.c,v 1.16 2013/09/20 06:02:19 takayama Exp $ */
 #include <stdio.h>  #include <stdio.h>
 #include <string.h>  #include <string.h>
 #include <sys/types.h>  #include <sys/types.h>
Line 64  void KoxShellHelp(char *key,FILE *fp) {
Line 64  void KoxShellHelp(char *key,FILE *fp) {
     for (i=0; strcmp(keys[i],"@@@@gatekeeper") != 0; i++) {      for (i=0; strcmp(keys[i],"@@@@gatekeeper") != 0; i++) {
       fprintf(fp,"%s\n",keys[i]);        fprintf(fp,"%s\n",keys[i]);
       KoxShellHelp(keys[i],fp);        KoxShellHelp(keys[i],fp);
       fprintf(fp,"\n",keys[i]);        fprintf(fp,"%s\n",keys[i]);
     }      }
     return;      return;
   }    }
Line 84  void KoxShellHelp(char *key,FILE *fp) {
Line 84  void KoxShellHelp(char *key,FILE *fp) {
     s[1] = "cmdname arg1 arg2 ... ";      s[1] = "cmdname arg1 arg2 ... ";
     s[2] = "Example 1: /afo (Hello! ) def [(cat) (stringIn://afo)] oxshell";      s[2] = "Example 1: /afo (Hello! ) def [(cat) (stringIn://afo)] oxshell";
     s[3] = "Example 2: [(polymake) (stringInOut://afo.poly) (FACETS)] oxshell";      s[3] = "Example 2: [(polymake) (stringInOut://afo.poly) (FACETS)] oxshell";
     s[4] = NULL;      s[4] = "A temporary file afo.poly* with the contents of the variable afo.poly is generated under $TMP and \"polymake $TMP FACETS\" will be executed. cf. kan96xx/trans/doPolymake.sm1, Doc/oxshell.oxw, Doc/changelog-ja.tex";
       s[5] = "Example 3: [(ls) (-l) (>) (stringOut://ff)] oxshell";
       s[6] = NULL;
   }else if (strcmp(key,"redirect")==0) {    }else if (strcmp(key,"redirect")==0) {
     s[0] = "The following redirect operators are implemented.";      s[0] = "The following redirect operators are implemented.";
     s[1] = "< > 2>";      s[1] = "< > 2>";
Line 197  static int mysetenv(char *name, char *value, int overw
Line 199  static int mysetenv(char *name, char *value, int overw
   
 /* bug on Solaris. It does not unsetenv.  /* bug on Solaris. It does not unsetenv.
    libc4, libc5, glibc. It does unsetenv. */     libc4, libc5, glibc. It does unsetenv. */
 static myunsetenv(char *name) {  static int myunsetenv(char *name) {
   return(putenv(name));    return(putenv(name));
 }  }
   
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.17
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>