[fpc-devel] get/put in fpc

[Schneider]

Thanks for everybody's help.  I've made some progress in getting my
standard Pascal programs to compile under fpc.

Now comes a big issue.

In standard Pascal, one can use get() and put() to access files.  The
current file object is accessed with file^.  I use this in many
places.

program getput(shellp, output);
var
   shellp: text; (* file used by this program *)

begin
   Assign (shellp,'shellp');
   writeln(output,'getput test is running');
   reset(shellp);
   writeln(output,'first character of shellp: ',shellp^);
end.

Free Pascal Compiler version 2.6.4 [2015/10/07] for x86_64
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Darwin for x86_64
Compiling getput.p
getput.p(9,56) Error: Illegal qualifier
getput.p(11) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
Error: /sw/bin/ppcx64 returned an error exitcode (normal if you did not specify a source file to be compiled)

So shellp^ failed.

If I try instead

   get(shellp);

I get:

getput.p(12,7) Error: Identifier not found "get"
getput.p(14) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted

So get and put do not exist in fpc?

Tom

  Thomas D. Schneider, Ph.D.
  Senior Investigator
  National Institutes of Health
  National Cancer Institute
  Center for Cancer Research
  Gene Regulation and Chromosome Biology Laboratory
  Molecular Information Theory Group
  Frederick, Maryland  21702-1201
  schneidt at mail.nih.gov
  https://schneider.ncifcrf.gov (current link)
  https://alum.mit.edu/www/toms (permanent link)