From 2b7bd1a8e1136755f190728546118fe7e5076631 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Fri, 9 May 2008 16:24:17 -0500
Subject: [PATCH] unix: Add high-level 'utime'
---
extra/unix/unix.factor | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/extra/unix/unix.factor b/extra/unix/unix.factor
index bc3e3ca162..fcbd96177b 100755
--- a/extra/unix/unix.factor
+++ b/extra/unix/unix.factor
@@ -86,6 +86,12 @@ ERROR: open-error path flags prot message ;
3dup unix.ffi:open
dup 0 >= [ >r 3drop r> ] [ drop err_no strerror open-error ] if ;
+ERROR: utime-error path message ;
+
+: utime ( path buf -- )
+ dupd unix.ffi:utime
+ 0 = [ drop ] [ err_no strerror utime-error ] if ;
+
FUNCTION: int pclose ( void* file ) ;
FUNCTION: int pipe ( int* filedes ) ;
FUNCTION: void* popen ( char* command, char* type ) ;