Re: Wide Finder in Ada?

[Georg Bauhaus <rm.tsoh+bauhaus@maps.futureapps.de>]

On Mon, 2007-11-12 at 08:57 +0100, Martin Krischik wrote:

> 1.1 Search for %r{GET /ongoing/When/\d\d\dx/(\d\d\d\d/\d\d/\d\d/[^ .]+) }

> 
> First improvement would be the use of Splitbool instead of regular
> expressions.

Do you mean SPITBOL? In this case, here is a simple and quick way to
to the pattern extraction (the ' 'sentinel  at the end of each
line might not be necessary or worked around or it doesn't
matter if it can be set by some Input).

        digit = any('0123456789')
        D2 = digit digit
        D3 = digit D2
        D4 = digit D3

* results table
        counts = table()

* read lines, find pages, and record hits

L       line = input                            :f(done)
        line = line ' '
        line ? 'GET ' fence '/ongoing/When/' D3 'x/'
.               (D4 '/' D2 '/' D2 '/' break(' .')) . word
.                                               :f(L)
        counts[word] = counts[word] + 1         :(L)
done