mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 21:49:43 +02:00
22 lines
598 B
Sed
22 lines
598 B
Sed
# function names with parameters
|
|
s/function \([^(]*\)A *(/function \1(/
|
|
# procedure names with parameters
|
|
s/procedure \([^(]*\)A *(/procedure \1(/
|
|
# function names without parameters
|
|
s/function \([^:(]*\)A *: */function \1 : /
|
|
# procedure names without parameters
|
|
s/procedure \([^;(]*\)A *;/procedure \1;/
|
|
# function return value
|
|
s/\([^ \t]*\)A *:=/\1:=/
|
|
# function call with parameters
|
|
s/\:=\(.*\)A(/:=\1(/
|
|
# function call without parameters
|
|
s/\:=\(.*\)A *;/:=\1;/
|
|
# unit name
|
|
s/ascfun;/ascdef;/
|
|
# cvs name
|
|
s/ascfun.inc,v/ascdef.inc,v/
|
|
# unit conditionnal
|
|
s/ASCIIFUNCTIONS/ASCIIFUNCTIONSDEFAULT/
|
|
|