42 lines
1.2 KiB
Forth
42 lines
1.2 KiB
Forth
This is a test case, using an sqlite3 database to track time off
|
|
requests at my employer.
|
|
|
|
The database schema is:
|
|
|
|
CREATE TABLE pto(id integer primary key,
|
|
month blob, start blob, end blob, year blob, who blob,
|
|
reason blob, status blob);
|
|
|
|
|
|
Requests are a range, with a start and ending day. Requests for a single
|
|
day off have identical start and end days.
|
|
|
|
~~~
|
|
'sql.forth include (include_the_sqlite3_wrapper
|
|
'test.db sql:set-database (set_the_database_file
|
|
'pto sql:accessors-for (generate_accessors_for_each_column_in_"pto"
|
|
~~~
|
|
|
|
I can query for approved requests (status=y) in the current month.
|
|
|
|
~~~
|
|
[ 'pto FROM '* SELECT 'status="y"_AND_month=5_ORDER_BY_start WHERE ] sql:statement sql:query
|
|
~~~
|
|
|
|
And then iterate over the results, generating some readable output like:
|
|
|
|
Charles Childers
|
|
From: 2019-4-18 through 2019-4-22
|
|
|
|
(This part should be refactored to aid in readability, but this works
|
|
ok for a quick test.)
|
|
|
|
~~~
|
|
[ sql:split-line
|
|
dup pto:who s:put nl
|
|
[ &pto:start &pto:month &pto:year tri
|
|
'\tFrom:_%s-%s-%s_through_ s:format s:put ] sip
|
|
[ &pto:end &pto:month &pto:year tri
|
|
'%s-%s-%s\n s:format s:put ] sip
|
|
drop ] a:for-each
|
|
~~~
|