Mail #11285 (Unformatted/full headers)

Back to main page of archive

Previous mail   Next mail   Formatted
Overview  10 days   Subject   Date   Thread   Author  

From gpc-owner@gnu.de  Thu Jan 27 08:27:52 2005
Received: from mail.ncifcrf.gov ([129.43.100.101])
	by adele.gerwinski.de with esmtp (Exim 4.34)
	id 1Cu449-00086o-6i
	for gpc@gnu.de; Thu, 27 Jan 2005 08:27:45 +0100
Received: from mail.NCIFCRF.GOV(129.43.100.101) by AVAS3.ncifcrf.gov via smtp
	 id 16d2_9c797ffe_7034_11d9_85bc_0002b3c7efef;
	Thu, 27 Jan 2005 02:25:25 -0500 (EST)
Received: from strawberry.ncifcrf.gov (strawberry.NCIFCRF.GOV [129.43.6.74])
	by mail.ncifcrf.gov (8.12.10/8.12.10) with ESMTP id j0R7Qjd0027496
	for <gpc@gnu.de>; Thu, 27 Jan 2005 02:26:45 -0500
Received: (from toms@localhost)
	by strawberry.ncifcrf.gov (8.12.10+Sun/8.12.10/Submit) id j0R7QjHn008733
	for gpc@gnu.de; Thu, 27 Jan 2005 02:26:45 -0500 (EST)
Date: Thu, 27 Jan 2005 02:26:45 -0500 (EST)
From: Tom Schneider <toms@ncifcrf.gov>
Message-Id: <200501270726.j0R7QjHn008733@strawberry.ncifcrf.gov>
To: gpc@gnu.de
Subject: EOF is not true on reset empty file
X-Archive-Number: 200501/67
X-Sequence-Number: 4997

One of my programs, which I have used with many compilers in the past,
started an odd behavior as soon as I compiled with GPC.  I rooted down
to what the cause was and found this:

EOF is not true on a reset empty file.

Here is the program:

********************************************************************************
program gpcbug2005jan27(namebook, namelist, output);
(* 
  Dr. Thomas D. Schneider
  National Cancer Institute
  Laboratory of Experimental and Computational Biology
  Molecular Information Theory Group
  Frederick, Maryland  21702-1201
  toms@ncifcrf.gov
  permanent email: toms@alum.mit.edu (use only if first address fails)
  http://www.lecb.ncifcrf.gov/~toms/
*)
const
version = 1.00; (* of gpcbug2005jan27.p 2005 jan 27 *)

var
   namebook, namelist: text;

begin
  reset(namebook);
  if eof(namebook)
  then writeln(output,'eof of namebook')
  else writeln(output,'NOT eof of namebook');

  reset(namelist);
  if eof(namelist)
  then writeln(output,'eof of namelist')
  else writeln(output,'NOT eof of namelist');
end.
********************************************************************************

This is the result of running a script called mk (which displays itself):

********************************************************************************
version = 1.00 of mk 2005 Jan 27
#!/bin/tcsh -f
#(ie run the tshell on this but don't read the .cshrc or .tcshrc)

echo version = 1.00 of mk 2005 Jan 27
# 2005 Jan 27, 1.00: origin 

# show the script that does everything:
cat mk

echo -n "" > namebook
echo -n "" > namelist

echo 'file name*'
file name*

echo
echo 'wc -l name*'
wc -l name*

echo
echo 'ls -l name*'
ls -l name*

echo -------------------- compile
gpcc gpcbug2005jan27.p
echo --------------------

gpcbug2005jan27
file name*
namebook:       empty file
namelist:       empty file

wc -l name*
       0 namebook
       0 namelist
       0 total

ls -l name*
-rw-------   1 toms     delila         0 Jan 27 02:25 namebook
-rw-------   1 toms     delila         0 Jan 27 02:25 namelist
-------------------- compile
version = 1.37 of gpcc 2004 Jan 11
Using /usr/local/gpc/bin/gpc instead of the one in the path
gpc compiling gpcbug2005jan27.p
output program name: gpcbug2005jan27
gpcbug2005jan27.p exists, so we can delete gpcbug2005jan27: REMOVING gpcbug2005jan27
version = 1.00; (* of gpcbug2005jan27.p 2005 jan 27 *)
optimization:  0
---
GPC version from "gpc --version | head -1" :
gpc 20040516, based on gcc-3.3.3
GPC version from "gpc | head -1" :
GNU Pascal version 20040516, based on gcc-3.3.3.
---
ONLY STANDARD PASCAL IS ALLOWED

------
No errors
------
No warnings
------

gpcc is done
--------------------
NOT eof of namebook
NOT eof of namelist
********************************************************************************

Is this standard behavior for Pascal?  I thought that if you reset
an file, it would be at eof.  Where else could it be?

Tom

  Dr. Thomas D. Schneider
  National Cancer Institute
  Laboratory of Experimental and Computational Biology
  Molecular Information Theory Group
  Frederick, Maryland  21702-1201
  toms@ncifcrf.gov
  permanent email: toms@alum.mit.edu (use only if first address fails)
  http://www.lecb.ncifcrf.gov/~toms/

Previous mail   Next mail   Formatted
Overview  10 days   Subject   Date   Thread   Author  

Replies

Back to main page of archive

Note: This page contains information that does not originate from the owner of this web site, but from the authors of the mails archived. The owner of this web site is not responsible for the content of such information. Any use of that infomation requires the consent of the respective author.

Where WWW addresses (URLs) in the mails archived are marked as hyperlinks, this is only for the comfort of the reader. The content of the web pages linked to like this does not necessarily reflect the opinion of the owner of this web site or of the authors of the mails archived. The owner of this web site is not responsible for the content of such web pages. Those pages are explicitly not to be considered as part of the content of this page, but merely as references.

This page was created by Crystal 0.999 (Linux 2.4.27/i686).