paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 22:49:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed winceunits sources and added them to build.

Browse Source 
git-svn-id: trunk@10900 -
This commit is contained in:
yury 2008-05-07 12:46:47 +00:00
parent d1dd8bd928
commit 9633252e30
16 changed files with 3053 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -4444,7 +4444,10 @@ packages/uuid/src/libuuid.pp svneol=native#text/plain
packages/uuid/src/macuuid.pp svneol=native#text/plain
packages/uuid/tests/testlibuid.pp svneol=native#text/plain
packages/uuid/tests/testuid.pp svneol=native#text/plain
packages/winceunits/Makefile svneol=native#text/plain
packages/winceunits/Makefile.fpc svneol=native#text/plain
packages/winceunits/src/aygshell.pp svneol=native#text/plain
packages/winceunits/src/buildwinceunits.pp svneol=native#text/plain
packages/winceunits/src/commctrl.pp svneol=native#text/plain
packages/winceunits/src/commdlg.pp svneol=native#text/plain
packages/winceunits/src/iphlpapi.pp svneol=native#text/plain

53
packages/Makefile
View File

@ -1,5 +1,5 @@
#
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2008/04/30]
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2008/05/07]
#
default: all
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-darwin x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-darwin powerpc64-embedded avr-embedded armeb-linux armeb-embedded
@ -300,7 +300,7 @@ ifeq ($(FULL_TARGET),i386-netwlibc)
override TARGET_DIRS+=hash pasjpeg paszlib fpmkunit fcl-base fcl-db fcl-image fcl-net fcl-passrc fcl-registry fcl-xml fcl-fpcunit fcl-json fcl-process unzip regexpr chm fcl-res libgd fv zlib unzip
endif
ifeq ($(FULL_TARGET),i386-wince)
override TARGET_DIRS+=hash pasjpeg paszlib fpmkunit fcl-base fcl-db fcl-image fcl-net fcl-passrc fcl-registry fcl-xml fcl-fpcunit fcl-json fcl-process unzip regexpr chm fcl-res libgd fcl-web tcl fftw unzip zlib sqlite mysql ibase postgres oracle odbc sdl openssl oggvorbis numlib
override TARGET_DIRS+=hash pasjpeg paszlib fpmkunit fcl-base fcl-db fcl-image fcl-net fcl-passrc fcl-registry fcl-xml fcl-fpcunit fcl-json fcl-process unzip regexpr chm fcl-res libgd winceunits fcl-web tcl fftw unzip zlib sqlite mysql ibase postgres oracle odbc sdl openssl oggvorbis numlib
endif
ifeq ($(FULL_TARGET),i386-embedded)
override TARGET_DIRS+=hash pasjpeg paszlib fpmkunit fcl-base fcl-db fcl-image fcl-net fcl-passrc fcl-registry fcl-xml fcl-fpcunit fcl-json fcl-process unzip regexpr chm fcl-res libgd
@ -390,7 +390,7 @@ ifeq ($(FULL_TARGET),arm-darwin)
override TARGET_DIRS+=hash pasjpeg paszlib fpmkunit fcl-base fcl-db fcl-image fcl-net fcl-passrc fcl-registry fcl-xml fcl-fpcunit fcl-json fcl-process unzip regexpr chm fcl-res libgd fv fcl-web fcl-async ibase mysql ncurses zlib oracle odbc postgres sqlite pthreads imagemagick libpng x11 gdbm tcl syslog libcurl opengl cairo gtk1 gtk2 bfd aspell svgalib imlib utmp fpgtk xforms fftw pcap ggi openssl gnome1 httpd13 httpd20 httpd22 numlib
endif
ifeq ($(FULL_TARGET),arm-wince)
override TARGET_DIRS+=hash pasjpeg paszlib fpmkunit fcl-base fcl-db fcl-image fcl-net fcl-passrc fcl-registry fcl-xml fcl-fpcunit fcl-json fcl-process unzip regexpr chm fcl-res libgd fcl-web tcl fftw unzip zlib sqlite mysql ibase postgres oracle odbc sdl openssl oggvorbis numlib
override TARGET_DIRS+=hash pasjpeg paszlib fpmkunit fcl-base fcl-db fcl-image fcl-net fcl-passrc fcl-registry fcl-xml fcl-fpcunit fcl-json fcl-process unzip regexpr chm fcl-res libgd winceunits fcl-web tcl fftw unzip zlib sqlite mysql ibase postgres oracle odbc sdl openssl oggvorbis numlib
endif
ifeq ($(FULL_TARGET),arm-gba)
override TARGET_DIRS+=hash pasjpeg paszlib fpmkunit fcl-base fcl-db fcl-image fcl-net fcl-passrc fcl-registry fcl-xml fcl-fpcunit fcl-json fcl-process unzip regexpr chm fcl-res libgd
@ -2231,6 +2231,7 @@ TARGET_DIRS_REGEXPR=1
TARGET_DIRS_CHM=1
TARGET_DIRS_FCL-RES=1
TARGET_DIRS_LIBGD=1
TARGET_DIRS_WINCEUNITS=1
TARGET_DIRS_FCL-WEB=1
TARGET_DIRS_TCL=1
TARGET_DIRS_FFTW=1
@ -3598,6 +3599,7 @@ TARGET_DIRS_REGEXPR=1
TARGET_DIRS_CHM=1
TARGET_DIRS_FCL-RES=1
TARGET_DIRS_LIBGD=1
TARGET_DIRS_WINCEUNITS=1
TARGET_DIRS_FCL-WEB=1
TARGET_DIRS_TCL=1
TARGET_DIRS_FFTW=1
@ -7666,6 +7668,51 @@ univint:
$(MAKE) -C univint all
.PHONY: univint_all univint_debug univint_smart univint_release univint_units univint_examples univint_shared univint_install univint_sourceinstall univint_exampleinstall univint_distinstall univint_zipinstall univint_zipsourceinstall univint_zipexampleinstall univint_zipdistinstall univint_clean univint_distclean univint_cleanall univint_info univint_makefiles univint
endif
ifdef TARGET_DIRS_WINCEUNITS
winceunits_all:
$(MAKE) -C winceunits all
winceunits_debug:
$(MAKE) -C winceunits debug
winceunits_smart:
$(MAKE) -C winceunits smart
winceunits_release:
$(MAKE) -C winceunits release
winceunits_units:
$(MAKE) -C winceunits units
winceunits_examples:
$(MAKE) -C winceunits examples
winceunits_shared:
$(MAKE) -C winceunits shared
winceunits_install:
$(MAKE) -C winceunits install
winceunits_sourceinstall:
$(MAKE) -C winceunits sourceinstall
winceunits_exampleinstall:
$(MAKE) -C winceunits exampleinstall
winceunits_distinstall:
$(MAKE) -C winceunits distinstall
winceunits_zipinstall:
$(MAKE) -C winceunits zipinstall
winceunits_zipsourceinstall:
$(MAKE) -C winceunits zipsourceinstall
winceunits_zipexampleinstall:
$(MAKE) -C winceunits zipexampleinstall
winceunits_zipdistinstall:
$(MAKE) -C winceunits zipdistinstall
winceunits_clean:
$(MAKE) -C winceunits clean
winceunits_distclean:
$(MAKE) -C winceunits distclean
winceunits_cleanall:
$(MAKE) -C winceunits cleanall
winceunits_info:
$(MAKE) -C winceunits info
winceunits_makefiles:
$(MAKE) -C winceunits makefiles
winceunits:
$(MAKE) -C winceunits all
.PHONY: winceunits_all winceunits_debug winceunits_smart winceunits_release winceunits_units winceunits_examples winceunits_shared winceunits_install winceunits_sourceinstall winceunits_exampleinstall winceunits_distinstall winceunits_zipinstall winceunits_zipsourceinstall winceunits_zipexampleinstall winceunits_zipdistinstall winceunits_clean winceunits_distclean winceunits_cleanall winceunits_info winceunits_makefiles winceunits
endif
ifdef TARGET_DIRS_AMUNITS
amunits_all:
$(MAKE) -C amunits all

2
packages/Makefile.fpc
View File

@ -41,7 +41,7 @@ dirs_win32=fv winunits-base winunits-jedi fcl-web ibase mysql zlib oracle odbc p
oggvorbis sdl openssl graph pcap httpd13 httpd20 httpd22 pxlib numlib
dirs_win64=fv winunits-base winunits-jedi fcl-web ibase mysql zlib oracle odbc postgres sqlite imagemagick \
tcl opengl gtk1 gtk2 fpgtk fftw sdl openssl cdrom numlib
dirs_wince=fcl-web tcl fftw unzip zlib sqlite mysql ibase postgres oracle odbc sdl openssl oggvorbis numlib
dirs_wince=winceunits fcl-web tcl fftw unzip zlib sqlite mysql ibase postgres oracle odbc sdl openssl oggvorbis numlib
dirs_os2=fv zlib libpng x11 tcl fpgtk rexx os2units gtk1 imlib
dirs_emx=fv zlib libpng x11 tcl fpgtk rexx os2units gtk1 imlib
dirs_netware=fv zlib unzip

2840
packages/winceunits/Makefile Normal file
View File

File diff suppressed because it is too large Load Diff

29
packages/winceunits/Makefile.fpc Normal file
View File

@ -0,0 +1,29 @@
#
# Makefile.fpc for WinCE Units
#
[package]
name=winceunits
version=2.3.1
[target]
units=buildwinceunits
implicitunits=aygshell commctrl commdlg iphlpapi notify oleaut32 power shellapi simmgr tapi
examples=examples
rsts = jwawintype comconst
[install]
buildunit=buildwinceunits
fpcpackage=y
[default]
fpcdir=../..
[compiler]
options=-Ur
sourcedir=src
[rules]
.NOTPARALLEL:

17
packages/winceunits/src/aygshell.pp
View File

@ -1,6 +1,6 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2006 Free Pascal development team.
Copyright (c) 2006-2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -283,8 +283,13 @@
236 VerifyTrust
}
{$ifdef read_interface}
unit aygshell;
interface
uses windows;
{$calling cdecl}
//*****************************************************************************
// consts
@ -480,10 +485,6 @@ function SHSipInfo(uiAction: UINT; uiParam: UINT; pvParam: PVOID; fWinIni: UINT
function SHSipPreference(hwnd: HWND ; st : SIPSTATE ) : WINBOOL; external UserDLLAyg name 'SHSipPreference';
function SHRecognizeGesture(var shrg : SHRGINFO): DWORD; external UserDLLAyg name 'SHRecognizeGesture';
{$endif read_interface}
{$ifdef read_implementation}
{$endif read_implementation}
implementation
end.

28
packages/winceunits/src/buildwinceunits.pp Normal file
View File

@ -0,0 +1,28 @@
{
Dummy unit to compile everything in one go
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the
Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.
}
unit buildwinceunits;
interface
uses
aygshell,commctrl,commdlg,iphlpapi,notify,oleaut32,power,shellapi,simmgr,tapi;
implementation
end.

16
packages/winceunits/src/commctrl.pp
View File

@ -1,6 +1,6 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2006 Free Pascal development team.
Copyright (c) 2006-2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -80,7 +80,13 @@
33 Str_SetPtrW
}
{$ifdef read_interface}
unit commctrl;
interface
uses windows;
{$calling cdecl}
//*****************************************************************************
// consts
@ -665,9 +671,7 @@ function CommandBar_AddToolTips(hwndCB: HWND; cbToolTips : UINT; lpToolTipsStrin
function CommandBands_Height(hwndCmdBands : HWND) : UINT;
function CommandBands_IsVisible(hwndCmdBands : HWND) : BOOL;
{$endif read_interface}
{$ifdef read_implementation}
implementation
procedure CommandBar_Destroy(hwndCB : HWND);
begin
@ -704,4 +708,4 @@ begin
CommandBands_IsVisible:=IsWindowVisible(hwndCmdBands);
end;
{$endif read_implementation}
end.

18
packages/winceunits/src/commdlg.pp
View File

@ -1,6 +1,6 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2005 Free Pascal development team.
Copyright (c) 2005-2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -14,8 +14,13 @@
{ Declarations for comdlg WinCE API
}
unit commdlg;
{$ifdef read_interface}
interface
uses windows;
{$calling cdecl}
//*****************************************************************************
// consts
@ -53,10 +58,7 @@ function PageSetupDlg(_para1:LPPAGESETUPDLGW):WINBOOL; external ComdlgDLL name '
function PageSetupDlgW(_para1:LPPAGESETUPDLGW):WINBOOL; external ComdlgDLL name 'PageSetupDlgW';
function PrintDlg(_para1:LPPRINTDLG):WINBOOL; external ComdlgDLL name 'PrintDlg';
{$endif read_interface}
{$ifdef read_implementation}
implementation
function CommDlg_OpenSave_GetSpecA(_hdlg:HWND;_psz:LPSTR;_cbmax : longint) : LRESULT;
begin
@ -123,6 +125,4 @@ begin
CommDlg_OpenSave_SetDefExt:=SNDMSG(_hdlg,CDM_SETDEFEXT,0,LPARAM(_pszext));
end;
{$endif read_implementation}
end.

18
packages/winceunits/src/iphlpapi.pp
View File

@ -1,6 +1,6 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2006 Free Pascal development team.
Copyright (c) 2006-2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -78,7 +78,13 @@
UnenableRouter
}
{$ifdef read_interface}
unit iphlpapi;
interface
uses windows;
{$calling cdecl}
//*****************************************************************************
// consts
@ -164,10 +170,6 @@ type
function GetNumberOfInterfaces(var dwNumIf : DWORD): DWORD; external IpHlpApiDLL name 'GetNumberOfInterfaces';
function GetAdaptersInfo( pAdapterInfo : PIP_ADAPTER_INFO; var OutBufLen : ULONG): DWORD; external IpHlpApiDLL name 'GetAdaptersInfo';
{$endif read_interface}
{$ifdef read_implementation}
{$endif read_implementation}
implementation
end.

14
packages/winceunits/src/notify.pp
View File

@ -1,6 +1,6 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2007 Free Pascal development team.
Copyright (c) 2007-2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -19,7 +19,13 @@
notify.h
}
{$ifdef read_interface}
unit notify;
interface
uses windows;
{$calling cdecl}
const
NOTIFICATION_EVENT_NONE = 0;
@ -195,4 +201,6 @@ function CeRunAppAtTime(pwszAppName:pTCHAR; var lpTime:SYSTEMTIME):BOOL;external
function CeRunAppAtEvent(pwszAppName:pTCHAR; lWhichEvent:LONG):BOOL;external KernelDLL name 'CeRunAppAtEvent';
function CeHandleAppNotifications(pwszAppName:pTCHAR):BOOL;external KernelDLL name 'CeHandleAppNotifications';
{$endif read_interface}
implementation
end.

20
packages/winceunits/src/oleaut32.pp
View File

@ -1,6 +1,6 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2006 Free Pascal development team.
Copyright (c) 2006-2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -240,7 +240,13 @@
E2 VectorFromBstr
}
{$ifdef read_interface}
unit oleaut32;
interface
uses windows;
{$calling cdecl}
//*****************************************************************************
// consts
@ -265,12 +271,6 @@ function SysStringLen(bstr:pointer):UINT; external oleaut32dll name 'SysStringL
function SysReAllocString(var bstr:pointer;psz: pointer): Integer; external oleaut32dll name 'SysReAllocString';
function SysReAllocStringLen(var bstr:pointer;psz: pointer; len:dword): Integer; external oleaut32dll name 'SysReAllocStringLen';
implementation
{$endif read_interface}
{$ifdef read_implementation}
{$endif read_implementation}
end.

15
packages/winceunits/src/power.pp
View File

@ -1,6 +1,6 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2007 Free Pascal development team.
Copyright (c) 2007-2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -21,7 +21,14 @@
{ Power Management APIs }
{$ifdef read_interface}
unit power;
interface
uses windows;
{$calling cdecl}
const
AC_LINE_OFFLINE = $00;
AC_LINE_ONLINE = $01;
@ -148,4 +155,6 @@ function GetSystemPowerStatusEx(var SystemPowerStatusEx: SYSTEM_POWER_STATUS_EX;
{ Return value : 0 = fail. Non-zero indicates length of returned data. }
function GetSystemPowerStatusEx2(var SystemPowerStatusEx2: SYSTEM_POWER_STATUS_EX2; dwLen:DWORD; fUpdate:BOOL):DWORD;external KernelDLL name 'GetSystemPowerStatusEx2';
{$endif read_interface}
implementation
end.

18
packages/winceunits/src/shellapi.pp
View File

@ -1,6 +1,6 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2006 Free Pascal development team.
Copyright (c) 2006-2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -172,7 +172,14 @@
}
{$ifdef read_interface}
{$mode objfpc}
unit shellapi;
interface
uses windows;
{$calling cdecl}
//*****************************************************************************
// consts
@ -228,9 +235,6 @@ function SHGetPathFromIDListW(_para1:LPCITEMIDLIST; _para2:LPTSTR):WINBOOL; exte
function SHGetMalloc(var ppMalloc: LPMALLOC): HRESULT; external ShellDLL name 'SHGetMalloc';
function SHGetSpecialFolderLocation(_para1:HWND; _para2:longint; var _para3:LPITEMIDLIST):HRESULT; external ShellDLL name 'SHGetSpecialFolderLocation';
{$endif read_interface}
implementation
{$ifdef read_implementation}
{$endif read_implementation}
end.

16
packages/winceunits/src/simmgr.pp
View File

@ -1,6 +1,6 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2007 Free Pascal development team.
Copyright (c) 2007-2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -20,7 +20,13 @@
contact S0vNark0m for more information snk_post@mail.ru (en, ru)
}
{$ifdef read_interface}
unit simmgr;
interface
uses windows;
{$calling cdecl}
//*****************************************************************************
// consts
@ -533,8 +539,6 @@ function SimWriteRecord(hSim:HSIM; dwAddress:DWORD; dwRecordType:DWORD; dwIndex:
// Points to a SIM record information structure
function SimGetRecordInfo(hSim:HSIM; dwAddress:DWORD; lpSimRecordInfo:LPSIMRECORDINFO):HRESULT;external KernelDLL name 'SimGetRecordInfo';
{$endif read_interface}
implementation
{$ifdef read_implementation}
{$endif read_implementation}
end.

16
packages/winceunits/src/tapi.pp
View File

@ -1,6 +1,6 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2007 Free Pascal development team.
Copyright (c) 2007-2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -19,7 +19,13 @@
contact S0vNark0m for more information snk_post@mail.ru (en, ru)
}
{$ifdef read_interface}
unit tapi;
interface
uses windows;
{$calling cdecl}
//*****************************************************************************
// consts
@ -1793,9 +1799,7 @@ function phoneShutdown(hPhoneApp:HPHONEAPP):LONG;external KernelDLL name 'phoneS
function TAPIERROR_FORMATMESSAGE(const AErrCode: Longword): Longword; // C Macros conversion, may be wrong
{$endif read_interface}
{$ifdef read_implementation}
implementation
function TAPIERROR_FORMATMESSAGE(const AErrCode: Longword): Longword;
begin
@ -1804,4 +1808,4 @@ begin
Exit(AErrCode-$80000000+$E000);
end;
{$endif read_implementation}
end.