Displaying 1 result from an estimated 1 matches for "newcmd".
Did you mean:
netcmd
1997 Sep 01
1
R-alpha: old Rdoc 2 new Rdoc
...$text =~ /$id(.*)$id/s;
my $x = $1;
$x =~ /\s*([^@]*)\s*@@\s*(.*)\s*/s;
$arg1 = $1;
$arg2 = $2;
$arg1 =~ s/^\s*//s;
$arg1 =~ s/\s*$//s;
$arg2 =~ s/^\s*//s;
$arg2 =~ s/\s*$//s;
($arg1, $arg2);
}
sub replace_command {
my $cmd = $_[0];
my $newcmd = $_[1];
if($text =~ /$cmd($ID)/s){
my $id = $1;
$text =~ s/$cmd$id(.*)$id/\\$newcmd\{$1\}/s;
}
}
sub replace_command_all {
my $cmd = $_[0];
my $newcmd = $_[1];
while(($text =~ /$cmd$ID/)){
replace_command($cmd, $newcmd);
}
}
--xk+LtGr+JJ
Content-Type: text/...