diff --git a/1991.fs b/1991.fs index a5276d2..772fd95 100644 --- a/1991.fs +++ b/1991.fs @@ -80,13 +80,3 @@ pubvar public create-server 0 start-server ; : /1991 ( " " -- ) bl word ' swap count register-route ; - - -\ App demo: -: handle-/ s" fff" ; -: handle-hi s" hi!" ; - -/1991 / handle-/ -/1991 /hi handle-hi - -8080 1991: diff --git a/examples/app.fs b/examples/app.fs new file mode 100644 index 0000000..bfbb049 --- /dev/null +++ b/examples/app.fs @@ -0,0 +1,12 @@ +\ App demo: +include ~+/1991.fs + +s" ~+/examples/public" set-public-path + +: handle-/ s" fff" ; +: handle-hi s" hi!" ; + +/1991 / handle-/ +/1991 /hi handle-hi + +8080 1991: diff --git a/examples/public/some.txt b/examples/public/some.txt new file mode 100644 index 0000000..531c9b4 --- /dev/null +++ b/examples/public/some.txt @@ -0,0 +1,2 @@ +some +BODY