Основы построения и функционирования интеллектуальных информационных систем. Былкин В.Д - 191 стр.

                                                                            Продолжение   прил.
counter :=counter+l
 END
 ELSE find_legal:=FALSE;
 END
 END
 ELSE find_legal:=FALSE;
 END;
{Воздействует на строку вида объект=значение, значение, отделяя каждое значение в строке и
добавляя его к списку разрешеных значений объекта.}
PROCEDURE make_legals(f_line;line_string); VAR
curr_object: object_ptr;
 counter, st_place:integer;
 new_line:line_string;
 word:word_string;
 done:boolean;
 f_object,dummy: word_string;
BEGIN
split(f_line,f_object, dummy);
curr_object:=find_ object (f_object);
 IF (curr_object=NIL)THEN make_node(curr_object); curr_object^.name :=f_object;
 st_place:=pos( EQUALS, f_line);
new_line :=copy(f_line ,st_place+l, length(f_line)-st_place); counter:=1;
 done:=FALSE;
 WHILE(done=FALSE) DO
 BEGIN
done:=find_word(new_line, counter, word);
add_Iegal(word,curr__object);
 counter: =counter+1;
 END
 END;




                                                 191