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

* Rename fest II. Rtl OK

Browse Source
This commit is contained in:
marco 2001-01-21 20:21:40 +00:00
parent f936d45210
commit 738f0589d6
22 changed files with 2824 additions and 101 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/freebsd/Makefile
View File

@ -202,7 +202,7 @@ endif
# Targets # Targets
override LOADEROBJECTS+=prt0 cprt0 override LOADEROBJECTS+=prt0 cprt0
override UNITOBJECTS+=$(SYSTEMUNIT) objpas strings linux initc dos crt objects printer sysutils typinfo math cpu mmx getopts heaptrc lineinfo errors sockets gpm ipc terminfo video mouse keyboard console override UNITOBJECTS+=$(SYSTEMUNIT) objpas strings unix initc dos crt objects printer sysutils typinfo math cpu mmx getopts heaptrc lineinfo errors sockets gpm ipc terminfo video mouse keyboard console
override RSTOBJECTS+=math override RSTOBJECTS+=math
# Clean # Clean
@ -230,7 +230,7 @@ endif
LIBNAME=libfprtl.so LIBNAME=libfprtl.so
LIBVERSION=1.0 LIBVERSION=1.0
SHAREDLIBUNITOBJECTS=$(SYSTEMUNIT) objpas strings linux dos crt objects printer sysutils typinfo math cpu mmx getopts heaptrc errors sockets ipc SHAREDLIBUNITOBJECTS=$(SYSTEMUNIT) objpas strings unix dos crt objects printer sysutils typinfo math cpu mmx getopts heaptrc errors sockets ipc
# Info # Info
@ -1309,7 +1309,7 @@ strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc\
# System Dependent Units # System Dependent Units
# #
linux$(PPUEXT) : $(UNIXINC)/linux.pp strings$(PPUEXT) $(INC)/textrec.inc $(INC)/filerec.inc \ unix$(PPUEXT) : $(UNIXINC)/unix.pp strings$(PPUEXT) $(INC)/textrec.inc $(INC)/filerec.inc \
syscalls.inc systypes.inc sysconst.inc $(UNIXINC)/timezone.inc $(SYSTEMUNIT)$(PPUEXT) \ syscalls.inc systypes.inc sysconst.inc $(UNIXINC)/timezone.inc $(SYSTEMUNIT)$(PPUEXT) \
$(UNIXINC)/linsysca.inc $(UNIXINC)/linsysca.inc
@ -1319,13 +1319,13 @@ linux$(PPUEXT) : $(UNIXINC)/linux.pp strings$(PPUEXT) $(INC)/textrec.inc $(INC)/
# #
dos$(PPUEXT) : $(UNIXINC)/dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \ dos$(PPUEXT) : $(UNIXINC)/dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \
linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
crt$(PPUEXT) : $(UNIXINC)/crt.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) crt$(PPUEXT) : $(UNIXINC)/crt.pp $(INC)/textrec.inc unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
objects$(PPUEXT) : $(INC)/objects.pp $(UNIXINC)/objinc.inc $(SYSTEMUNIT)$(PPUEXT) objects$(PPUEXT) : $(INC)/objects.pp $(UNIXINC)/objinc.inc $(SYSTEMUNIT)$(PPUEXT)
printer$(PPUEXT) : $(UNIXINC)/printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) printer$(PPUEXT) : $(UNIXINC)/printer.pp $(INC)/textrec.inc unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
# #
# Graph # Graph
@ -1336,7 +1336,7 @@ printer$(PPUEXT) : $(UNIXINC)/printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYS
# #
sysutils$(PPUEXT) : $(UNIXINC)/sysutils.pp $(wildcard $(OBJPASDIR)/*.inc) \ sysutils$(PPUEXT) : $(UNIXINC)/sysutils.pp $(wildcard $(OBJPASDIR)/*.inc) \
objpas$(PPUEXT) linux$(PPUEXT) errors$(PPUEXT) objpas$(PPUEXT) unix$(PPUEXT) errors$(PPUEXT)
$(COMPILER) -I$(OBJPASDIR) $(UNIXINC)/sysutils.pp $(REDIR) $(COMPILER) -I$(OBJPASDIR) $(UNIXINC)/sysutils.pp $(REDIR)
typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT) typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT)
@ -1368,10 +1368,10 @@ lineinfo$(PPUEXT) : $(INC)/lineinfo.pp $(SYSTEMUNIT)$(PPUEXT)
# #
sockets$(PPUEXT) : $(UNIXINC)/sockets.pp $(INC)/textrec.inc $(INC)/filerec.inc \ sockets$(PPUEXT) : $(UNIXINC)/sockets.pp $(INC)/textrec.inc $(INC)/filerec.inc \
linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
errors$(PPUEXT) : $(UNIXINC)/errors.pp strings$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) errors$(PPUEXT) : $(UNIXINC)/errors.pp strings$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
ipc$(PPUEXT) : $(UNIXINC)/ipc.pp linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) ipc$(PPUEXT) : $(UNIXINC)/ipc.pp unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
terminfo$(PPUEXT) : terminfo.pp linux$(PPUEXT) terminfo$(PPUEXT) : terminfo.pp unix$(PPUEXT)

20
rtl/freebsd/Makefile.fpc
View File

@ -5,7 +5,7 @@
[targets] [targets]
loaders=prt0 cprt0 loaders=prt0 cprt0
units=$(SYSTEMUNIT) objpas strings \ units=$(SYSTEMUNIT) objpas strings \
linux initc \ unix initc \
dos crt objects printer \ dos crt objects printer \
sysutils typinfo math \ sysutils typinfo math \
cpu mmx getopts heaptrc lineinfo \ cpu mmx getopts heaptrc lineinfo \
@ -33,7 +33,7 @@ targetdir=.
libname=libfprtl.so libname=libfprtl.so
libversion=1.0 libversion=1.0
libunits=$(SYSTEMUNIT) objpas strings \ libunits=$(SYSTEMUNIT) objpas strings \
linux \ unix \
dos crt objects printer \ dos crt objects printer \
sysutils typinfo math \ sysutils typinfo math \
cpu mmx getopts heaptrc \ cpu mmx getopts heaptrc \
@ -118,7 +118,7 @@ strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc\
# System Dependent Units # System Dependent Units
# #
linux$(PPUEXT) : $(UNIXINC)/linux.pp strings$(PPUEXT) $(INC)/textrec.inc $(INC)/filerec.inc \ unix$(PPUEXT) : $(UNIXINC)/unix.pp strings$(PPUEXT) $(INC)/textrec.inc $(INC)/filerec.inc \
syscalls.inc systypes.inc sysconst.inc $(UNIXINC)/timezone.inc $(SYSTEMUNIT)$(PPUEXT) \ syscalls.inc systypes.inc sysconst.inc $(UNIXINC)/timezone.inc $(SYSTEMUNIT)$(PPUEXT) \
$(UNIXINC)/linsysca.inc $(UNIXINC)/linsysca.inc
@ -128,13 +128,13 @@ linux$(PPUEXT) : $(UNIXINC)/linux.pp strings$(PPUEXT) $(INC)/textrec.inc $(INC)/
# #
dos$(PPUEXT) : $(UNIXINC)/dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \ dos$(PPUEXT) : $(UNIXINC)/dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \
linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
crt$(PPUEXT) : $(UNIXINC)/crt.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) crt$(PPUEXT) : $(UNIXINC)/crt.pp $(INC)/textrec.inc unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
objects$(PPUEXT) : $(INC)/objects.pp $(UNIXINC)/objinc.inc $(SYSTEMUNIT)$(PPUEXT) objects$(PPUEXT) : $(INC)/objects.pp $(UNIXINC)/objinc.inc $(SYSTEMUNIT)$(PPUEXT)
printer$(PPUEXT) : $(UNIXINC)/printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) printer$(PPUEXT) : $(UNIXINC)/printer.pp $(INC)/textrec.inc unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
# #
# Graph # Graph
@ -145,7 +145,7 @@ printer$(PPUEXT) : $(UNIXINC)/printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYS
# #
sysutils$(PPUEXT) : $(UNIXINC)/sysutils.pp $(wildcard $(OBJPASDIR)/*.inc) \ sysutils$(PPUEXT) : $(UNIXINC)/sysutils.pp $(wildcard $(OBJPASDIR)/*.inc) \
objpas$(PPUEXT) linux$(PPUEXT) errors$(PPUEXT) objpas$(PPUEXT) unix$(PPUEXT) errors$(PPUEXT)
$(COMPILER) -I$(OBJPASDIR) $(UNIXINC)/sysutils.pp $(REDIR) $(COMPILER) -I$(OBJPASDIR) $(UNIXINC)/sysutils.pp $(REDIR)
typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT) typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT)
@ -177,10 +177,10 @@ lineinfo$(PPUEXT) : $(INC)/lineinfo.pp $(SYSTEMUNIT)$(PPUEXT)
# #
sockets$(PPUEXT) : $(UNIXINC)/sockets.pp $(INC)/textrec.inc $(INC)/filerec.inc \ sockets$(PPUEXT) : $(UNIXINC)/sockets.pp $(INC)/textrec.inc $(INC)/filerec.inc \
linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
errors$(PPUEXT) : $(UNIXINC)/errors.pp strings$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) errors$(PPUEXT) : $(UNIXINC)/errors.pp strings$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
ipc$(PPUEXT) : $(UNIXINC)/ipc.pp linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) ipc$(PPUEXT) : $(UNIXINC)/ipc.pp unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
terminfo$(PPUEXT) : terminfo.pp linux$(PPUEXT) terminfo$(PPUEXT) : terminfo.pp unix$(PPUEXT)

2
rtl/freebsd/console.pp
View File

@ -1821,7 +1821,7 @@ function physicalconsole(fd:longint) : boolean;
IMPLEMENTATION IMPLEMENTATION
Uses Linux; Uses Unix;
function physicalconsole(fd:longint) : boolean; function physicalconsole(fd:longint) : boolean;

35
rtl/linux/Makefile
View File

@ -1,13 +1,14 @@
# #
# Makefile generated by fpcmake v1.00 [2000/12/08] # Makefile generated by fpcmake v1.00 [2000/12/23]
# #
defaultrule: all defaultrule: all
##################################################################### #####################################################################
# Autodetect OS (Linux or Dos or Windows NT) # Autodetect OS (Linux or Dos or Windows NT or OS/2)
# define inUnix when running under Unix (Linux,FreeBSD) # define inUnix when running under Unix (Linux,FreeBSD)
# define inWinNT when running under WinNT # define inWinNT when running under WinNT
# define inOS2 when running under OS/2
##################################################################### #####################################################################
# We need only / in the path # We need only / in the path
@ -24,6 +25,7 @@ nopwd:
@exit @exit
else else
inUnix=1 inUnix=1
PWD:=$(firstword $(PWD))
endif endif
else else
PWD:=$(firstword $(PWD)) PWD:=$(firstword $(PWD))
@ -201,7 +203,7 @@ endif
# Targets # Targets
override LOADEROBJECTS+=prt0 cprt0 gprt0 cprt21 gprt21 override LOADEROBJECTS+=prt0 cprt0 gprt0 cprt21 gprt21
override UNITOBJECTS+=$(SYSTEMUNIT) objpas strings linux ports initc dos crt objects printer graph ggigraph sysutils typinfo math varutils cpu mmx getopts heaptrc lineinfo errors sockets gpm ipc serial terminfo dl dynlibs video mouse keyboard override UNITOBJECTS+=$(SYSTEMUNIT) objpas strings unix ports initc dos crt objects printer graph ggigraph sysutils typinfo math varutils cpu mmx getopts heaptrc lineinfo errors sockets gpm ipc serial terminfo dl dynlibs video mouse keyboard
override RSTOBJECTS+=math varutils override RSTOBJECTS+=math varutils
# Clean # Clean
@ -230,7 +232,7 @@ endif
LIBNAME=libfprtl.so LIBNAME=libfprtl.so
LIBVERSION=1.0 LIBVERSION=1.0
SHAREDLIBUNITOBJECTS=$(SYSTEMUNIT) objpas strings linux ports dos crt objects printer sysutils typinfo math cpu mmx getopts heaptrc errors sockets ipc dl dynlibs varutils SHAREDLIBUNITOBJECTS=$(SYSTEMUNIT) objpas strings unix ports dos crt objects printer sysutils typinfo math cpu mmx getopts heaptrc errors sockets ipc dl dynlibs varutils
# Info # Info
@ -1089,6 +1091,9 @@ endif
ifeq ($(OS_TARGET),win32) ifeq ($(OS_TARGET),win32)
PACKAGESUFFIX=w32 PACKAGESUFFIX=w32
endif endif
ifeq ($(OS_TARGET),os2)
PACKAGESUFFIX=emx
endif
endif endif
# Temporary path to pack a file # Temporary path to pack a file
@ -1317,11 +1322,11 @@ strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc\
# $(SYSTEMUNIT) Dependent Units # $(SYSTEMUNIT) Dependent Units
# #
linux$(PPUEXT) : linux.pp strings$(PPUEXT) $(INC)/textrec.inc $(INC)/filerec.inc \ unix$(PPUEXT) : unix.pp strings$(PPUEXT) $(INC)/textrec.inc $(INC)/filerec.inc \
syscalls.inc systypes.inc sysconst.inc $(UNIXINC)/timezone.inc $(SYSTEMUNIT)$(PPUEXT) \ syscalls.inc systypes.inc sysconst.inc $(UNIXINC)/timezone.inc $(SYSTEMUNIT)$(PPUEXT) \
$(UNIXINC)/linsysca.inc $(UNIXINC)/linsysca.inc
ports$(PPUEXT) : ports.pp linux$(PPUEXT) objpas$(PPUEXT) ports$(PPUEXT) : ports.pp unix$(PPUEXT) objpas$(PPUEXT)
dl$(PPUEXT) : $(UNIXINC)/dl.pp dl$(PPUEXT) : $(UNIXINC)/dl.pp
@ -1333,13 +1338,13 @@ dynlibs$(PPUEXT) : $(INC)/dynlibs.pp $(UNIXINC)/dynlibs.inc dl$(PPUEXT) objpas$(
# #
dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \ dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \
linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
crt$(PPUEXT) : crt.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) crt$(PPUEXT) : crt.pp $(INC)/textrec.inc unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
objects$(PPUEXT) : $(INC)/objects.pp $(UNIXINC)/objinc.inc $(SYSTEMUNIT)$(PPUEXT) objects$(PPUEXT) : $(INC)/objects.pp $(UNIXINC)/objinc.inc $(SYSTEMUNIT)$(PPUEXT)
printer$(PPUEXT) : printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) printer$(PPUEXT) : printer.pp $(INC)/textrec.inc unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
# #
# Graph # Graph
@ -1347,11 +1352,11 @@ printer$(PPUEXT) : printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(P
include $(GRAPHDIR)/makefile.inc include $(GRAPHDIR)/makefile.inc
GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES)) GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES))
graph$(PPUEXT) : graph.pp linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \ graph$(PPUEXT) : graph.pp unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \
$(GRAPHINCDEPS) $(UNIXINC)/graph16.inc $(GRAPHINCDEPS) $(UNIXINC)/graph16.inc
$(COMPILER) -I$(GRAPHDIR) $(UNIXINC)/graph.pp $(REDIR) $(COMPILER) -I$(GRAPHDIR) $(UNIXINC)/graph.pp $(REDIR)
ggigraph$(PPUEXT) : $(UNIXINC)/ggigraph.pp linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \ ggigraph$(PPUEXT) : $(UNIXINC)/ggigraph.pp unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \
$(GRAPHINCDEPS) $(GRAPHINCDEPS)
$(COMPILER) -I$(GRAPHDIR) $(UNIXINC)/ggigraph.pp $(REDIR) $(COMPILER) -I$(GRAPHDIR) $(UNIXINC)/ggigraph.pp $(REDIR)
@ -1360,7 +1365,7 @@ ggigraph$(PPUEXT) : $(UNIXINC)/ggigraph.pp linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
# #
sysutils$(PPUEXT) : sysutils.pp $(wildcard $(OBJPASDIR)/*.inc) \ sysutils$(PPUEXT) : sysutils.pp $(wildcard $(OBJPASDIR)/*.inc) \
objpas$(PPUEXT) linux$(PPUEXT) errors$(PPUEXT) objpas$(PPUEXT) unix$(PPUEXT) errors$(PPUEXT)
$(COMPILER) -I$(OBJPASDIR) $(UNIXINC)/sysutils.pp $(REDIR) $(COMPILER) -I$(OBJPASDIR) $(UNIXINC)/sysutils.pp $(REDIR)
typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT) typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT)
@ -1397,10 +1402,10 @@ lineinfo$(PPUEXT) : $(INC)/lineinfo.pp $(SYSTEMUNIT)$(PPUEXT)
# #
sockets$(PPUEXT) : sockets.pp $(INC)/textrec.inc $(INC)/filerec.inc \ sockets$(PPUEXT) : sockets.pp $(INC)/textrec.inc $(INC)/filerec.inc \
linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
errors$(PPUEXT) : errors.pp strings$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) errors$(PPUEXT) : errors.pp strings$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
ipc$(PPUEXT) : ipc.pp linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) ipc$(PPUEXT) : ipc.pp unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
terminfo$(PPUEXT) : terminfo.pp linux$(PPUEXT) terminfo$(PPUEXT) : terminfo.pp unix$(PPUEXT)

26
rtl/linux/Makefile.fpc
View File

@ -5,7 +5,7 @@
[targets] [targets]
loaders=prt0 cprt0 gprt0 cprt21 gprt21 loaders=prt0 cprt0 gprt0 cprt21 gprt21
units=$(SYSTEMUNIT) objpas strings \ units=$(SYSTEMUNIT) objpas strings \
linux ports initc \ unix ports initc \
dos crt objects printer graph ggigraph \ dos crt objects printer graph ggigraph \
sysutils typinfo math varutils \ sysutils typinfo math varutils \
cpu mmx getopts heaptrc lineinfo \ cpu mmx getopts heaptrc lineinfo \
@ -36,7 +36,7 @@ targetdir=.
libname=libfprtl.so libname=libfprtl.so
libversion=1.0 libversion=1.0
libunits=$(SYSTEMUNIT) objpas strings \ libunits=$(SYSTEMUNIT) objpas strings \
linux ports \ unix ports \
dos crt objects printer \ dos crt objects printer \
sysutils typinfo math \ sysutils typinfo math \
cpu mmx getopts heaptrc \ cpu mmx getopts heaptrc \
@ -131,11 +131,11 @@ strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc\
# $(SYSTEMUNIT) Dependent Units # $(SYSTEMUNIT) Dependent Units
# #
linux$(PPUEXT) : linux.pp strings$(PPUEXT) $(INC)/textrec.inc $(INC)/filerec.inc \ unix$(PPUEXT) : unix.pp strings$(PPUEXT) $(INC)/textrec.inc $(INC)/filerec.inc \
syscalls.inc systypes.inc sysconst.inc $(UNIXINC)/timezone.inc $(SYSTEMUNIT)$(PPUEXT) \ syscalls.inc systypes.inc sysconst.inc $(UNIXINC)/timezone.inc $(SYSTEMUNIT)$(PPUEXT) \
$(UNIXINC)/linsysca.inc $(UNIXINC)/linsysca.inc
ports$(PPUEXT) : ports.pp linux$(PPUEXT) objpas$(PPUEXT) ports$(PPUEXT) : ports.pp unix$(PPUEXT) objpas$(PPUEXT)
dl$(PPUEXT) : $(UNIXINC)/dl.pp dl$(PPUEXT) : $(UNIXINC)/dl.pp
@ -147,13 +147,13 @@ dynlibs$(PPUEXT) : $(INC)/dynlibs.pp $(UNIXINC)/dynlibs.inc dl$(PPUEXT) objpas$(
# #
dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \ dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \
linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
crt$(PPUEXT) : crt.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) crt$(PPUEXT) : crt.pp $(INC)/textrec.inc unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
objects$(PPUEXT) : $(INC)/objects.pp $(UNIXINC)/objinc.inc $(SYSTEMUNIT)$(PPUEXT) objects$(PPUEXT) : $(INC)/objects.pp $(UNIXINC)/objinc.inc $(SYSTEMUNIT)$(PPUEXT)
printer$(PPUEXT) : printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) printer$(PPUEXT) : printer.pp $(INC)/textrec.inc unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
# #
# Graph # Graph
@ -161,11 +161,11 @@ printer$(PPUEXT) : printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(P
include $(GRAPHDIR)/makefile.inc include $(GRAPHDIR)/makefile.inc
GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES)) GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES))
graph$(PPUEXT) : graph.pp linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \ graph$(PPUEXT) : graph.pp unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \
$(GRAPHINCDEPS) $(UNIXINC)/graph16.inc $(GRAPHINCDEPS) $(UNIXINC)/graph16.inc
$(COMPILER) -I$(GRAPHDIR) $(UNIXINC)/graph.pp $(REDIR) $(COMPILER) -I$(GRAPHDIR) $(UNIXINC)/graph.pp $(REDIR)
ggigraph$(PPUEXT) : $(UNIXINC)/ggigraph.pp linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \ ggigraph$(PPUEXT) : $(UNIXINC)/ggigraph.pp unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \
$(GRAPHINCDEPS) $(GRAPHINCDEPS)
$(COMPILER) -I$(GRAPHDIR) $(UNIXINC)/ggigraph.pp $(REDIR) $(COMPILER) -I$(GRAPHDIR) $(UNIXINC)/ggigraph.pp $(REDIR)
@ -174,7 +174,7 @@ ggigraph$(PPUEXT) : $(UNIXINC)/ggigraph.pp linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
# #
sysutils$(PPUEXT) : sysutils.pp $(wildcard $(OBJPASDIR)/*.inc) \ sysutils$(PPUEXT) : sysutils.pp $(wildcard $(OBJPASDIR)/*.inc) \
objpas$(PPUEXT) linux$(PPUEXT) errors$(PPUEXT) objpas$(PPUEXT) unix$(PPUEXT) errors$(PPUEXT)
$(COMPILER) -I$(OBJPASDIR) $(UNIXINC)/sysutils.pp $(REDIR) $(COMPILER) -I$(OBJPASDIR) $(UNIXINC)/sysutils.pp $(REDIR)
typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT) typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT)
@ -211,11 +211,11 @@ lineinfo$(PPUEXT) : $(INC)/lineinfo.pp $(SYSTEMUNIT)$(PPUEXT)
# #
sockets$(PPUEXT) : sockets.pp $(INC)/textrec.inc $(INC)/filerec.inc \ sockets$(PPUEXT) : sockets.pp $(INC)/textrec.inc $(INC)/filerec.inc \
linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
errors$(PPUEXT) : errors.pp strings$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) errors$(PPUEXT) : errors.pp strings$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
ipc$(PPUEXT) : ipc.pp linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) ipc$(PPUEXT) : ipc.pp unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
terminfo$(PPUEXT) : terminfo.pp linux$(PPUEXT) terminfo$(PPUEXT) : terminfo.pp unix$(PPUEXT)

7
rtl/objpas/fina.inc
View File

@ -94,7 +94,7 @@ Begin
S:=FileName; S:=FileName;
DoDirSeparators(S); DoDirSeparators(S);
{$ifdef Unix} {$ifdef Unix}
Result:=Linux.fexpand(S); Result:=Unix.fexpand(S);
{$else} {$else}
Result:=Dos.Fexpand(S); Result:=Dos.Fexpand(S);
{$endif} {$endif}
@ -188,7 +188,10 @@ end;
{ {
$Log$ $Log$
Revision 1.3 2000-11-13 14:41:20 marco Revision 1.4 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.3 2000/11/13 14:41:20 marco
* Unix renamefest for defines * Unix renamefest for defines
Revision 1.2 2000/07/13 11:33:51 michael Revision 1.2 2000/07/13 11:33:51 michael

7
rtl/unix/crt.pp
View File

@ -111,7 +111,7 @@ procedure CursorOff;
Implementation Implementation
uses Linux; uses Unix;
{ {
The definitions of TextRec and FileRec are in separate files. The definitions of TextRec and FileRec are in separate files.
@ -1652,7 +1652,10 @@ Finalization
End. End.
{ {
$Log$ $Log$
Revision 1.3 2000-09-18 13:38:13 marco Revision 1.4 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.3 2000/09/18 13:38:13 marco
Small fix Small fix
Revision 1.2 2000/09/18 13:14:50 marco Revision 1.2 2000/09/18 13:14:50 marco

19
rtl/unix/dos.pp
View File

@ -152,7 +152,7 @@ Procedure SetVerify(verify: boolean);
Implementation Implementation
Uses Uses
Strings,linux; Strings,Unix;
{****************************************************************************** {******************************************************************************
--- Link C Lib if set --- --- Link C Lib if set ---
@ -250,7 +250,7 @@ end;
Procedure GetDate(Var Year, Month, MDay, WDay: Word); Procedure GetDate(Var Year, Month, MDay, WDay: Word);
Begin Begin
Linux.GetDate(Year,Month,MDay); Unix.GetDate(Year,Month,MDay);
Wday:=weekday(Year,Month,MDay); Wday:=weekday(Year,Month,MDay);
end; end;
@ -265,7 +265,7 @@ End;
Procedure GetTime(Var Hour, Minute, Second, Sec100: Word); Procedure GetTime(Var Hour, Minute, Second, Sec100: Word);
Begin Begin
Linux.GetTime(Hour,Minute,Second,Sec100); Unix.GetTime(Hour,Minute,Second,Sec100);
end; end;
@ -660,14 +660,14 @@ End;
Procedure FSplit(Path: PathStr; Var Dir: DirStr; Var Name: NameStr;Var Ext: ExtStr); Procedure FSplit(Path: PathStr; Var Dir: DirStr; Var Name: NameStr;Var Ext: ExtStr);
Begin Begin
Linux.FSplit(Path,Dir,Name,Ext); Unix.FSplit(Path,Dir,Name,Ext);
End; End;
Function FExpand(Const Path: PathStr): PathStr; Function FExpand(Const Path: PathStr): PathStr;
Begin Begin
FExpand:=Linux.FExpand(Path); FExpand:=Unix.FExpand(Path);
End; End;
@ -679,7 +679,7 @@ Begin
if (length(Path)>0) and (path[1]='/') and FStat(path,info) then if (length(Path)>0) and (path[1]='/') and FStat(path,info) then
FSearch:=path FSearch:=path
else else
FSearch:=Linux.FSearch(path,dirlist); FSearch:=Unix.FSearch(path,dirlist);
End; End;
@ -774,7 +774,7 @@ Function GetEnv(EnvVar: String): String;
var var
p : pchar; p : pchar;
Begin Begin
p:=Linux.GetEnv(EnvVar); p:=Unix.GetEnv(EnvVar);
if p=nil then if p=nil then
GetEnv:='' GetEnv:=''
else else
@ -879,7 +879,10 @@ End.
{ {
$Log$ $Log$
Revision 1.2 2000-09-18 13:14:50 marco Revision 1.3 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.2 2000/09/18 13:14:50 marco
* Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure) * Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure)
Revision 1.3 2000/07/14 10:33:10 michael Revision 1.3 2000/07/14 10:33:10 michael

7
rtl/unix/ggigraph.pp
View File

@ -88,7 +88,7 @@ Const
implementation implementation
uses uses
linux; Unix;
var var
OldIO : TermIos; OldIO : TermIos;
@ -534,7 +534,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.2 2000-09-18 13:14:50 marco Revision 1.3 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.2 2000/09/18 13:14:50 marco
* Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure) * Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure)
Revision 1.2 2000/07/13 11:33:48 michael Revision 1.2 2000/07/13 11:33:48 michael

7
rtl/unix/gpm.pp
View File

@ -16,7 +16,7 @@
unit gpm; unit gpm;
interface interface
uses uses
linux; Unix;
{$linklib gpm} {$linklib gpm}
{$linklib c} {$linklib c}
@ -206,7 +206,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.3 2000-11-22 22:44:08 peter Revision 1.4 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.3 2000/11/22 22:44:08 peter
* fixed gpmevent * fixed gpmevent
Revision 1.2 2000/09/18 13:14:50 marco Revision 1.2 2000/09/18 13:14:50 marco

7
rtl/unix/graph.pp
View File

@ -85,7 +85,7 @@ Const
implementation implementation
uses uses
linux; Unix;
const const
InternalDriverName = 'LinuxVGA'; InternalDriverName = 'LinuxVGA';
@ -598,7 +598,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.3 2000-10-12 09:38:34 peter Revision 1.4 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.3 2000/10/12 09:38:34 peter
* renamed to be 8.3 * renamed to be 8.3
Revision 1.2 2000/09/18 13:14:50 marco Revision 1.2 2000/09/18 13:14:50 marco

7
rtl/unix/ipc.pp
View File

@ -239,7 +239,7 @@ Function semctl(semid:longint; semnum:longint; cmd:longint; var arg: tsemun): lo
implementation implementation
uses Linux; uses Unix;
{ The following definitions come from linux/ipc.h } { The following definitions come from linux/ipc.h }
@ -372,7 +372,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.2 2000-09-18 13:14:50 marco Revision 1.3 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.2 2000/09/18 13:14:50 marco
* Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure) * Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure)
Revision 1.3 2000/09/12 08:51:43 marco Revision 1.3 2000/09/12 08:51:43 marco

7
rtl/unix/keyboard.pp
View File

@ -41,7 +41,7 @@ uses
Strings, Strings,
TermInfo, TermInfo,
{$endif NotUseTree} {$endif NotUseTree}
Linux; Unix;
{$i keyboard.inc} {$i keyboard.inc}
@ -1680,7 +1680,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.1 2001-01-13 11:03:58 peter Revision 1.2 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.1 2001/01/13 11:03:58 peter
* API 2 RTL commit * API 2 RTL commit
} }

7
rtl/unix/mouse.pp
View File

@ -29,7 +29,7 @@ const
implementation implementation
uses uses
Linux,Video Unix,Video
{$ifndef NOMOUSE} {$ifndef NOMOUSE}
,gpm ,gpm
{$endif ndef NOMOUSE} {$endif ndef NOMOUSE}
@ -390,7 +390,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.1 2001-01-13 11:03:58 peter Revision 1.2 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.1 2001/01/13 11:03:58 peter
* API 2 RTL commit * API 2 RTL commit
} }

19
rtl/unix/ports.pp
View File

@ -61,49 +61,52 @@ var
implementation implementation
uses linux; uses unix;
{ to give easy port access like tp with port[] } { to give easy port access like tp with port[] }
procedure tport.writeport(p : Longint;data : byte); procedure tport.writeport(p : Longint;data : byte);
begin begin
linux.writeport (p,data) unix.writeport (p,data)
end; end;
function tport.readport(p : Longint) : byte; function tport.readport(p : Longint) : byte;
begin begin
readport := linux.readportb (p); readport := unix.readportb (p);
end; end;
procedure tportw.writeport(p : longint;data : word); procedure tportw.writeport(p : longint;data : word);
begin begin
linux.writeport (p,data) unix.writeport (p,data)
end; end;
function tportw.readport(p : longint) : word; function tportw.readport(p : longint) : word;
begin begin
readport := linux.readportw(p); readport := unix.readportw(p);
end; end;
procedure tportl.writeport(p : longint;data : longint); procedure tportl.writeport(p : longint;data : longint);
begin begin
linux.writeport (p,data) unix.writeport (p,data)
end; end;
function tportl.readport(p : longint) : longint; function tportl.readport(p : longint) : longint;
begin begin
readPort := Linux.readportl(p); readPort := Unix.readportl(p);
end; end;
end. end.
$Log$ $Log$
Revision 1.2 2000-09-18 13:14:51 marco Revision 1.3 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.2 2000/09/18 13:14:51 marco
* Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure) * Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure)
Revision 1.2 2000/07/13 11:33:49 michael Revision 1.2 2000/07/13 11:33:49 michael

7
rtl/unix/printer.pp
View File

@ -61,7 +61,7 @@ Procedure AssignLst ( Var F : text; ToFile : string);
} }
Implementation Implementation
Uses Linux,Strings; Uses Unix,Strings;
{ {
include definition of textrec include definition of textrec
@ -254,7 +254,10 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2000-09-18 13:14:51 marco Revision 1.3 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.2 2000/09/18 13:14:51 marco
* Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure) * Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure)
Revision 1.2 2000/07/13 11:33:49 michael Revision 1.2 2000/07/13 11:33:49 michael

7
rtl/unix/serial.pp
View File

@ -10,7 +10,7 @@ unit Serial;
interface interface
uses Linux; uses Unix;
type type
@ -213,7 +213,10 @@ end.
{ {
$Log$ $Log$
Revision 1.4 2000-12-28 20:50:04 peter Revision 1.5 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.4 2000/12/28 20:50:04 peter
* merged fixes from 1.0.x * merged fixes from 1.0.x
Revision 1.3 2000/10/10 14:12:36 sg Revision 1.3 2000/10/10 14:12:36 sg

7
rtl/unix/sockets.pp
View File

@ -134,7 +134,7 @@ Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:File):Boolean;
Implementation Implementation
Uses Linux; Uses Unix;
{ Include filerec and textrec structures } { Include filerec and textrec structures }
{$i filerec.inc} {$i filerec.inc}
@ -155,7 +155,10 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2000-09-18 13:14:51 marco Revision 1.3 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.2 2000/09/18 13:14:51 marco
* Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure) * Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure)
Revision 1.3 2000/09/11 14:05:31 marco Revision 1.3 2000/09/11 14:05:31 marco

15
rtl/unix/sysutils.pp
View File

@ -22,7 +22,7 @@ interface
{$H+} {$H+}
uses uses
linux,errors; Unix,errors;
{ Include platform independent interface part } { Include platform independent interface part }
{$i sysutilh.inc} {$i sysutilh.inc}
@ -278,14 +278,14 @@ end;
Function RenameFile (Const OldName, NewName : String) : Boolean; Function RenameFile (Const OldName, NewName : String) : Boolean;
begin begin
RenameFile:=Linux.FRename(OldNAme,NewName); RenameFile:=Unix.FRename(OldNAme,NewName);
end; end;
Function FileSearch (Const Name, DirList : String) : String; Function FileSearch (Const Name, DirList : String) : String;
begin begin
FileSearch:=Linux.FSearch(Name,Dirlist); FileSearch:=Unix.FSearch(Name,Dirlist);
end; end;
@ -401,8 +401,8 @@ end;
Procedure GetLocalTime(var SystemTime: TSystemTime); Procedure GetLocalTime(var SystemTime: TSystemTime);
begin begin
linux.GetTime(SystemTime.Hour, SystemTime.Minute, SystemTime.Second); Unix.GetTime(SystemTime.Hour, SystemTime.Minute, SystemTime.Second);
linux.GetDate(SystemTime.Year, SystemTime.Month, SystemTime.Day); Unix.GetDate(SystemTime.Year, SystemTime.Month, SystemTime.Day);
SystemTime.MilliSecond := 0; SystemTime.MilliSecond := 0;
end ; end ;
@ -456,7 +456,10 @@ end.
{ {
$Log$ $Log$
Revision 1.5 2000-12-28 20:50:04 peter Revision 1.6 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.5 2000/12/28 20:50:04 peter
* merged fixes from 1.0.x * merged fixes from 1.0.x
Revision 1.4 2000/12/18 14:01:42 jonas Revision 1.4 2000/12/18 14:01:42 jonas

7
rtl/unix/terminfo.pp
View File

@ -642,7 +642,7 @@ function tputs(Ndx: Word; L1: Longint; F: WriterFunc): Longint;
implementation implementation
uses uses
Linux; Unix;
function putp(Ndx: Longint): Longint; function putp(Ndx: Longint): Longint;
var var
@ -741,7 +741,10 @@ function tparam(const char *, char *, int, ...): PChar; cdecl; external;}
end. end.
{ {
$Log$ $Log$
Revision 1.1 2001-01-13 11:03:58 peter Revision 1.2 2001-01-21 20:21:40 marco
* Rename fest II. Rtl OK
Revision 1.1 2001/01/13 11:03:58 peter
* API 2 RTL commit * API 2 RTL commit
} }

2670
rtl/unix/unix.pp Normal file
View File

File diff suppressed because it is too large Load Diff

15
rtl/unix/video.pp
View File

@ -23,7 +23,7 @@ interface
implementation implementation
uses uses
Linux, Strings, TermInfo; Unix, Strings, TermInfo;
{$i video.inc} {$i video.inc}
@ -469,10 +469,10 @@ begin
end; end;
var var
InitialVideoTio, preInitVideoTio, postInitVideoTio: linux.termios; InitialVideoTio, preInitVideoTio, postInitVideoTio: Unix.termios;
inputRaw, outputRaw: boolean; inputRaw, outputRaw: boolean;
procedure saveRawSettings(const tio: linux.termios); procedure saveRawSettings(const tio: Unix.termios);
Begin Begin
with tio do with tio do
begin begin
@ -487,7 +487,7 @@ Begin
end; end;
end; end;
procedure restoreRawSettings(tio: linux.termios); procedure restoreRawSettings(tio: Unix.termios);
begin begin
with tio do with tio do
begin begin
@ -531,7 +531,7 @@ end;
procedure prepareDoneVideo; procedure prepareDoneVideo;
var var
tio: linux.termios; tio: Unix.termios;
begin begin
TCGetAttr(1,tio); TCGetAttr(1,tio);
saveRawSettings(tio); saveRawSettings(tio);
@ -819,7 +819,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.1 2001-01-13 11:03:58 peter Revision 1.2 2001-01-21 20:21:41 marco
* Rename fest II. Rtl OK
Revision 1.1 2001/01/13 11:03:58 peter
* API 2 RTL commit * API 2 RTL commit
} }