mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-23 06:38:22 +02:00
22 lines
602 B
Sed
22 lines
602 B
Sed
# function names with parameters
|
|
s/function \([^(]*\)W *(/function \1(/
|
|
# procedure names with parameters
|
|
s/procedure \([^(]*\)W *(/procedure \1(/
|
|
# function names without parameters
|
|
s/function \([^:(]*\)W *: */function \1 : /
|
|
# procedure names without parameters
|
|
s/procedure \([^;(]*\)W *;/procedure \1;/
|
|
# function return value
|
|
s/\([^ \t]*\)W *:=/\1:=/
|
|
# function call with parameters
|
|
s/\:=\(.*\)W(/:=\1(/
|
|
# function call without parameters
|
|
s/\:=\(.*\)W *;/:=\1;/
|
|
# unit name
|
|
s/unifun;/unidef;/
|
|
# cvs name
|
|
s/unifun.inc,v/unidef.inc,v/
|
|
# unit conditionnal
|
|
s/UNICODEFUNCTIONS/UNICODEFUNCTIONSDEFAULT/
|
|
|