-----------------------------------------------------------

   JUMAN  SAX Ȥ SICStus 3 ξư


                                       by  ʰ 
-----------------------------------------------------------
 Copyright (C) 1997  彣 󹩳 ǽ󹩳ز
                                           ʰ 
                                           ¼ 
                                           ¼ 

ʸϥƥ SAX  version 2.1  SICStus 2 Ǥʤ 3 Ǥ
ư褦ˤʤäƤޤǲϥƥ JUMAN ˤ prolog 
Υåȥ饤֥ϡSICStus 2 ˤбǤƤޤ󡥤Τ
ᡤJUMAN  SAX ȤƱ˻ȤȤˤϡäС
󤬼ˤؤ餺SICStus 2 ưͤФʤޤǤ
JUMAN  SAX ȤȤȤǤСSICStus 2 Ǥ
Ϥޤ󡥤Ǥ SICStus 3 ȤȤϡΥե
źѥåƤߤƤʤȤǤϡ
ưƤ褦Ǥ

Υѥå Juman3.1 °ΥեФѥåǤѥå
򤢤ƤեΤۤȤѲƤʤᡤ¾ΥС
ˤ⤽ΤޤŬѤǤ뤫⤷ޤ󡥥ѥåꥸȤ줿Ȥ
Ƥ⡤ʬ̼Τ鷺Ǥ顤ȤǽǤȻפޤ


diff -urN ../juman_pl.orig/juman.pl ./juman.pl
--- ../juman_pl.orig/juman.pl	Fri Nov 15 16:50:06 1996
+++ ./juman.pl	Wed Apr 30 22:54:52 1997
@@ -8,6 +8,8 @@
 /*  Dept. of Electrical Engineering, Kyoto University   */
 /********************************************************/
 
+:- use_module(library(system)).
+
 :- module(juman, [
 	juman_start_server/0,
 	juman_kill_server/0,
@@ -44,9 +46,12 @@
 	( user:juman_server_port(Port) ; juman_default_server_port(Port) ),
 	( user:juman_server_path(Path) ; juman_default_server_path(Path) ),
 	juman_server_program(Host, Port, Path, Command),
-	unix(shell(Command)), !.
+	system:shell(Command), !.
+%	unix(shell(Command)), !.
 
 juman_server_program(local, Port, Path, Command) :- !,
+	all_concat_atoms(['(',Path,' ',Port,'&)'], Command).
+juman_server_program(localhost, Port, Path, Command) :- !,
 	all_concat_atoms(['(',Path,' ',Port,'&)'], Command).
 juman_server_program(Host, Port, Path, Command) :- current_host(Host), !,
 	all_concat_atoms(['(',Path,' ',Port,'&)'], Command).
diff -urN ../juman_pl.orig/socket.pl ./socket.pl
--- ../juman_pl.orig/socket.pl	Fri Nov 15 16:50:06 1996
+++ ./socket.pl	Sat Feb 15 08:51:49 1997
@@ -6,16 +6,18 @@
 /*  Dept. of Electrical Engineering, Kyoto University  */
 /*******************************************************/
 
+:- use_module(library(sockets)).
+
 %   socket_open(+Host, +Address, -Stream)
 %   ۥ Host Υɥ쥹 Address ΥåȤ򥪡ץ󤷡
 %   Υȥ꡼ Stream Ȥ롥
 %
 socket_open(local, Address, Str) :- !,
-	socket('AF_UNIX', Socket),
-	socket_connect(Socket, 'AF_UNIX'(Address), Str).
+	sockets:socket('AF_UNIX', Socket),
+	sockets:socket_connect(Socket, 'AF_UNIX'(Address), Str).
 socket_open(Host, Address, Str) :-
-	socket('AF_INET', Socket),
-	socket_connect(Socket, 'AF_INET'(Host,Address), Str).
+	sockets:socket('AF_INET', Socket),
+	sockets:socket_connect(Socket, 'AF_INET'(Host,Address), Str).
 
 %   socket_close(+Stream)
 %   åȡȥ꡼ Stream 򥯥롥
