I mostly finished Turbine Brl (http://sourceforge.net/projects/brl/)
service, so it ready for tests.
You may get it at:
ftp://disney.surnet.ru/pub/web/turbine/brlservice.tar.gz
Needed brl and kawa packages are at the same place.
Comments and suggestions would be very welcome.
Code for screens, layouts, pages were written from WebMacro ones so
templates have the same look and feel:
;;
;; simple layout
;;
[
(define a "a") ; Brl doesn't allow inputs to be first :(
(inputs run-data screen-placeholder navigation)
(define page (tu-page run-data))
(set! (field page 'title) "Brl Test Screen")
]
[(navigation-put navigation "default_top.brl")]
<br/>
[screen-placeholder]
<br/>
[(navigation-put navigation "default_bottom.brl")]
;;
;; screen
;;
[
(define a "a")
(inputs run-data word)
(define newword (if (null? word) "something" word))
(define link (tu-link run-data)) ;instance of DynamicUri
(define page (tu-page run-data)) ;instance of WebMacroPageAttr
(tu-page-background page "white")
(tu-page-textcolor page "green")
]
<h1>Backwards</h1>
<form>
Type a word: <input name="word" value="[newword]" />
<input type="Submit" />
</form>
<p>[newword] spelled backwards is
[(list->string (reverse (string->list newword)))]
</p>
<p>
<a href="[(tu-link-page link "test,brltest.brl")]">Link Test</a>
</p>
<p>This message brought to you by [(cgi SERVER_NAME)] as a public
service.
</p>
------------------------------------------------------------
To subscribe: [EMAIL PROTECTED]
To unsubscribe: [EMAIL PROTECTED]
Search: <http://www.mail-archive.com/turbine%40list.working-dogs.com/>
Problems?: [EMAIL PROTECTED]
