From c81dcd68941fdc75cc25ecfe11382050dee80ba8 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 17 Sep 1992 00:41:34 +0000 Subject: [PATCH] Add file-access-time-direct, file-access-time-indirect, file-access-time, and set-file-times! --- v7/src/runtime/dosprm.scm | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm index 1da2865b2..84ec45a05 100644 --- a/v7/src/runtime/dosprm.scm +++ b/v7/src/runtime/dosprm.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dosprm.scm,v 1.9 1992/07/07 00:44:27 jinx Exp $ +$Id: dosprm.scm,v 1.10 1992/09/17 00:41:34 jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -133,6 +133,28 @@ MIT in each case. |# (define file-modification-time file-modification-time-indirect) + +;; These are obviously incorrect, but there is no alternative. +;; DOS only keeps track of modification times. + +(define file-access-time-direct + file-modification-time-direct) + +(define file-access-time-indirect + file-modification-time-indirect) + +(define file-access-time + file-modification-time) + +(define (set-file-times! filename access-time modification-time) + (let ((filename (->namestring (merge-pathnames filename))) + (time (or modification-time + access-time + (file-modification-time-direct filename)))) + ((ucode-primitive set-file-times!) + filename + (or access-time time) + (or modification-time time)))) (define get-environment-variable) (define set-environment-variable!) -- 2.25.1