diff --git a/rtl/win32/Makefile b/rtl/win32/Makefile index e464696f68..7ffe86b22f 100644 --- a/rtl/win32/Makefile +++ b/rtl/win32/Makefile @@ -32,6 +32,7 @@ override CPU=i386 RTL=.. INC=$(RTL)/inc PROCINC=$(RTL)/$(CPU) +WININC=wininc # Unit dir UNITDIR=. @@ -72,11 +73,9 @@ UNITOBJECTS=$(SYSTEMUNIT) objpas strings \ cpu mmx getopts heaptrc # Files used by windows.pp -WINDOWS_FILES=base errors defines \ - struct ascfun ascdef \ - unifun unidef func +include $(WININC)/makefile.inc -WINDOWS_SOURCE_FILES=$(addsuffix .pp,$(WINDOWS_FILES)) +WINDOWS_SOURCE_FILES=$(addprefix $(WININC)/,$(addsuffix .inc,$(WINDOWS_FILES))) ##################################################################### @@ -205,10 +204,13 @@ strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc\ # System Dependent Units # -windows$(PPUEXT) : windows.pp redef.inc $(WINDOWS_SOURCE_FILES) $(SYSTEMPPU) +windows$(PPUEXT) : windows.pp $(WINDOWS_SOURCE_FILES) $(SYSTEMPPU) + $(COMPILER) -I$(WININC) windows.pp $(REDIR) ole2$(PPUEXT) : ole2.pp windows$(PPUEXT) $(SYSTEMPPU) +opengl32$(PPUEXT) : opengl32.pp windows$(PPUEXT) $(SYSTEMPPU) + winsock$(PPUEXT) : winsock.pp windows$(PPUEXT) $(SYSTEMPPU) sockets$(PPUEXT) : sockets.pp windows$(PPUEXT) winsock$(PPUEXT) $(SYSTEMPPU) \ @@ -256,189 +258,9 @@ heaptrc$(PPUEXT) : $(INC)/heaptrc.pp $(SYSTEMPPU) # -##################################################################### -# windows.pp -##################################################################### - -# Getting DLL names -# not present in headers !! - -# first get the list of all exported function names -# uses pedump -# for system dll 's -# gdi32.exp will contain all exported functions names of gdi32.dll - -WINDOWS_DIR:=c\:/windows - -%.exp : $(WINDOWS_DIR)/system/%.dll - pedump $< > $*.tmp - sed -n -e "s/Addr:\(.*\)Ord:\(.*\)Name: \(.*\)/@\3@/p" $*.tmp > $*.exp -# -rm $*.tmp - -%.exd : $(WINDOWS_DIR)/system/%.drv - pedump $< > $*.tmp - sed -n -e "s/Addr:\(.*\)Ord:\(.*\)Name: \(.*\)/@\3@/p" $*.tmp > $*.exd -# -rm $*.tmp - -# list of usefull dll's for windows.pp -dllexps : gdi32.exp kernel32.exp advapi32.exp user32.exp mapi32.exp \ - comdlg32.exp shell32.exp mpr.exp comctl32.exp version.exp \ - opengl32.exp spoolss.exp winspool.exd - -# get a complete listing of all system dll's -allexps : $(notdir $(patsubst %.dll,%.exp,$(wildcard $(WINDOWS_DIR)/system/*.dll)) \ - $(patsubst %.drv,%.exd,$(wildcard $(WINDOWS_DIR)/system/*.drv))) - -# extract the dllnames for which the real dll file is not -# known yet -# func.lst will contain all functions for which we still do -# not know the origin DLL -%.lst : %.pp - @$(ECHO) listing DLL function names of $*.pp - sed -n -e "s/\(.*\)External_library name '\([^']*\)'\(.*\)/\2/p" $*.pp > $*.lst - -# get the DLL name from the listing in .exp files -# of the current target -define grepname -$(filter %.dll %.drv ,$(subst .exd:,.drv ,$(subst .exp:,.dll ,$(shell grep @$*@ *.ex*)))) -endef - -# creating of a sed script that -# will substitute all External_library -# by the real name of the DLL if found in exports files - -# two stages -# because you cannot set a variable inside the commands -# Level 1 : set filename variable -# Level 2 : -%.sub : %.lst - @$(ECHO) getting DLL file name for $* - -rm $*.sub - @$(ECHO) # Substitutions for $* >$*.sub -# call make for all names in lst file -# define LongList if there is an error -# because the list is too long -ifdef LongList - $(foreach name,$(shell cat $*.lst),$(MAKE) subfile=$*.sub $(name).find ; ) -else - $(MAKE) subfile=$*.sub $(addsuffix .find,$(shell cat $*.lst)) -endif -# resubstitute unfound ones !! - @$(ECHO) s/external \'\' name \'\([^\']*\)\'/external\ - External_library name \'\1\'/ >>$*.sub - @$(ECHO) # End of substitutions for $* >>$*.sub - -# Change file according to function found in export -# list remaining unfound functions in $*.mis -%.npp : %.sub - sed -f $*.sub $*.pp > $*.npp - sed -n -e "s/\(.*\)External_library name \'\([^\']*\)\'\(.*\)/\2/p" $*.npp > $*.mis - -%.find : - @$(ECHO) $* is in $(grepname) -ifdef subfile - @$(ECHO) s/external External_library name \'$*\'/external\ - \'$(filter %.dll %.drv ,$(subst .exd:,.drv ,$(subst .exp:,.dll ,$(shell grep @$*@ *.ex*))))\'\ - name \'$*\'/ >>$(subfile) -else - @$(ECHO) external \ - \'$(filter %.dll %.drv ,$(subst .exd:,.drv ,$(subst .exp:,.dll ,$(shell grep @$*@ *.ex*))))\'\ - name $* -endif - -GNUWIN32LIBDIR=./ - -%.find2 : - @$(ECHO) s/In archive \(.*\)/\1/p >find.sed - @$(ECHO) s/\(.*\)___imp_$*@\(.*\)/found: $*/p >>find.sed -ifdef subfile - sed -n -f find.sed alllibs.sym >> $(subfile) -else - sed -n -f find.sed alllibs.sym > $*.res -endif - -missing : $(GNUWIN32LIBDIR)alllibs.sym $(addsuffix .lst,$(WINDOWS_FILES)) - -rm missing - $(MAKE) subfile=missing $(addsuffix .find2,$(shell cat *.lst)) - -substmissing : missing - dtou missing - @$(ECHO) N > test.sed - @$(ECHO) s/lib\(.*\)\.a:\nfound: \(.*\)/\1.dll : \2/p >> test.sed - @$(ECHO) D >> test.sed - sed -n -f test.sed missing > missing.tmp - sed -e "s#\(.*\) : \(.*\)#s/external External_library name \'\2\'/external \'\1\' name \'\2\'/#" missing.tmp > missing.sub - -dllnames: - $(MAKE) $(addsuffix .lst,$(WINDOWS_FILES)) - -test: - @$(ECHO) namelist of $(filename) is "$(namelist)" - -# automatic conversion from ascfun.pp to ascdef.pp -# and unifun.pp to unidef.pp -# only if sed is present -ifdef SED -ascdef.pp : ascfun.pp ascdef.sed - sed -f ascdef.sed ascfun.pp > ascdef.pp - -unidef.pp : unifun.pp unidef.sed - sed -f unidef.sed unifun.pp > unidef.pp -endif - # # $Log$ -# Revision 1.35 1999-08-13 15:36:38 peter -# * dependencies for crt fixed -# -# Revision 1.34 1999/06/21 12:41:33 florian -# * minor typos in winsock.pp fixed -# + makefile for sockets.pp updated -# -# Revision 1.33 1999/06/18 13:59:49 florian -# * changes for the winsock unit -# -# Revision 1.32 1999/06/10 15:02:15 peter -# * last fixes for 0.99.12 release -# -# Revision 1.31 1999/05/13 22:38:03 peter -# * -Sg for heaptrc -# -# Revision 1.30 1999/05/10 19:34:06 florian -# * moved all opengl32.dll stuff to a newly created opengl32 unit, so -# win32 programs should also run on Windows without opengl32.dll -# -# Revision 1.29 1999/05/05 22:24:09 peter -# * 0.99.10 check for browser -# -# Revision 1.28 1999/05/04 11:59:52 peter -# * browser off by default -# -# Revision 1.27 1999/04/28 11:42:50 peter -# + FileNameCaseSensetive boolean -# -# Revision 1.26 1999/04/22 10:56:33 peter -# * fixed sysutils dependencys -# * objpas files are agian in the main Makefile, makefile.op is obsolete -# -# Revision 1.25 1999/04/20 11:34:11 peter -# + crt unit that compiles -# -# Revision 1.24 1999/03/22 22:12:50 florian -# + addition and changes to compile the direct draw unit -# of Erik Ungerer (with -dv2com and indirect disabled) -# -# Revision 1.23 1999/03/16 00:47:10 peter -# * makefile.fpc targets start with fpc_ -# * small updates for install scripts -# -# Revision 1.22 1999/03/12 21:02:19 michael -# + clean and libsclean added -# -# Revision 1.21 1999/03/10 23:45:21 peter -# * AS is now always asw -# -# Revision 1.20 1999/03/09 01:35:56 peter -# * makefile.fpc updates and defaultfpcdir var +# Revision 1.36 1999-09-16 13:38:07 peter +# * windows unit include moved to wininc/ # # diff --git a/rtl/win32/windows.pp b/rtl/win32/windows.pp index ba4aa9011f..05f59be553 100644 --- a/rtl/win32/windows.pp +++ b/rtl/win32/windows.pp @@ -22,44 +22,43 @@ unit windows; {$define read_interface} {$undef read_implementation} - + {$message starting interface of windows unit } -{$i base.pp} -{$i errors.pp} -{$i defines.pp} -{$i messages.pp} -{$i struct.pp} +{$i base.inc} +{$i errors.inc} +{$i defines.inc} +{$i messages.inc} +{$i struct.inc} {$i redef.inc} -{$i ascfun.pp} -{$i unifun.pp} +{$i ascfun.inc} +{$i unifun.inc} {$ifdef UNICODE} -{$i unidef.pp} +{$i unidef.inc} {$else not UNICODE} -{$i ascdef.pp} +{$i ascdef.inc} {$endif UNICODE} -{$i func.pp} +{$i func.inc} implementation {$undef read_interface} {$define read_implementation} - -const External_library='kernel32'; -{$i base.pp} -{$i errors.pp} -{$i defines.pp} -{$i messages.pp} -{$i struct.pp} -{$i ascfun.pp} -{$i unifun.pp} +{$i base.inc} +{$i errors.inc} +{$i defines.inc} +{$i messages.inc} +{$i struct.inc} +{$i ascfun.inc} +{$i unifun.inc} {$ifdef UNICODE} -{$i unidef.pp} +{$i unidef.inc} {$else not UNICODE} -{$i ascdef.pp} +{$i ascdef.inc} {$endif UNICODE} -{$i func.pp} +{$i func.inc} + procedure InitializeCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'InitializeCriticalSection'; procedure EnterCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'EnterCriticalSection'; procedure LeaveCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'LeaveCriticalSection'; @@ -68,7 +67,10 @@ const External_library='kernel32'; end. { $Log$ - Revision 1.3 1999-05-10 19:34:15 florian + Revision 1.4 1999-09-16 13:38:21 peter + * windows unit include moved to wininc/ + + Revision 1.3 1999/05/10 19:34:15 florian * moved all opengl32.dll stuff to a newly created opengl32 unit, so win32 programs should also run on Windows without opengl32.dll @@ -76,7 +78,7 @@ end. * some updates to compile API units for win32 Revision 1.1 1998/08/31 11:54:02 pierre - * compilable windows.pp file + * compilable windows.inc file still to do : - findout problems - findout the correct DLL for each call !! diff --git a/rtl/win32/wininc/Makefile b/rtl/win32/wininc/Makefile new file mode 100644 index 0000000000..9f3a5ab849 --- /dev/null +++ b/rtl/win32/wininc/Makefile @@ -0,0 +1,165 @@ +# +# $Id$ +# This file is part of the Free Pascal run time library. +# Copyright (c) 1996-98 by Michael van Canneyt +# +# Makefile for the Free Pascal windows.pp include files +# +# See the file COPYING.FPC, included in this distribution, +# for details about the copyright. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +# + +# Warning: this file contains TAB (#9) characters that are required for +# make. Make sure you use an editor that does not replace TABs with +# spaces, or the makefile won't work anymore after you save. + +##################################################################### +# Defaults +##################################################################### + +ECHO=echo + +# Files used by windows.pp +include makefile.inc + + +##################################################################### +# windows.pp +##################################################################### + +# default target +all: ascdef.inc unidef.inc + +# Getting DLL names +# not present in headers !! + +# first get the list of all exported function names +# uses pedump +# for system dll 's +# gdi32.exp will contain all exported functions names of gdi32.dll + +WINDOWS_DIR:=c\:/windows + +%.exp : $(WINDOWS_DIR)/system/%.dll + pedump $< > $*.tmp + sed -n -e "s/Addr:\(.*\)Ord:\(.*\)Name: \(.*\)/@\3@/p" $*.tmp > $*.exp +# -rm $*.tmp + +%.exd : $(WINDOWS_DIR)/system/%.drv + pedump $< > $*.tmp + sed -n -e "s/Addr:\(.*\)Ord:\(.*\)Name: \(.*\)/@\3@/p" $*.tmp > $*.exd +# -rm $*.tmp + +# list of usefull dll's for windows.pp +dllexps : gdi32.exp kernel32.exp advapi32.exp user32.exp mapi32.exp \ + comdlg32.exp shell32.exp mpr.exp comctl32.exp version.exp \ + opengl32.exp spoolss.exp winspool.exd + +# get a complete listing of all system dll's +allexps : $(notdir $(patsubst %.dll,%.exp,$(wildcard $(WINDOWS_DIR)/system/*.dll)) \ + $(patsubst %.drv,%.exd,$(wildcard $(WINDOWS_DIR)/system/*.drv))) + +# extract the dllnames for which the real dll file is not +# known yet +# func.lst will contain all functions for which we still do +# not know the origin DLL +%.lst : %.inc + @$(ECHO) listing DLL function names of $*.inc + sed -n -e "s/\(.*\)External_library name '\([^']*\)'\(.*\)/\2/p" $*.inc > $*.lst + +# get the DLL name from the listing in .exp files +# of the current target +define grepname +$(filter %.dll %.drv ,$(subst .exd:,.drv ,$(subst .exp:,.dll ,$(shell grep @$*@ *.ex*)))) +endef + +# creating of a sed script that +# will substitute all External_library +# by the real name of the DLL if found in exports files + +# two stages +# because you cannot set a variable inside the commands +# Level 1 : set filename variable +# Level 2 : +%.sub : %.lst + @$(ECHO) getting DLL file name for $* + -rm $*.sub + @$(ECHO) # Substitutions for $* >$*.sub +# call make for all names in lst file +# define LongList if there is an error +# because the list is too long +ifdef LongList + $(foreach name,$(shell cat $*.lst),$(MAKE) subfile=$*.sub $(name).find ; ) +else + $(MAKE) subfile=$*.sub $(addsuffix .find,$(shell cat $*.lst)) +endif +# resubstitute unfound ones !! + @$(ECHO) s/external \'\' name \'\([^\']*\)\'/external\ + External_library name \'\1\'/ >>$*.sub + @$(ECHO) # End of substitutions for $* >>$*.sub + +# Change file according to function found in export +# list remaining unfound functions in $*.mis +%.npp : %.sub + sed -f $*.sub $*.inc > $*.npp + sed -n -e "s/\(.*\)External_library name \'\([^\']*\)\'\(.*\)/\2/p" $*.npp > $*.mis + +%.find : + @$(ECHO) $* is in $(grepname) +ifdef subfile + @$(ECHO) s/external External_library name \'$*\'/external\ + \'$(filter %.dll %.drv ,$(subst .exd:,.drv ,$(subst .exp:,.dll ,$(shell grep @$*@ *.ex*))))\'\ + name \'$*\'/ >>$(subfile) +else + @$(ECHO) external \ + \'$(filter %.dll %.drv ,$(subst .exd:,.drv ,$(subst .exp:,.dll ,$(shell grep @$*@ *.ex*))))\'\ + name $* +endif + +GNUWIN32LIBDIR=./ + +%.find2 : + @$(ECHO) s/In archive \(.*\)/\1/p >find.sed + @$(ECHO) s/\(.*\)___imp_$*@\(.*\)/found: $*/p >>find.sed +ifdef subfile + sed -n -f find.sed alllibs.sym >> $(subfile) +else + sed -n -f find.sed alllibs.sym > $*.res +endif + +missing : $(GNUWIN32LIBDIR)alllibs.sym $(addsuffix .lst,$(WINDOWS_FILES)) + -rm missing + $(MAKE) subfile=missing $(addsuffix .find2,$(shell cat *.lst)) + +substmissing : missing + dtou missing + @$(ECHO) N > test.sed + @$(ECHO) s/lib\(.*\)\.a:\nfound: \(.*\)/\1.dll : \2/p >> test.sed + @$(ECHO) D >> test.sed + sed -n -f test.sed missing > missing.tmp + sed -e "s#\(.*\) : \(.*\)#s/external External_library name \'\2\'/external \'\1\' name \'\2\'/#" missing.tmp > missing.sub + +dllnames: + $(MAKE) $(addsuffix .lst,$(WINDOWS_FILES)) + +test: + @$(ECHO) namelist of $(filename) is "$(namelist)" + +# automatic conversion from ascfun.inc to ascdef.inc +# and unifun.inc to unidef.inc +ascdef.inc : ascfun.inc ascdef.sed + sed -f ascdef.sed ascfun.inc > ascdef.inc + +unidef.inc : unifun.inc unidef.sed + sed -f unidef.sed unifun.inc > unidef.inc + +# +# $Log$ +# Revision 1.1 1999-09-16 13:38:22 peter +# * windows unit include moved to wininc/ +# +# diff --git a/rtl/win32/ascdef.pp b/rtl/win32/wininc/ascdef.inc similarity index 99% rename from rtl/win32/ascdef.pp rename to rtl/win32/wininc/ascdef.inc index f36ae04e1d..955e29424b 100644 --- a/rtl/win32/ascdef.pp +++ b/rtl/win32/wininc/ascdef.inc @@ -1822,7 +1822,10 @@ end. {$endif not windows_include_files} { $Log$ - Revision 1.14 1999-07-14 08:46:26 florian + Revision 1.1 1999-09-16 13:38:22 peter + * windows unit include moved to wininc/ + + Revision 1.14 1999/07/14 08:46:26 florian * some fixes (KEY_EVENT_STRUCT was wrong) Revision 1.11 1999/07/06 22:44:10 florian diff --git a/rtl/win32/ascdef.sed b/rtl/win32/wininc/ascdef.sed similarity index 100% rename from rtl/win32/ascdef.sed rename to rtl/win32/wininc/ascdef.sed diff --git a/rtl/win32/ascfun.pp b/rtl/win32/wininc/ascfun.inc similarity index 99% rename from rtl/win32/ascfun.pp rename to rtl/win32/wininc/ascfun.inc index 1a363eafd5..05cadd4f73 100644 --- a/rtl/win32/ascfun.pp +++ b/rtl/win32/wininc/ascfun.inc @@ -1822,7 +1822,10 @@ end. {$endif not windows_include_files} { $Log$ - Revision 1.11 1999-07-06 22:44:10 florian + Revision 1.1 1999-09-16 13:38:22 peter + * windows unit include moved to wininc/ + + Revision 1.11 1999/07/06 22:44:10 florian * some fixes to compile ddraw units from the jedi project Revision 1.10 1999/07/05 14:47:43 florian diff --git a/rtl/win32/base.pp b/rtl/win32/wininc/base.inc similarity index 99% rename from rtl/win32/base.pp rename to rtl/win32/wininc/base.inc index b0760bae82..c7cd6b6463 100644 --- a/rtl/win32/base.pp +++ b/rtl/win32/wininc/base.inc @@ -962,7 +962,10 @@ end. { $Log$ - Revision 1.12 1999-04-20 11:36:10 peter + Revision 1.1 1999-09-16 13:38:22 peter + * windows unit include moved to wininc/ + + Revision 1.12 1999/04/20 11:36:10 peter * compatibility fixes Revision 1.11 1999/03/30 17:00:22 peter diff --git a/rtl/win32/defines.pp b/rtl/win32/wininc/defines.inc similarity index 99% rename from rtl/win32/defines.pp rename to rtl/win32/wininc/defines.inc index 89d2697326..a66d44baa6 100644 --- a/rtl/win32/defines.pp +++ b/rtl/win32/wininc/defines.inc @@ -5718,7 +5718,10 @@ end. {$endif not windows_include_files} { $Log$ - Revision 1.11 1999-07-09 21:12:23 michael + Revision 1.1 1999-09-16 13:38:22 peter + * windows unit include moved to wininc/ + + Revision 1.11 1999/07/09 21:12:23 michael Fix in HKEY_DYN_DATA Revision 1.10 1999/06/01 19:23:11 peter diff --git a/rtl/win32/errors.pp b/rtl/win32/wininc/errors.inc similarity index 98% rename from rtl/win32/errors.pp rename to rtl/win32/wininc/errors.inc index 573ccd7147..25edca2ac3 100644 --- a/rtl/win32/errors.pp +++ b/rtl/win32/wininc/errors.inc @@ -26,8 +26,10 @@ unit errors; { Automatically converted by H2PAS.EXE from errors.h Utility made by Florian Klaempfl 25th-28th september 96 - Improvements made by Mark A. Malakanov 22nd-25th may 97 - Further improvements by Michael Van Canneyt, April 1998 + Improvements made by Mark A. Malakanov 22nd-25th may 97 + + Further improvements by Michael Van Canneyt, April 1998 + define handling and error recovery by Pierre Muller, June 1998 } @@ -38,33 +40,43 @@ unit errors; { C default packing is dword } {$PACKRECORDS 4} - { + { + Errors.h - + + Windows32 API error codes - + + Copyright (C) 1996 Free Software Foundation, Inc. - + + Author: Scott Christley - + + This file is part of the Windows32 API Library. - + + This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. - + + This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. - + + If you are interested in a warranty or support for this source code, contact Scott Christley for more information. - + + You should have received a copy of the GNU Library General Public License along with this library; see the file COPYING.LIB. - If not, write to the Free Software Foundation, + If not, write to the Free Software Foundation, + 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. } {$ifndef _GNU_H_WINDOWS32_ERROR} @@ -758,7 +770,10 @@ end. {$endif windows_include_files} { $Log$ - Revision 1.1 1998-08-31 11:53:56 pierre + Revision 1.1 1999-09-16 13:38:22 peter + * windows unit include moved to wininc/ + + Revision 1.1 1998/08/31 11:53:56 pierre * compilable windows.pp file still to do : - findout problems diff --git a/rtl/win32/func.pp b/rtl/win32/wininc/func.inc similarity index 99% rename from rtl/win32/func.pp rename to rtl/win32/wininc/func.inc index 693bbc9c54..ba121c7d8a 100644 --- a/rtl/win32/func.pp +++ b/rtl/win32/wininc/func.inc @@ -3536,7 +3536,8 @@ in define line 6852 *) function DescribePixelFormat(_para1:HDC; _para2:longint; _para3:UINT; _para4:LPPIXELFORMATDESCRIPTOR):longint; (* Const before type ignored *) - function SetPixelFormat(_para1:HDC; _para2:longint; + function SetPixelFormat(_para1:HDC; _para2:longint; + _para3:PPIXELFORMATDESCRIPTOR):WINBOOL; function SwapBuffers(_para1:HDC):WINBOOL; @@ -6622,7 +6623,8 @@ in define line 6826 *) { function GetPixelFormat(_para1:HDC):longint; external 'gdi32' name 'GetPixelFormat'; } - function SetPixelFormat(_para1:HDC; _para2:longint; + function SetPixelFormat(_para1:HDC; _para2:longint; + _para3:PPIXELFORMATDESCRIPTOR):WINBOOL; external 'gdi32' name 'SetPixelFormat'; function SwapBuffers(_para1:HDC):WINBOOL; external 'gdi32' name 'SwapBuffers'; @@ -6698,7 +6700,10 @@ end. {$endif not windows_include_files} { $Log$ - Revision 1.12 1999-07-06 22:44:12 florian + Revision 1.1 1999-09-16 13:38:22 peter + * windows unit include moved to wininc/ + + Revision 1.12 1999/07/06 22:44:12 florian * some fixes to compile ddraw units from the jedi project Revision 1.11 1999/05/10 19:34:10 florian diff --git a/rtl/win32/wininc/makefile.inc b/rtl/win32/wininc/makefile.inc new file mode 100644 index 0000000000..d28e9a853f --- /dev/null +++ b/rtl/win32/wininc/makefile.inc @@ -0,0 +1,3 @@ +WINDOWS_FILES=base errors defines struct redef \ + ascfun ascdef unifun unidef func + diff --git a/rtl/win32/messages.pp b/rtl/win32/wininc/messages.inc similarity index 98% rename from rtl/win32/messages.pp rename to rtl/win32/wininc/messages.inc index 144de91b47..a407a431fb 100644 --- a/rtl/win32/messages.pp +++ b/rtl/win32/wininc/messages.inc @@ -25,8 +25,10 @@ unit messages; { Automatically converted by H2PAS.EXE from messages.h Utility made by Florian Klaempfl 25th-28th september 96 - Improvements made by Mark A. Malakanov 22nd-25th may 97 - Further improvements by Michael Van Canneyt, April 1998 + Improvements made by Mark A. Malakanov 22nd-25th may 97 + + Further improvements by Michael Van Canneyt, April 1998 + define handling and error recovery by Pierre Muller, June 1998 } @@ -39,33 +41,43 @@ unit messages; { C default packing is dword } {$PACKRECORDS 4} - { + { + Messages.h - + + Windows32 API message definitions - + + Copyright (C) 1996 Free Software Foundation, Inc. - + + Author: Scott Christley - + + This file is part of the Windows32 API Library. - + + This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. - + + This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. - + + If you are interested in a warranty or support for this source code, contact Scott Christley for more information. - + + You should have received a copy of the GNU Library General Public License along with this library; see the file COPYING.LIB. - If not, write to the Free Software Foundation, + If not, write to the Free Software Foundation, + 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. } { WARNING: This file is automatically generated. } @@ -1198,7 +1210,10 @@ end. {$endif windows_include_files} { $Log$ - Revision 1.4 1998-08-31 11:53:58 pierre + Revision 1.1 1999-09-16 13:38:23 peter + * windows unit include moved to wininc/ + + Revision 1.4 1998/08/31 11:53:58 pierre * compilable windows.pp file still to do : - findout problems diff --git a/rtl/win32/redef.inc b/rtl/win32/wininc/redef.inc similarity index 96% rename from rtl/win32/redef.inc rename to rtl/win32/wininc/redef.inc index fe35cc7045..f04f8cfab8 100644 --- a/rtl/win32/redef.inc +++ b/rtl/win32/wininc/redef.inc @@ -102,7 +102,10 @@ type { $Log$ - Revision 1.4 1999-06-18 13:59:50 florian + Revision 1.1 1999-09-16 13:38:24 peter + * windows unit include moved to wininc/ + + Revision 1.4 1999/06/18 13:59:50 florian * changes for the winsock unit Revision 1.3 1999/04/20 11:36:16 peter diff --git a/rtl/win32/struct.pp b/rtl/win32/wininc/struct.inc similarity index 99% rename from rtl/win32/struct.pp rename to rtl/win32/wininc/struct.inc index 4593ddb144..8caa43fa86 100644 --- a/rtl/win32/struct.pp +++ b/rtl/win32/wininc/struct.inc @@ -6927,7 +6927,10 @@ end. {$endif not windows_include_files} { $Log$ - Revision 1.10 1999-07-14 08:46:27 florian + Revision 1.1 1999-09-16 13:38:24 peter + * windows unit include moved to wininc/ + + Revision 1.10 1999/07/14 08:46:27 florian * some fixes (KEY_EVENT_STRUCT was wrong) Revision 1.9 1999/05/19 16:22:03 peter diff --git a/rtl/win32/unidef.pp b/rtl/win32/wininc/unidef.inc similarity index 99% rename from rtl/win32/unidef.pp rename to rtl/win32/wininc/unidef.inc index 4a426d77d6..dd1e13c7ec 100644 --- a/rtl/win32/unidef.pp +++ b/rtl/win32/wininc/unidef.inc @@ -1837,7 +1837,10 @@ end. {$endif not windows_include_files} { $Log$ - Revision 1.13 1999-07-14 08:46:29 florian + Revision 1.1 1999-09-16 13:38:24 peter + * windows unit include moved to wininc/ + + Revision 1.13 1999/07/14 08:46:29 florian * some fixes (KEY_EVENT_STRUCT was wrong) Revision 1.10 1999/07/06 22:44:17 florian diff --git a/rtl/win32/unidef.sed b/rtl/win32/wininc/unidef.sed similarity index 100% rename from rtl/win32/unidef.sed rename to rtl/win32/wininc/unidef.sed diff --git a/rtl/win32/unifun.pp b/rtl/win32/wininc/unifun.inc similarity index 99% rename from rtl/win32/unifun.pp rename to rtl/win32/wininc/unifun.inc index a2f1294c39..8845082d97 100644 --- a/rtl/win32/unifun.pp +++ b/rtl/win32/wininc/unifun.inc @@ -1837,7 +1837,10 @@ end. {$endif not windows_include_files} { $Log$ - Revision 1.10 1999-07-06 22:44:17 florian + Revision 1.1 1999-09-16 13:38:24 peter + * windows unit include moved to wininc/ + + Revision 1.10 1999/07/06 22:44:17 florian * some fixes to compile ddraw units from the jedi project Revision 1.9 1999/05/10 19:34:14 florian