home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 1.ddi / HNDBASIS.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  2.3 KB  |  76 lines
  1.  
  2.  /*******************************************************************
  3.                                                                   
  4.      Turbo Prolog Toolbox
  5.      (C) Copyright 1987 Borland International.                    
  6.                                                                   
  7.              HNDBASIS                  
  8.   This sample shows the minimum structure of a program using the  
  9.   screen handlers.                            
  10.  *******************************************************************/
  11.  
  12.  
  13.  
  14.  /*******************************************************************/
  15.  /*            Domains                        */
  16.  /*******************************************************************/
  17.  
  18. include "tdoms.pro"
  19.  
  20. DOMAINS
  21.   FNAME=SYMBOL
  22.   TYPE = int(); str(); real()
  23.  
  24.  /*******************************************************************/
  25.  /*            Database predicates                */
  26.  /*******************************************************************/
  27.  
  28. DATABASE
  29.   /* Database declarations used in scrhnd */
  30.   insmode            /* Global insertmode */
  31.   actfield(FNAME)        /* Actual field */
  32.   screen(SYMBOL,DBASEDOM)    /* Saving different screens */
  33.   value(FNAME,STRING)        /* value of a field */
  34.   field(FNAME,TYPE,ROW,COL,LEN) /* Screen definition */
  35.   txtfield(ROW,COL,LEN,STRING)
  36.   windowsize(ROW,COL).
  37.   notopline
  38.  
  39.   /* DATABASE PREDICATES USED BY VSCRHND */
  40.   windowstart(ROW,COL)
  41.   mycursord(ROW,COL)
  42.  
  43.   /* Database declarations used in lineinp */
  44.   lineinpstate(STRING,COL)
  45.   lineinpflag
  46.  
  47.  
  48.  /*******************************************************************/
  49.  /*            Include tools                    */
  50.  /*******************************************************************/
  51.  
  52. include "tpreds.pro"
  53. include "menu.pro"
  54. include "status.pro"
  55. include "lineinp.pro"
  56. include "scrhnd.pro"    /* Or vscrhnd.pro */
  57.  
  58. CLAUSES
  59. /*******************************************************************
  60.             Field action
  61. *******************************************************************/
  62.  
  63.   field_action(_):-fail.
  64.   
  65. /*******************************************************************
  66.              Field_value
  67. *******************************************************************/
  68.  
  69.   field_value(FNAME,VAL):-value(FNAME,VAL),!.
  70.  
  71. /*******************************************************************
  72.              noinput
  73. *******************************************************************/
  74.  
  75.   noinput(_):-fail.
  76.