home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 1.ddi / LOTUS.PRO < prev    next >
Encoding:
Prolog Source  |  1987-03-23  |  2.6 KB  |  79 lines
  1. /************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.     Access a Lotus 1-2-3 (TM) & Symphony (TM) compatible file
  7.     from Prolog
  8.  
  9. *************************************************************/
  10.  
  11. Domains
  12. /*************************************************************
  13.     Prolog data base
  14. *************************************************************/
  15.  
  16.   LotusRecL    = LotusRec*
  17.   LotusRec    = version(Integer);    /* Version number */
  18.             elem(Integer,Integer,Value);
  19.             endFile
  20.   Value        = int(Integer);        /* Integer number cell */
  21.             real(Real);        /* Real number cell */
  22.             formula(Real);    /* Defines a formula cell */
  23.             label(String);    /* Defines a label cell */
  24.             endFile
  25.   
  26. PREDICATES
  27.   /* Read predicates */
  28.   rd_LotusFile(LotusRecL)
  29.   rd_LotusFile2(LotusRec,LotusRecL)
  30.   rd_LotusRec(LotusRec)
  31.   rd_LotusRec2(Integer,LotusRec)
  32.   rd_Lotuscell(LotusRec)
  33.  
  34. CLAUSES
  35. /*************************************************************
  36.     Read data records
  37. *************************************************************/
  38.  
  39.   rd_LotusFile(RecL):-rd_LotusRec(Rec), !, rd_LotusFile2(Rec,RecL).
  40.   rd_LotusFile(RecL):-readdevice(FP),not(eof(FP)), !, rd_LotusFile(RecL).
  41.   rd_LotusFile([]).
  42.  
  43.   rd_LotusFile2(endFile,[]):-!.
  44.   rd_LotusFile2(Rec,[Rec|RecL]):-rd_LotusFile(RecL).
  45.     
  46. /*************************************************************
  47.     Read a single record
  48. *************************************************************/
  49.  
  50.   rd_LotusRec(Rec):-read_int(Opcode), rd_LotusRec2(Opcode,Rec).
  51.  
  52.   rd_LotusRec2(0,version(Ver)):-!,ignore(2), read_int(Ver).
  53.   rd_LotusRec2(1,endFile):-!,ignore(2).
  54.   rd_LotusRec2(13,elem(Row,Col,int(Int))):-!,
  55.     ignore(3), read_int(Col), read_int(Row), read_int(Int).
  56.   rd_LotusRec2(14,elem(Row,Col,real(Real))):-!,
  57.     ignore(3), read_int(Col), read_int(Row), read_real(Real).
  58.   rd_LotusRec2(16,elem(Row,Col,formula(Real))):-!,
  59.     ignore(3), read_int(Col), read_int(Row), read_real(Real),
  60.     read_int(FormulaLen), ignore(FormulaLen).
  61.   rd_LotusRec2(15,elem(Row,Col,label(Str))):-!,
  62.     ignore(3), read_int(Col), read_int(Row), ignore(1), /* alignment */
  63.     read_str(Str).
  64.   rd_LotusRec2(_,_):-read_int(Len), ignore(Len), fail.
  65.  
  66.  
  67. /*************************************************************
  68.     Read a record placed in a certain position
  69.     Samples : 
  70.     -    rd_Lotuscell(Rec)    - (i),(o)
  71.     -    rd_Lotuscell(elem(Row,Col,Value)) - (i,i,i),
  72.         (i,i,o), ... , (o,o,o)
  73. *************************************************************/
  74.  
  75.   rd_Lotuscell(Rec):-
  76.     rd_LotusRec(Rec2),Rec=Rec2.
  77.   rd_Lotuscell(Rec):-
  78.     readdevice(FP), not(eof(FP)), rd_Lotuscell(Rec).
  79.