From 4f8a06d4d18b0e491f9294eca7ef8840f326e7bc Mon Sep 17 00:00:00 2001 From: schodet Date: Sun, 6 Mar 2005 17:37:45 +0000 Subject: Support des fixed. Support d'un nombre illimité d'argument. --- n/avr/proto/protodec | 39 +++++++++++++++++---------------------- 1 file changed, 17 insertions(+), 22 deletions(-) (limited to 'n/avr/proto') diff --git a/n/avr/proto/protodec b/n/avr/proto/protodec index 0ee929b..7a29004 100755 --- a/n/avr/proto/protodec +++ b/n/avr/proto/protodec @@ -6,9 +6,11 @@ sub syntax print <) { chomp; - if (/^!([a-zA-Z])(\w\w)?(\w\w)?(\w\w)?(\w\w)?(\w\w)?(\w\w)?(\w\w)?(\w\w)?(\w\w)?$/o) + if (/^!([a-zA-Z])(?:[a-f0-9]{2})*$/o) { - my @m; - push @m, $1 if defined $1; - push @m, $2 if defined $2; - push @m, $3 if defined $3; - push @m, $4 if defined $4; - push @m, $5 if defined $5; - push @m, $6 if defined $6; - push @m, $7 if defined $7; - push @m, $8 if defined $8; - push @m, $9 if defined $9; - prcmd \%cmd, @m; + my $c = $1; + s/^!([a-zA-Z])//; + my @args = /[a-f0-9]{2}/og; + prcmd \%cmd, $c, @args; } } -- cgit v1.2.3