1
0
mirror of https://github.com/urlysses/1991.git synced 2024-11-26 11:38:05 +11:00
1991/examples/app.fs

24 lines
418 B
Forth
Raw Normal View History

2017-02-16 04:23:28 +11:00
\ App demo:
include ../1991.fs
2017-02-16 04:23:28 +11:00
sourcedir s" public" s+ set-public-path
sourcedir s" views/" s+ set-view-path
2017-02-16 04:23:28 +11:00
: handle-/ s" fff" ;
: handle-hi s" hi!" ;
\ Basic routing:
2017-02-16 04:23:28 +11:00
/1991 / handle-/
/1991 /hi handle-hi
\ Views:
: page-title s" hmmmm" ;
: handle-/index
s" index.html" render-view ;
: handle-import
s" import-version.html" render-view ;
/1991 /index handle-/index
/1991 /import handle-import
2017-02-16 04:23:28 +11:00
8080 1991: