Lahey Support
08-15-2003, 01:24 AM
Using the directory information is fine as long as it is still correct,
but it easily gets changed. Haven't we all occasionally glanced inside
a data file with a text editor and exited with a "save-and-close"
command instead of a simple "quit"? Events like that update the
directory time-stamp even if the file contents haven't changed. And
what if the file has to be filtered or moved to another operating
system?
Richard Daehler-Wilking
Terence Wright wrote:
> Hassan asked how to time-stamp an ascii file at the end.
>
> This is not necessary, since the directory has this
> information, so you only have to execute the routine
> that tells you what information is in the directory
> entry for that file name.
>
> This is interrupt 21h, service Hex 5700.
> Ax = 5700h
> Bx = file handle number
> EXCUTE INTERRUPT 21h:
> Cx returns file creation time hhhhhmmmmmmsssss as integer*2,
> Dx returns file creation date YYYYYYYMMMMDDDDD as integer*2.
>
> This is done in Lahey, by the call interrupt 21h service,
> passing the integer*2 register contents and getting back
> the new values.
>
> Another way is to execute an in-line system call
> (see your manual on how the compiler does this), e.g.
> CALL SYSTEM('dir filename > listname'C)
> then read the contents of the listname file created.
> This also gives file length, besides data and time.
>
> Getting the computer date is done the same way:-
> date with with service 2A00h, time with 2C00h,
> and no parameters.
> Get date returns:-
> AX = xxxxxxxxwwwwwwww (ignore x, w=weekday number)
> CX = year
> DX = MMMMMMMMDDDDDDDD (Month M, Day D)
>
> Get time returns:-
> CX = hhhhhhhhmmmmmmmm (hour h 0-24, minutes m 0-59)
> DX = sssssssszzzzzzzz (seconds s 0-59, z hundredths 0-99)
>
> There is an intrinsic service in Lahey fortran for date-time.
>
> Terence Wright
>
> -----------------------------------------------------
> To unsubscribe from the Fortran Forum, send a message
> to [address removed] with the following command as
> the first and only line of the message body:
> unsubscribe fortran
> -----------------------------------------------------
-----------------------------------------------------
To unsubscribe from the Fortran Forum, send a message
to [address removed] with the following command as
the first and only line of the message body:
unsubscribe fortran
-----------------------------------------------------
but it easily gets changed. Haven't we all occasionally glanced inside
a data file with a text editor and exited with a "save-and-close"
command instead of a simple "quit"? Events like that update the
directory time-stamp even if the file contents haven't changed. And
what if the file has to be filtered or moved to another operating
system?
Richard Daehler-Wilking
Terence Wright wrote:
> Hassan asked how to time-stamp an ascii file at the end.
>
> This is not necessary, since the directory has this
> information, so you only have to execute the routine
> that tells you what information is in the directory
> entry for that file name.
>
> This is interrupt 21h, service Hex 5700.
> Ax = 5700h
> Bx = file handle number
> EXCUTE INTERRUPT 21h:
> Cx returns file creation time hhhhhmmmmmmsssss as integer*2,
> Dx returns file creation date YYYYYYYMMMMDDDDD as integer*2.
>
> This is done in Lahey, by the call interrupt 21h service,
> passing the integer*2 register contents and getting back
> the new values.
>
> Another way is to execute an in-line system call
> (see your manual on how the compiler does this), e.g.
> CALL SYSTEM('dir filename > listname'C)
> then read the contents of the listname file created.
> This also gives file length, besides data and time.
>
> Getting the computer date is done the same way:-
> date with with service 2A00h, time with 2C00h,
> and no parameters.
> Get date returns:-
> AX = xxxxxxxxwwwwwwww (ignore x, w=weekday number)
> CX = year
> DX = MMMMMMMMDDDDDDDD (Month M, Day D)
>
> Get time returns:-
> CX = hhhhhhhhmmmmmmmm (hour h 0-24, minutes m 0-59)
> DX = sssssssszzzzzzzz (seconds s 0-59, z hundredths 0-99)
>
> There is an intrinsic service in Lahey fortran for date-time.
>
> Terence Wright
>
> -----------------------------------------------------
> To unsubscribe from the Fortran Forum, send a message
> to [address removed] with the following command as
> the first and only line of the message body:
> unsubscribe fortran
> -----------------------------------------------------
-----------------------------------------------------
To unsubscribe from the Fortran Forum, send a message
to [address removed] with the following command as
the first and only line of the message body:
unsubscribe fortran
-----------------------------------------------------