Różnice między wybraną wersją a wersją aktualną.
| Nowa wersja | Poprzednia wersja | ||
|
pl:miw:miw08_ruleruntimeg:oops [2008/05/19 22:28] miw utworzono |
pl:miw:miw08_ruleruntimeg:oops [2019/06/27 15:50] (aktualna) |
||
|---|---|---|---|
| Linia 1: | Linia 1: | ||
| + | oops.pl | ||
| <code prolog> | <code prolog> | ||
| % OOPS2 - A toy production system interpreter. It uses a forward chaining, | % OOPS2 - A toy production system interpreter. It uses a forward chaining, | ||
| Linia 10: | Linia 11: | ||
| % fixed for SWI Prolog by GJN 12.2005 | % fixed for SWI Prolog by GJN 12.2005 | ||
| + | %%%%%%%%% To start program write main. or uncomment the last line in this file %%%%%%%%%%%%%%%%%%%%% | ||
| + | :- write('********To start program write main.**********'). | ||
| - | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | ||
| info(X):- | info(X):- | ||
| jpl_datums_to_array(X,Q), | jpl_datums_to_array(X,Q), | ||
| Linia 17: | Linia 19: | ||
| readF(File):- | readF(File):- | ||
| - | jpl_new('miw2.PlFileChooser',[],F), | + | jpl_new('miw2.PlFileChooser',[],F), |
| - | jpl_call(F,getFile,[],File). | + | jpl_call(F,getFile,[],File). |
| control(X,Buttons):- | control(X,Buttons):- | ||
| Linia 32: | Linia 34: | ||
| change(1,list). | change(1,list). | ||
| change(2,go). | change(2,go). | ||
| - | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | ||
| % operator definitions | % operator definitions | ||
| Linia 60: | Linia 61: | ||
| supervisor :- | supervisor :- | ||
| repeat, | repeat, | ||
| - | % write('=> '), | ||
| - | % read(X), | ||
| - | % write(echo1-X), | ||
| doit(X), | doit(X), | ||
| - | % write(echo2-X), | ||
| X = exit. | X = exit. | ||
| Linia 81: | Linia 78: | ||
| load :- | load :- | ||
| - | %write('Enter file name in single quotes (ex. ''room.okb''.): '), | ||
| readF(F), | readF(F), | ||
| consult(F). % loads a rule file into interpreter work space | consult(F). % loads a rule file into interpreter work space | ||
| Linia 198: | Linia 194: | ||
| lst :- | lst :- | ||
| fact(X), | fact(X), | ||
| - | info([X]),nl, | + | info([{X}]),nl, |
| fail. | fail. | ||
| lst :- !. | lst :- !. | ||
| Linia 206: | Linia 202: | ||
| lst(X) :- | lst(X) :- | ||
| fact(X), | fact(X), | ||
| - | info([X]),nl, | + | info([{X}]),nl, |
| fail. | fail. | ||
| lst(_) :- !. | lst(_) :- !. | ||
| Linia 216: | Linia 212: | ||
| :-dynamic(fact/1). | :-dynamic(fact/1). | ||
| + | |||
| + | % :- main. | ||
| </code> | </code> | ||
