ronerec.pro

来自「prolog,人工智能推理程序,运行环境prolog」· PRO 代码 · 共 21 行

/*   interface  */
  global  predicates
   real_ints(real,integer,integer,integer,integer)-(o,i,i,i,i) language c
  domains
   file=fp;mfp
  include "readext.pro"
  include "dbase3.pro"
  predicates
   readonerec(real,integer,integer,FldDescl,integer,Dbase3rec)
  clauses
/*   initdbf:-openread(FP,"inter.dbf"),
            filemode(fp,0),write("INIT"),
            init_dbase3(Totel,Flddl,Headlen,Reclen),write("INIT!"),
            readonerec(Totel,Headlen Reclen,Flddl,1,Rec),
            assertz(foxrec(Rec)).                                 */
   readonerec(Totes,Headlen,Reclen,Flddl,N,Rec):-
       N<=Totes,N2=(N-1)*Reclen+Headlen+1,filepos(fp,N2,0),/*write(".....",N2),*/
       rd_dbase3_datarec(mfp ,Flddl, Rec)./*,write(Rec).*/