+ all unknown function ifdef with

    conditionnal unknown_functions
    testwin works now, but windowcreate still fails !!

rtl/win32/ascdef.sed

@@ -1,9 +1,21 @@
+# 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.pp,v/ascdef.pp,v/
-s/ASCIIFUNCTIONS/ASCIIFUNCFIONSDEFAULT/
+# unit conditionnal
+s/ASCIIFUNCTIONS/ASCIIFUNCTIONSDEFAULT/
 

rtl/win32/base.pp

@@ -156,7 +156,10 @@ unit base;
      FLOAT = real;
   { typedef GLOBALHANDLE;  }
 
-     HANDLE = pointer;
+  {   HANDLE = pointer;
+    need to be compatible 
+    with longint for Delphi !! }
+     HANDLE = longint;{ or should it be cardinal ?? PM }
 
      HACCEL = HANDLE;
 
@@ -1210,7 +1213,12 @@ end.
 
 {
   $Log$
-  Revision 1.5  1998-08-31 11:53:53  pierre
+  Revision 1.6  1998-09-04 17:17:32  pierre
+    + all unknown function ifdef with
+      conditionnal unknown_functions
+      testwin works now, but windowcreate still fails !!
+
+  Revision 1.5  1998/08/31 11:53:53  pierre
     * compilable windows.pp file
       still to do :
        - findout problems

rtl/win32/makefile

@@ -360,10 +360,10 @@ test:
 # only if sed is present 
 ifdef SED
 ascdef.pp : ascfun.pp ascdef.sed
-	$(SED) -f ascdef.sed ascfun.pp > ascdef.pp
+	sed -f ascdef.sed ascfun.pp > ascdef.pp
 
 unidef.pp : unifun.pp unidef.sed
-	$(SED) -f unidef.sed unifun.pp > unidef.pp
+	sed -f unidef.sed unifun.pp > unidef.pp
 endif
 
 
@@ -375,7 +375,12 @@ include $(CFG)/makefile.def
 
 #
 # $Log$
-# Revision 1.11  1998-09-04 12:33:12  pierre
+# Revision 1.12  1998-09-04 17:17:36  pierre
+#   + all unknown function ifdef with
+#     conditionnal unknown_functions
+#     testwin works now, but windowcreate still fails !!
+#
+# Revision 1.11  1998/09/04 12:33:12  pierre
 #   + added SED testing for ascdef.pp and unidef.pp
 #   * func.pp ready
 #     still some functions missing (commented out for now)

rtl/win32/unidef.sed

@@ -1,9 +1,21 @@
+# 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:=/
-s/unifun;/unidef;/
-s/unifun.pp,v/unidef.pp,v/
-s/UNICODEFUNCTIONS/UNICODEFUNCFIONSDEFAULT/
+# function call with parameters
+s/\:=\(.*\)W(/:=\1(/
+# function call without parameters
+s/\:=\(.*\)W *;/:=\1;/
+# unit name
+s/ascfun;/ascdef;/
+# cvs name
+s/ascfun.pp,v/ascdef.pp,v/
+# unit conditionnal
+s/UNICODEFUNCTIONS/UNICODEFUNCTIONSDEFAULT/