[openfirmware] r1639 - ofw/fs/cifs
svn at openfirmware.info
svn at openfirmware.info
Tue Dec 29 00:34:15 CET 2009
Author: wmb
Date: 2009-12-29 00:34:14 +0100 (Tue, 29 Dec 2009)
New Revision: 1639
Modified:
ofw/fs/cifs/smb.fth
Log:
Removed trailing whitespace in smb.fth. No functional change.
Modified: ofw/fs/cifs/smb.fth
===================================================================
--- ofw/fs/cifs/smb.fth 2009-12-28 23:21:06 UTC (rev 1638)
+++ ofw/fs/cifs/smb.fth 2009-12-28 23:34:14 UTC (rev 1639)
@@ -276,7 +276,7 @@
loop ( adr )
drop ( )
buf8 8
-;
+;
0 instance value password-buf
d# 16 buffer: p21-buf
@@ -386,7 +386,7 @@
--bytes-- ( path$ )
+path ( )
}smb ( true | rem$ false )
-;
+;
0 instance value fid
0 instance value attributes \ 01:RO 02:Hidden 04:System 08:Volume 10:Directory 20:Archive
@@ -658,12 +658,12 @@
dup h# 1f and 2* swap ( secs packed )
dup h# 07e0 and 5 >> swap ( secs mins packed )
h# f800 and d# 11 >> ( secs mins hours )
-;
+;
: >dmy ( dos-packed-date -- day month year )
dup h# 1f and swap ( day packed )
dup h# 01e0 and 5 >> swap ( day month packed )
h# fe00 and 9 >> d# 1980 + ( day month year )
-;
+;
\ Convert DOS file attributes to the firmware encoding
\ see showdir.fth for a description of the firmware encoding
: >canonical-attrs ( dos-attrs -- canon-attrs )
@@ -755,7 +755,7 @@
third 1+ 2* +xw ( path$ access flags ) \ Byte count for string + terminator
+xw ( path$ access ) \ Create flage
0 +xw ( path$ access ) \ Root FID
-
+
--bytes--
0 +xb \ Null share password
( path$ ) +unicode$
@@ -813,14 +813,14 @@
\ It's a file, so open it - first try to open read/write.
pathname$ 2 do-open if ( )
- \ Failing that, try to open read-only
+ \ Failing that, try to open read-only
pathname$ 0 do-open if ( )
free-buffers false exit
then ( )
then ( )
\ If any arguments remain, assume we are dealing with a ZIP
- \ archive and interpose the ZIP handler
+ \ archive and interpose the ZIP handler
tail$ dup if ( tail$ )
" zip-file-system" $interpose ( okay? )
else ( tail$ )
More information about the openfirmware
mailing list