#!/usr/bin/perl -w use strict; grammar javascript { rule single_line_comment { // \N* : } rule multi_line_comment { /\* [ <- [*] >* : | | \* ]* \*/ } rule comment { | } rule quoted_string ($type) { $type [ <- [$type] >+ : | [ $type ] ]* $type } rule string { | } rule block ($left,$right) { $left [ <- [$left$right"'/] >* : | | | ]* $right } rule code { } rule cond { } rule header { } rule body :w {

 }
    rule match        {   }
}

grammar script is javascript
{
    rule header :wi {
        \<
        script
        <- [>] >*  \>
        [ \< ! -- ]?
    }
    rule body :wi {
        [
              <- [<("'/] >* 
            | 
            | 
            | 
            | 
            |  >
        ]*
    }
    rule footer :wi { \ }
    rule match      {    }
}

grammar function is javascript
{
    rule arg_list :w {
        \(
        [
            \w+
             >
        ]*
        \)
    }

    rule name          { \w+ }
    rule header   :wi { function   }
}

grammar while is javascript {
    rule header :wi { while  }
}

grammar for is javascript {
    rule decl { <- [;] >* : }
    rule cond { <- [;] >* : }
    rule incr { <- [)] >* : }

    rule header :wi  { for \(  ;  ;  \) }
}

grammar do is javascript {
    rule header :wi { do }
    rule footer :wi { while  }
    rule match      {    }
}


module main;

my (@scripts, @functions, @html);

@html := <>;
my $html is from(\@html);
$html =~ m:e/ @scripts := () /;

@scripts =~ m:e/ @functions := () /;

for @functions -> $function {
    given $function {
            when /   
                   | 
                   | 
                 /  { catalog_complex ($_) }
            default { catalog_simple  ($_) }
    }
}

sub catalog_simple  { ... }
sub catalog_complex { ... }