unidef.sed 602 B

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