home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XDBASE3.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  2.8 KB  |  101 lines
  1. /************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.     Access a dBASE III(TM) (V1.1) compatible file from Prolog
  7.  
  8.     The two datafiles XDBASE3.DBF and XDBASE3.DBT must
  9.     be present at the default directory.
  10.  
  11. *************************************************************/
  12.  
  13. project "xdbase3"
  14.  
  15. Domains
  16.   File        = fp ; mfp
  17.  
  18. global predicates
  19.   real_ints(REAL,INTEGER,INTEGER,INTEGER,INTEGER)-(o,i,i,i,i) language c
  20.  
  21. include    "readext.pro"
  22. include    "dbase3.pro"
  23.  
  24. PREDICATES
  25.   /* Listning of the database */
  26.   list_recl(FldNameL,Dbase3RecL)
  27.   list_rec(FldNameL,Dbase3Rec)
  28.   list_elem(Dbase3Elem)
  29.   NoofNL(Integer)
  30.   PressAKey
  31.   doPrompt
  32.  
  33. CLAUSES
  34.  
  35. /*************************************************************
  36.         List Data from a .DBF & .DBT
  37. *************************************************************/
  38.  
  39.   list_recL(_,[]) :- !.
  40.   list_recL(FldNameL,[Rec|RecL]) :-
  41.     nl,nl,
  42.     list_rec(FldNameL,Rec), PressAkey,
  43.     list_recL(FldNameL,RecL).
  44.  
  45.   list_rec([],[]) :- !.
  46.   list_rec([FldName|FldNames],[Elem|Elems]) :-
  47.     writef("\n%-12: ",FldName),
  48.     list_elem(Elem),
  49.     list_rec(FldNames,Elems).
  50.  
  51.   list_elem(char(Str))  :- write(Str).
  52.   list_elem(real(Real)) :- write(Real).
  53.   list_elem(logical(CH)):- write(CH).
  54.   list_elem(memo(Str))  :- write(Str).
  55.   list_elem(date(Date)) :- write(Date).
  56.  
  57.   NoofNL(N) :- N<=0,!.
  58.   NoofNL(N) :- nl, N2=N-1, NoofNL(N2).
  59.  
  60.   PressAKey :-
  61.     makewindow(_,_,_,_,MinR,_,NoofR,_),
  62.     cursor(R,_), R<=MinR+NoofR-8,!.
  63.  
  64.   PressAKey :- doPrompt,cursor(R,C), scroll(R,0),cursor(0,C).
  65.  
  66.   doPrompt:-
  67.     makewindow(Nr,Att,_,_,MinR,MinC,NoofR,NoofC),
  68.     MinR2=MinR+NoofR-1, MinC2=MinC+NoofC/3+1,
  69.     str_len(" Press a key",Len), Len2=Len+1, bitxor(Att,8,Att2),
  70.     makewindow(Nr,Att2,0,"",MinR2,MinC2,1,Len2),
  71.     write(" Press a key"), 
  72.     readdevice(FP), readdevice(keyboard), readchar(_), readdevice(FP),
  73.     removewindow.
  74.     
  75.  
  76. /*************************************************************
  77.         Goal
  78. *************************************************************/
  79.         
  80. goal    openread(fp,"xdbase3.dbf"), filemode(fp,0), readdevice(fp),
  81.     openread(mfp,"xdbase3.dbt"),filemode(mfp,0),
  82.  
  83.     /* Build data structure */
  84.     init_dbase3(TotRecs,FldNameL,FldDescL),
  85.     /* Remember file positions */
  86.     filepos(fp,Fposfp,0), filepos(mfp,Fposmfp,0),
  87.     
  88.     /* Read all data records */
  89.     rd_Dbase3File(TotRecs,mfp,FldDescL,RecL),
  90.  
  91.     /* List all records */
  92.     makewindow(85,41,36," dBASE III(TM) All Data Records ",0,0,25,40),
  93.     list_recL(FldNameL,RecL), DoPrompt,
  94.     window_attr(27),
  95.     
  96.     /* Read records one by one */
  97.     filepos(fp,Fposfp,0), filepos(mfp,Fposmfp,0),
  98.     makewindow(85,72,33," dBASE III(TM) Sequential Access ",0,40,25,40),
  99.     rd_Dbase3Rec(TotRecs,mfp,FldDescL,Rec),
  100.     list_recL(FldNameL,[Rec]),fail.
  101.