@@ -5,11 +5,11 @@ if [ -z "$@" ]; then
5 5
exit 1
6 6
fi
7 7 8 -
sed -i.bak '
8 +
sed -E -i.bak '
9 9
# Field(x, i) = y ==> Init_field_small(x, i, y)
10 -
s/^\(\s*\)Field(\([^;]*\),\s*\([^;]*\))\s*=\s*\([^;]*\);\s*$/\1Init_field_small(\2, \3, \4);/
10 +
s/^([ \t]*)Field\(([^;]*),[ \t]*([^;]*)\)[ \t]*=[ \t]*([^;]*);[ \t]*$/\1Init_field_small\(\2, \3, \4\);/
11 11 12 12
# caml_initialize(&Field(x, i), y) ==> caml_initialize_field(x, i, y)
13 13
# caml_modify(&Field(x, i), y) ==> caml_modify_field(x, i, y)
14 -
s/^\(\s*\)caml_\(initialize\|modify\)\s*(\s*&\s*Field(\s*\([^,]*\),\s*\([^,()]*\)\s*)\s*,/\1caml_\2_field(\3, \4,/
14 +
s/^([ \t]*)caml_(initialize|modify)[ \t]*\([ \t]*&[ \t]*Field\([ \t]*([^,]*),[ \t]*([^,()]*)[ \t]*\)[ \t]*,/\1caml_\2_field\(\3, \4,/
15 15
' "$@"
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4