add advanced-select word

2008-06-01 11:25:09 -05:00 · 2008-06-01 11:25:09 -05:00 · 96ce30a534
parent a7afae250d
commit 96ce30a534
1 changed files with 4 additions and 0 deletions
--- a/extra/db/tuples/tuples.factor
+++ b/extra/db/tuples/tuples.factor
@ -154,3 +154,7 @@ M: retryable execute-statement* ( statement type -- )
 : select-tuple ( tuple -- tuple/f )
    dup dup class f f f 1 <advanced-select-statement>
    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 ;