[BACK]Return to oxclient.m CVS log [TXT][DIR] Up to [local] / OpenXM / src / ox_math / lib
File: [local] / OpenXM / src / ox_math / lib / oxclient.m (download)

Revision 1.1, Thu Jan 20 15:00:02 2000 UTC (24 years, 4 months ago) by ohara
Branch: MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_20000124, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9 

I add oxclient.m

(* $OpenXM: OpenXM/src/ox_math/lib/oxclient.m,v 1.1 2000/01/20 15:00:02 ohara Exp $ *)

Install[Environment["OpenXM_HOME"] <> "/bin/math2ox"]

asirRtostr[x_] := Module[
	{list = {}, i, s},
	If[ x[[0]] === List,
	  list = Append[list, " [ " ];
	  If[ Length[x] > 0 ,
		list = Append[list, asirRtostr[ x[[1] ] ] ];
		For[i=2, i<= Length[x], i++, 
		   list = Append[list, " , "];
		   list = Append[list, asirRtostr[ x[[i]] ] ]
			]
		  ];
	  list = Append[list, " ] "];
	  s = StringJoin[list],
	  s = ToString[x, InputForm]
		]
	]

(* The following functions are incomplete. *)
ssh[prog_String, host_String, data_Integer, control_Integer] := Module[
	{cmd, list},
	cmd = StringJoin[{
		"ssh -f ", host, " ", Environment["OpenXM_HOME"], 
		"/bin/oxlog /usr/X11R6/bin/xterm -icon -e ",
		Environment["OpenXM_HOME"], "/bin/ox -insecure -ox ",
		Environment["OpenXM_HOME"], "/bin/", prog, 
		" -data ", ToString[data], " -control ", ToString[control], 
		" -host ", host}];
	Run[cmd]
	]

oxStartRemoteSSH[prog_String, host_String] := Module[
	{},
	ssh[prog, host, 1200, 1300];
	OxStartInsecure[host, 1200, 1300]
]