steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add new word to http.server.templating

release
Slava Pestov 2007-09-21 16:55:39 -04:00
parent d1b70d8b13
commit 48b35f0417
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/http/server/templating/templating.factor
View File

@ -81,5 +81,9 @@ DEFER: <% delimiter
] with-scope ] with-scope
] assert-depth drop ; ] assert-depth drop ;
: run-relative-template-file ( filename -- )
file get source-file-path parent-dir
swap path+ run-template-file ;
: template-convert ( infile outfile -- ) : template-convert ( infile outfile -- )
<file-writer> [ run-template-file ] with-stream ; <file-writer> [ run-template-file ] with-stream ;