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

Improved Symbian RTL. Separated os include files from SDK include files and added more bindings

Browse Source 
git-svn-id: trunk@7349 -
This commit is contained in:
sekelsenmat 2007-05-15 18:39:29 +00:00
parent 83ccc62cf0
commit a3703321f3
11 changed files with 175 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
.gitattributes vendored
View File

@ -5261,9 +5261,10 @@ rtl/symbian/Makefile svneol=native#text/plain
rtl/symbian/Makefile.fpc svneol=native#text/plain
rtl/symbian/bindings/pbeexe.cpp -text
rtl/symbian/buildrtl.pp -text
rtl/symbian/e32def.inc -text
rtl/symbian/e32err.inc -text
rtl/symbian/symbian.pas -text
rtl/symbian/symbianinc/e32def.inc -text
rtl/symbian/symbianinc/e32err.inc -text
rtl/symbian/symbianinc/e32std.inc -text
rtl/symbian/sysdir.inc svneol=native#text/plain
rtl/symbian/sysfile.inc svneol=native#text/plain
rtl/symbian/sysheap.inc svneol=native#text/plain
@ -5271,6 +5272,10 @@ rtl/symbian/sysos.inc svneol=native#text/plain
rtl/symbian/sysosh.inc svneol=native#text/plain
rtl/symbian/system.pp svneol=native#text/plain
rtl/symbian/systhrd.inc svneol=native#text/plain
rtl/symbian/uiq.pas -text
rtl/symbian/uiqclasses.pas -text
rtl/symbian/uiqinc/qikapplication.inc -text
rtl/symbian/uiqinc/qikapplicationoo.inc -text
rtl/ucmaps/8859-1.txt svneol=native#text/plain
rtl/ucmaps/8859-10.txt svneol=native#text/plain
rtl/ucmaps/8859-13.txt svneol=native#text/plain

4
rtl/symbian/Makefile
View File

@ -237,6 +237,8 @@ RTL=..
INC=$(RTL)/inc
COMMON=$(RTL)/common
PROCINC=$(RTL)/$(CPU_TARGET)
SYMBIANINC=./symbianinc
UIQINC=./uiqinc
UNITPREFIX=rtl
OBJPASDIR=$(RTL)/objpas
ifeq ($(FULL_TARGET),i386-symbian)
@ -1529,4 +1531,4 @@ objpas$(PPUEXT): $(OBJPASDIR)/objpas.pp $(INC)/except.inc system$(PPUEXT)
macpas$(PPUEXT) : $(INC)/macpas.pp system$(PPUEXT)
$(COMPILER) $(INC)/macpas.pp $(REDIR)
buildrtl$(PPUEXT): buildrtl.pp system$(PPUEXT) objpas$(PPUEXT) macpas$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/sysutils -Fi$(OBJPASDIR)/classes -Fu$(PROCINC) -I$(OBJPASDIR) -I$(INC) -Fu$(INC) -Fu$(OBJPASDIR) buildrtl
$(COMPILER) -Fi$(OBJPASDIR)/sysutils -Fi$(OBJPASDIR)/classes -Fu$(PROCINC) -I$(OBJPASDIR) -I$(INC) -I$(SYMBIANINC) -I$(UIQINC) -Fu$(INC) -Fu$(OBJPASDIR) buildrtl

4
rtl/symbian/Makefile.fpc
View File

@ -30,6 +30,8 @@ RTL=..
INC=$(RTL)/inc
COMMON=$(RTL)/common
PROCINC=$(RTL)/$(CPU_TARGET)
SYMBIANINC=./symbianinc
UIQINC=./uiqinc
UNITPREFIX=rtl
@ -75,4 +77,4 @@ macpas$(PPUEXT) : $(INC)/macpas.pp system$(PPUEXT)
$(COMPILER) $(INC)/macpas.pp $(REDIR)
buildrtl$(PPUEXT): buildrtl.pp system$(PPUEXT) objpas$(PPUEXT) macpas$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/sysutils -Fi$(OBJPASDIR)/classes -Fu$(PROCINC) -I$(OBJPASDIR) -I$(INC) -Fu$(INC) -Fu$(OBJPASDIR) buildrtl
$(COMPILER) -Fi$(OBJPASDIR)/sysutils -Fi$(OBJPASDIR)/classes -Fu$(PROCINC) -I$(OBJPASDIR) -I$(INC) -I$(SYMBIANINC) -I$(UIQINC) -Fu$(INC) -Fu$(OBJPASDIR) buildrtl

2
rtl/symbian/buildrtl.pp
View File

@ -4,7 +4,7 @@ unit buildrtl;
uses
ctypes, strings,
symbian;
symbian, uiq, uiqclasses;
implementation

2
rtl/symbian/e32def.inc → rtl/symbian/symbianinc/e32def.inc
View File

@ -1,4 +1,4 @@
{%MainUnit symbian.pas}
{%MainUnit ../symbian.pas}
{
This file is part of the Free Pascal run time library.

2
rtl/symbian/e32err.inc → rtl/symbian/symbianinc/e32err.inc
View File

@ -1,4 +1,4 @@
{%MainUnit symbian.pas}
{%MainUnit ../symbian.pas}
{
This file is part of the Free Pascal run time library.

8
rtl/symbian/symbianinc/e32std.inc Normal file
View File

@ -0,0 +1,8 @@
{%MainUnit ../symbian.pas}
{ e32std.h header file }
{ User class }
function User_InfoPrint(aString: PChar): TInt; cdecl; external;

34
rtl/symbian/uiq.pas Normal file
View File

@ -0,0 +1,34 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2007 by contributors of the Free Pascal Compiler
Symbian OS unit that adds common types, constants and functions
for the UIQ API
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.
**********************************************************************}
unit uiq;
{$mode objfpc}{$H+}
interface
uses ctypes;
{$include e32def.inc}
{$include e32err.inc}
{.$include e32const.inc}
{.$include e32cmn.inc}
{$include e32std.inc}
implementation
end.

39
rtl/symbian/uiqclasses.pas Normal file
View File

@ -0,0 +1,39 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2007 by contributors of the Free Pascal Compiler
Symbian OS unit that adds common types, constants and functions
for the Symbian API
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.
**********************************************************************}
unit uiqclasses;
{$mode objfpc}{$H+}
interface
uses ctypes;
{$include e32def.inc}
{$include e32err.inc}
{.$include e32const.inc}
{.$include e32cmn.inc}
{.$include e32std.inc}
{ e32std.h header file }
{ User class }
function User_InfoPrint(aString: PChar): TInt; cdecl; external;
implementation
end.

39
rtl/symbian/uiqinc/qikapplication.inc Normal file
View File

@ -0,0 +1,39 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2007 by contributors of the Free Pascal Compiler
Symbian OS unit that adds common types, constants and functions
for the Symbian API
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.
**********************************************************************}
unit symbian;
{$mode objfpc}{$H+}
interface
uses ctypes;
{$include e32def.inc}
{$include e32err.inc}
{.$include e32const.inc}
{.$include e32cmn.inc}
{.$include e32std.inc}
{ e32std.h header file }
{ User class }
function User_InfoPrint(aString: PChar): TInt; cdecl; external;
implementation
end.

39
rtl/symbian/uiqinc/qikapplicationoo.inc Normal file
View File

@ -0,0 +1,39 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2007 by contributors of the Free Pascal Compiler
Symbian OS unit that adds common types, constants and functions
for the Symbian API
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.
**********************************************************************}
unit symbian;
{$mode objfpc}{$H+}
interface
uses ctypes;
{$include e32def.inc}
{$include e32err.inc}
{.$include e32const.inc}
{.$include e32cmn.inc}
{.$include e32std.inc}
{ e32std.h header file }
{ User class }
function User_InfoPrint(aString: PChar): TInt; cdecl; external;
implementation
end.