1411 |
((probe-file (tk-conc si::*lib-directory* "gcl-tk/gcltksrv"))) |
((probe-file (tk-conc si::*lib-directory* "gcl-tk/gcltksrv"))) |
1412 |
(t (error "Must setenv GCL_TK_SERVER "))))) |
(t (error "Must setenv GCL_TK_SERVER "))))) |
1413 |
(let ((pid (if host -1 (si::getpid))) |
(let ((pid (if host -1 (si::getpid))) |
1414 |
(tk-socket (si::open-named-socket 0 nil)) |
(tk-socket (si::open-named-socket 0)) |
1415 |
) |
) |
1416 |
(cond ((not host) (setq hostid loopback)) |
(cond ((not host) (setq hostid loopback)) |
1417 |
(host (setq hostid (si::hostname-to-hostid (si::gethostname))))) |
(host (setq hostid (si::hostname-to-hostid (si::gethostname))))) |
1418 |
(or hostid (error "Can't find my address")) |
(or hostid (error "Can't find my address")) |
1419 |
(setq tk-socket (si::open-named-socket 0 nil)) |
(setq tk-socket (si::open-named-socket 0)) |
1420 |
(if (pathnamep gcltksrv) (setq gcltksrv (namestring gcltksrv))) |
(if (pathnamep gcltksrv) (setq gcltksrv (namestring gcltksrv))) |
1421 |
(let ((command |
(let ((command |
1422 |
(tk-conc gcltksrv " " hostid " " |
(tk-conc gcltksrv " " hostid " " |