paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 14:10:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Changes for symbian target OS, adding most of standard units, as empty stubs

Browse Source 
git-svn-id: trunk@39578 -
This commit is contained in:
pierre 2018-08-06 15:16:55 +00:00
parent 0064860f75
commit 76d3893d78
8 changed files with 902 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitattributes vendored
View File

@ -10282,6 +10282,8 @@ 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 svneol=native#text/plain
rtl/symbian/classes.pp svneol=native#text/plain
rtl/symbian/dos.pp svneol=native#text/plain
rtl/symbian/rtldefs.inc svneol=native#text/plain
rtl/symbian/symbian.pas svneol=native#text/plain
rtl/symbian/symbianinc/e32def.inc svneol=native#text/plain
@ -10293,6 +10295,8 @@ rtl/symbian/sysheap.inc svneol=native#text/plain
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/sysutils.pp svneol=native#text/plain
rtl/symbian/tthread.inc svneol=native#text/plain
rtl/symbian/uiq.pas svneol=native#text/plain
rtl/symbian/uiqclasses.pas svneol=native#text/plain
rtl/symbian/uiqinc/qikapplication.inc svneol=native#text/plain

204
rtl/symbian/Makefile
View File

@ -345,259 +345,259 @@ UNITPREFIX=rtl
SYSTEMUNIT=system
OBJPASDIR=$(RTL)/objpas
ifeq ($(FULL_TARGET),i386-linux)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-go32v2)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-win32)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-os2)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-freebsd)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-beos)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-haiku)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-netbsd)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-solaris)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-netware)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-openbsd)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-wdosx)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-darwin)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-emx)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-watcom)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-netwlibc)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-wince)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-embedded)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-symbian)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-nativent)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-iphonesim)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-android)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-aros)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),m68k-linux)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),m68k-netbsd)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),m68k-amiga)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),m68k-atari)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),m68k-palmos)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),m68k-macos)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),m68k-embedded)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),powerpc-linux)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),powerpc-netbsd)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),powerpc-amiga)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),powerpc-macos)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),powerpc-darwin)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),powerpc-morphos)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),powerpc-embedded)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),powerpc-wii)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),powerpc-aix)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),sparc-linux)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),sparc-netbsd)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),sparc-solaris)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),sparc-embedded)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),x86_64-linux)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),x86_64-freebsd)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),x86_64-netbsd)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),x86_64-solaris)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),x86_64-openbsd)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),x86_64-darwin)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),x86_64-win64)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),x86_64-embedded)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),x86_64-iphonesim)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),x86_64-aros)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),x86_64-dragonfly)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),arm-linux)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),arm-netbsd)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),arm-palmos)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),arm-darwin)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),arm-wince)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),arm-gba)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),arm-nds)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),arm-embedded)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),arm-symbian)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),arm-android)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),arm-aros)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),powerpc64-linux)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),powerpc64-darwin)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),powerpc64-embedded)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),powerpc64-aix)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),avr-embedded)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),armeb-linux)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),armeb-embedded)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),mips-linux)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),mipsel-linux)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),mipsel-embedded)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),mipsel-android)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),jvm-java)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),jvm-android)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i8086-embedded)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i8086-msdos)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i8086-win16)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),aarch64-linux)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),aarch64-darwin)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),wasm-wasm)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),sparc64-linux)
override TARGET_UNITS+=system uuchar objpas buildrtl
override TARGET_UNITS+=system uuchar objpas sysconst sysutils math rtlconsts character fpwidestring unicodedata unicodenumtable dos iso7185 extpas typinfo types classes macpas buildrtl
endif
ifeq ($(FULL_TARGET),i386-linux)
override TARGET_IMPLICITUNITS+=ctypes strings symbian
@ -2573,8 +2573,42 @@ SYSCPUDEPS=$(addprefix $(PROCINC)/,$(CPUINCNAMES))
SYSDEPS=$(SYSINCDEPS) $(SYSCPUDEPS)
system$(PPUEXT) : system.pp $(SYSDEPS)
$(COMPILER) $(FPC_SYSTEM_OPT) -Us -Sg system.pp -Fi../win
dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \
$(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $<
uuchar$(PPUEXT): $(SYSTEMUNIT)$(PPUEXT) $(INC)/uuchar.pp
objpas$(PPUEXT): $(OBJPASDIR)/objpas.pp $(INC)/except.inc system$(PPUEXT)
$(COMPILER) -I$(OBJPASDIR) $(OBJPASDIR)/objpas.pp
sysconst$(PPUEXT) : $(OBJPASDIR)/sysconst.pp objpas$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR) $(OBJPASDIR)/sysconst.pp
sysutils$(PPUEXT) : sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) sysconst$(PPUEXT) objpas$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/sysutils sysutils.pp
math$(PPUEXT): $(OBJPASDIR)/math.pp objpas$(PPUEXT) sysutils$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/math.pp
fmtbcd$(PPUEXT) : $(OBJPASDIR)/fmtbcd.pp objpas$(PPUEXT) sysutils$(PPUEXT) variants$(PPUEXT) classes$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/fmtbcd.pp
types$(PPUEXT) : $(OBJPASDIR/types.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/types.pp
typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT) sysutils$(PPUEXT) rtlconsts$(PPUEXT)
$(COMPILER) -Sg $(OBJPASDIR)/typinfo.pp
classes$(PPUEXT) : classes.pp $(wildcard $(OBJPASDIR)/classes/*.inc) \
sysutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) types$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/classes classes.pp
rtlconsts$(PPUEXT) : $(OBJPASDIR)/rtlconsts.pp $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/rtlconsts.pp
sysconst$(PPUEXT) : $(OBJPASDIR)/sysconst.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/sysconst.pp
fgl$(PPUEXT): $(OBJPASDIR)/fgl.pp objpas$(PPUEXT) types$(PPUEXT) system$(PPUEXT) sysutils$(PPUEXT)
$(COMPILER) -Sg $(OBJPASDIR)/fgl.pp $(REDIR)
macpas$(PPUEXT) : $(INC)/macpas.pp objpas$(PPUEXT) math$(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) -I$(SYMBIANINC) -I$(UIQINC) -Fu$(INC) -Fu$(OBJPASDIR) buildrtl
character$(PPUEXT): $(OBJPASDIR)/character.pas sysutils$(PPUEXT) objpas$(PPUEXT) rtlconsts$(PPUEXT) unicodedata$(PPUEXT) system$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/character.pas
fpwidestring$(PPUEXT): $(OBJPASDIR)/fpwidestring.pp charset$(PPUEXT) system$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/fpwidestring.pp
unicodenumtable$(PPUEXT) : $(OBJPASDIR)/unicodenumtable.pas system$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR) $(OBJPASDIR)/unicodenumtable.pas
unicodedata$(PPUEXT) : $(OBJPASDIR)/unicodedata.pas unicodenumtable$(PPUEXT) system$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR) $(OBJPASDIR)/unicodedata.pas

63
rtl/symbian/Makefile.fpc
View File

@ -8,7 +8,9 @@ main=rtl
[target]
# macpas and iso7185 units rely on sysutils unit, not yet handled here
# extpas unit relies on dos unit, not yet handled
units=system uuchar objpas buildrtl
units=system uuchar objpas sysconst sysutils math rtlconsts \
character fpwidestring unicodedata unicodenumtable \
dos iso7185 extpas typinfo types classes macpas buildrtl
implicitunits=ctypes strings symbian
[require]
@ -70,21 +72,64 @@ system$(PPUEXT) : system.pp $(SYSDEPS)
# Unit specific rules
#
dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \
$(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $<
uuchar$(PPUEXT): $(SYSTEMUNIT)$(PPUEXT) $(INC)/uuchar.pp
objpas$(PPUEXT): $(OBJPASDIR)/objpas.pp $(INC)/except.inc system$(PPUEXT)
$(COMPILER) -I$(OBJPASDIR) $(OBJPASDIR)/objpas.pp
#sysutils$(PPUEXT) : $(UNIXINC)/sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) \
# objpas$(PPUEXT) unix$(PPUEXT) errors$(PPUEXT) sysconst$(PPUEXT) \
# linux$(PPUEXT)
# $(COMPILER) -Fi$(OBJPASDIR)/sysutils $(UNIXINC)/sysutils.pp
sysconst$(PPUEXT) : $(OBJPASDIR)/sysconst.pp objpas$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR) $(OBJPASDIR)/sysconst.pp
#math$(PPUEXT): $(OBJPASDIR)/math.pp objpas$(PPUEXT) sysutils$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
# $(COMPILER) $(OBJPASDIR)/math.pp
#macpas$(PPUEXT) : $(INC)/macpas.pp objpas$(PPUEXT) math$(PPUEXT)
# $(COMPILER) $(INC)/macpas.pp $(REDIR)
sysutils$(PPUEXT) : sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) sysconst$(PPUEXT) objpas$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/sysutils sysutils.pp
math$(PPUEXT): $(OBJPASDIR)/math.pp objpas$(PPUEXT) sysutils$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/math.pp
fmtbcd$(PPUEXT) : $(OBJPASDIR)/fmtbcd.pp objpas$(PPUEXT) sysutils$(PPUEXT) variants$(PPUEXT) classes$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/fmtbcd.pp
types$(PPUEXT) : $(OBJPASDIR/types.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/types.pp
typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT) sysutils$(PPUEXT) rtlconsts$(PPUEXT)
$(COMPILER) -Sg $(OBJPASDIR)/typinfo.pp
classes$(PPUEXT) : classes.pp $(wildcard $(OBJPASDIR)/classes/*.inc) \
sysutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) types$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/classes classes.pp
rtlconsts$(PPUEXT) : $(OBJPASDIR)/rtlconsts.pp $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/rtlconsts.pp
sysconst$(PPUEXT) : $(OBJPASDIR)/sysconst.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/sysconst.pp
fgl$(PPUEXT): $(OBJPASDIR)/fgl.pp objpas$(PPUEXT) types$(PPUEXT) system$(PPUEXT) sysutils$(PPUEXT)
$(COMPILER) -Sg $(OBJPASDIR)/fgl.pp $(REDIR)
macpas$(PPUEXT) : $(INC)/macpas.pp objpas$(PPUEXT) math$(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) -I$(SYMBIANINC) -I$(UIQINC) -Fu$(INC) -Fu$(OBJPASDIR) buildrtl
character$(PPUEXT): $(OBJPASDIR)/character.pas sysutils$(PPUEXT) objpas$(PPUEXT) rtlconsts$(PPUEXT) unicodedata$(PPUEXT) system$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/character.pas
fpwidestring$(PPUEXT): $(OBJPASDIR)/fpwidestring.pp charset$(PPUEXT) system$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/fpwidestring.pp
unicodenumtable$(PPUEXT) : $(OBJPASDIR)/unicodenumtable.pas system$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR) $(OBJPASDIR)/unicodenumtable.pas
unicodedata$(PPUEXT) : $(OBJPASDIR)/unicodedata.pas unicodenumtable$(PPUEXT) system$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR) $(OBJPASDIR)/unicodedata.pas

2
rtl/symbian/buildrtl.pp
View File

@ -3,7 +3,7 @@ unit buildrtl;
interface
uses
ctypes, strings,
ctypes, strings, classes,
symbian, uiq, uiqclasses;
implementation

46
rtl/symbian/classes.pp Normal file
View File

@ -0,0 +1,46 @@
{
This file is part of the Free Component Library (FCL)
Copyright (c) 1999-2002 by the Free Pascal development team
Classes unit for Embedded target
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.
**********************************************************************}
{$mode objfpc}
unit Classes;
interface
uses
sysutils,
rtlconsts,
types,
{$ifdef FPC_TESTGENERICS}
fgl,
{$endif}
typinfo;
{$i classesh.inc}
implementation
{ OS - independent class implementations are in /inc directory. }
{$i classes.inc}
initialization
CommonInit;
finalization
CommonCleanup;
end.

278
rtl/symbian/dos.pp Normal file
View File

@ -0,0 +1,278 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2004 by Karoly Balogh for Genesi S.a.r.l.
Heavily based on the Commodore Amiga/m68k RTL by Nils Sjoholm and
Carl Eric Codere
MorphOS port was done on a free Pegasos II/G4 machine
provided by Genesi S.a.r.l. <www.genesi.lu>
This unit is based on the MorphOS one and is adapted for Gameboy Advance
simply by stripping out all stuff inside funcs and procs.
Copyright (c) 2006 by Francesco Lombardi
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 Dos;
interface
{$MODE objfpc}
type
SearchRec = Packed Record
AnchorPtr : Pointer; { Pointer to the Anchorpath structure }
Fill: Array[1..15] of Byte; {future use}
{End of replacement for fill}
Attr : BYTE; {attribute of found file}
Time : LongInt; {last modify date of found file}
Size : LongInt; {file size of found file}
Name : String[255]; {name of found file}
End;
{$I dosh.inc}
implementation
{$define HAS_GETMSCOUNT}
{$I dos.inc}
{******************************************************************************
--- Internal routines ---
******************************************************************************}
function dosLock(const name: String; accessmode: Longint) : LongInt;
begin
result := -1;
end;
function IsLeapYear(Source : Word) : Boolean;
begin
result := false;
end;
function dosSetProtection(const name: string; mask:longint): Boolean;
begin
result := false;
end;
function dosSetFileDate(name: string): Boolean;
begin
result := false;
end;
{******************************************************************************
--- Info / Date / Time ---
******************************************************************************}
function DosVersion: Word;
begin
result := 0;
end;
procedure NewList ();
begin
end;
function CreateExtIO (size: Longint): integer;
begin
result := -1;
end;
procedure DeleteExtIO ();
begin
end;
function Createport(name : PChar; pri : longint): integer;
begin
result := -1;
end;
procedure DeletePort ();
begin
end;
function Create_Timer(theUnit : longint) : integer;
begin
result := -1;
end;
Procedure Delete_Timer();
begin
end;
function set_new_time(secs, micro : longint): longint;
begin
result := -1;
end;
function get_sys_time(): longint;
begin
result := -1;
end;
procedure GetDate(Var Year, Month, MDay, WDay: Word);
begin
Year := 0;
Month := 0;
MDay := 0;
WDay := 0;
end;
procedure SetDate(Year, Month, Day: Word);
begin
end;
procedure GetTime(Var Hour, Minute, Second, Sec100: Word);
begin
Hour := 0;
Minute := 0;
Second := 0;
Sec100 := 0;
end;
Procedure SetTime(Hour, Minute, Second, Sec100: Word);
begin
end;
function GetMsCount: int64;
begin
result:=0;
end;
{******************************************************************************
--- Exec ---
******************************************************************************}
procedure Exec(const Path: PathStr; const ComLine: ComStr);
begin
end;
{******************************************************************************
--- Disk ---
******************************************************************************}
Function DiskFree(Drive: Byte): int64;
Begin
result := -1;
end;
Function DiskSize(Drive: Byte): int64;
Begin
result := -1;
end;
procedure FindFirst(const Path: PathStr; Attr: Word; Var f: SearchRec);
begin
DosError:=18;
end;
procedure FindNext(Var f: SearchRec);
begin
DosError:=18;
end;
procedure FindClose(Var f: SearchRec);
begin
DosError:=18;
end;
{******************************************************************************
--- File ---
******************************************************************************}
function FSearch(path: PathStr; dirlist: String) : PathStr;
begin
result := '';
end;
Procedure getftime (var f; var time : longint);
begin
end;
Procedure setftime(var f; time : longint);
Begin
End;
procedure getfattr(var f; var attr : word);
begin
End;
procedure setfattr(var f; attr : word);
begin
end;
{******************************************************************************
--- Environment ---
******************************************************************************}
function getpathstring: string;
begin
result := '';
end;
function EnvCount: Longint;
begin
result := -1;
end;
function EnvStr(Index: LongInt): String;
begin
result := '';
end;
function GetEnv(envvar : String): String;
begin
result := '';
end;
procedure AddDevice(str : String);
begin
end;
function MakeDeviceName(str : pchar): string;
begin
result := '';
end;
function IsInDeviceList(str : string): boolean;
begin
result := false;
end;
procedure ReadInDevices;
begin
end;
begin
// DosError:=0;
// numberofdevices := 0;
// StrOfPaths := '';
// ReadInDevices;
end.

289
rtl/symbian/sysutils.pp Normal file
View File

@ -0,0 +1,289 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2004 by the Free Pascal development team
Sysutils unit for the embedded target.
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.
**********************************************************************}
{$MODE objfpc}
{$MODESWITCH OUT}
{$H+}
unit sysutils;
interface
{$DEFINE HAS_SLEEP}
{$DEFINE HAS_OSERROR}
{$modeswitch typehelpers}
{$modeswitch advancedrecords}
{ used OS file system APIs use ansistring }
{$define SYSUTILS_HAS_ANSISTR_FILEUTIL_IMPL}
{ OS has an ansistring/single byte environment variable API }
{$define SYSUTILS_HAS_ANSISTR_ENVVAR_IMPL}
{ Include platform independent interface part }
{$i sysutilh.inc}
var
SleepHandler: procedure(ms: cardinal) = nil;
implementation
uses
sysconst;
{ Include platform independent implementation part }
{$i sysutils.inc}
{****************************************************************************
File Functions
****************************************************************************}
function FileOpen(const FileName: RawByteString; Mode: Integer): LongInt;
begin
result := -1;
end;
function FileGetDate(Handle: LongInt) : LongInt;
begin
result := -1;
end;
function FileSetDate(Handle, Age: LongInt) : LongInt;
begin
result := -1;
end;
function FileCreate(const FileName: RawByteString) : LongInt;
begin
result := -1;
end;
function FileCreate(const FileName: RawByteString; Rights: integer): LongInt;
begin
result := -1;
end;
function FileCreate(const FileName: RawByteString; ShareMode: integer; rights : integer): LongInt;
begin
result := -1;
end;
function FileRead(Handle: LongInt; Out Buffer; Count: LongInt): LongInt;
begin
result := -1;
end;
function FileWrite(Handle: LongInt; const Buffer; Count: LongInt): LongInt;
begin
result := -1;
end;
function FileSeek(Handle, FOffset, Origin: LongInt) : LongInt;
begin
result := -1;
end;
function FileSeek(Handle: LongInt; FOffset: Int64; Origin: Longint): Int64;
begin
result := -1;
end;
procedure FileClose(Handle: LongInt);
begin
end;
function FileTruncate(Handle: THandle; Size: Int64): Boolean;
begin
result := false;
end;
function DeleteFile(const FileName: RawByteString) : Boolean;
begin
result := false;
end;
function RenameFile(const OldName, NewName: RawByteString): Boolean;
begin
result := false;
end;
Function FileAge (Const FileName : RawByteString): Longint;
begin
result := -1;
end;
Function FileExists (Const FileName : RawByteString) : Boolean;
Begin
result := false;
end;
Function InternalFindFirst (Const Path : RawByteString; Attr : Longint; out Rslt : TAbstractSearchRec; var Name: RawByteString) : Longint;
begin
result := -1;
end;
Function InternalFindNext (var Rslt : TAbstractSearchRec; var Name : RawByteString) : Longint;
begin
result := -1;
end;
Procedure InternalFindClose(var Handle: THandle);
begin
end;
Function FileGetAttr (Const FileName : RawByteString) : Longint;
begin
result := -1;
end;
Function FileSetAttr (Const Filename : RawByteString; Attr: longint) : Longint;
begin
result := -1;
end;
{****************************************************************************
Disk Functions
****************************************************************************}
Procedure AddDisk(const path:string);
begin
end;
Function DiskFree(Drive: Byte): int64;
Begin
result := -1;
End;
Function DiskSize(Drive: Byte): int64;
Begin
result := -1;
End;
function DirectoryExists(const Directory: RawByteString): Boolean;
begin
result := false;
end;
{****************************************************************************
Misc Functions
****************************************************************************}
procedure sysBeep;
begin
end;
Procedure Sleep(Milliseconds : Cardinal);
begin
if assigned(SleepHandler) then
SleepHandler(Milliseconds);
end;
Function GetLastOSError : Integer;
begin
Result:=-1;
end;
{****************************************************************************
Locale Functions
****************************************************************************}
Procedure GetLocalTime(var SystemTime: TSystemTime);
begin
end ;
function SysErrorMessage(ErrorCode: Integer): String;
begin
{ Result:=StrError(ErrorCode);}
result := '';
end;
{****************************************************************************
OS utility functions
****************************************************************************}
Function GetEnvironmentVariable(Const EnvVar : String) : String;
begin
result := '';
end;
Function GetEnvironmentVariableCount : Integer;
begin
result := -1;
end;
Function GetEnvironmentString(Index : Integer) : {$ifdef FPC_RTL_UNICODE}UnicodeString{$else}AnsiString{$endif};
begin
result := '';
end;
function ExecuteProcess (const Path: RawByteString; const ComLine: RawByteString;Flags:TExecuteFlags=[]): integer;
begin
result := -1;
end;
function ExecuteProcess (const Path: RawByteString;
const ComLine: array of RawByteString;Flags:TExecuteFlags=[]): integer;
begin
result := -1;
end;
function ExecuteProcess (const Path: UnicodeString; const ComLine: UnicodeString;Flags:TExecuteFlags=[]): integer;
begin
result := -1;
end;
function ExecuteProcess (const Path: UnicodeString;
const ComLine: array of UnicodeString;Flags:TExecuteFlags=[]): integer;
begin
result := -1;
end;
{****************************************************************************
Initialization code
****************************************************************************}
Initialization
InitExceptions;
Finalization
DoneExceptions;
end.

111
rtl/symbian/tthread.inc Normal file
View File

@ -0,0 +1,111 @@
{
This file is part of the Free Component Library (FCL)
Copyright (c) 1999-2002 by the Free Pascal development team
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.
**********************************************************************}
{****************************************************************************}
{* TThread *}
{****************************************************************************}
{$WARNING This file is only a stub, and will not work!}
const
ThreadCount: longint = 0;
(* Implementation of exported functions *)
procedure AddThread (T: TThread);
begin
Inc (ThreadCount);
end;
procedure RemoveThread (T: TThread);
begin
Dec (ThreadCount);
end;
procedure TThread.CallOnTerminate;
begin
FOnTerminate (Self);
end;
function TThread.GetPriority: TThreadPriority;
begin
result := tpNormal;
end;
procedure TThread.SetPriority(Value: TThreadPriority);
begin
end;
procedure TThread.SetSuspended(Value: Boolean);
begin
if Value <> FSuspended then
begin
if Value then Suspend else Resume;
end;
end;
procedure TThread.DoTerminate;
begin
if Assigned (FOnTerminate) then Synchronize (@CallOnTerminate);
end;
procedure TThread.SysCreate(CreateSuspended: Boolean;
const StackSize: SizeUInt);
var
Flags: cardinal;
begin
AddThread (Self);
end;
procedure TThread.SysDestroy;
begin
if not FFinished and not Suspended then
begin
Terminate;
WaitFor;
end;
end;
procedure TThread.Resume;
begin
end;
procedure TThread.Suspend;
begin
end;
procedure TThread.Terminate;
begin
FTerminated := true;
end;
function TThread.WaitFor: Integer;
begin
result := -1;
end;