mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-05 23:22:25 +00:00
added target os, added experimental darwin, starting darwin port
This commit is contained in:
Norayr Chilingarian
parent
048a6f7f35
commit
49b86a4ac5
61 changed files with 1517 additions and 21 deletions
6
makefile
6
makefile
|
|
@ -7,15 +7,15 @@ CCOMP = gnuc
|
|||
RELEASE = 1.0
|
||||
|
||||
|
||||
INCLUDEPATH = -Isrc/lib/system/$(CCOMP)/$(TARCH)
|
||||
INCLUDEPATH = -Isrc/lib/system/$(TOS)/$(CCOMP)/$(TARCH)
|
||||
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system:src/lib/system/$(CCOMP):src/lib/system/$(CCOMP)/$(TARCH):src/lib/ulm:src/lib/ulm/$(CCOMP):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(CCOMP):src/lib/ooc:src/lib/ooc/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(CCOMP):src/voc/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system/$(TOS)/$(CCOMP):src/lib/system/$(TOS)/$(CCOMP)/$(TARCH):src/lib/ulm:src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(TOS)/$(CCOMP):src/lib/ooc:src/lib/ooc/$(TOS)/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(TOS)/$(CCOMP):src/voc/$(TOS)/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
|
||||
VOC = voc
|
||||
VERSION = $(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC0 = $(SETPATH) ./vocstatic.$(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC = $(SETPATH) ./voc
|
||||
VOCPARAM = $(shell ./vocparam > voc.par)
|
||||
VERSION = GNU_Linux_$(TARCH)
|
||||
LIBNAME = VishapOberon
|
||||
LIBRARY = lib$(LIBNAME)
|
||||
|
||||
|
|
|
|||
300
makefile.darwin.clang.x86_64
Normal file
300
makefile.darwin.clang.x86_64
Normal file
|
|
@ -0,0 +1,300 @@
|
|||
#SHELL := /bin/bash
|
||||
BUILDID=$(shell date +%Y/%m/%d)
|
||||
TOS = darwin
|
||||
TARCH = x86_64
|
||||
#TARCH = x86 x86_64 armv6j armv6j_hardfp armv7a_hardfp powerpc
|
||||
CCOMP = clang
|
||||
RELEASE = 1.0
|
||||
|
||||
|
||||
INCLUDEPATH = -Isrc/lib/system/$(TOS)/$(CCOMP)/$(TARCH)
|
||||
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system/$(TOS)/$(CCOMP):src/lib/system/$(TOS)/$(CCOMP)/$(TARCH):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(TOS)/$(CCOMP):src/lib/ooc:src/lib/ooc/$(TOS)/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(TOS)/$(CCOMP):src/voc/$(TOS)/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
|
||||
VOC = voc
|
||||
VERSION = $(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC0 = $(SETPATH) ./vocstatic.$(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC = $(SETPATH) ./voc
|
||||
VOCPARAM = $(shell ./vocparam > voc.par)
|
||||
LIBNAME = VishapOberon
|
||||
LIBRARY = lib$(LIBNAME)
|
||||
|
||||
ifndef PREFIX
|
||||
PREFIX = /opt/voc-$(RELEASE)
|
||||
endif
|
||||
|
||||
ifndef PREFIXLN
|
||||
PREFIXLN = /opt/voc
|
||||
endif
|
||||
|
||||
CCOPT = -fPIC $(INCLUDEPATH) -g
|
||||
|
||||
CC = cc $(CCOPT) -c
|
||||
CL = cc $(CCOPT)
|
||||
LD = cc -shared -o $(LIBRARY).so
|
||||
# s is necessary to create index inside a archive
|
||||
ARCHIVE = ar rcs $(LIBRARY).a
|
||||
|
||||
#%.c: %.Mod
|
||||
#%.o: %.c
|
||||
# $(CC) $(input)
|
||||
|
||||
all: stage2 stage3 stage4 stage5 stage6 stage7
|
||||
|
||||
# when porting to new platform:
|
||||
# * put corresponding .par file into current directory. it can be generated on the target platform by compiling vocparam (stage0) and running (stage1)
|
||||
# * run make port0 - this will generate C source files for the target architecture
|
||||
# * move the source tree to the target machine, and compile (or compile here via crosscompiler) (port1)
|
||||
port0: stage2 stage3 stage4
|
||||
|
||||
# now compile C source files for voc, showdef and ocat on target machine (or by using crosscompiler)
|
||||
port1: stage5
|
||||
# after you have "voc" compiled for target architecture. replace vocstatic with it and run make on target platform to get everything compiled
|
||||
|
||||
# this builds binary which generates voc.par
|
||||
stage0: src/tools/vocparam/vocparam.c
|
||||
$(CL) -I src/lib -o vocparam src/tools/vocparam/vocparam.c
|
||||
|
||||
# this creates voc.par for a host architecture.
|
||||
# comment this out if you need to build a compiler for a different architecture.
|
||||
stage1:
|
||||
#rm voc.par
|
||||
#$(shell "./vocparam > voc.par")
|
||||
#./vocparam > voc.par
|
||||
$(VOCPARAM)
|
||||
|
||||
# this copies necessary voc.par to the current directory.
|
||||
# skip this if you are building compiler for the host architecture.
|
||||
stage2:
|
||||
cp src/par/voc.par.$(CCOMP).$(TARCH) voc.par
|
||||
# cp src/par/voc.par.gnu.x86_64 voc.par
|
||||
# cp src/par/voc.par.gnu.x86 voc.par
|
||||
# cp src/par/voc.par.gnu.armv6 voc.par
|
||||
# cp src/par/voc.par.gnu.armv7 voc.par
|
||||
|
||||
# this prepares modules necessary to build the compiler itself
|
||||
stage3:
|
||||
|
||||
$(VOCSTATIC0) -siapxPS SYSTEM.Mod
|
||||
$(VOCSTATIC0) -sPS Args.Mod Console.Mod Unix.Mod
|
||||
$(VOCSTATIC0) -sPS oocOakStrings.Mod architecture.Mod version.Mod Kernel.Mod Modules.Mod
|
||||
$(VOCSTATIC0) -sxPS Files.Mod
|
||||
$(VOCSTATIC0) -sxPS OakFiles.Mod
|
||||
$(VOCSTATIC0) -sPS Reals.Mod CmdlnTexts.Mod errors.Mod
|
||||
|
||||
# build the compiler
|
||||
stage4:
|
||||
$(VOCSTATIC0) -sPS extTools.Mod
|
||||
$(VOCSTATIC0) -sPS OPM.cmdln.Mod
|
||||
$(VOCSTATIC0) -sxPS OPS.Mod
|
||||
$(VOCSTATIC0) -sPS OPT.Mod OPC.Mod OPV.Mod OPB.Mod OPP.Mod
|
||||
$(VOCSTATIC0) -smPS voc.Mod
|
||||
$(VOCSTATIC0) -smPS BrowserCmd.Mod
|
||||
$(VOCSTATIC0) -smPS OCatCmd.Mod
|
||||
|
||||
#this is to build the compiler from C sources.
|
||||
#this is a way to create a bootstrap binary.
|
||||
stage5:
|
||||
$(CC) SYSTEM.c Args.c Console.c Modules.c Unix.c \
|
||||
oocOakStrings.c architecture.c version.c Kernel.c Files.c OakFiles.c Reals.c CmdlnTexts.c \
|
||||
version.c extTools.c \
|
||||
OPM.c OPS.c OPT.c OPC.c OPV.c OPB.c OPP.c errors.c
|
||||
|
||||
$(CL) -static voc.c -o voc \
|
||||
SYSTEM.o Args.o Console.o Modules.o Unix.o \
|
||||
oocOakStrings.o architecture.o version.o Kernel.o Files.o Reals.o CmdlnTexts.o \
|
||||
extTools.o \
|
||||
OPM.o OPS.o OPT.o OPC.o OPV.o OPB.o OPP.o errors.o
|
||||
$(CL) BrowserCmd.c -o showdef \
|
||||
SYSTEM.o Args.o Console.o Modules.o Unix.o oocOakStrings.o architecture.o version.o Kernel.o Files.o Reals.o CmdlnTexts.o \
|
||||
OPM.o OPS.o OPT.o OPV.o OPC.o errors.o
|
||||
|
||||
$(CL) OCatCmd.c -o ocat \
|
||||
SYSTEM.o Args.o Console.o Modules.o Unix.o oocOakStrings.o architecture.o version.o Kernel.o Files.o Reals.o CmdlnTexts.o
|
||||
|
||||
# build all library files
|
||||
stage6:
|
||||
|
||||
#ooc libs
|
||||
$(VOCSTATIC) -sP oocAscii.Mod
|
||||
$(VOCSTATIC) -sP oocStrings.Mod
|
||||
$(VOCSTATIC) -sP oocStrings2.Mod
|
||||
$(VOCSTATIC) -sP oocCharClass.Mod
|
||||
$(VOCSTATIC) -sP oocConvTypes.Mod
|
||||
$(VOCSTATIC) -sP oocIntConv.Mod
|
||||
$(VOCSTATIC) -sP oocIntStr.Mod
|
||||
$(VOCSTATIC) -sP oocSysClock.Mod
|
||||
$(VOCSTATIC) -sP oocTime.Mod
|
||||
# $(VOCSTATIC) -s oocLongStrings.Mod
|
||||
# $(CC) oocLongStrings.c
|
||||
# $(VOCSTATIC) -s oocMsg.Mod
|
||||
# $(CC) oocMsg.c
|
||||
|
||||
|
||||
#ooc2 libs
|
||||
$(VOCSTATIC) -sP ooc2Strings.Mod
|
||||
$(VOCSTATIC) -sP ooc2Ascii.Mod
|
||||
$(VOCSTATIC) -sP ooc2CharClass.Mod
|
||||
$(VOCSTATIC) -sP ooc2ConvTypes.Mod
|
||||
$(VOCSTATIC) -sP ooc2IntConv.Mod
|
||||
$(VOCSTATIC) -sP ooc2IntStr.Mod
|
||||
$(VOCSTATIC) -sP ooc2Real0.Mod
|
||||
#ooc libs
|
||||
$(VOCSTATIC) -sP oocLowReal.Mod oocLowLReal.Mod
|
||||
$(VOCSTATIC) -sP oocRealMath.Mod oocOakMath.Mod
|
||||
$(VOCSTATIC) -sP oocLRealMath.Mod
|
||||
$(VOCSTATIC) -sP oocLongInts.Mod
|
||||
$(VOCSTATIC) -sP oocComplexMath.Mod oocLComplexMath.Mod
|
||||
$(VOCSTATIC) -sP oocLRealConv.Mod oocLRealStr.Mod
|
||||
$(VOCSTATIC) -sP oocRealConv.Mod oocRealStr.Mod
|
||||
$(VOCSTATIC) -sP oocMsg.Mod oocChannel.Mod
|
||||
$(VOCSTATIC) -sP oocStrings2.Mod oocRts.Mod oocFilenames.Mod
|
||||
$(VOCSTATIC) -sP oocTextRider.Mod oocBinaryRider.Mod oocJulianDay.Mod
|
||||
$(VOCSTATIC) -sP oocFilenames.Mod
|
||||
$(VOCSTATIC) -sP oocwrapperlibc.Mod
|
||||
$(VOCSTATIC) -sP oocC.Mod
|
||||
$(VOCSTATIC) -sP oocX11.Mod
|
||||
$(VOCSTATIC) -sP oocXutil.Mod
|
||||
$(VOCSTATIC) -sP oocXYplane.Mod
|
||||
|
||||
#Ulm's Oberon system libs
|
||||
$(VOCSTATIC) -sP ulmSys.Mod
|
||||
$(VOCSTATIC) -sP ulmSYSTEM.Mod
|
||||
$(VOCSTATIC) -sP ulmASCII.Mod
|
||||
$(VOCSTATIC) -sP ulmSets.Mod
|
||||
$(VOCSTATIC) -sP ulmObjects.Mod
|
||||
$(VOCSTATIC) -sP ulmDisciplines.Mod
|
||||
$(VOCSTATIC) -sP ulmPriorities.Mod
|
||||
$(VOCSTATIC) -sP ulmServices.Mod
|
||||
$(VOCSTATIC) -sP ulmEvents.Mod
|
||||
$(VOCSTATIC) -sP ulmResources.Mod
|
||||
$(VOCSTATIC) -sP ulmForwarders.Mod
|
||||
$(VOCSTATIC) -sP ulmRelatedEvents.Mod
|
||||
$(VOCSTATIC) -sP ulmIO.Mod
|
||||
$(VOCSTATIC) -sP ulmProcess.Mod
|
||||
$(VOCSTATIC) -sP ulmTypes.Mod
|
||||
$(VOCSTATIC) -sP ulmStreams.Mod
|
||||
$(VOCSTATIC) -sP ulmAssertions.Mod
|
||||
$(VOCSTATIC) -sP ulmIndirectDisciplines.Mod
|
||||
$(VOCSTATIC) -sP ulmStreamDisciplines.Mod
|
||||
$(VOCSTATIC) -sP ulmIEEE.Mod
|
||||
$(VOCSTATIC) -sP ulmMC68881.Mod
|
||||
$(VOCSTATIC) -sP ulmReals.Mod
|
||||
$(VOCSTATIC) -sP ulmPrint.Mod
|
||||
$(VOCSTATIC) -sP ulmWrite.Mod
|
||||
$(VOCSTATIC) -sP ulmTexts.Mod
|
||||
$(VOCSTATIC) -sP ulmStrings.Mod
|
||||
$(VOCSTATIC) -sP ulmConstStrings.Mod
|
||||
$(VOCSTATIC) -sP ulmPlotters.Mod
|
||||
$(VOCSTATIC) -sP ulmSysTypes.Mod
|
||||
$(VOCSTATIC) -sP ulmSysConversions.Mod
|
||||
$(VOCSTATIC) -sP ulmErrors.Mod
|
||||
$(VOCSTATIC) -sP ulmSysErrors.Mod
|
||||
$(VOCSTATIC) -sP ulmSysIO.Mod
|
||||
$(VOCSTATIC) -sP ulmLoader.Mod
|
||||
$(VOCSTATIC) -sP ulmNetIO.Mod
|
||||
$(VOCSTATIC) -sP ulmPersistentObjects.Mod
|
||||
$(VOCSTATIC) -sP ulmPersistentDisciplines.Mod
|
||||
$(VOCSTATIC) -sP ulmOperations.Mod
|
||||
$(VOCSTATIC) -sP ulmScales.Mod
|
||||
$(VOCSTATIC) -sP ulmTimes.Mod
|
||||
$(VOCSTATIC) -sP ulmClocks.Mod
|
||||
$(VOCSTATIC) -sP ulmTimers.Mod
|
||||
$(VOCSTATIC) -sP ulmConditions.Mod
|
||||
$(VOCSTATIC) -sP ulmStreamConditions.Mod
|
||||
$(VOCSTATIC) -sP ulmTimeConditions.Mod
|
||||
$(VOCSTATIC) -sP ulmSysConversions.Mod
|
||||
$(VOCSTATIC) -sP ulmSysStat.Mod
|
||||
$(VOCSTATIC) -sP ulmCiphers.Mod
|
||||
$(VOCSTATIC) -sP ulmCipherOps.Mod
|
||||
$(VOCSTATIC) -sP ulmBlockCiphers.Mod
|
||||
$(VOCSTATIC) -sP ulmAsymmetricCiphers.Mod
|
||||
$(VOCSTATIC) -sP ulmConclusions.Mod
|
||||
$(VOCSTATIC) -sP ulmRandomGenerators.Mod
|
||||
$(VOCSTATIC) -sP ulmTCrypt.Mod
|
||||
|
||||
#more v4 libs
|
||||
$(VOCSTATIC) -sP Printer.Mod
|
||||
$(VOCSTATIC) -sP Strings.Mod
|
||||
$(VOCSTATIC) -sP Sets.Mod
|
||||
$(VOCSTATIC) -sP Sets0.Mod
|
||||
$(VOCSTATIC) -sP compatIn.Mod
|
||||
|
||||
#pow32 libs
|
||||
$(VOCSTATIC) -sP powStrings.Mod
|
||||
|
||||
#misc libs
|
||||
$(VOCSTATIC) -sP MultiArrays.Mod
|
||||
$(VOCSTATIC) -sP MultiArrayRiders.Mod
|
||||
$(VOCSTATIC) -sP MersenneTwister.Mod
|
||||
$(VOCSTATIC) -sP Listen.Mod
|
||||
|
||||
#s3 libs
|
||||
$(VOCSTATIC) -sP ethBTrees.Mod
|
||||
$(VOCSTATIC) -sP ethMD5.Mod
|
||||
$(VOCSTATIC) -sP ethSets.Mod
|
||||
$(VOCSTATIC) -sP ethZlib.Mod
|
||||
$(VOCSTATIC) -sP ethZlibBuffers.Mod
|
||||
$(VOCSTATIC) -sP ethZlibInflate.Mod
|
||||
$(VOCSTATIC) -sP ethZlibDeflate.Mod
|
||||
$(VOCSTATIC) -sP ethZlibReaders.Mod
|
||||
$(VOCSTATIC) -sP ethZlibWriters.Mod
|
||||
$(VOCSTATIC) -sP ethZip.Mod
|
||||
$(VOCSTATIC) -sP ethRandomNumbers.Mod
|
||||
$(VOCSTATIC) -sP ethGZReaders.Mod
|
||||
$(VOCSTATIC) -sP ethGZWriters.Mod
|
||||
|
||||
|
||||
# build remaining tools
|
||||
# $(VOCSTATIC0) -sPS compatIn.Mod
|
||||
# $(VOCSTATIC0) -smPS vmake.Mod
|
||||
# $(CC) compatIn.c
|
||||
# $(CL) vmake.c -o vmake SYSTEM.o Args.o compatIn.o CmdlnTexts.o Console.o Files.o Reals.o Modules.o Kernel.o Unix.o oocOakStrings.o oocIntStr.o oocConvTypes.o oocIntConv.o version.o architecture.o
|
||||
|
||||
|
||||
|
||||
stage7:
|
||||
#objects := $(wildcard *.o)
|
||||
#$(LD) objects
|
||||
$(ARCHIVE) *.o
|
||||
#$(ARCHIVE) objects
|
||||
$(LD) *.o
|
||||
echo "$(PREFIX)/lib" > 05vishap.conf
|
||||
|
||||
clean:
|
||||
# rm_objects := rm $(wildcard *.o)
|
||||
# objects
|
||||
rm *.o
|
||||
rm *.so
|
||||
rm *.h
|
||||
rm *.c
|
||||
rm *.a
|
||||
rm *.sym
|
||||
|
||||
install:
|
||||
test -d $(PREFIX)/bin | mkdir -p $(PREFIX)/bin
|
||||
cp voc $(PREFIX)/bin/
|
||||
cp showdef $(PREFIX)/bin/
|
||||
cp ocat $(PREFIX)/bin/
|
||||
#cp vmake $(PREFIX)/bin/
|
||||
cp -a src $(PREFIX)/
|
||||
|
||||
test -d $(PREFIX)/lib/voc | mkdir -p $(PREFIX)/lib/voc
|
||||
test -d $(PREFIX)/lib/voc/ | mkdir -p $(PREFIX)/lib/voc
|
||||
test -d $(PREFIX)/lib/voc/obj | mkdir -p $(PREFIX)/lib/voc/obj
|
||||
test -d $(PREFIX)/lib/voc/sym | mkdir -p $(PREFIX)/lib/voc/sym
|
||||
|
||||
cp $(LIBRARY).so $(PREFIX)/lib
|
||||
cp $(LIBRARY).a $(PREFIX)/lib
|
||||
cp *.c $(PREFIX)/lib/voc/obj/
|
||||
cp *.h $(PREFIX)/lib/voc/obj/
|
||||
cp *.sym $(PREFIX)/lib/voc/sym/
|
||||
|
||||
cp 05vishap.conf /etc/ld.so.conf.d/
|
||||
ldconfig
|
||||
ln -s $(PREFIX) $(PREFIXLN)
|
||||
|
||||
# cp *.o $(PREFIX)/lib/voc/$(RELEASE)/obj/
|
||||
uninstall:
|
||||
rm -rf $(PREFIX)
|
||||
rm -rf $(PREFIXLN)
|
||||
|
|
@ -7,15 +7,15 @@ CCOMP = gnuc
|
|||
RELEASE = 1.0
|
||||
|
||||
|
||||
INCLUDEPATH = -Isrc/lib/system/$(CCOMP)/$(TARCH)
|
||||
INCLUDEPATH = -Isrc/lib/system/$(TOS)/$(CCOMP)/$(TARCH)
|
||||
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system:src/lib/system/$(CCOMP):src/lib/system/$(CCOMP)/$(TARCH):src/lib/ulm:src/lib/ulm/$(CCOMP):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(CCOMP):src/lib/ooc:src/lib/ooc/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(CCOMP):src/voc/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system/$(TOS)/$(CCOMP):src/lib/system/$(TOS)/$(CCOMP)/$(TARCH):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(TOS)/$(CCOMP):src/lib/ooc:src/lib/ooc/$(TOS)/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(TOS)/$(CCOMP):src/voc/$(TOS)/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
|
||||
VOC = voc
|
||||
VERSION = $(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC0 = $(SETPATH) ./vocstatic.$(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC = $(SETPATH) ./voc
|
||||
VOCPARAM = $(shell ./vocparam > voc.par)
|
||||
VERSION = GNU_Linux_$(TARCH)
|
||||
LIBNAME = VishapOberon
|
||||
LIBRARY = lib$(LIBNAME)
|
||||
|
||||
|
|
@ -7,15 +7,15 @@ CCOMP = gnuc
|
|||
RELEASE = 1.0
|
||||
|
||||
|
||||
INCLUDEPATH = -Isrc/lib/system/$(CCOMP)/$(TARCH)
|
||||
INCLUDEPATH = -Isrc/lib/system/$(TOS)/$(CCOMP)/$(TARCH)
|
||||
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system:src/lib/system/$(CCOMP):src/lib/system/$(CCOMP)/$(TARCH):src/lib/ulm:src/lib/ulm/$(CCOMP):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(CCOMP):src/lib/ooc:src/lib/ooc/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(CCOMP):src/voc/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system/$(TOS)/$(CCOMP):src/lib/system/$(TOS)/$(CCOMP)/$(TARCH):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(TOS)/$(CCOMP):src/lib/ooc:src/lib/ooc/$(TOS)/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(TOS)/$(CCOMP):src/voc/$(TOS)/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
|
||||
VOC = voc
|
||||
VERSION = $(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC0 = $(SETPATH) ./vocstatic.$(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC = $(SETPATH) ./voc
|
||||
VOCPARAM = $(shell ./vocparam > voc.par)
|
||||
VERSION = GNU_Linux_$(TARCH)
|
||||
LIBNAME = VishapOberon
|
||||
LIBRARY = lib$(LIBNAME)
|
||||
|
||||
|
|
@ -7,15 +7,15 @@ CCOMP = gnuc
|
|||
RELEASE = 1.0
|
||||
|
||||
|
||||
INCLUDEPATH = -Isrc/lib/system/$(CCOMP)/$(TARCH)
|
||||
INCLUDEPATH = -Isrc/lib/system/$(TOS)/$(CCOMP)/$(TARCH)
|
||||
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system:src/lib/system/$(CCOMP):src/lib/system/$(CCOMP)/$(TARCH):src/lib/ulm:src/lib/ulm/$(CCOMP):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(CCOMP):src/lib/ooc:src/lib/ooc/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(CCOMP):src/voc/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system/$(TOS)/$(CCOMP):src/lib/system/$(TOS)/$(CCOMP)/$(TARCH):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(TOS)/$(CCOMP):src/lib/ooc:src/lib/ooc/$(TOS)/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(TOS)/$(CCOMP):src/voc/$(TOS)/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
|
||||
VOC = voc
|
||||
VERSION = $(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC0 = $(SETPATH) ./vocstatic.$(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC = $(SETPATH) ./voc
|
||||
VOCPARAM = $(shell ./vocparam > voc.par)
|
||||
VERSION = GNU_Linux_$(TARCH)
|
||||
LIBNAME = VishapOberon
|
||||
LIBRARY = lib$(LIBNAME)
|
||||
|
||||
|
|
@ -7,15 +7,15 @@ CCOMP = gnuc
|
|||
RELEASE = 1.0
|
||||
|
||||
|
||||
INCLUDEPATH = -Isrc/lib/system/$(CCOMP)/$(TARCH)
|
||||
INCLUDEPATH = -Isrc/lib/system/$(TOS)/$(CCOMP)/$(TARCH)
|
||||
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system:src/lib/system/$(CCOMP):src/lib/system/$(CCOMP)/$(TARCH):src/lib/ulm:src/lib/ulm/$(CCOMP):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(CCOMP):src/lib/ooc:src/lib/ooc/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(CCOMP):src/voc/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system/$(TOS)/$(CCOMP):src/lib/system/$(TOS)/$(CCOMP)/$(TARCH):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(TOS)/$(CCOMP):src/lib/ooc:src/lib/ooc/$(TOS)/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(TOS)/$(CCOMP):src/voc/$(TOS)/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
|
||||
VOC = voc
|
||||
VERSION = $(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC0 = $(SETPATH) ./vocstatic.$(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC = $(SETPATH) ./voc
|
||||
VOCPARAM = $(shell ./vocparam > voc.par)
|
||||
VERSION = GNU_Linux_$(TARCH)
|
||||
LIBNAME = VishapOberon
|
||||
LIBRARY = lib$(LIBNAME)
|
||||
|
||||
|
|
@ -7,15 +7,15 @@ CCOMP = gnuc
|
|||
RELEASE = 1.0
|
||||
|
||||
|
||||
INCLUDEPATH = -Isrc/lib/system/$(CCOMP)/$(TARCH)
|
||||
INCLUDEPATH = -Isrc/lib/system/$(TOS)/$(CCOMP)/$(TARCH)
|
||||
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system:src/lib/system/$(CCOMP):src/lib/system/$(CCOMP)/$(TARCH):src/lib/ulm:src/lib/ulm/$(CCOMP):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(CCOMP):src/lib/ooc:src/lib/ooc/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(CCOMP):src/voc/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system/$(TOS)/$(CCOMP):src/lib/system/$(TOS)/$(CCOMP)/$(TARCH):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(TOS)/$(CCOMP):src/lib/ooc:src/lib/ooc/$(TOS)/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(TOS)/$(CCOMP):src/voc/$(TOS)/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
|
||||
VOC = voc
|
||||
VERSION = $(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC0 = $(SETPATH) ./vocstatic.$(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC = $(SETPATH) ./voc
|
||||
VOCPARAM = $(shell ./vocparam > voc.par)
|
||||
VERSION = GNU_Linux_$(TARCH)
|
||||
LIBNAME = VishapOberon
|
||||
LIBRARY = lib$(LIBNAME)
|
||||
|
||||
|
|
@ -7,15 +7,15 @@ CCOMP = gnuc
|
|||
RELEASE = 1.0
|
||||
|
||||
|
||||
INCLUDEPATH = -Isrc/lib/system/$(CCOMP)/$(TARCH)
|
||||
INCLUDEPATH = -Isrc/lib/system/$(TOS)/$(CCOMP)/$(TARCH)
|
||||
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system:src/lib/system/$(CCOMP):src/lib/system/$(CCOMP)/$(TARCH):src/lib/ulm:src/lib/ulm/$(CCOMP):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(CCOMP):src/lib/ooc:src/lib/ooc/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(CCOMP):src/voc/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
SETPATH = CFLAGS=$(INCLUDEPATH) PATH=.:/bin:/usr/bin MODULES=.:src/lib:src/lib/v4:src/lib/v4/$(TARCH):src/lib/system/$(TOS)/$(CCOMP):src/lib/system/$(TOS)/$(CCOMP)/$(TARCH):src/lib/ulm/$(TARCH):src/lib/ooc2:src/lib/ooc2/$(TOS)/$(CCOMP):src/lib/ooc:src/lib/ooc/$(TOS)/$(CCOMP)/$(TARCH):src/lib/pow:src/lib/misc:src/lib/s3:src/voc:src/voc/$(TOS)/$(CCOMP):src/voc/$(TOS)/$(CCOMP)/$(TARCH):src/tools/ocat:src/tools/browser:src/tools/vocparam:src/tools/vmake:src/tools/coco:src/test
|
||||
|
||||
VOC = voc
|
||||
VERSION = $(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC0 = $(SETPATH) ./vocstatic.$(TOS).$(CCOMP).$(TARCH)
|
||||
VOCSTATIC = $(SETPATH) ./voc
|
||||
VOCPARAM = $(shell ./vocparam > voc.par)
|
||||
VERSION = GNU_Linux_$(TARCH)
|
||||
LIBNAME = VishapOberon
|
||||
LIBRARY = lib$(LIBNAME)
|
||||
|
||||
BIN
ocat
BIN
ocat
Binary file not shown.
BIN
showdef
BIN
showdef
Binary file not shown.
71
src/lib/ooc/linux/gnuc/x86_64/oocC.Mod
Normal file
71
src/lib/ooc/linux/gnuc/x86_64/oocC.Mod
Normal file
|
|
@ -0,0 +1,71 @@
|
|||
(* $Id: C.Mod,v 1.9 1999/10/03 11:46:01 ooc-devel Exp $ *)
|
||||
MODULE oocC;
|
||||
(* Basic data types for interfacing to C code.
|
||||
Copyright (C) 1997-1998 Michael van Acken
|
||||
|
||||
This module is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Lesser General Public License
|
||||
as published by the Free Software Foundation; either version 2 of
|
||||
the License, or (at your option) any later version.
|
||||
|
||||
This module 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. See the GNU
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with OOC. If not, write to the Free Software Foundation,
|
||||
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*)
|
||||
|
||||
IMPORT
|
||||
SYSTEM;
|
||||
|
||||
(*
|
||||
These types are intended to be equivalent to their C counterparts.
|
||||
They may vary depending on your system, but as long as you stick to a 32 Bit
|
||||
Unix they should be fairly safe.
|
||||
*)
|
||||
|
||||
TYPE
|
||||
char* = CHAR;
|
||||
signedchar* = SHORTINT; (* signed char *)
|
||||
shortint* = RECORD a,b : SYSTEM.BYTE END; (* 2 bytes on x64_64 *) (* short int *)
|
||||
int* = INTEGER;
|
||||
set* = INTEGER;(*SET;*) (* unsigned int, used as set *)
|
||||
longint* = LONGINT; (* long int *)
|
||||
longset* = SET; (*SYSTEM.SET64; *) (* unsigned long, used as set *)
|
||||
address* = LONGINT; (*SYSTEM.ADDRESS;*)
|
||||
float* = REAL;
|
||||
double* = LONGREAL;
|
||||
|
||||
enum1* = int;
|
||||
enum2* = int;
|
||||
enum4* = int;
|
||||
|
||||
(* if your C compiler uses short enumerations, you'll have to replace the
|
||||
declarations above with
|
||||
enum1* = SHORTINT;
|
||||
enum2* = INTEGER;
|
||||
enum4* = LONGINT;
|
||||
*)
|
||||
|
||||
FILE* = address; (* this is acually a replacement for `FILE*', i.e., for a pointer type *)
|
||||
sizet* = longint;
|
||||
uidt* = int;
|
||||
gidt* = int;
|
||||
|
||||
|
||||
TYPE (* some commonly used C array types *)
|
||||
charPtr1d* = POINTER TO ARRAY OF char;
|
||||
charPtr2d* = POINTER TO ARRAY OF charPtr1d;
|
||||
intPtr1d* = POINTER TO ARRAY OF int;
|
||||
|
||||
TYPE (* C string type, assignment compatible with character arrays and
|
||||
string constants *)
|
||||
string* = POINTER (*[CSTRING]*) TO ARRAY OF char;
|
||||
|
||||
TYPE
|
||||
Proc* = PROCEDURE;
|
||||
|
||||
END oocC.
|
||||
34
src/lib/ooc2/linux/gnuc/oocwrapperlibc.Mod
Normal file
34
src/lib/ooc2/linux/gnuc/oocwrapperlibc.Mod
Normal file
|
|
@ -0,0 +1,34 @@
|
|||
MODULE oocwrapperlibc;
|
||||
IMPORT SYSTEM;
|
||||
PROCEDURE -includeStdio()
|
||||
"#include <stdio.h>";
|
||||
|
||||
PROCEDURE -sys(str: ARRAY OF CHAR): INTEGER
|
||||
"system(str)";
|
||||
|
||||
PROCEDURE system*(cmd : ARRAY OF CHAR);
|
||||
VAR r : INTEGER;
|
||||
BEGIN
|
||||
r := sys(cmd);
|
||||
END system;
|
||||
(*
|
||||
PROCEDURE strtod* (string: C.address;
|
||||
VAR tailptr: C.charPtr1d): C.double;
|
||||
PROCEDURE strtof* (string: C.address;
|
||||
VAR tailptr: C.charPtr1d): C.float;
|
||||
PROCEDURE sscanf* (s: C.address; template: ARRAY OF CHAR; ...) : C.int;
|
||||
*)
|
||||
|
||||
PROCEDURE -sprntf(s, t0, t1, t2: ARRAY OF CHAR): INTEGER
|
||||
"sprintf(s, t0, t1, t2)";
|
||||
|
||||
PROCEDURE sprintf* (VAR s: ARRAY OF CHAR; template0: ARRAY OF CHAR; template1: ARRAY OF CHAR; template2: ARRAY OF CHAR);
|
||||
VAR r : INTEGER;
|
||||
BEGIN
|
||||
r := sprntf (s, template0, template1, template2);
|
||||
END sprintf;
|
||||
|
||||
BEGIN
|
||||
|
||||
|
||||
END oocwrapperlibc.
|
||||
234
src/lib/system/darwin/clang/x86_64/SYSTEM.h
Normal file
234
src/lib/system/darwin/clang/x86_64/SYSTEM.h
Normal file
|
|
@ -0,0 +1,234 @@
|
|||
#ifndef SYSTEM__h
|
||||
#define SYSTEM__h
|
||||
|
||||
/*
|
||||
|
||||
voc (jet backend) runtime system interface and macros library
|
||||
copyright (c) Josef Templ, 1995, 1996
|
||||
|
||||
clang for Darwin version
|
||||
uses double # as concatenation operator
|
||||
|
||||
*/
|
||||
|
||||
#include <alloca.h>
|
||||
#include <string.h>
|
||||
|
||||
extern void *memcpy(void *dest, const void *src, long n);
|
||||
extern void *malloc(long size);
|
||||
extern void exit(int status);
|
||||
|
||||
#define export
|
||||
#define import extern
|
||||
|
||||
/* constants */
|
||||
#define __MAXEXT 16
|
||||
#define NIL 0L
|
||||
#define POINTER__typ (long*)1L /* not NIL and not a valid type */
|
||||
|
||||
/* basic types */
|
||||
//typedef char BOOLEAN;
|
||||
#define BOOLEAN char
|
||||
//typedef unsigned char CHAR;
|
||||
#define CHAR unsigned char
|
||||
//exactly two bytes
|
||||
#define LONGCHAR unsigned short int
|
||||
//typedef signed char SHORTINT;
|
||||
#define SHORTINT signed char
|
||||
//for x86 GNU/Linux
|
||||
//typedef short int INTEGER;
|
||||
//for x86_64 GNU/Linux
|
||||
//typedef int INTEGER;
|
||||
#define INTEGER int
|
||||
//typedef long LONGINT;
|
||||
#define LONGINT long
|
||||
//typedef float REAL;
|
||||
#define REAL float
|
||||
//typedef double LONGREAL;
|
||||
#define LONGREAL double
|
||||
//typedef unsigned long SET;
|
||||
#define SET unsigned long
|
||||
typedef void *SYSTEM_PTR;
|
||||
//#define *SYSTEM_PTR void
|
||||
//typedef unsigned char SYSTEM_BYTE;
|
||||
#define SYSTEM_BYTE unsigned char
|
||||
|
||||
/* runtime system routines */
|
||||
extern long SYSTEM_DIV();
|
||||
extern long SYSTEM_MOD();
|
||||
extern long SYSTEM_ENTIER();
|
||||
extern long SYSTEM_ASH();
|
||||
extern long SYSTEM_ABS();
|
||||
extern long SYSTEM_XCHK();
|
||||
extern long SYSTEM_RCHK();
|
||||
extern double SYSTEM_ABSD();
|
||||
extern SYSTEM_PTR SYSTEM_NEWREC();
|
||||
extern SYSTEM_PTR SYSTEM_NEWBLK();
|
||||
#ifdef __STDC__
|
||||
extern SYSTEM_PTR SYSTEM_NEWARR(long*, long, int, int, int, ...);
|
||||
#else
|
||||
extern SYSTEM_PTR SYSTEM_NEWARR();
|
||||
#endif
|
||||
extern SYSTEM_PTR SYSTEM_REGMOD();
|
||||
extern void SYSTEM_INCREF();
|
||||
extern void SYSTEM_REGCMD();
|
||||
extern void SYSTEM_REGTYP();
|
||||
extern void SYSTEM_REGFIN();
|
||||
extern void SYSTEM_FINALL();
|
||||
extern void SYSTEM_INIT();
|
||||
extern void SYSTEM_FINI();
|
||||
extern void SYSTEM_HALT();
|
||||
extern void SYSTEM_INHERIT();
|
||||
extern void SYSTEM_ENUMP();
|
||||
extern void SYSTEM_ENUMR();
|
||||
|
||||
/* module registry */
|
||||
#define __DEFMOD static void *m; if(m!=0)return m
|
||||
#define __REGMOD(name, enum) if(m==0)m=SYSTEM_REGMOD((CHAR*)name,enum); else return m
|
||||
#define __ENDMOD return m
|
||||
#define __INIT(argc, argv) static void *m; SYSTEM_INIT(argc, (long)&argv);
|
||||
#define __REGMAIN(name, enum) m=SYSTEM_REGMOD(name,enum)
|
||||
#define __FINI SYSTEM_FINI(); return 0
|
||||
#define __IMPORT(name) SYSTEM_INCREF(name##__init())
|
||||
#define __REGCMD(name, cmd) SYSTEM_REGCMD(m, name, cmd)
|
||||
|
||||
/* SYSTEM ops */
|
||||
#define __SYSNEW(p, len) p=SYSTEM_NEWBLK((long)(len))
|
||||
#define __VAL(t, x) (*(t*)&(x))
|
||||
#define __GET(a, x, t) x= *(t*)(a)
|
||||
#define __PUT(a, x, t) *(t*)(a)=x
|
||||
#define __LSHL(x, n, t) ((t)((unsigned t)(x)<<(n)))
|
||||
#define __LSHR(x, n, t) ((t)((unsigned t)(x)>>(n)))
|
||||
#define __LSH(x, n, t) ((n)>=0? __LSHL(x, n, t): __LSHR(x, -(n), t))
|
||||
#define __ROTL(x, n, t) ((t)((unsigned t)(x)<<(n)|(unsigned t)(x)>>(8*sizeof(t)-(n))))
|
||||
#define __ROTR(x, n, t) ((t)((unsigned t)(x)>>(n)|(unsigned t)(x)<<(8*sizeof(t)-(n))))
|
||||
#define __LSHR(x, n, t) ((t)((unsigned t)(x)>>(n)))
|
||||
#define __LSH(x, n, t) ((n)>=0? __LSHL(x, n, t): __LSHR(x, -(n), t))
|
||||
#define __ROTL(x, n, t) ((t)((unsigned t)(x)<<(n)|(unsigned t)(x)>>(8*sizeof(t)-(n))))
|
||||
#define __ROTR(x, n, t) ((t)((unsigned t)(x)>>(n)|(unsigned t)(x)<<(8*sizeof(t)-(n))))
|
||||
#define __ROT(x, n, t) ((n)>=0? __ROTL(x, n, t): __ROTR(x, -(n), t))
|
||||
#define __BIT(x, n) (*(unsigned long*)(x)>>(n)&1)
|
||||
#define __MOVE(s, d, n) memcpy((char*)(d),(char*)(s),n)
|
||||
|
||||
/* std procs and operator mappings */
|
||||
#define __SHORT(x, y) ((int)((unsigned long)(x)+(y)<(y)+(y)?(x):(__HALT(-8),0)))
|
||||
#define __SHORTF(x, y) ((int)(__RF((x)+(y),(y)+(y))-(y)))
|
||||
#define __CHR(x) ((CHAR)__R(x, 256))
|
||||
#define __CHRF(x) ((CHAR)__RF(x, 256))
|
||||
#define __DIV(x, y) ((x)>=0?(x)/(y):-(((y)-1-(x))/(y)))
|
||||
#define __DIVF(x, y) SYSTEM_DIV((long)(x),(long)(y))
|
||||
#define __MOD(x, y) ((x)>=0?(x)%(y):__MODF(x,y))
|
||||
#define __MODF(x, y) SYSTEM_MOD((long)(x),(long)(y))
|
||||
#define __NEW(p, t) p=SYSTEM_NEWREC((long)t##__typ)
|
||||
#define __NEWARR SYSTEM_NEWARR
|
||||
#define __HALT(x) SYSTEM_HALT(x)
|
||||
#define __ASSERT(cond, x) if (!(cond)) {SYSTEM_assert = x; SYSTEM_HALT(-1);}
|
||||
#define __ENTIER(x) SYSTEM_ENTIER(x)
|
||||
#define __ABS(x) (((x)<0)?-(x):(x))
|
||||
#define __ABSF(x) SYSTEM_ABS((long)(x))
|
||||
#define __ABSFD(x) SYSTEM_ABSD((double)(x))
|
||||
#define __CAP(ch) ((CHAR)((ch)&0x5f))
|
||||
#define __ODD(x) ((x)&1)
|
||||
#define __IN(x, s) (((s)>>(x))&1)
|
||||
#define __SETOF(x) ((SET)1<<(x))
|
||||
#define __SETRNG(l, h) ((~(SET)0<<(l))&~(SET)0>>(8*sizeof(SET)-1-(h)))
|
||||
#define __MASK(x, m) ((x)&~(m))
|
||||
#define __COPY(s, d, n) {char*_a=(void*)s,*_b=(void*)d;long _i=0,_t=n-1;while(_i<_t&&((_b[_i]=_a[_i])!=0)){_i++;};_b[_i]=0;}
|
||||
static int __STRCMP(x, y)
|
||||
CHAR *x, *y;
|
||||
{long i = 0; CHAR ch1, ch2;
|
||||
do {ch1 = x[i]; ch2 = y[i]; i++;
|
||||
if (!ch1) return -(int)ch2;
|
||||
} while (ch1==ch2);
|
||||
return (int)ch1 - (int)ch2;
|
||||
}
|
||||
#define __ASH(x, n) ((n)>=0?__ASHL(x,n):__ASHR(x,-(n)))
|
||||
#define __ASHL(x, n) ((long)(x)<<(n))
|
||||
#define __ASHR(x, n) ((long)(x)>>(n))
|
||||
#define __ASHF(x, n) SYSTEM_ASH((long)(x), (long)(n))
|
||||
#define __DUP(x, l, t) x=(void*)memcpy(alloca(l*sizeof(t)),x,l*sizeof(t))
|
||||
#define __DUPARR(v, t) v=(void*)memcpy(v##__copy,v,sizeof(t))
|
||||
#define __DEL(x) /* DUP with alloca frees storage automatically */
|
||||
#define __IS(tag, typ, level) (*(tag-(__BASEOFF-level))==(long)typ##__typ)
|
||||
#define __TYPEOF(p) (*(((long**)(p))-1))
|
||||
#define __ISP(p, typ, level) __IS(__TYPEOF(p),typ,level)
|
||||
|
||||
/* runtime checks */
|
||||
#define __X(i, ub) (((unsigned)(long)(i)<(unsigned long)(ub))?i:(__HALT(-2),0))
|
||||
#define __XF(i, ub) SYSTEM_XCHK((long)(i), (long)(ub))
|
||||
#define __RETCHK __retchk: __HALT(-3)
|
||||
#define __CASECHK __HALT(-4)
|
||||
#define __GUARDP(p, typ, level) ((typ*)(__ISP(p,typ,level)?p:(__HALT(-5),p)))
|
||||
#define __GUARDR(r, typ, level) (*((typ*)(__IS(r##__typ,typ,level)?r:(__HALT(-5),r))))
|
||||
#define __GUARDA(p, typ, level) ((struct typ*)(__IS(__TYPEOF(p),typ,level)?p:(__HALT(-5),p)))
|
||||
#define __GUARDEQR(p, dyntyp, typ) if(dyntyp!=typ##__typ) __HALT(-6);*(p)
|
||||
#define __GUARDEQP(p, typ) if(__TYPEOF(p)!=typ##__typ)__HALT(-6);*(p)
|
||||
#define __WITHCHK __HALT(-7)
|
||||
#define __R(i, ub) (((unsigned)(long)(i)<(unsigned long)(ub))?i:(__HALT(-8),0))
|
||||
#define __RF(i, ub) SYSTEM_RCHK((long)(i),(long)(ub))
|
||||
|
||||
/* record type descriptors */
|
||||
#define __TDESC(t, m, n) \
|
||||
static struct t##__desc {\
|
||||
long tproc[m]; \
|
||||
long tag, next, level, module; \
|
||||
char name[24]; \
|
||||
long *base[__MAXEXT]; \
|
||||
char *rsrvd; \
|
||||
long blksz, ptr[n+1]; \
|
||||
} t##__desc
|
||||
|
||||
#define __BASEOFF (__MAXEXT+1)
|
||||
#define __TPROC0OFF (__BASEOFF+24/sizeof(long)+5)
|
||||
#define __EOM 1
|
||||
#define __TDFLDS(name, size) {__EOM}, 1, 0, 0, 0, name, {0}, 0, size
|
||||
#define __ENUMP(adr, n, P) SYSTEM_ENUMP(adr, (long)(n), P)
|
||||
#define __ENUMR(adr, typ, size, n, P) SYSTEM_ENUMR(adr, typ, (long)(size), (long)(n), P)
|
||||
|
||||
#define __INITYP(t, t0, level) \
|
||||
t##__typ= &t##__desc.blksz; \
|
||||
memcpy(t##__desc.base, t0##__typ - __BASEOFF, level*sizeof(long)); \
|
||||
t##__desc.base[level]=t##__typ; \
|
||||
t##__desc.module=(long)m; \
|
||||
if(t##__desc.blksz!=sizeof(struct t)) __HALT(-15); \
|
||||
t##__desc.blksz=(t##__desc.blksz+5*sizeof(long)-1)/(4*sizeof(long))*(4*sizeof(long)); \
|
||||
SYSTEM_REGTYP(m, (long)&t##__desc.next); \
|
||||
SYSTEM_INHERIT(t##__typ, t0##__typ)
|
||||
|
||||
/* Oberon-2 type bound procedures support */
|
||||
#define __INITBP(t, proc, num) *(t##__typ-(__TPROC0OFF+num))=(long)proc
|
||||
#define __SEND(typ, num, funtyp, parlist) ((funtyp)(*(typ-(__TPROC0OFF+num))))parlist
|
||||
|
||||
/* runtime system variables */
|
||||
extern LONGINT SYSTEM_argc;
|
||||
extern LONGINT SYSTEM_argv;
|
||||
extern void (*SYSTEM_Halt)();
|
||||
extern LONGINT SYSTEM_halt;
|
||||
extern LONGINT SYSTEM_assert;
|
||||
extern SYSTEM_PTR SYSTEM_modules;
|
||||
extern LONGINT SYSTEM_heapsize;
|
||||
extern LONGINT SYSTEM_allocated;
|
||||
extern LONGINT SYSTEM_lock;
|
||||
extern SHORTINT SYSTEM_gclock;
|
||||
extern BOOLEAN SYSTEM_interrupted;
|
||||
|
||||
/* ANSI prototypes; not used so far
|
||||
static int __STRCMP(CHAR *x, CHAR *y);
|
||||
void SYSTEM_INIT(int argc, long argvadr);
|
||||
void SYSTEM_FINI(void);
|
||||
long SYSTEM_XCHK(long i, long ub);
|
||||
long SYSTEM_RCHK(long i, long ub);
|
||||
long SYSTEM_ASH(long i, long n);
|
||||
long SYSTEM_ABS(long i);
|
||||
double SYSTEM_ABSD(double i);
|
||||
void SYSTEM_INHERIT(long *t, long *t0);
|
||||
void SYSTEM_ENUMP(long *adr, long n, void (*P)(void*));
|
||||
void SYSTEM_ENUMR(char *adr, long *typ, long size, long n, void (*P)(void*));
|
||||
long SYSTEM_DIV(unsigned long x, unsigned long y);
|
||||
long SYSTEM_MOD(unsigned long x, unsigned long y);
|
||||
long SYSTEM_ENTIER(double x);
|
||||
void SYSTEM_HALT(int n);
|
||||
*/
|
||||
|
||||
#endif
|
||||
|
||||
65
src/lib/system/linux/gnuc/x86_64/Args.Mod
Normal file
65
src/lib/system/linux/gnuc/x86_64/Args.Mod
Normal file
|
|
@ -0,0 +1,65 @@
|
|||
MODULE Args; (* jt, 8.12.94 *)
|
||||
|
||||
(* command line argument handling for voc (jet backend) *)
|
||||
|
||||
|
||||
IMPORT SYSTEM;
|
||||
|
||||
TYPE
|
||||
ArgPtr = POINTER TO ARRAY 1024 OF CHAR;
|
||||
ArgVec = POINTER TO ARRAY 1024 OF ArgPtr;
|
||||
|
||||
VAR argc-, argv-: LONGINT;
|
||||
(*PROCEDURE -includestdlib() "#include <stdlib.h>";*)
|
||||
PROCEDURE -externgetenv() "extern char *getenv(const char *name);"; (* took this from stdlib.h*)
|
||||
PROCEDURE -Argc(): INTEGER "SYSTEM_argc";
|
||||
PROCEDURE -Argv(): LONGINT "(long)SYSTEM_argv";
|
||||
PROCEDURE -getenv(var: ARRAY OF CHAR): ArgPtr
|
||||
"(Args_ArgPtr)getenv(var)";
|
||||
|
||||
PROCEDURE Get*(n: INTEGER; VAR val: ARRAY OF CHAR);
|
||||
VAR av: ArgVec;
|
||||
BEGIN
|
||||
IF n < argc THEN av := SYSTEM.VAL(ArgVec, argv); COPY(av[n]^, val) END
|
||||
END Get;
|
||||
|
||||
PROCEDURE GetInt*(n: INTEGER; VAR val: LONGINT);
|
||||
VAR s: ARRAY 64 OF CHAR; k, d, i: LONGINT;
|
||||
BEGIN
|
||||
s := ""; Get(n, s); i := 0;
|
||||
IF s[0] = "-" THEN i := 1 END ;
|
||||
k := 0; d := ORD(s[i]) - ORD("0");
|
||||
WHILE (d >= 0 ) & (d <= 9) DO k := k*10 + d; INC(i); d := ORD(s[i]) - ORD("0") END ;
|
||||
IF s[0] = "-" THEN d := -d; DEC(i) END ;
|
||||
IF i > 0 THEN val := k END
|
||||
END GetInt;
|
||||
|
||||
PROCEDURE Pos*(s: ARRAY OF CHAR): INTEGER;
|
||||
VAR i: INTEGER; arg: ARRAY 256 OF CHAR;
|
||||
BEGIN
|
||||
i := 0; Get(i, arg);
|
||||
WHILE (i < argc) & (s # arg) DO INC(i); Get(i, arg) END ;
|
||||
RETURN i
|
||||
END Pos;
|
||||
|
||||
PROCEDURE GetEnv*(var: ARRAY OF CHAR; VAR val: ARRAY OF CHAR);
|
||||
VAR p: ArgPtr;
|
||||
BEGIN
|
||||
p := getenv(var);
|
||||
IF p # NIL THEN COPY(p^, val) END
|
||||
END GetEnv;
|
||||
|
||||
PROCEDURE getEnv*(var: ARRAY OF CHAR; VAR val: ARRAY OF CHAR): BOOLEAN;
|
||||
VAR p: ArgPtr;
|
||||
BEGIN
|
||||
p := getenv(var);
|
||||
IF p # NIL THEN
|
||||
COPY(p^, val);
|
||||
RETURN TRUE
|
||||
ELSE
|
||||
RETURN FALSE
|
||||
END
|
||||
END getEnv;
|
||||
|
||||
BEGIN argc := Argc(); argv := Argv()
|
||||
END Args.
|
||||
205
src/lib/system/linux/gnuc/x86_64/SYSTEM.c0
Normal file
205
src/lib/system/linux/gnuc/x86_64/SYSTEM.c0
Normal file
|
|
@ -0,0 +1,205 @@
|
|||
/*
|
||||
* The body prefix file of the voc(jet backend) runtime system, Version 1.0
|
||||
*
|
||||
* Copyright (c) Software Templ, 1994, 1995
|
||||
*
|
||||
* Module SYSTEM is subject to change any time without prior notification.
|
||||
* Software Templ disclaims all warranties with regard to module SYSTEM,
|
||||
* in particular shall Software Templ not be liable for any damage resulting
|
||||
* from inappropriate use or modification of module SYSTEM.
|
||||
*
|
||||
* Version 1.1 jt, 24.11.95 fixes for correct pointer arithmetic on Cray computers
|
||||
* jt 31.1.2007 ANSI prototypes for malloc and exit in order to avoid cc warnings
|
||||
*
|
||||
*/
|
||||
|
||||
#include "SYSTEM.h"
|
||||
#ifdef __STDC__
|
||||
#include "stdarg.h"
|
||||
#else
|
||||
#include "varargs.h"
|
||||
#endif
|
||||
|
||||
extern void *malloc(long size);
|
||||
extern void exit(int status);
|
||||
|
||||
void (*SYSTEM_Halt)();
|
||||
LONGINT SYSTEM_halt; /* x in HALT(x) */
|
||||
LONGINT SYSTEM_assert; /* x in ASSERT(cond, x) */
|
||||
LONGINT SYSTEM_argc;
|
||||
LONGINT SYSTEM_argv;
|
||||
LONGINT SYSTEM_lock;
|
||||
BOOLEAN SYSTEM_interrupted;
|
||||
static LONGINT SYSTEM_mainfrm; /* adr of main proc stack frame, used for stack collection */
|
||||
|
||||
#define Lock SYSTEM_lock++
|
||||
#define Unlock SYSTEM_lock--; if (SYSTEM_interrupted && (SYSTEM_lock == 0)) __HALT(-9)
|
||||
|
||||
|
||||
static void SYSTEM_InitHeap();
|
||||
void *SYSTEM__init();
|
||||
|
||||
void SYSTEM_INIT(argc, argvadr)
|
||||
int argc; long argvadr;
|
||||
{
|
||||
SYSTEM_mainfrm = argvadr;
|
||||
SYSTEM_argc = argc;
|
||||
SYSTEM_argv = *(long*)argvadr;
|
||||
SYSTEM_InitHeap();
|
||||
SYSTEM_halt = -128;
|
||||
SYSTEM__init();
|
||||
}
|
||||
|
||||
void SYSTEM_FINI()
|
||||
{
|
||||
SYSTEM_FINALL();
|
||||
}
|
||||
|
||||
long SYSTEM_XCHK(i, ub) long i, ub; {return __X(i, ub);}
|
||||
long SYSTEM_RCHK(i, ub) long i, ub; {return __R(i, ub);}
|
||||
long SYSTEM_ASH(i, n) long i, n; {return __ASH(i, n);}
|
||||
long SYSTEM_ABS(i) long i; {return __ABS(i);}
|
||||
double SYSTEM_ABSD(i) double i; {return __ABS(i);}
|
||||
|
||||
void SYSTEM_INHERIT(t, t0)
|
||||
long *t, *t0;
|
||||
{
|
||||
t -= __TPROC0OFF;
|
||||
t0 -= __TPROC0OFF;
|
||||
while (*t0 != __EOM) {*t = *t0; t--; t0--;}
|
||||
}
|
||||
|
||||
void SYSTEM_ENUMP(adr, n, P)
|
||||
long *adr;
|
||||
long n;
|
||||
void (*P)();
|
||||
{
|
||||
while (n > 0) {P(*adr); adr++; n--;}
|
||||
}
|
||||
|
||||
void SYSTEM_ENUMR(adr, typ, size, n, P)
|
||||
char *adr;
|
||||
long *typ, size, n;
|
||||
void (*P)();
|
||||
{
|
||||
long *t, off;
|
||||
typ++;
|
||||
while (n > 0) {
|
||||
t = typ;
|
||||
off = *t;
|
||||
while (off >= 0) {P(*(long*)(adr+off)); t++; off = *t;}
|
||||
adr += size; n--;
|
||||
}
|
||||
}
|
||||
|
||||
long SYSTEM_DIV(x, y)
|
||||
unsigned long x, y;
|
||||
{ if ((long) x >= 0) return (x / y);
|
||||
else return -((y - 1 - x) / y);
|
||||
}
|
||||
|
||||
long SYSTEM_MOD(x, y)
|
||||
unsigned long x, y;
|
||||
{ unsigned long m;
|
||||
if ((long) x >= 0) return (x % y);
|
||||
else { m = (-x) % y;
|
||||
if (m != 0) return (y - m); else return 0;
|
||||
}
|
||||
}
|
||||
|
||||
long SYSTEM_ENTIER(x)
|
||||
double x;
|
||||
{
|
||||
long y;
|
||||
if (x >= 0)
|
||||
return (long)x;
|
||||
else {
|
||||
y = (long)x;
|
||||
if (y <= x) return y; else return y - 1;
|
||||
}
|
||||
}
|
||||
|
||||
void SYSTEM_HALT(n)
|
||||
int n;
|
||||
{
|
||||
SYSTEM_halt = n;
|
||||
if (SYSTEM_Halt!=0) SYSTEM_Halt(n);
|
||||
exit(n);
|
||||
}
|
||||
|
||||
#ifdef __STDC__
|
||||
SYSTEM_PTR SYSTEM_NEWARR(long *typ, long elemsz, int elemalgn, int nofdim, int nofdyn, ...)
|
||||
#else
|
||||
SYSTEM_PTR SYSTEM_NEWARR(typ, elemsz, elemalgn, nofdim, nofdyn, va_alist)
|
||||
long *typ, elemsz;
|
||||
int elemalgn, nofdim, nofdyn;
|
||||
va_dcl
|
||||
#endif
|
||||
{
|
||||
long nofelems, size, dataoff, n, nptr, *x, *p, nofptrs, i, *ptab, off;
|
||||
va_list ap;
|
||||
#ifdef __STDC__
|
||||
va_start(ap, nofdyn);
|
||||
#else
|
||||
va_start(ap);
|
||||
#endif
|
||||
nofelems = 1;
|
||||
while (nofdim > 0) {
|
||||
nofelems = nofelems * va_arg(ap, long); nofdim--;
|
||||
if (nofelems <= 0) __HALT(-20);
|
||||
}
|
||||
va_end(ap);
|
||||
dataoff = nofdyn * sizeof(long);
|
||||
if (elemalgn > sizeof(long)) {
|
||||
n = dataoff % elemalgn;
|
||||
if (n != 0) dataoff += elemalgn - n;
|
||||
}
|
||||
size = dataoff + nofelems * elemsz;
|
||||
Lock;
|
||||
if (typ == NIL) {
|
||||
/* element typ does not contain pointers */
|
||||
x = SYSTEM_NEWBLK(size);
|
||||
}
|
||||
else if (typ == POINTER__typ) {
|
||||
/* element type is a pointer */
|
||||
x = SYSTEM_NEWBLK(size + nofelems * sizeof(long));
|
||||
p = (long*)x[-1];
|
||||
p[-nofelems] = *p; /* build new type desc in situ: 1. copy block size; 2. setup ptr tab; 3. set sentinel; 4. patch tag */
|
||||
p -= nofelems - 1; n = 1; /* n =1 for skipping the size field */
|
||||
while (n <= nofelems) {*p = n*sizeof(long); p++; n++;}
|
||||
*p = - (nofelems + 1) * sizeof(long); /* sentinel */
|
||||
x[-1] -= nofelems * sizeof(long);
|
||||
}
|
||||
else {
|
||||
/* element type is a record that contains pointers */
|
||||
ptab = typ + 1; nofptrs = 0;
|
||||
while (ptab[nofptrs] >= 0) {nofptrs++;} /* number of pointers per element */
|
||||
nptr = nofelems * nofptrs; /* total number of pointers */
|
||||
x = SYSTEM_NEWBLK(size + nptr * sizeof(long));
|
||||
p = (long*)x[- 1];
|
||||
p[-nptr] = *p; /* build new type desc in situ; 1. copy block size; 2. setup ptr tab; 3. set sentinel; 4. patch tag */
|
||||
p -= nptr - 1; n = 0; off = dataoff;
|
||||
while (n < nofelems) {i = 0;
|
||||
while (i < nofptrs) {*p = off + ptab[i]; p++; i++;}
|
||||
off += elemsz; n++;
|
||||
}
|
||||
*p = - (nptr + 1) * sizeof(long); /* sentinel */
|
||||
x[-1] -= nptr * sizeof(long);
|
||||
}
|
||||
if (nofdyn != 0) {
|
||||
/* setup len vector for index checks */
|
||||
#ifdef __STDC__
|
||||
va_start(ap, nofdyn);
|
||||
#else
|
||||
va_start(ap);
|
||||
#endif
|
||||
p = x;
|
||||
while (nofdyn > 0) {*p = va_arg(ap, long); p++, nofdyn--;}
|
||||
va_end(ap);
|
||||
}
|
||||
Unlock;
|
||||
return x;
|
||||
}
|
||||
|
||||
/* ----------- end of SYSTEM.co ------------- */
|
||||
|
||||
501
src/lib/system/linux/gnuc/x86_64/Unix.Mod
Normal file
501
src/lib/system/linux/gnuc/x86_64/Unix.Mod
Normal file
|
|
@ -0,0 +1,501 @@
|
|||
MODULE Unix; (* Josef Templ, 5.3.90 Linux system calls *)
|
||||
(* ported to gnu x86_64 and added system function, noch *)
|
||||
(* Module Unix provides a system call interface to Linux.
|
||||
Naming conventions:
|
||||
Procedure and Type-names always start with a capital letter.
|
||||
error numbers as defined in Unix
|
||||
other constants start with lower case letters *)
|
||||
|
||||
IMPORT SYSTEM;
|
||||
|
||||
CONST
|
||||
|
||||
(* various important constants *)
|
||||
|
||||
stdin* = 0; stdout* =1; stderr* = 2;
|
||||
|
||||
LOCKEX* = 2; LOCKUN* = 8; (* /usr/include/file.h *)
|
||||
AFINET* = 2; (* /usr/include/sys/socket.h *)
|
||||
PFINET* = AFINET; (* /usr/include/linux/socket.h *)
|
||||
SOCKSTREAM* = 1; (* /usr/include/linux/socket.h *)
|
||||
FIONREAD* = 541BH; (* in /usr/include/asm/termios.h *)
|
||||
SETFL* = 4; (* set file descriptor flags; in asm/fcntl.h *)
|
||||
TCP* = 0;
|
||||
|
||||
(* flag sets, cf. /usr/include/asm/fcntl.h *)
|
||||
rdonly* = {}; wronly* = {0}; rdwr* = {1}; creat* = {6}; excl* = {7}; trunc* = {9}; append* = {10}; ndelay = {11};
|
||||
|
||||
(* error numbers *)
|
||||
|
||||
EPERM* = 1; (* Not owner *)
|
||||
ENOENT* = 2; (* No such file or directory *)
|
||||
ESRCH* = 3; (* No such process *)
|
||||
EINTR* = 4; (* Interrupted system call *)
|
||||
EIO* = 5; (* I/O error *)
|
||||
ENXIO* = 6; (* No such device or address *)
|
||||
E2BIG* = 7; (* Arg list too long *)
|
||||
ENOEXEC* = 8; (* Exec format error *)
|
||||
EBADF* = 9; (* Bad file number *)
|
||||
ECHILD* = 10; (* No children *)
|
||||
EAGAIN* = 11; (* No more processes *)
|
||||
ENOMEM* = 12; (* Not enough core *)
|
||||
EACCES* = 13; (* Permission denied *)
|
||||
EFAULT* = 14; (* Bad address *)
|
||||
ENOTBLK* = 15; (* Block device required *)
|
||||
EBUSY* = 16; (* Mount device busy *)
|
||||
EEXIST* = 17; (* File exists *)
|
||||
EXDEV* = 18; (* Cross-device link *)
|
||||
ENODEV* = 19; (* No such device *)
|
||||
ENOTDIR* = 20; (* Not a directory*)
|
||||
EISDIR* = 21; (* Is a directory *)
|
||||
EINVAL* = 22; (* Invalid argument *)
|
||||
ENFILE* = 23; (* File table overflow *)
|
||||
EMFILE* = 24; (* Too many open files *)
|
||||
ENOTTY* = 25; (* Not a typewriter *)
|
||||
ETXTBSY* = 26; (* Text file busy *)
|
||||
EFBIG* = 27; (* File too large *)
|
||||
ENOSPC* = 28; (* No space left on device *)
|
||||
ESPIPE* = 29; (* Illegal seek *)
|
||||
EROFS* = 30; (* Read-only file system *)
|
||||
EMLINK* = 31; (* Too many links *)
|
||||
EPIPE* = 32; (* Broken pipe *)
|
||||
EDOM* = 33; (* Argument too large *)
|
||||
ERANGE* = 34; (* Result too large *)
|
||||
EDEADLK* = 35; (* Resource deadlock would occur *)
|
||||
ENAMETOOLONG* = 36; (* File name too long *)
|
||||
ENOLCK* = 37; (* No record locks available *)
|
||||
ENOSYS* = 38; (* Function not implemented *)
|
||||
ENOTEMPTY* = 39; (* Directory not empty *)
|
||||
ELOOP* = 40; (* Too many symbolic links encountered *)
|
||||
EWOULDBLOCK* = EAGAIN; (* Operation would block *)
|
||||
ENOMSG* = 42; (* No message of desired type *)
|
||||
EIDRM* = 43; (* Identifier removed *)
|
||||
ECHRNG* = 44; (* Channel number out of range *)
|
||||
EL2NSYNC* = 45; (* Level 2 not synchronized *)
|
||||
EL3HLT* = 46; (* Level 3 halted *)
|
||||
EL3RST* = 47; (* Level 3 reset *)
|
||||
ELNRNG* = 48; (* Link number out of range *)
|
||||
EUNATCH* = 49; (* Protocol driver not attached *)
|
||||
ENOCSI* = 50; (* No CSI structure available *)
|
||||
EL2HLT* = 51; (* Level 2 halted *)
|
||||
EBADE* = 52; (* Invalid exchange *)
|
||||
EBADR* = 53; (* Invalid request descriptor *)
|
||||
EXFULL* = 54; (* Exchange full *)
|
||||
ENOANO* = 55; (* No anode *)
|
||||
EBADRQC* = 56; (* Invalid request code *)
|
||||
EBADSLT* = 57; (* Invalid slot *)
|
||||
EDEADLOCK* = 58; (* File locking deadlock error *)
|
||||
EBFONT* = 59; (* Bad font file format *)
|
||||
ENOSTR* = 60; (* Device not a stream *)
|
||||
ENODATA* = 61; (* No data available *)
|
||||
ETIME* = 62; (* Timer expired *)
|
||||
ENOSR* = 63; (* Out of streams resources *)
|
||||
ENONET* = 64; (* Machine is not on the network *)
|
||||
ENOPKG* = 65; (* Package not installed *)
|
||||
EREMOTE* = 66; (* Object is remote *)
|
||||
ENOLINK* = 67; (* Link has been severed *)
|
||||
EADV* = 68; (* Advertise error *)
|
||||
ESRMNT* = 69; (* Srmount error *)
|
||||
ECOMM* = 70; (* Communication error on send *)
|
||||
EPROTO* = 71; (* Protocol error *)
|
||||
EMULTIHOP* = 72; (* Multihop attempted *)
|
||||
EDOTDOT* = 73; (* RFS specific error *)
|
||||
EBADMSG* = 74; (* Not a data message *)
|
||||
EOVERFLOW* = 75; (* Value too large for defined data type *)
|
||||
ENOTUNIQ* = 76; (* Name not unique on network *)
|
||||
EBADFD* = 77; (* File descriptor in bad state *)
|
||||
EREMCHG* = 78; (* Remote address changed *)
|
||||
ELIBACC* = 79; (* Can not access a needed shared library *)
|
||||
ELIBBAD* = 80; (* Accessing a corrupted shared library *)
|
||||
ELIBSCN* = 81; (* .lib section in a.out corrupted *)
|
||||
ELIBMAX* = 82; (* Attempting to link in too many shared libraries *)
|
||||
ELIBEXEC* = 83; (* Cannot exec a shared library directly *)
|
||||
EILSEQ* = 84; (* Illegal byte sequence *)
|
||||
ERESTART* = 85; (* Interrupted system call should be restarted *)
|
||||
ESTRPIPE* = 86; (* Streams pipe error *)
|
||||
EUSERS* = 87; (* Too many users *)
|
||||
ENOTSOCK* = 88; (* Socket operation on non-socket *)
|
||||
EDESTADDRREQ* = 89; (* Destination address required *)
|
||||
EMSGSIZE* = 90; (* Message too long *)
|
||||
EPROTOTYPE* = 91; (* Protocol wrong type for socket *)
|
||||
ENOPROTOOPT* = 92; (* Protocol not available *)
|
||||
EPROTONOSUPPORT* = 93; (* Protocol not supported *)
|
||||
ESOCKTNOSUPPORT* = 94; (* Socket type not supported *)
|
||||
EOPNOTSUPP* = 95; (* Operation not supported on transport endpoint *)
|
||||
EPFNOSUPPORT* = 96; (* Protocol family not supported *)
|
||||
EAFNOSUPPORT* = 97; (* Address family not supported by protocol *)
|
||||
EADDRINUSE* = 98; (* Address already in use *)
|
||||
EADDRNOTAVAIL* = 99; (* Cannot assign requested address *)
|
||||
ENETDOWN* = 100; (* Network is down *)
|
||||
ENETUNREACH* = 101; (* Network is unreachable *)
|
||||
ENETRESET* = 102; (* Network dropped connection because of reset *)
|
||||
ECONNABORTED* = 103; (* Software caused connection abort *)
|
||||
ECONNRESET* = 104; (* Connection reset by peer *)
|
||||
ENOBUFS* = 105; (* No buffer space available *)
|
||||
EISCONN* = 106; (* Transport endpoint is already connected *)
|
||||
ENOTCONN* = 107; (* Transport endpoint is not connected *)
|
||||
ESHUTDOWN* = 108; (* Cannot send after transport endpoint shutdown *)
|
||||
ETOOMANYREFS* = 109; (* Too many references: cannot splice *)
|
||||
ETIMEDOUT* = 110; (* Connection timed out *)
|
||||
ECONNREFUSED* = 111; (* Connection refused *)
|
||||
EHOSTDOWN* = 112; (* Host is down *)
|
||||
EHOSTUNREACH* = 113; (* No route to host *)
|
||||
EALREADY* = 114; (* Operation already in progress *)
|
||||
EINPROGRESS* = 115; (* Operation now in progress *)
|
||||
ESTALE* = 116; (* Stale NFS file handle *)
|
||||
EUCLEAN* = 117; (* Structure needs cleaning *)
|
||||
ENOTNAM* = 118; (* Not a XENIX named type file *)
|
||||
ENAVAIL* = 119; (* No XENIX semaphores available *)
|
||||
EISNAM* = 120; (* Is a named type file *)
|
||||
EREMOTEIO* = 121; (* Remote I/O error *)
|
||||
EDQUOT* = 122; (* Quota exceeded *)
|
||||
|
||||
CONST sigsetarrlength = 1024 / 8 * SIZE(LONGINT);
|
||||
|
||||
|
||||
TYPE
|
||||
(* bits/sigset.h
|
||||
_SIGSET_NWORDS (1024 / (8 * sizeof (unsigned long int)))
|
||||
|
||||
1024 / 8*8 = 16
|
||||
1024 / 8*4 = 32
|
||||
*)
|
||||
sigsett* = RECORD
|
||||
val : ARRAY 16 OF LONGINT (* 32 for 32 bit *)
|
||||
(*val : ARRAY sigsetarrlength OF LONGINT *)
|
||||
END;
|
||||
|
||||
JmpBuf* = RECORD
|
||||
(*bx*, si*, di*, bp*, sp*, pc*: LONGINT;*)
|
||||
(* bits/setjmp.h sets up longer array in GNU libc *)
|
||||
(*
|
||||
# if __WORDSIZE == 64
|
||||
typedef long int __jmp_buf[8];
|
||||
# else
|
||||
typedef int __jmp_buf[6];
|
||||
# endif
|
||||
*)
|
||||
bx*, si*, di*, bp*, sp*, pc*, ki*, ku*: LONGINT;
|
||||
(* setjmp.h
|
||||
/* Calling environment, plus possibly a saved signal mask. */
|
||||
struct __jmp_buf_tag
|
||||
{
|
||||
/* NOTE: The machine-dependent definitions of `__sigsetjmp'
|
||||
assume that a `jmp_buf' begins with a `__jmp_buf' and that
|
||||
`__mask_was_saved' follows it. Do not move these members
|
||||
or add others before it. */
|
||||
__jmp_buf __jmpbuf; /* Calling environment. */
|
||||
int __mask_was_saved; /* Saved the signal mask? */
|
||||
__sigset_t __saved_mask; /* Saved signal mask. */
|
||||
};
|
||||
|
||||
*)
|
||||
(*maskWasSaved*, savedMask*: LONGINT;*)
|
||||
maskWasSaved*: INTEGER;
|
||||
(*
|
||||
# define _SIGSET_NWORDS (1024 / (8 * sizeof (unsigned long int)))
|
||||
typedef struct
|
||||
{
|
||||
unsigned long int __val[_SIGSET_NWORDS];
|
||||
} __sigset_t;
|
||||
|
||||
*)
|
||||
savedMask*: sigsett;
|
||||
END ;
|
||||
|
||||
Status* = RECORD (* struct stat *)
|
||||
dev* : LONGINT; (* dev_t 8 *)
|
||||
ino* : LONGINT; (* ino 8 *)
|
||||
nlink* : LONGINT;
|
||||
mode* : INTEGER;
|
||||
uid*, gid*: INTEGER;
|
||||
pad0* : INTEGER;
|
||||
rdev* : LONGINT;
|
||||
size* : LONGINT;
|
||||
blksize* : LONGINT;
|
||||
blocks* : LONGINT;
|
||||
atime* : LONGINT;
|
||||
atimences* : LONGINT;
|
||||
mtime* : LONGINT;
|
||||
mtimensec* : LONGINT;
|
||||
ctime* : LONGINT;
|
||||
ctimensec* : LONGINT;
|
||||
unused0*, unused1*, unused2*: LONGINT;
|
||||
END ;
|
||||
|
||||
(* from /usr/include/bits/time.h
|
||||
|
||||
struct timeval
|
||||
{
|
||||
__time_t tv_sec; /* Seconds. */ //__time_t 8
|
||||
__suseconds_t tv_usec; /* Microseconds. */ __suseconds_t 8
|
||||
};
|
||||
|
||||
|
||||
*)
|
||||
|
||||
Timeval* = RECORD
|
||||
sec*, usec*: LONGINT
|
||||
END ;
|
||||
|
||||
|
||||
(*
|
||||
from man gettimeofday
|
||||
|
||||
struct timezone {
|
||||
int tz_minuteswest; /* minutes west of Greenwich */ int 4
|
||||
int tz_dsttime; /* type of DST correction */ int 4
|
||||
};
|
||||
*)
|
||||
|
||||
|
||||
Timezone* = RECORD
|
||||
(*minuteswest*, dsttime*: LONGINT*)
|
||||
minuteswest*, dsttime*: INTEGER
|
||||
END ;
|
||||
|
||||
Itimerval* = RECORD
|
||||
interval*, value*: Timeval
|
||||
END ;
|
||||
|
||||
FdSet* = ARRAY 8 OF SET;
|
||||
|
||||
SigCtxPtr* = POINTER TO SigContext;
|
||||
SigContext* = RECORD
|
||||
END ;
|
||||
|
||||
SignalHandler* = PROCEDURE (sig, code: LONGINT; scp: SigCtxPtr);
|
||||
|
||||
Dirent* = RECORD
|
||||
ino, off: LONGINT;
|
||||
reclen: INTEGER;
|
||||
name: ARRAY 256 OF CHAR;
|
||||
END ;
|
||||
|
||||
Rusage* = RECORD
|
||||
utime*, stime*: Timeval;
|
||||
maxrss*, ixrss*, idrss*, isrss*,
|
||||
minflt*, majflt*, nswap*, inblock*,
|
||||
oublock*, msgsnd*, msgrcv*, nsignals*,
|
||||
nvcsw*, nivcsw*: LONGINT
|
||||
END ;
|
||||
|
||||
Iovec* = RECORD
|
||||
base*, len*: LONGINT
|
||||
END ;
|
||||
|
||||
SocketPair* = ARRAY 2 OF LONGINT;
|
||||
|
||||
Pollfd* = RECORD
|
||||
fd*: LONGINT;
|
||||
events*, revents*: INTEGER
|
||||
END ;
|
||||
|
||||
Sockaddr* = RECORD
|
||||
family*: INTEGER;
|
||||
port*: INTEGER;
|
||||
internetAddr*: LONGINT;
|
||||
pad*: ARRAY 8 OF CHAR;
|
||||
END ;
|
||||
|
||||
HostEntry* = POINTER [1] TO Hostent;
|
||||
Hostent* = RECORD
|
||||
name*, aliases*: LONGINT;
|
||||
addrtype*, length*: LONGINT;
|
||||
addrlist*: LONGINT; (*POINTER TO POINTER TO LONGINT, network byte order*)
|
||||
END;
|
||||
|
||||
Name* = ARRAY OF CHAR;
|
||||
|
||||
PROCEDURE -includeStat()
|
||||
"#include <sys/stat.h>";
|
||||
|
||||
PROCEDURE -includeErrno()
|
||||
"#include <errno.h>";
|
||||
|
||||
PROCEDURE -err(): LONGINT
|
||||
"errno";
|
||||
|
||||
PROCEDURE errno*(): LONGINT;
|
||||
BEGIN
|
||||
RETURN err()
|
||||
END errno;
|
||||
|
||||
PROCEDURE -Exit*(n: LONGINT)
|
||||
"exit(n)";
|
||||
|
||||
PROCEDURE -Fork*(): LONGINT
|
||||
"fork()";
|
||||
|
||||
PROCEDURE -Wait*(VAR status: LONGINT): LONGINT
|
||||
"wait(status)";
|
||||
|
||||
PROCEDURE -Select*(width: LONGINT; VAR readfds, writefds, exceptfds: FdSet; VAR timeout: Timeval): LONGINT
|
||||
"select(width, readfds, writefds, exceptfds, timeout)";
|
||||
|
||||
PROCEDURE -Gettimeofday* (VAR tv: Timeval; VAR tz: Timezone) : LONGINT
|
||||
"gettimeofday(tv, tz)";
|
||||
|
||||
PROCEDURE -Read* (fd, buf, nbyte: LONGINT): LONGINT
|
||||
"read(fd, buf, nbyte)";
|
||||
|
||||
PROCEDURE -ReadBlk* (fd: LONGINT; VAR buf: ARRAY OF SYSTEM.BYTE): LONGINT
|
||||
"read(fd, buf, buf__len)";
|
||||
|
||||
PROCEDURE -Write* (fd, buf, nbyte: LONGINT): LONGINT
|
||||
"write(fd, buf, nbyte)";
|
||||
|
||||
PROCEDURE -WriteBlk* (fd: LONGINT; VAR buf: ARRAY OF SYSTEM.BYTE): LONGINT
|
||||
"write(fd, buf, buf__len)";
|
||||
|
||||
PROCEDURE -Dup*(fd: LONGINT): LONGINT
|
||||
"dup(fd)";
|
||||
|
||||
PROCEDURE -Dup2*(fd1, fd2: LONGINT): LONGINT
|
||||
"dup(fd1, fd2)";
|
||||
|
||||
PROCEDURE -Pipe*(fds : LONGINT): LONGINT
|
||||
"pipe(fds)";
|
||||
|
||||
PROCEDURE -Getpid*(): LONGINT
|
||||
"getpid()";
|
||||
|
||||
PROCEDURE -Getuid*(): LONGINT
|
||||
"getuid()";
|
||||
|
||||
PROCEDURE -Geteuid*(): LONGINT
|
||||
"geteuid()";
|
||||
|
||||
PROCEDURE -Getgid*(): LONGINT
|
||||
"getgid()";
|
||||
|
||||
PROCEDURE -Getegid*(): LONGINT
|
||||
"getegid()";
|
||||
|
||||
PROCEDURE -Unlink*(name: Name): LONGINT
|
||||
"unlink(name)";
|
||||
|
||||
PROCEDURE -Open*(name: Name; flag, mode: SET): LONGINT
|
||||
"open(name, flag, mode)";
|
||||
|
||||
PROCEDURE -Close*(fd: LONGINT): LONGINT
|
||||
"close(fd)";
|
||||
|
||||
PROCEDURE -stat(name: Name; VAR statbuf: Status): LONGINT
|
||||
"stat((const char*)name, (struct stat*)statbuf)";
|
||||
|
||||
PROCEDURE Stat*(name: Name; VAR statbuf: Status): LONGINT;
|
||||
VAR res: LONGINT;
|
||||
BEGIN
|
||||
res := stat(name, statbuf);
|
||||
(* make the first 4 bytes as unique as possible (used in module Files for caching!) *)
|
||||
(* don't understand this
|
||||
INC(statbuf.dev, statbuf.devX);
|
||||
INC(statbuf.rdev, statbuf.rdevX); *)
|
||||
RETURN res;
|
||||
END Stat;
|
||||
|
||||
PROCEDURE -fstat(fd: LONGINT; VAR statbuf: Status): LONGINT
|
||||
"fstat(fd, (struct stat*)statbuf)";
|
||||
|
||||
PROCEDURE Fstat*(fd: LONGINT; VAR statbuf: Status): LONGINT;
|
||||
VAR res: LONGINT;
|
||||
BEGIN
|
||||
res := fstat(fd, statbuf);
|
||||
(* make the first 4 bytes as unique as possible (used in module Files for caching!) *)
|
||||
(*INC(statbuf.dev, statbuf.devX);
|
||||
INC(statbuf.rdev, statbuf.rdevX); *)
|
||||
RETURN res;
|
||||
END Fstat;
|
||||
|
||||
PROCEDURE -Fchmod*(fd, mode: LONGINT): LONGINT
|
||||
"fchmod(fd, mode)";
|
||||
|
||||
PROCEDURE -Chmod*(path: Name; mode: LONGINT): LONGINT
|
||||
"chmod(path, mode)";
|
||||
|
||||
PROCEDURE -Lseek*(fd, offset, origin: LONGINT): LONGINT
|
||||
"lseek(fd, offset, origin)";
|
||||
|
||||
PROCEDURE -Fsync*(fd: LONGINT): LONGINT
|
||||
"fsync(fd)";
|
||||
|
||||
PROCEDURE -Fcntl*(fd, cmd, arg: LONGINT ): LONGINT
|
||||
"fcntl(fd, cmd, arg)";
|
||||
|
||||
PROCEDURE -Flock*(fd, operation: LONGINT): LONGINT
|
||||
"flock(fd, operation)";
|
||||
|
||||
PROCEDURE -Ftruncate*(fd, length: LONGINT): LONGINT
|
||||
"ftruncate(fd, length)";
|
||||
|
||||
PROCEDURE -Readblk*(fd: LONGINT; VAR buf: ARRAY OF SYSTEM.BYTE; len: LONGINT): LONGINT
|
||||
"read(fd, buf, len)";
|
||||
|
||||
PROCEDURE -Rename*(old, new: Name): LONGINT
|
||||
"rename(old, new)";
|
||||
|
||||
PROCEDURE -Chdir*(path: Name): LONGINT
|
||||
"chdir(path)";
|
||||
|
||||
PROCEDURE -Ioctl*(fd, request, arg: LONGINT): LONGINT
|
||||
"ioctl(fd, request, arg)";
|
||||
|
||||
PROCEDURE -Kill*(pid, sig: LONGINT): LONGINT
|
||||
"kill(pid, sig)";
|
||||
|
||||
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
|
||||
"sigsetmask(mask)";
|
||||
|
||||
|
||||
(* TCP/IP networking *)
|
||||
|
||||
PROCEDURE -Gethostbyname*(name: Name): HostEntry
|
||||
"(Unix_HostEntry)gethostbyname(name)";
|
||||
|
||||
PROCEDURE -Gethostname*(VAR name: Name): LONGINT
|
||||
"gethostname(name, name__len)";
|
||||
|
||||
PROCEDURE -Socket*(af, type, protocol: LONGINT): LONGINT
|
||||
"socket(af, type, protocol)";
|
||||
|
||||
PROCEDURE -Connect*(socket: LONGINT; name: Sockaddr; namelen: LONGINT): LONGINT
|
||||
"connect(socket, &(name), namelen)";
|
||||
|
||||
PROCEDURE -Getsockname*(socket: LONGINT; VAR name: Sockaddr; VAR namelen: LONGINT): LONGINT
|
||||
"getsockname(socket, name, namelen)";
|
||||
|
||||
PROCEDURE -Bind*(socket: LONGINT; name: Sockaddr; namelen: LONGINT): LONGINT
|
||||
"bind(socket, &(name), namelen)";
|
||||
|
||||
PROCEDURE -Listen*(socket, backlog: LONGINT): LONGINT
|
||||
"listen(socket, backlog)";
|
||||
|
||||
PROCEDURE -Accept*(socket: LONGINT; VAR addr: Sockaddr; VAR addrlen: LONGINT): LONGINT
|
||||
"accept(socket, addr, addrlen)";
|
||||
|
||||
PROCEDURE -Recv*(socket, bufadr, buflen, flags: LONGINT): LONGINT
|
||||
"recv(socket, bufadr, buflen, flags)";
|
||||
|
||||
PROCEDURE -Send*(socket, bufadr, buflen, flags: LONGINT): LONGINT
|
||||
"send(socket, bufadr, buflen, flags)";
|
||||
|
||||
PROCEDURE -sys(str: ARRAY OF CHAR): INTEGER (* need this to call external tools like gcc or gas; noch *)
|
||||
"system(str)";
|
||||
|
||||
PROCEDURE system*(cmd : ARRAY OF CHAR);
|
||||
VAR r : INTEGER;
|
||||
BEGIN
|
||||
r := sys(cmd);
|
||||
END system;
|
||||
|
||||
PROCEDURE System*(cmd : ARRAY OF CHAR): INTEGER;
|
||||
VAR r : INTEGER;
|
||||
BEGIN
|
||||
r := sys(cmd);
|
||||
RETURN r
|
||||
END System;
|
||||
|
||||
|
||||
|
||||
END Unix.
|
||||
82
src/voc/darwin/clang/extTools.Mod
Normal file
82
src/voc/darwin/clang/extTools.Mod
Normal file
|
|
@ -0,0 +1,82 @@
|
|||
MODULE extTools;
|
||||
IMPORT Args, Unix, Strings := oocOakStrings, Console, version;
|
||||
(*
|
||||
INCLUDEPATH = -Isrc/lib/system/linux/gnuc/x86_64
|
||||
CCOPT = -fPIC $(INCLUDEPATH) -g
|
||||
CLOBERONOPTS = -fPIC $(INCLUDEPATH) -L. -L/usr/lib -lVishapOberon -static -g
|
||||
CC = cc $(CCOPT) -c
|
||||
*)
|
||||
|
||||
VAR incPath0, incPath1, ccOpt, ccString, CFLAGS, tmp0, tmp1 : ARRAY 1023 OF CHAR;
|
||||
|
||||
PROCEDURE Assemble*(m : ARRAY OF CHAR);
|
||||
VAR cmd : ARRAY 1023 OF CHAR;
|
||||
cc : ARRAY 1023 OF CHAR;
|
||||
ext : ARRAY 5 OF CHAR;
|
||||
BEGIN
|
||||
COPY (ccString, cc);
|
||||
Strings.Append (" -c ", cc);
|
||||
COPY(cc, cmd);
|
||||
Strings.Append (" ", cmd);
|
||||
Strings.Append (ccOpt, cmd);
|
||||
ext := ".c";
|
||||
Strings.Append (ext, m);
|
||||
Strings.Append(m, cmd);
|
||||
(*Console.Ln; Console.String (cmd); Console.Ln;*)
|
||||
Unix.system(cmd);
|
||||
END Assemble;
|
||||
|
||||
|
||||
PROCEDURE LinkMain*(VAR m : ARRAY OF CHAR; statically : BOOLEAN; additionalopts : ARRAY OF CHAR);
|
||||
VAR lpath : ARRAY 1023 OF CHAR;
|
||||
cc : ARRAY 1023 OF CHAR;
|
||||
ccopt : ARRAY 1023 OF CHAR;
|
||||
cmd : ARRAY 1023 OF CHAR;
|
||||
ext : ARRAY 5 OF CHAR;
|
||||
BEGIN
|
||||
(*
|
||||
gcc -g -o hello hello.c -I $RPATH/src/lib/system/linux/gnuc/x86_64 -I. -I$RPATH -lOberon -L. -L$RPATH -static
|
||||
*)
|
||||
cmd := "";
|
||||
cc := "";
|
||||
ext := ".c";
|
||||
COPY(ccString, cc);
|
||||
COPY (cc, cmd);
|
||||
Strings.Append(" ", cmd);
|
||||
Strings.Append(m, cmd);
|
||||
Strings.Append(ext, cmd);
|
||||
Strings.Append(additionalopts, cmd);
|
||||
IF statically THEN Strings.Append(" -static ", cmd) END;
|
||||
Strings.Append(" -o ", cmd);
|
||||
Strings.Append(m, cmd);
|
||||
Strings.Append(" ", cmd);
|
||||
Strings.Append(ccOpt, cmd);
|
||||
Console.Ln; Console.String(cmd); Console.Ln; (* may be it's feasible to add debug mode later *)
|
||||
Unix.system(cmd);
|
||||
END LinkMain;
|
||||
|
||||
BEGIN
|
||||
|
||||
incPath0 := "src/lib/system/darwin/clang";
|
||||
incPath1 := "lib/voc/obj ";
|
||||
ccOpt := " -fPIC -g -I ";
|
||||
COPY (version.prefix, tmp1);
|
||||
Strings.Append("/", tmp1);
|
||||
Strings.Append(incPath0, tmp1);
|
||||
Strings.Append("/", tmp1);
|
||||
Strings.Append(version.arch, tmp1);
|
||||
Strings.Append(" -I ", tmp1);
|
||||
Strings.Append(version.prefix, tmp1);
|
||||
Strings.Append("/", tmp1);
|
||||
Strings.Append(incPath1, tmp1);
|
||||
Strings.Append(tmp1, ccOpt);
|
||||
Strings.Append ("-lVishapOberon -L. -L", ccOpt);
|
||||
Strings.Append (version.prefix, ccOpt);
|
||||
Strings.Append ("/lib ", ccOpt);
|
||||
Args.GetEnv("CFLAGS", CFLAGS);
|
||||
Strings.Append (CFLAGS, ccOpt);
|
||||
Strings.Append (" ", ccOpt);
|
||||
ccString := "cc ";
|
||||
(*Strings.Append (ccOpt, ccString);*)
|
||||
|
||||
END extTools.
|
||||
4
src/voc/linux/gnuc/x86_64/architecture.Mod
Normal file
4
src/voc/linux/gnuc/x86_64/architecture.Mod
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
MODULE architecture;
|
||||
CONST arch* = "x86_64";
|
||||
|
||||
END architecture.
|
||||
BIN
voc
BIN
voc
Binary file not shown.
BIN
vocparam
BIN
vocparam
Binary file not shown.
BIN
vocstatic
BIN
vocstatic
Binary file not shown.
Binary file not shown.
Loading…
Add table
Add a link
Reference in a new issue