(defcc <grab-numbers>
       <<X>> <numbers> <<Y>> := <numbers>;)

(defcc <numbers>
       <number> <numbers>;
       <number>;)

(defcc <number>
        -*- := (if (number? -*-) [-*-] #\Escape);)

(defcc <grab-my-name>
   <<X>> :name <<Y>> := <<Y>>;)

Examples:

(compile <grab-my-name> [ghhghg 7 8 :name Mark Tarver])
[Mark Tarver]

(compile <grab-numbers> [just some numbers 1 2 3/4 tum te tum])
[1 2 3/4]

The code is 85 lines.

Cool this looks like a natural building block, but what do you think
about patterns like

(defcc <f>
 <<L>> <numbers> <<L>> := ...)

They is nice to have for situations like
<string-prefix> <<boundary>> <endl> <<String>> <<boundary>> := (COERCE
<<String>> STRING);

/Stefan

On 26 June, 11:37, Mark Tarver <dr.mtar...@ukonline.co.uk> wrote:

(defcc <f>
 <<L1>> <numbers> <<L2>> := (if (= <<L1>> <<L2>>) ..... #\Escape);)

1. Scrapes out the text from an HTML file.
2. Grabs an HTML template and sticks it into the template in a spot
called Text! and
3. Creates a new resulting HTML file .

(define text
  File -> (let Chars (read-file-as-charlist File)
                    Text (FORMAT NIL "~{~C~}" (compile <scrape>
Chars))
                    Template (read-file-as-charlist "template.htm")
                    Html (compile <insert> [Text | Template])
                    (write-to-file "out. Html)))

(defcc <scrape>
    #\< <<X>> #\> <scrape> := <scrape>;
   -*- <scrape>;
   <e> := [];)