Code Body

To use this file copy and paste this: // #URL-lib "http://pin1.org/forthlib/flb/SD-Card/fat-2.flb" into BV Terminal 3 or here to download.

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  
// FAT formmatted SD card access
// ========== P A R T 2 ======================================
// This is the directory listing and handleing, uses the device
// buffer to read and write the directory sections. The operations
// performed in this section are for reading, directory writing
// is in a later section.
// NOTE This shares many words with fat-1-a and so the SID numbers
// Must be the same.
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// HISTORY: // Mar 2008 * Replaced [char] : with 58 emit because BVT gets confused

// REQUIRES: // #URL-Inc "http://pin1.org/forthlib/flb/General/soft1.flb" sid=99 // #URL-lib "http://pin1.org/forthlib/flb/General/pinsel.flb" sid=100 // #URL-lib "http://pin1.org/forthlib/flb/General/SPI.flb" sid=101 // #URL-lib "http://pin1.org/forthlib/flb/SD-Card/MMC.flb" sid=102 // #URL-lib "http://pin1.org/forthlib/flb/SD-Card/fat-1.flb" //

// CONSTANTS: // convenient to hold current file name here i think 12 vspace$ dir$ // // constants used as an offset into the directory for either creation // or modification times. 14 constant created // offset for creation and modifed dates 22 constant modified //

Full Contents of File

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// FAT formmatted SD card access
// ========== P A R T 2 ======================================
// This is the directory listing and handleing, uses the device
// buffer to read and write the directory sections. The operations
// performed in this section are for reading, directory writing
// is in a later section.
// NOTE This shares many words with fat-1-a and so the SID numbers
// Must be the same.
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// HISTORY:
// Mar 2008 * Replaced [char] : with 58 emit because BVT gets confused

// REQUIRES:
// #URL-Inc "http://pin1.org/forthlib/flb/General/soft1.flb" sid=99
// #URL-lib "http://pin1.org/forthlib/flb/General/pinsel.flb" sid=100
// #URL-lib "http://pin1.org/forthlib/flb/General/SPI.flb" sid=101
// #URL-lib "http://pin1.org/forthlib/flb/SD-Card/MMC.flb" sid=102
// #URL-lib "http://pin1.org/forthlib/flb/SD-Card/fat-1.flb"
//

// CONSTANTS:
// convenient to hold current file name here i think
1 2 v s p a c e $ d i r $
//
// constants used as an offset into the directory for either creation
// or modification times.
1 4 c o n s t a n t c r e a t e d // offset for creation and modifed dates
2 2 c o n s t a n t m o d i f i e d
//

// Converts an entry number to a Dbuff address, en# is the
// entry number 0 being the first 1 the second etc. Returns the address
// into the buffer
// ***** Note this will also make sure that the correct
// sector is loaded for writing
: dir-entry ( en# -- address )
3 2 * // address of current entry
B y t e s S e c d @ u /mod // split to entry+sector
D i r d @ + // add director offset
d u p d -s e c <> // need to get another sector?
i f
d s e c @ // get next sector
e l s e
d r o p // current sector
t h e n
d b u f f +
;

// useful for obtaining the directory entry address for the current
// file handle
: dirAdd ( [handle] -- add ) d i r e n t r y f ; // get the address

// ========= directory operations ==============
// does not do subdirectories or long file names
//
// routines for extracting a directory entry information, all the words
// expect to be given the starting adedress of the entry
: filename@ ( add - string ) d i r $ 1 1 m o v e 0 d i r $ 1 2 + c ! d i r $ ;
: attrib@ ( add -- ) 1 1 + c @ ;
: start-clust@ ( add --clust ) d u p 2 0 + w o r d 1 6 1 6 l s h i f t s w a p 2 6 + w o r d 1 6 + ;
// returns a time word, set type to the constant for either created or
// modified to obtain the desired result
: c-dir-time ( add -- tword ) c r e a t e d + w o r d 1 6 ; // this the modified time
: m-dir-time ( add -- tword ) m o d i f i e d + w o r d 1 6 ; // this the modified time
: c-hours@ ( add -- hours ) c -d i r -t i m e 1 1 r s h i f t ;
: m-hours@ ( add -- hours ) m -d i r -t i m e 1 1 r s h i f t ;
: c-minutes@ ( add -- mins ) c -d i r -t i m e 5 r s h i f t &3 f a n d ;
: m-minutes@ ( add -- mins ) m -d i r -t i m e 5 r s h i f t &3 f a n d ;
: c-seconds@ ( add -- sec ) c -d i r -t i m e &1 f a n d ;
: m-seconds@ ( add -- sec ) m -d i r -t i m e &1 f a n d ;
: c-dir-date ( add -- tword ) c r e a t e d + 2 + w o r d 1 6 ; // the modified time
: m-dir-date ( add -- tword ) m o d i f i e d + 2 + w o r d 1 6 ; // he modified time
: c-year@ ( add -- year ) c -d i r -d a t e 9 r s h i f t 1 9 8 0 + ;
: m-year@ ( add -- year ) m -d i r -d a t e 9 r s h i f t 1 9 8 0 + ;
: c-month@ ( add -- month ) c -d i r -d a t e 5 r s h i f t &f a n d ;
: m-month@ ( add -- month ) m -d i r -d a t e 5 r s h i f t &f a n d ;
: c-day@ ( add -- sec ) c -d i r -d a t e &1 f a n d ;
: m-day@ ( add -- sec ) m -d i r -d a t e &1 f a n d ;
: filesize@ ( add -- size ) d u p 2 8 + w o r d 1 6 s w a p 3 0 + w o r d 1 6 1 6 l s h i f t + ;
//
// creates a packed time and date word, opposite to above
// date and time for new directry entries
: packtime { h m s -- ptime }
h 1 1 l s h i f t
m 5 l s h i f t +
s +
;
: packdate { y m d -- pdate }
y 1 9 8 0 - 9 l s h i f t
m 5 l s h i f t +
d +
;

// --- storing into entry
: filename! ( string add -- ) 1 1 m o v e ;
: attrib! ( val add -- ) 1 1 + c ! ;
: start-clust! ( val add -- )
>r d u p 1 6 r s h i f t r @ 2 0 + w o r d 1 6 ! // high
&f f f f a n d r > 2 6 + w o r d 1 6 ! ; // low
: c-time! ( addr h m s -- [packtime] ) p a c k t i m e s w a p 1 4 + w o r d 1 6 ! ;
: c-date! ( addr y m d -- [packtime] ) p a c k d a t e s w a p 1 6 + w o r d 1 6 ! ;
: m-time! ( addr h m s -- [packtime] ) p a c k t i m e s w a p 2 2 + w o r d 1 6 ! ;
: m-date! ( addr y m d -- [packtime] ) p a c k d a t e s w a p 2 4 + w o r d 1 6 ! ;
: filesize! ( size add -- )
>r d u p 1 6 r s h i f t r @ 2 0 + w o r d 1 6 ! // high
&0 0 0 0 f f f f a n d r > 2 8 + w o r d 1 6 ! ; // low

// =========== Directory printing =========================
// prints out date entry
: dir-date. ( add -- )
d u p m -d a y @ <# # # #> s t y p e [c h a r ] / emit
d u p m -m o n t h @ <# # # #> s t y p e [c h a r ] / emit
m -y e a r @ <# # # # # #> s t y p e
;

// prints out time entry
: dir-time. ( add -- )
d u p m -h o u r s @ <# # # #> s t y p e 5 8 e m i t
d u p m -m i n u t e s @ <# # # #> s t y p e 5 8 e m i t
m -s e c o n d s @ <# # # #> s t y p e
;

// dir entry will print out modified time and date with an offset of 6
// This prints whatever is in the array
: dir. ( add -- )
d u p c r f i l e n a m e @ s t y p e t a b // name
d u p d i r -d a t e . s p a c e d u p d i r -t i m e . t a b
d u p s t a r t -c l u s t @ .
t a b f i l e s i z e @ .
;

// list the root directory of a card. The device buffer is used for this
// it has been set to here - see fat-1-a. Device is the device attached
// and is a number that begins with 0
// ( device ---)
: ls ( -- )
-1 => d -s e c // force new read
R o o t E n t r i e s d @ // number of directory entries
f o r
i d i r -e n t r y // need address to check for first byte
d u p c @ 0 =
i f
d r o p
u n l o o p e s c a p e
t h e n
c @ &e 5 <> i f i d i r -e n t r y d i r . t h e n
n e x t
;

// =============== searching and finding =================
// This word takes a doted input and produces an output
// suitable for using as a serch string within a directory
// buffer
// input is s-add and output is also s-add, takes a standard
// 8+3 dotted format and converts it to 2 words with
// psaces, s-add1 sould be able to take 11 charaters +
// the 0 terminator
// S-ADD MUST BE MIN 12 CHARATCERS
: dot2pad { s-add --- s-add1 }
i n t: l e n I c O c // lenght of string in count, out count
v $: t m p 1 3 // string holder
%@ t m p 1 1 b l f i l l // set tmp to all spaces
s -a d d l e n g t h => l e n
b e g i n
s -a d d I c + c @ // fetch character
d u p 4 6 = // check for .
i f
1 +> I c // just inc input past .
8 => O c // for ext
d r o p
e l s e
%@ t m p O c + c !
1 +> I c // increment counters
1 +> O c
t h e n
I c l e n 1 - >
u n t i l
0 %@ t m p 1 1 + c ! // terminator
%@ t m p t o u p p e r // covert to upper case
;

// given a dotted string e.g. fred.txt, this searches through
// the directory and returns with -1 and ad pointing to the start
// of the directory entry within the buffer, this also fills
// dir# array and dir$ string, but returns the address as well
// in case the directory needs to be updated
: dir-search ( string --- en# -1 |0)
i n t: s t r
d o t 2 p a d => s t r // convert string to padded
R o o t E n t r i e s d @ // search all
f o r
i d i r -e n t r y // get entry address to test for 1st char
d u p c @ 0 = i f d r o p 0 u n l o o p e s c a p e t h e n // get out end of search
s t r s w a p s = // see if match - dont care about deleted entries
i f
i
-1 l e a v e // leave address and -1
t h e n
n e x t
;

// ================ Public interface ==========================
: <0>f.device ( device -- ) => d # ; // set device
: <0>f.find ( name -- [array] ad -1|0 ) d i r -s e a r c h ;
: <0>f.ls ( -- ) l s ; // dir of current device