Różnice między wybraną wersją a wersją aktualną.
| Both sides previous revision Poprzednia wersja Nowa wersja | Poprzednia wersja | ||
|
pl:miw:miw08_ruleruntimeg:xshell [2008/05/19 22:37] miw |
pl:miw:miw08_ruleruntimeg:xshell [2019/06/27 15:50] (aktualna) |
||
|---|---|---|---|
| Linia 22: | Linia 22: | ||
| % READSTR.PL, READNUM.PL, and GETYESNO.PL from | % READSTR.PL, READNUM.PL, and GETYESNO.PL from | ||
| % Chapter 5. | % Chapter 5. | ||
| - | % | + | |
| + | |||
| %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | ||
| Linia 34: | Linia 36: | ||
| info(X):- | info(X):- | ||
| jpl_datums_to_array(X,Q), | jpl_datums_to_array(X,Q), | ||
| - | jpl_new('miw2.Info',[Q],D). | + | jpl_new('miw2.Info',[Q],_). |
| myQuestion(Question,Choices,Response):- | myQuestion(Question,Choices,Response):- | ||
| Linia 103: | Linia 105: | ||
| finish_xshell :- | finish_xshell :- | ||
| retractall(known(_,_)), | retractall(known(_,_)), | ||
| - | % writeline('Do you want to conduct another consultation?'), | ||
| yes(['Do you want to conduct another consultation?']), | yes(['Do you want to conduct another consultation?']), | ||
| !, | !, | ||
| Linia 124: | Linia 125: | ||
| prop(Property) :- xkb_question(Property,Question,_,_), | prop(Property) :- xkb_question(Property,Question,_,_), | ||
| - | % writeline(Question), | ||
| yes(Question), | yes(Question), | ||
| !, | !, | ||
| Linia 152: | Linia 152: | ||
| parm(Parameter,m,Value) :- xkb_menu(Parameter,Header,Choices,_), | parm(Parameter,m,Value) :- xkb_menu(Parameter,Header,Choices,_), | ||
| length(Choices,L), | length(Choices,L), | ||
| - | % writeline(Header), | ||
| - | % enumerate(Choices,1), | ||
| myQuestion(Header,Choices,N), | myQuestion(Header,Choices,N), | ||
| readnumber_in_range(1,L,N), | readnumber_in_range(1,L,N), | ||
| Linia 163: | Linia 161: | ||
| % writeline(Question), | % writeline(Question), | ||
| question(Response,Question), | question(Response,Question), | ||
| - | % readatom(Response), | ||
| assert(known(Parameter,Response)), | assert(known(Parameter,Response)), | ||
| !, | !, | ||
| Linia 169: | Linia 166: | ||
| parm(Parameter,n,Value) :- xkb_question(Parameter,Question,_,_), | parm(Parameter,n,Value) :- xkb_question(Parameter,Question,_,_), | ||
| - | % writeline(Question), | ||
| - | % readnumber(Response), | ||
| question(Response,Question), | question(Response,Question), | ||
| assert(known(Parameter,Response)), | assert(known(Parameter,Response)), | ||
| Linia 216: | Linia 211: | ||
| known(identification,RULE), | known(identification,RULE), | ||
| clause(xkb_identify(RULE,_),Condition), | clause(xkb_identify(RULE,_),Condition), | ||
| - | info(['Rule ', | + | info([ |
| - | % RULE, | + | % info([{RULE}]), |
| - | ': reach this conclusion IF']), | + | 'Reach this conclusion IF']), |
| explain_aux(Condition), | explain_aux(Condition), | ||
| wait, !. | wait, !. | ||
| Linia 428: | Linia 423: | ||
| xkb_text(N,Text2), | xkb_text(N,Text2), | ||
| append(Text2,Text1,Text). | append(Text2,Text1,Text). | ||
| - | |||
| - | % | ||
| - | % writeline(+Text) | ||
| - | % Prints Text consisting of a string or a list of | ||
| - | % strings, with each string followed by a new line. | ||
| - | % | ||
| - | |||
| - | % writeline([]) :- !. | ||
| - | % writeline([First|Rest]) :- | ||
| - | % !, | ||
| - | % info([First, | ||
| - | % Rest]). | ||
| - | % writeline(String) :- | ||
| - | % write(String), | ||
| - | % . | ||
| - | |||
| </code> | </code> | ||
