mirror of
https://github.com/urlysses/1991.git
synced 2024-11-01 07:50:56 +11:00
Add sourcedir for more reliable file paths
This commit is contained in:
parent
1571064535
commit
6310938b54
23
1991.fs
23
1991.fs
@ -12,6 +12,20 @@ include unix/socket.fs
|
|||||||
2dup exchange
|
2dup exchange
|
||||||
-1 /string
|
-1 /string
|
||||||
repeat 2drop ;
|
repeat 2drop ;
|
||||||
|
: sourcedir ( -- saddr su )
|
||||||
|
\ Returns the directory in which the file
|
||||||
|
\ invoking the word finds itself
|
||||||
|
\ relative to gforth's execution directory.
|
||||||
|
\ Useful for specifying in which dir to find
|
||||||
|
\ specific files (e.g., public/, views/).
|
||||||
|
sourcefilename \ get the name of our file
|
||||||
|
2dup reverse \ reverse and search for first /
|
||||||
|
s" /" search if \ if found, reverse string to
|
||||||
|
2dup reverse \ to strip the filename but keep dir.
|
||||||
|
else
|
||||||
|
2drop \ no slash,
|
||||||
|
s" ./" \ same dir execution.
|
||||||
|
then ;
|
||||||
|
|
||||||
\ User-defined routing
|
\ User-defined routing
|
||||||
wordlist constant routes
|
wordlist constant routes
|
||||||
@ -36,6 +50,15 @@ pubvar public
|
|||||||
public 2! ;
|
public 2! ;
|
||||||
: get-public-path ( -- addr u )
|
: get-public-path ( -- addr u )
|
||||||
public 2@ ;
|
public 2@ ;
|
||||||
|
sourcedir s" public" s+ set-public-path
|
||||||
|
|
||||||
|
\ Views directory
|
||||||
|
pubvar views
|
||||||
|
: set-view-path ( addr u -- )
|
||||||
|
views 2! ;
|
||||||
|
: get-view-path ( -- addr u )
|
||||||
|
views 2@ ;
|
||||||
|
sourcedir s" views" s+ set-view-path
|
||||||
|
|
||||||
\ Query params
|
\ Query params
|
||||||
pubvar queryString
|
pubvar queryString
|
||||||
|
@ -1,7 +1,8 @@
|
|||||||
\ App demo:
|
\ App demo:
|
||||||
include ~+/1991.fs
|
include ../1991.fs
|
||||||
|
|
||||||
s" ~+/examples/public" set-public-path
|
sourcedir s" public" s+ set-public-path
|
||||||
|
sourcedir s" views" s+ set-view-path
|
||||||
|
|
||||||
: handle-/ s" fff" ;
|
: handle-/ s" fff" ;
|
||||||
: handle-hi s" hi!" ;
|
: handle-hi s" hi!" ;
|
||||||
|
Loading…
Reference in New Issue
Block a user