make_setup.pl

来自「SRI international 发布的OAA框架软件」· PL 代码 · 共 29 行

:- [library(tcp)].
:- [library(files)].

runtime_entry(start) :- go.

go :-
	absolute_file_name('~/setup.pl', Setup),
	(tcp_listen_at_port(3333, Host) ->
	   true
	| format('TCP listen failed, could not lookup hostname.~n',[]),
	  fail
	),

	(can_open_file(Setup, read) ->
	   format('"~p" exists, appending new info.~n',[Setup]),
	   open(Setup, append, Stream),
	   set_output(Stream)
        |
	   format('Creating "~p".~n',[Setup]),
	   tell(Setup)
	),
	format('%%%% SETUP FILE FOR OAA %%%%%%%~n',[]),
	format('oaa_host(''~p'').~n', [Host]),
	format('oaa_port(~p).~n',   [3333]),
	told,
	format('Successful.~n~n',[]), !.