latest update.... now installed readlists and make to
auto load... but here is the error output... how do
i resolve it? ( is it the position of the code..ie out
of place?)
make_all works at present...
undefined lists error
......................................................
1st trial ->
: load 4mybot.p
;;; LOADING 4mybot.p
;;; DECLARING VARIABLE lists
;;; MISHAP - New list starts before old one finished
;;; INVOLVING: [ " then listread ( ) else readitem (
) endif enduntil
;;; % ] -> database ; [ is animal ] [ dog is
animal ] [ this is a test
;;; ] [ this is another test doc , my boy ] <
undef list > < undef
;;; list >
;;; FILE : c:\program files\poplog\15.5\4mybot.p
LINE NUMBER: 32
;;; DOING : make_all_lists read_lists_in_file
loadcompiler pop_setpop_comp
;;; iler runproc runproc
Setpop
................................................
2nd trial ->
;;; MISHAP - New list starts before old one finished
;;; INVOLVING: [ " then listread ( ) else readitem (
) endif enduntil
;;; % ] -> database ; [ [ is animal ] [ dog is
animal ] [ this is a
;;; test ] [ this is another test doc , my boy ] ]
;;; FILE : c:\program files\poplog\15.5\4mybot.p
LINE NUMBER: 30
;;; DOING : make_all_lists read_lists_in_file
loadcompiler pop_setpop_comp
;;; iler runproc runproc
> [] -> database;
> ;;;load 'mytest.p';
> make_all_lists(items) -> lists;
> lists -> response;
> read_lists_in_file('mytest.p') -> lists;
>
>
>
> define converse();
>
> vars list,answer,name;
> [hello] =>
> [what is your name?] =>
> readline() -> name;
> if present([??name]) then
> [hello ^^name it is nice to meet you again]
> =>
> else
> [hello ^^name it is nice to meet you] =>
> endif;
> [well - what do you want to talk about?] =>
> repeat forever
> readline() -> list;
> quitif(list = [bye] or list = [good bye]);
> ;;;storedata('mytest.p');
> answer(list) =>
> endrepeat;
> [goodbye ^^name - talk to you another time.] =>
> enddefine;
>
> define make_all_lists(items) -> lists;
> vars lists,items;
> enddefine;
>
> define checkfact(thing,meaning) -> response;
> vars info;
> if present ([^^thing ^^meaning]) then [I am aware of
> that] -> response
> elseif present ([^^thing ??info]) then [no - ^^thing
> ^^info] -> response
> else add ([^^thing ^^meaning]);
> [Ok - I nave noted that] -> response
> endif;
> enddefine;
> ;;; vars (== bye) -> bye;
> ;;;
> forget([seattle], [is located in washington])
> ;;; ([seattles],
> [is located in waqshington])
__________________________________
Do you Yahoo!?
Check out the new Yahoo! Front Page.
www.yahoo.com
|