Re: source.brl

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Chris Beggy <ch...@ki...> writes:

> Does anyone have Bruce's source.brl, which he uses on his
> brlcabaret site?  It displays the brl source for a page.  This
> was a great feature of the php.net web site.  You could always look
> at the source that was generating their site.

It's basically <pre>[(brl-html-escape source)]</pre>.  The BRL Cabaret
pages all have their source kept in a db.

Some time this year I'd like to write a better version that creates
hyperlinks to the BRL manual, the Kawa manual, and R5RS.

Here's the source:

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<!--
[
 (inputs user basename)
 (define st (brl-sql-statement brl-context (db1 brl-context)))
 (define query
  (string-append
     ]select	source
from	webpage
where	logname=[(ss user)]
	and basename=[(ss basename)))
 (define uri (brlcab-uri user basename))
]
-->
<TITLE>Source code: [uri]</TITLE>
<LINK REL=STYLESHEET TYPE="text/css" HREF="[brlcab-top]brl.css">
</HEAD>

<BODY>

[brlcab-mascot]

<H1>Source code: <a href="[uri]">[uri]</a></H1>

<table>
<tr>
<td><hr></td>
</tr>
<td class="example">
<pre>
[(define c
   (sql-repeat st (source)
     (query)
     (brl (brl-html-escape source))))]
</pre>
</td>
</tr>
</table>

</BODY>
</HTML>

-- 
<brlewis@[(if (brl-related? message)    ; Bruce R. Lewis
              "users.sourceforge.net"   ; http://brl.sourceforge.net/
              "alum.mit.edu")]>