mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 11:49:23 +02:00
* Rename fest II. Rtl OK
This commit is contained in:
marco
parent
f936d45210
commit
738f0589d6
@ -202,7 +202,7 @@ endif
|
||||
# Targets
|
||||
|
||||
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
|
||||
|
||||
# Clean
|
||||
@ -230,7 +230,7 @@ endif
|
||||
|
||||
LIBNAME=libfprtl.so
|
||||
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
|
||||
|
||||
@ -1309,7 +1309,7 @@ strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc\
|
||||
# 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) \
|
||||
$(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) \
|
||||
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)
|
||||
|
||||
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
|
||||
@ -1336,7 +1336,7 @@ printer$(PPUEXT) : $(UNIXINC)/printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYS
|
||||
#
|
||||
|
||||
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)
|
||||
|
||||
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 \
|
||||
linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
unix$(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)
|
||||
|
||||
@ -5,7 +5,7 @@
|
||||
[targets]
|
||||
loaders=prt0 cprt0
|
||||
units=$(SYSTEMUNIT) objpas strings \
|
||||
linux initc \
|
||||
unix initc \
|
||||
dos crt objects printer \
|
||||
sysutils typinfo math \
|
||||
cpu mmx getopts heaptrc lineinfo \
|
||||
@ -33,7 +33,7 @@ targetdir=.
|
||||
libname=libfprtl.so
|
||||
libversion=1.0
|
||||
libunits=$(SYSTEMUNIT) objpas strings \
|
||||
linux \
|
||||
unix \
|
||||
dos crt objects printer \
|
||||
sysutils typinfo math \
|
||||
cpu mmx getopts heaptrc \
|
||||
@ -118,7 +118,7 @@ strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc\
|
||||
# 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) \
|
||||
$(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) \
|
||||
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)
|
||||
|
||||
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
|
||||
@ -145,7 +145,7 @@ printer$(PPUEXT) : $(UNIXINC)/printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYS
|
||||
#
|
||||
|
||||
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)
|
||||
|
||||
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 \
|
||||
linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
unix$(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)
|
||||
|
||||
@ -1821,7 +1821,7 @@ function physicalconsole(fd:longint) : boolean;
|
||||
|
||||
IMPLEMENTATION
|
||||
|
||||
Uses Linux;
|
||||
Uses Unix;
|
||||
|
||||
function physicalconsole(fd:longint) : boolean;
|
||||
|
||||
|
||||
@ -1,13 +1,14 @@
|
||||
#
|
||||
# Makefile generated by fpcmake v1.00 [2000/12/08]
|
||||
# Makefile generated by fpcmake v1.00 [2000/12/23]
|
||||
#
|
||||
|
||||
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 inWinNT when running under WinNT
|
||||
# define inOS2 when running under OS/2
|
||||
#####################################################################
|
||||
|
||||
# We need only / in the path
|
||||
@ -24,6 +25,7 @@ nopwd:
|
||||
@exit
|
||||
else
|
||||
inUnix=1
|
||||
PWD:=$(firstword $(PWD))
|
||||
endif
|
||||
else
|
||||
PWD:=$(firstword $(PWD))
|
||||
@ -201,7 +203,7 @@ endif
|
||||
# Targets
|
||||
|
||||
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
|
||||
|
||||
# Clean
|
||||
@ -230,7 +232,7 @@ endif
|
||||
|
||||
LIBNAME=libfprtl.so
|
||||
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
|
||||
|
||||
@ -1089,6 +1091,9 @@ endif
|
||||
ifeq ($(OS_TARGET),win32)
|
||||
PACKAGESUFFIX=w32
|
||||
endif
|
||||
ifeq ($(OS_TARGET),os2)
|
||||
PACKAGESUFFIX=emx
|
||||
endif
|
||||
endif
|
||||
|
||||
# Temporary path to pack a file
|
||||
@ -1317,11 +1322,11 @@ strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc\
|
||||
# $(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) \
|
||||
$(UNIXINC)/linsysca.inc
|
||||
|
||||
ports$(PPUEXT) : ports.pp linux$(PPUEXT) objpas$(PPUEXT)
|
||||
ports$(PPUEXT) : ports.pp unix$(PPUEXT) objpas$(PPUEXT)
|
||||
|
||||
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) \
|
||||
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)
|
||||
|
||||
printer$(PPUEXT) : printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
printer$(PPUEXT) : printer.pp $(INC)/textrec.inc unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
#
|
||||
# Graph
|
||||
@ -1347,11 +1352,11 @@ printer$(PPUEXT) : printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(P
|
||||
include $(GRAPHDIR)/makefile.inc
|
||||
GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES))
|
||||
|
||||
graph$(PPUEXT) : graph.pp linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \
|
||||
graph$(PPUEXT) : graph.pp unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \
|
||||
$(GRAPHINCDEPS) $(UNIXINC)/graph16.inc
|
||||
$(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)
|
||||
$(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) \
|
||||
objpas$(PPUEXT) linux$(PPUEXT) errors$(PPUEXT)
|
||||
objpas$(PPUEXT) unix$(PPUEXT) errors$(PPUEXT)
|
||||
$(COMPILER) -I$(OBJPASDIR) $(UNIXINC)/sysutils.pp $(REDIR)
|
||||
|
||||
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 \
|
||||
linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
unix$(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)
|
||||
|
||||
@ -5,7 +5,7 @@
|
||||
[targets]
|
||||
loaders=prt0 cprt0 gprt0 cprt21 gprt21
|
||||
units=$(SYSTEMUNIT) objpas strings \
|
||||
linux ports initc \
|
||||
unix ports initc \
|
||||
dos crt objects printer graph ggigraph \
|
||||
sysutils typinfo math varutils \
|
||||
cpu mmx getopts heaptrc lineinfo \
|
||||
@ -36,7 +36,7 @@ targetdir=.
|
||||
libname=libfprtl.so
|
||||
libversion=1.0
|
||||
libunits=$(SYSTEMUNIT) objpas strings \
|
||||
linux ports \
|
||||
unix ports \
|
||||
dos crt objects printer \
|
||||
sysutils typinfo math \
|
||||
cpu mmx getopts heaptrc \
|
||||
@ -131,11 +131,11 @@ strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc\
|
||||
# $(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) \
|
||||
$(UNIXINC)/linsysca.inc
|
||||
|
||||
ports$(PPUEXT) : ports.pp linux$(PPUEXT) objpas$(PPUEXT)
|
||||
ports$(PPUEXT) : ports.pp unix$(PPUEXT) objpas$(PPUEXT)
|
||||
|
||||
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) \
|
||||
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)
|
||||
|
||||
printer$(PPUEXT) : printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
printer$(PPUEXT) : printer.pp $(INC)/textrec.inc unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
#
|
||||
# Graph
|
||||
@ -161,11 +161,11 @@ printer$(PPUEXT) : printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMUNIT)$(P
|
||||
include $(GRAPHDIR)/makefile.inc
|
||||
GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES))
|
||||
|
||||
graph$(PPUEXT) : graph.pp linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \
|
||||
graph$(PPUEXT) : graph.pp unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \
|
||||
$(GRAPHINCDEPS) $(UNIXINC)/graph16.inc
|
||||
$(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)
|
||||
$(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) \
|
||||
objpas$(PPUEXT) linux$(PPUEXT) errors$(PPUEXT)
|
||||
objpas$(PPUEXT) unix$(PPUEXT) errors$(PPUEXT)
|
||||
$(COMPILER) -I$(OBJPASDIR) $(UNIXINC)/sysutils.pp $(REDIR)
|
||||
|
||||
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 \
|
||||
linux$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
unix$(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)
|
||||
|
||||
|
||||
@ -94,7 +94,7 @@ Begin
|
||||
S:=FileName;
|
||||
DoDirSeparators(S);
|
||||
{$ifdef Unix}
|
||||
Result:=Linux.fexpand(S);
|
||||
Result:=Unix.fexpand(S);
|
||||
{$else}
|
||||
Result:=Dos.Fexpand(S);
|
||||
{$endif}
|
||||
@ -188,7 +188,10 @@ end;
|
||||
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.2 2000/07/13 11:33:51 michael
|
||||
|
||||
@ -111,7 +111,7 @@ procedure CursorOff;
|
||||
|
||||
Implementation
|
||||
|
||||
uses Linux;
|
||||
uses Unix;
|
||||
|
||||
{
|
||||
The definitions of TextRec and FileRec are in separate files.
|
||||
@ -1652,7 +1652,10 @@ Finalization
|
||||
End.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.2 2000/09/18 13:14:50 marco
|
||||
|
||||
@ -152,7 +152,7 @@ Procedure SetVerify(verify: boolean);
|
||||
Implementation
|
||||
|
||||
Uses
|
||||
Strings,linux;
|
||||
Strings,Unix;
|
||||
|
||||
{******************************************************************************
|
||||
--- Link C Lib if set ---
|
||||
@ -250,7 +250,7 @@ end;
|
||||
|
||||
Procedure GetDate(Var Year, Month, MDay, WDay: Word);
|
||||
Begin
|
||||
Linux.GetDate(Year,Month,MDay);
|
||||
Unix.GetDate(Year,Month,MDay);
|
||||
Wday:=weekday(Year,Month,MDay);
|
||||
end;
|
||||
|
||||
@ -265,7 +265,7 @@ End;
|
||||
|
||||
Procedure GetTime(Var Hour, Minute, Second, Sec100: Word);
|
||||
Begin
|
||||
Linux.GetTime(Hour,Minute,Second,Sec100);
|
||||
Unix.GetTime(Hour,Minute,Second,Sec100);
|
||||
end;
|
||||
|
||||
|
||||
@ -660,14 +660,14 @@ End;
|
||||
|
||||
Procedure FSplit(Path: PathStr; Var Dir: DirStr; Var Name: NameStr;Var Ext: ExtStr);
|
||||
Begin
|
||||
Linux.FSplit(Path,Dir,Name,Ext);
|
||||
Unix.FSplit(Path,Dir,Name,Ext);
|
||||
End;
|
||||
|
||||
|
||||
|
||||
Function FExpand(Const Path: PathStr): PathStr;
|
||||
Begin
|
||||
FExpand:=Linux.FExpand(Path);
|
||||
FExpand:=Unix.FExpand(Path);
|
||||
End;
|
||||
|
||||
|
||||
@ -679,7 +679,7 @@ Begin
|
||||
if (length(Path)>0) and (path[1]='/') and FStat(path,info) then
|
||||
FSearch:=path
|
||||
else
|
||||
FSearch:=Linux.FSearch(path,dirlist);
|
||||
FSearch:=Unix.FSearch(path,dirlist);
|
||||
End;
|
||||
|
||||
|
||||
@ -774,7 +774,7 @@ Function GetEnv(EnvVar: String): String;
|
||||
var
|
||||
p : pchar;
|
||||
Begin
|
||||
p:=Linux.GetEnv(EnvVar);
|
||||
p:=Unix.GetEnv(EnvVar);
|
||||
if p=nil then
|
||||
GetEnv:=''
|
||||
else
|
||||
@ -879,7 +879,10 @@ End.
|
||||
|
||||
{
|
||||
$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)
|
||||
|
||||
Revision 1.3 2000/07/14 10:33:10 michael
|
||||
|
||||
@ -88,7 +88,7 @@ Const
|
||||
implementation
|
||||
|
||||
uses
|
||||
linux;
|
||||
Unix;
|
||||
|
||||
var
|
||||
OldIO : TermIos;
|
||||
@ -534,7 +534,10 @@ finalization
|
||||
end.
|
||||
{
|
||||
$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)
|
||||
|
||||
Revision 1.2 2000/07/13 11:33:48 michael
|
||||
|
||||
@ -16,7 +16,7 @@
|
||||
unit gpm;
|
||||
interface
|
||||
uses
|
||||
linux;
|
||||
Unix;
|
||||
|
||||
{$linklib gpm}
|
||||
{$linklib c}
|
||||
@ -206,7 +206,10 @@ end;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.2 2000/09/18 13:14:50 marco
|
||||
|
||||
@ -85,7 +85,7 @@ Const
|
||||
implementation
|
||||
|
||||
uses
|
||||
linux;
|
||||
Unix;
|
||||
|
||||
const
|
||||
InternalDriverName = 'LinuxVGA';
|
||||
@ -598,7 +598,10 @@ initialization
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.2 2000/09/18 13:14:50 marco
|
||||
|
||||
@ -239,7 +239,7 @@ Function semctl(semid:longint; semnum:longint; cmd:longint; var arg: tsemun): lo
|
||||
|
||||
implementation
|
||||
|
||||
uses Linux;
|
||||
uses Unix;
|
||||
|
||||
{ The following definitions come from linux/ipc.h }
|
||||
|
||||
@ -372,7 +372,10 @@ end;
|
||||
end.
|
||||
{
|
||||
$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)
|
||||
|
||||
Revision 1.3 2000/09/12 08:51:43 marco
|
||||
|
||||
@ -41,7 +41,7 @@ uses
|
||||
Strings,
|
||||
TermInfo,
|
||||
{$endif NotUseTree}
|
||||
Linux;
|
||||
Unix;
|
||||
|
||||
{$i keyboard.inc}
|
||||
|
||||
@ -1680,7 +1680,10 @@ end;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
}
|
||||
|
||||
@ -29,7 +29,7 @@ const
|
||||
implementation
|
||||
|
||||
uses
|
||||
Linux,Video
|
||||
Unix,Video
|
||||
{$ifndef NOMOUSE}
|
||||
,gpm
|
||||
{$endif ndef NOMOUSE}
|
||||
@ -390,7 +390,10 @@ end;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
}
|
||||
|
||||
@ -61,49 +61,52 @@ var
|
||||
|
||||
implementation
|
||||
|
||||
uses linux;
|
||||
uses unix;
|
||||
|
||||
{ to give easy port access like tp with port[] }
|
||||
|
||||
procedure tport.writeport(p : Longint;data : byte);
|
||||
|
||||
begin
|
||||
linux.writeport (p,data)
|
||||
unix.writeport (p,data)
|
||||
end;
|
||||
|
||||
function tport.readport(p : Longint) : byte;
|
||||
|
||||
begin
|
||||
readport := linux.readportb (p);
|
||||
readport := unix.readportb (p);
|
||||
end;
|
||||
|
||||
procedure tportw.writeport(p : longint;data : word);
|
||||
|
||||
begin
|
||||
linux.writeport (p,data)
|
||||
unix.writeport (p,data)
|
||||
end;
|
||||
|
||||
function tportw.readport(p : longint) : word;
|
||||
|
||||
begin
|
||||
readport := linux.readportw(p);
|
||||
readport := unix.readportw(p);
|
||||
end;
|
||||
|
||||
procedure tportl.writeport(p : longint;data : longint);
|
||||
|
||||
begin
|
||||
linux.writeport (p,data)
|
||||
unix.writeport (p,data)
|
||||
end;
|
||||
|
||||
function tportl.readport(p : longint) : longint;
|
||||
|
||||
begin
|
||||
readPort := Linux.readportl(p);
|
||||
readPort := Unix.readportl(p);
|
||||
end;
|
||||
|
||||
end.
|
||||
$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)
|
||||
|
||||
Revision 1.2 2000/07/13 11:33:49 michael
|
||||
|
||||
@ -61,7 +61,7 @@ Procedure AssignLst ( Var F : text; ToFile : string);
|
||||
}
|
||||
|
||||
Implementation
|
||||
Uses Linux,Strings;
|
||||
Uses Unix,Strings;
|
||||
|
||||
{
|
||||
include definition of textrec
|
||||
@ -254,7 +254,10 @@ end.
|
||||
|
||||
{
|
||||
$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)
|
||||
|
||||
Revision 1.2 2000/07/13 11:33:49 michael
|
||||
|
||||
@ -10,7 +10,7 @@ unit Serial;
|
||||
|
||||
interface
|
||||
|
||||
uses Linux;
|
||||
uses Unix;
|
||||
|
||||
type
|
||||
|
||||
@ -213,7 +213,10 @@ end.
|
||||
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.3 2000/10/10 14:12:36 sg
|
||||
|
||||
@ -134,7 +134,7 @@ Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:File):Boolean;
|
||||
|
||||
Implementation
|
||||
|
||||
Uses Linux;
|
||||
Uses Unix;
|
||||
|
||||
{ Include filerec and textrec structures }
|
||||
{$i filerec.inc}
|
||||
@ -155,7 +155,10 @@ end.
|
||||
|
||||
{
|
||||
$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)
|
||||
|
||||
Revision 1.3 2000/09/11 14:05:31 marco
|
||||
|
||||
@ -22,7 +22,7 @@ interface
|
||||
{$H+}
|
||||
|
||||
uses
|
||||
linux,errors;
|
||||
Unix,errors;
|
||||
|
||||
{ Include platform independent interface part }
|
||||
{$i sysutilh.inc}
|
||||
@ -278,14 +278,14 @@ end;
|
||||
Function RenameFile (Const OldName, NewName : String) : Boolean;
|
||||
|
||||
begin
|
||||
RenameFile:=Linux.FRename(OldNAme,NewName);
|
||||
RenameFile:=Unix.FRename(OldNAme,NewName);
|
||||
end;
|
||||
|
||||
|
||||
Function FileSearch (Const Name, DirList : String) : String;
|
||||
|
||||
begin
|
||||
FileSearch:=Linux.FSearch(Name,Dirlist);
|
||||
FileSearch:=Unix.FSearch(Name,Dirlist);
|
||||
end;
|
||||
|
||||
|
||||
@ -401,8 +401,8 @@ end;
|
||||
|
||||
Procedure GetLocalTime(var SystemTime: TSystemTime);
|
||||
begin
|
||||
linux.GetTime(SystemTime.Hour, SystemTime.Minute, SystemTime.Second);
|
||||
linux.GetDate(SystemTime.Year, SystemTime.Month, SystemTime.Day);
|
||||
Unix.GetTime(SystemTime.Hour, SystemTime.Minute, SystemTime.Second);
|
||||
Unix.GetDate(SystemTime.Year, SystemTime.Month, SystemTime.Day);
|
||||
SystemTime.MilliSecond := 0;
|
||||
end ;
|
||||
|
||||
@ -456,7 +456,10 @@ end.
|
||||
{
|
||||
|
||||
$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
|
||||
|
||||
Revision 1.4 2000/12/18 14:01:42 jonas
|
||||
|
||||
@ -642,7 +642,7 @@ function tputs(Ndx: Word; L1: Longint; F: WriterFunc): Longint;
|
||||
implementation
|
||||
|
||||
uses
|
||||
Linux;
|
||||
Unix;
|
||||
|
||||
function putp(Ndx: Longint): Longint;
|
||||
var
|
||||
@ -741,7 +741,10 @@ function tparam(const char *, char *, int, ...): PChar; cdecl; external;}
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
}
|
||||
2670
rtl/unix/unix.pp
Normal file
2670
rtl/unix/unix.pp
Normal file
File diff suppressed because it is too large
Load Diff
@ -23,7 +23,7 @@ interface
|
||||
implementation
|
||||
|
||||
uses
|
||||
Linux, Strings, TermInfo;
|
||||
Unix, Strings, TermInfo;
|
||||
|
||||
{$i video.inc}
|
||||
|
||||
@ -469,10 +469,10 @@ begin
|
||||
end;
|
||||
|
||||
var
|
||||
InitialVideoTio, preInitVideoTio, postInitVideoTio: linux.termios;
|
||||
InitialVideoTio, preInitVideoTio, postInitVideoTio: Unix.termios;
|
||||
inputRaw, outputRaw: boolean;
|
||||
|
||||
procedure saveRawSettings(const tio: linux.termios);
|
||||
procedure saveRawSettings(const tio: Unix.termios);
|
||||
Begin
|
||||
with tio do
|
||||
begin
|
||||
@ -487,7 +487,7 @@ Begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure restoreRawSettings(tio: linux.termios);
|
||||
procedure restoreRawSettings(tio: Unix.termios);
|
||||
begin
|
||||
with tio do
|
||||
begin
|
||||
@ -531,7 +531,7 @@ end;
|
||||
|
||||
procedure prepareDoneVideo;
|
||||
var
|
||||
tio: linux.termios;
|
||||
tio: Unix.termios;
|
||||
begin
|
||||
TCGetAttr(1,tio);
|
||||
saveRawSettings(tio);
|
||||
@ -819,7 +819,10 @@ finalization
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user