paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 04:30:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added fcl/wince more fcl units compile

Browse Source 
git-svn-id: trunk@2008 -
This commit is contained in:
oro06 2005-12-20 15:50:29 +00:00
parent 68e56b9fc7
commit c221e00a2d
4 changed files with 59 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -1039,6 +1039,9 @@ fcl/win32/resolve.inc svneol=native#text/plain
fcl/win32/simpleipc.inc svneol=native#text/plain
fcl/win32/syncobjs.pp svneol=native#text/plain
fcl/win32/winreg.inc svneol=native#text/plain
fcl/wince/eventlog.inc svneol=native#text/plain
fcl/wince/ezcgi.inc svneol=native#text/plain
fcl/wince/pipes.inc svneol=native#text/plain
fcl/xml/Makefile svneol=native#text/plain
fcl/xml/Makefile.fpc svneol=native#text/plain
fcl/xml/README -text

22
fcl/wince/eventlog.inc Normal file
View File

@ -0,0 +1,22 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2003 by the Free Pascal development team
DOS event logging facility.
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.
**********************************************************************}
{ ---------------------------------------------------------------------
Include event log that maps to file event log.
---------------------------------------------------------------------}
{$i felog.inc}

14
fcl/wince/ezcgi.inc Normal file
View File

@ -0,0 +1,14 @@
Uses dos;
{ Declared EXPLICITLY with Ansistring, so NO mistaking is possible }
{
This function is VERY inefficient, but the downsize would be to
have initialization/finalization code to get/free the environment
settings.
}
Function Getenv (Var EnvVar : AnsiString): AnsiString;
begin
Getenv:=dos.GetEnv(EnvVar);
end;

20
fcl/wince/pipes.inc Normal file
View File

@ -0,0 +1,20 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 1998 by Michael Van Canneyt
Win32 part of pipe stream.
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.
**********************************************************************}
Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
// No pipes under dos, sorry...
begin
Result := False;
end;