Mail #4060 (Unformatted/full headers)

Back to main page of archive

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

From owner-gpc@gnu.de  Tue Jul 18 07:24:45 2000
Return-Path: <owner-gpc@gnu.de>
Received: (from uucp@localhost)
	by goedel.fjf.gnu.de (8.8.8/8.8.8) with UUCP id HAA24251
	for frank@goedel; Tue, 18 Jul 2000 07:24:44 +0200
Received: (qmail 8191 invoked by uid 28); 18 Jul 2000 02:30:24 -0000
Delivered-To: gpc@gerwinski.de
Received: (qmail 8186 invoked from network); 18 Jul 2000 02:30:14 -0000
Received: from fcs280s.ncifcrf.gov (HELO ncisun1-nf0.ncifcrf.gov) (129.43.1.11)
  by tim.gerwinski.de with SMTP; 18 Jul 2000 02:30:14 -0000
Received: from strawberry.ncifcrf.gov (strawberry.ncifcrf.gov [129.43.6.74])
	by ncisun1-nf0.ncifcrf.gov (8.10.0/8.10.0) with ESMTP id e6I2ZFG18057
	for <gpc@gnu.de>; Mon, 17 Jul 2000 22:35:15 -0400 (EDT)
Received: (from toms@localhost)
	by strawberry.ncifcrf.gov (8.9.3+Sun/8.9.1) id WAA24544
	for gpc@gnu.de; Mon, 17 Jul 2000 22:34:34 -0400 (EDT)
Date: Mon, 17 Jul 2000 22:34:34 -0400 (EDT)
From: Tom Schneider <toms@ncifcrf.gov>
Message-Id: <200007180234.WAA24544@strawberry.ncifcrf.gov>
To: gpc@gnu.de
Subject: time stamp problem? timebug.p
Sender: owner-gpc@gnu.de
Precedence: bulk
Status: O

program timebug(output);
(*

  Dr. Thomas D. Schneider
  National Cancer Institute
  Laboratory of Experimental and Computational Biology
  Frederick, Maryland  21702-1201
  toms@ncifcrf.gov
  permanent email: toms@alum.mit.edu
  http://www.lecb.ncifcrf.gov/~toms/

According to:
8.255 TimeStamp
http://agnes.dida.physik.uni-essen.de/~gnu-pascal/gpc_389.html#SEC389
and

7.10.8 Date And Time Routines
http://agnes.dida.physik.uni-essen.de/~gnu-pascal/gpc_109.html#SEC109

and also
http://agnes.dida.physik.uni-essen.de/~gnu-pascal/gpc_114.html#SEC114
(TIME HANDLING ROUTINES)

but

timebug.p: In function `pascal_main_program':
timebug.p:57: TimeStamp record type parameter required

What did I do wrong?

*)

const

version = 1.00; (* of timebug.p 2000 July 17
origin 2000 Jul 17 *)

type

  TimeStamp = {@@packed} record
      DateValid,
      TimeValid   : Boolean;
      Year        : Integer;
      Month       : 1 .. 12;
      Day         : 1 .. 31;
      DayOfWeek   : 0 .. 6;  { 0 means Sunday }
      Hour        : 0 .. 23;
      Minute      : 0 .. 59;
      Second      : 0 .. 61; { to allow for leap seconds }
      MicroSecond : 0 .. 999999
    end;

var
    t: TimeStamp; 

begin
   GetTimeStamp(t); 
end.

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

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).