ascdef.sed 598 B

123456789101112131415161718192021
  1. # function names with parameters
  2. s/function \([^(]*\)A *(/function \1(/
  3. # procedure names with parameters
  4. s/procedure \([^(]*\)A *(/procedure \1(/
  5. # function names without parameters
  6. s/function \([^:(]*\)A *: */function \1 : /
  7. # procedure names without parameters
  8. s/procedure \([^;(]*\)A *;/procedure \1;/
  9. # function return value
  10. s/\([^ \t]*\)A *:=/\1:=/
  11. # function call with parameters
  12. s/\:=\(.*\)A(/:=\1(/
  13. # function call without parameters
  14. s/\:=\(.*\)A *;/:=\1;/
  15. # unit name
  16. s/ascfun;/ascdef;/
  17. # cvs name
  18. s/ascfun.inc,v/ascdef.inc,v/
  19. # unit conditionnal
  20. s/ASCIIFUNCTIONS/ASCIIFUNCTIONSDEFAULT/