steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

new accessors

db4
Doug Coleman 2008-08-31 02:51:01 -05:00
parent b12fe49247
commit e9d298b3ed
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/documents/documents.factor
View File

@ -28,10 +28,10 @@ TUPLE: document < model locs ;
: update-locs ( loc document -- ) : update-locs ( loc document -- )
locs>> [ set-model ] with each ; locs>> [ set-model ] with each ;
: doc-line ( n document -- string ) model-value nth ; : doc-line ( n document -- string ) value>> nth ;
: doc-lines ( from to document -- slice ) : doc-lines ( from to document -- slice )
>r 1+ r> model-value <slice> ; >r 1+ r> value>> <slice> ;
: start-on-line ( document from line# -- n1 ) : start-on-line ( document from line# -- n1 )
>r dup first r> = [ nip second ] [ 2drop 0 ] if ; >r dup first r> = [ nip second ] [ 2drop 0 ] if ;
@ -99,7 +99,7 @@ TUPLE: document < model locs ;
>r >r >r "" r> r> r> set-doc-range ; >r >r >r "" r> r> r> set-doc-range ;
: last-line# ( document -- line ) : last-line# ( document -- line )
model-value length 1- ; value>> length 1- ;
: validate-line ( line document -- line ) : validate-line ( line document -- line )
last-line# min 0 max ; last-line# min 0 max ;
@ -117,7 +117,7 @@ TUPLE: document < model locs ;
[ last-line# ] keep line-end ; [ last-line# ] keep line-end ;
: validate-loc ( loc document -- newloc ) : validate-loc ( loc document -- newloc )
over first over model-value length >= [ over first over value>> length >= [
nip doc-end nip doc-end
] [ ] [
over first 0 < [ over first 0 < [
@ -128,7 +128,7 @@ TUPLE: document < model locs ;
] if ; ] if ;
: doc-string ( document -- str ) : doc-string ( document -- str )
model-value "\n" join ; value>> "\n" join ;
: set-doc-string ( string document -- ) : set-doc-string ( string document -- )
>r string-lines V{ } like r> [ set-model ] keep >r string-lines V{ } like r> [ set-model ] keep