home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 1.ddi / HELP.PRO < prev    next >
Encoding:
Prolog Source  |  1987-03-23  |  2.2 KB  |  82 lines
  1.  
  2. /****************************************************************
  3.  
  4.      Turbo Prolog Toolbox
  5.      (C) Copyright 1987 Borland International.
  6.  
  7.             HELP FACILITY
  8.  
  9.  This module contains the functions which are necessary to make
  10.  a context sensitive help facility.
  11.  
  12.  The help texts are placed in one single helpfile, and the database
  13.  predicate helptext allows access to each help text.
  14.  
  15.  The database predicate helpcontext implements a last in-first out
  16.  stack mechanism. When the program moves into a new context, the
  17.  predicate push_helpcontext can be used to push a new helpcontext
  18.  onto the stack. When the program leaves the context, the predicate
  19.  popcontext is used to remove the temporary helpcontext and re-
  20.  establish the old. If there is any possibility of the program
  21.  failing in the temporary context, the predicate temp_help_context
  22.  should be used because it automatically removes the helpcontext 
  23.  on backtracking.
  24.  
  25. ****************************************************************/
  26.  
  27. /*
  28. DOMAINS
  29.   HELPUNIT    = h(STRING)
  30.   HELPCONTEXT    = SYMBOL
  31.   FILEPOS    = REAL
  32.   FILE    = helpfile
  33.  
  34. DATABASE
  35.     helptext(HELPCONTEXT,ATTR,ATTR,STRING,ROW,COL,ROW,COL,FILEPOS)
  36.     helpcontext(HELPCONTEXT)
  37.     helpfile(STRING)
  38. */
  39.  
  40.  
  41. PREDICATES
  42.   push_helpcontext(HELPCONTEXT)
  43.   pop_helpcontext
  44.   change_helpcontext(HELPCONTEXT)
  45.   temp_helpcontext(HELPCONTEXT)
  46.   displayhelp(HELPCONTEXT)
  47.   help
  48.  
  49. CLAUSES
  50.   push_helpcontext(HELPCONTEXT):-
  51.     asserta(helpcontext(HELPCONTEXT)).
  52.  
  53.   pop_helpcontext:-
  54.     retract(helpcontext(_)),!.
  55.   pop_helpcontext.
  56.  
  57.   change_helpcontext(HELPCONTEXT):-
  58.     pop_helpcontext,  push_helpcontext(HELPCONTEXT).
  59.  
  60.   temp_helpcontext(HELPCONTEXT):-
  61.     push_helpcontext(HELPCONTEXT).
  62.   temp_helpcontext(_):-
  63.     pop_helpcontext.
  64.  
  65.   help:-helpcontext(HELPCONTEXT),!,
  66.     displayhelp(HELPCONTEXT).
  67.  
  68.  
  69.   displayhelp(HELPCONTEXT):-
  70.     helptext(HELPCONTEXT,WATTR,FATTR,HEADER,ROW,COL,ROWS,COLS,FILEPOS),!,
  71.     readdevice(OLD),
  72.     helpfile(FILENAME),!,
  73.     openread(helpfile,FILENAME),
  74.     readdevice(helpfile),
  75.     filepos(helpfile,FILEPOS,0),
  76.     readterm(HELPUNIT,h(HELPTEXT)),
  77.     closefile(helpfile),
  78.     readdevice(OLD),
  79.     makewindow(81,WATTR,FATTR,HEADER,ROW,COL,ROWS,COLS),
  80.     display(HELPTEXT),
  81.     removewindow.
  82.