"$new" "$fan" "$ds" "$use"
fi
}
+mapargs () {
+ local str=$1
+ printf "%s\n" "$str" \
+ | sed -e 's/\b[a-z]\b/insn_aliases_arg_&/g'
+}
+
alias_r () {
local use=$1 new=$2 actargs=$3 formargs=$4
+
if $macros; then
- cat <<END
-$new macro $formargs
+ mapargs \
+"$new macro $formargs
$use $actargs
- endm
-END
+ endm"
fi
}
alias_f () {
my ($formarglets) = 'inkfgb';
while (<$f>) {
s/0xfe8/W/;
+ s/\binsn_aliases_arg_([a-z])\b/$1/g;
if (m/^\s*\;/) {
} elsif (m/^(\w+)\s+macro(?:\s+([$formarglets,]+))?\s*$/o) {
die if defined $inmacro;