[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.4

version 1.1, 2000/09/21 09:20:53 version 1.4, 2000/12/17 08:31:39
Line 1 
Line 1 
 ID=" $OpenXM$ "  ID=" $OpenXM: OpenXM/src/Macaulay2/m2/oxclient.m2,v 1.3 2000/12/14 05:28:05 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 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.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>