Lines Matching refs:macros

185 my %macros;
298     $macros{ $macro } = { 
304     if ($macros{ $macro }{concat_until}) {
305         $macros{ $macros{ $macro }{concat_until} } = { run => sub { @_ } };
306         $macros{ $macro }{greedy}                  = 1;
313     croak "Macro <$macro> not defined" if not exists $macros{ $macro };
314     +{ %{ $macros{ $macro } } }
434     @args = _unquote(@args) if (!$macros{ $macro }{raw});
438         if ($_ =~ /^[A-Z][a-z]+$/ && exists $macros{ $_ }) {
442             if ($macros{ $macro }{greedy}) {
452     if ($macros{ $macro }{concat_until}) {
455             die "EOF was reached and no $macros{ $macro }{concat_until} found" 
458             if ($n_macro eq $macros{ $macro }{concat_until}) {
464                 push @ret, call_macro($n_macro, @n_args) if exists $macros{ $n_macro };
469     if ($macros{ $macro }{greedy}) {
471         return $macros{ $macro }{run}->(@ret);
475         return $macros{ $macro }{run}->(@newargs), @ret;
500                 if ($macro && exists $macros{ $macro }) {