This behavior is so strange & repeatable
that I suspect a bug. In essence, my program
uses a nested level of suspends to process
"begin" - "end" groups of relations or hierarchies.
The nested parse_file()/prompt() always exits
when it is supposed to suspend the 2nd line
following "begin".
procedure main()
parse_file(fd,"ku","exit")
end
procedure parse_file(fd,gtype,option)
every proptoken := get_prop(fd) do {
propsymbol := get_symbol(proptoken)
if propsymbol.firstword == "begin" then
parse_file(fd,"nrel","end")
else
interpret_symbol(propsymbol)
}
end
procedure get_prop(fd)
every token := get_token(fd) do {
put(proptoken,token)
if proptoken.lastword == ";" then
suspend proptoken
end
procedure get_token(fd)
every word := get_word(fd) do
suspend token
end
procedure get_word(fd)
every line := prompt(fd) do
suspend word
end
procedure prompt(fd)
while line := read(fd) do
suspend line
end
Dick McCullough
http://mkrmke.org------------------------------------------------------------------------------
The NEW KODAK i700 Series Scanners deliver under ANY circumstances! Your
production scanning environment may not be a perfect world - but thanks to
Kodak, there's a perfect scanner to get the job done! With the NEW KODAK i700
Series Scanner you'll get full speed at 300 dpi even with all image
processing features enabled. http://p.sf.net/sfu/kodak-com
_______________________________________________
Unicon-group mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/unicon-group
