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

add advanced-select word

db4
Doug Coleman 2008-06-01 11:25:09 -05:00
parent a7afae250d
commit 96ce30a534
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/db/tuples/tuples.factor
View File

@ -154,3 +154,7 @@ M: retryable execute-statement* ( statement type -- )
: select-tuple ( tuple -- tuple/f ) : select-tuple ( tuple -- tuple/f )
dup dup class f f f 1 <advanced-select-statement> dup dup class f f f 1 <advanced-select-statement>
do-select ?first ; do-select ?first ;
: advanced-select ( tuple groups order offset limit -- tuples )
>r >r >r >r dup dup class r> r> r> r>
<advanced-select-statement> do-select ;