2
|
1
|
|
2 % Sat May 22 11:43:11 JST 1993
|
|
3
|
|
4 % ?-op(900,xfy,[(&),('&&')]).
|
|
5 % ?-op(700,xfy,['<->','\=',proj]).
|
|
6 % ?-op(700,xfy,['=>','<=']).
|
|
7 % ?-op(60,fy,['~','#','<>', '@',^]).
|
|
8 % ?-op(60,fy,[*]).
|
|
9
|
10
|
10 :- use_module(library(system)).
|
|
11
|
|
12 unix(system(X)) :- system(X).
|
|
13
|
2
|
14 :-lite:[op].
|
|
15
|
|
16 :-
|
|
17 unix(system('make tmpa M=lite:')),
|
|
18 ['.tmpc'].
|
|
19
|
|
20 make :- unix(system('make tmpa M=lite:')),
|
|
21 consult(lite:['.tmpc','.tmpl']).
|
|
22
|
|
23 :- use_module(lite).
|
|
24 :- ensure_loaded(lite:[ex,kiss_ex]).
|
|
25
|
|
26 % :-start.
|
|
27 % :-display.
|
|
28 % display(Host) :- start(Host),display.
|
|
29
|
|
30 % end
|