[BACK]Return to oxclient.m2 CVS log [TXT][DIR] Up to [local] / OpenXM / src / Macaulay2 / m2

Diff for /OpenXM/src/Macaulay2/m2/oxclient.m2 between version 1.1 and 1.5

version 1.1, 2000/09/21 09:20:53 version 1.5, 2006/10/27 01:38:17
Line 1 
Line 1 
 ID=" $OpenXM$ "  ID=" $OpenXM: OpenXM/src/Macaulay2/m2/oxclient.m2,v 1.4 2000/12/17 08:31:39 takayama Exp $ "
   
 load "oxcommon.m2"  load "oxcommon.m2"
   
Line 58  oxStartSession = (s) -> (
Line 58  oxStartSession = (s) -> (
      comm = toString "xterm -geometry 80x25-0-0 -e  ox -ox " | s | " -data " |       comm = toString "xterm -geometry 80x25-0-0 -e  ox -ox " | s | " -data " |
                       dPort | " -control " | cPort |                        dPort | " -control " | cPort |
                       " -reverse -host localhost" | " -pass " | PASS | " &" ;                        " -reverse -host localhost" | " -pass " | PASS | " &" ;
      comm = makeLaunchCommand(true,"localhost","mike","localhost",       comm = makeLaunchCommand(true,"localhost",getenv("USER"),"localhost",
                               s,dPort,cPort,PASS);                                s,dPort,cPort,PASS);
      print comm;       print comm;
      if (run (comm) != 0)       if (run (comm) != 0)
Line 208  oxPrimDecomp = method()
Line 208  oxPrimDecomp = method()
 oxPrimDecomp(OXSESSION, Ideal) := (F, I) -> (  oxPrimDecomp(OXSESSION, Ideal) := (F, I) -> (
      -- translate to asir notation       -- translate to asir notation
      s := toString I;       s := toString I;
      s = "[" | substring(s,6,#s-7) | "]";       s = "[" | substring(s,7,#s-8) | "]";
      v = toString gens ring I;       v = toString gens ring I;
      v = "[" | substring(v,1,#v-2) | "]";       v = "[" | substring(v,1,#v-2) | "]";
      s = "primadec(" | s | "," | v | ");";       s = "primadec(" | s | "," | v | ");";
Line 221  oxPrimDecomp(OXSESSION, Ideal) := (F, I) -> (
Line 221  oxPrimDecomp(OXSESSION, Ideal) := (F, I) -> (
 oxPrimDecomp(OXSESSION, Ideal) := (F, I) -> (  oxPrimDecomp(OXSESSION, Ideal) := (F, I) -> (
      -- translate to asir notation       -- translate to asir notation
      s := toString I;       s := toString I;
      s = "[" | substring(s,6,#s-7) | "]";       s = "[" | substring(s,7,#s-8) | "]";
      v = toString gens ring I;       v = toString gens ring I;
      v = "[" | substring(v,1,#v-2) | "]";       v = "[" | substring(v,1,#v-2) | "]";
      s = "primadec(" | s | "," | v | ");";       s = "primadec(" | s | "," | v | ");";
Line 241  oxPrimDecomp(OXSESSION, Ideal) := (F, I) -> (
Line 241  oxPrimDecomp(OXSESSION, Ideal) := (F, I) -> (
   
 makeLaunchCommand=(UseSSH,MyHostName,RemoteLoginName,RemoteHostName,OxServerName,dPort,cPort,PASS)->(  makeLaunchCommand=(UseSSH,MyHostName,RemoteLoginName,RemoteHostName,OxServerName,dPort,cPort,PASS)->(
      commXterm := toString " xterm -geometry 80x25-0-0 " ;       commXterm := toString " xterm -geometry 80x25-0-0 " ;
      commOX :=toString " -e ox -ox " | OxServerName |       commOX :=toString " -e ox -ox " |
                  getenv("OpenXM_HOME") | "/bin/" |
                  OxServerName |
                        " -data " | dPort |                         " -data " | dPort |
                        " -control " | cPort |                         " -control " | cPort |
                        " -reverse " |                         " -reverse " |
                        " -host " | RemoteHostName |                         " -host " | RemoteHostName |
                        " -pass " | PASS   | "  ";                         " -pass " | PASS   | "  ";
      if (UseSSH) then (       if (UseSSH) then (
           comm = toString "ssh -f -l " | RemoteLoginName | " " |            comm = toString "ssh -f -X -A -l " | RemoteLoginName | " " |
                            RemoteHostName |                             RemoteHostName |
                            " '" | commXterm |                             " '" | commXterm |
                            --uncomment when X11 forwarding is not allowed.                             --uncomment when X11 forwarding is not allowed.
                            " -display " | MyHostName | ":0 " |                             -- " -display " | MyHostName | ":0 " |
                            commOX | "'  >/dev/null ";                             commOX | "'  >/dev/null ";
           )            )
      else  (       else  (
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>