vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 07:32:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

voc compiler first commit

Browse source 
Former-commit-id: 760d826948
This commit is contained in:
Norayr Chilingarian 2013-09-27 22:34:17 +04:00
parent 4a7dc4b549
commit 6a1eccd316
119 changed files with 30400 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

38
src/voc/version.Mod Normal file
View file

@ -0,0 +1,38 @@
MODULE version;
IMPORT Strings := oocOakStrings, architecture;
CONST
(* targets *)
gnux86* = 0; gnux8664* = 1; gnuarmv6j* = 2; gnuarmv6jhardfp* = 3; gnuarmv7ahardfp* = 4;
VAR arch-, version-, date-, versionLong-, prefix0-, prefix- : ARRAY 23 OF CHAR;
defaultTarget* : INTEGER;
BEGIN
arch := architecture.arch;
date := " [2013/09/23]";
version := "1.0";
versionLong := "";
COPY(version, versionLong);
Strings.Append (" ", versionLong);
Strings.Append(date, versionLong);
prefix := "";
prefix0 := "/opt";
COPY (prefix0, prefix);
Strings.Append ("/voc-", prefix);
Strings.Append(version, prefix); (* /opt/voc-1.0 *)
(* will be used later in Kernel.Mod to set OBERON default path *)
IF arch = "x86_64" THEN
defaultTarget := gnux8664
ELSIF arch = "x86" THEN
defaultTarget := gnux86
ELSIF arch = "armv6j" THEN
defaultTarget := gnuarmv6j
ELSIF arch = "armv6j_hardfp" THEN
defaultTarget := gnuarmv6jhardfp
ELSIF arch = "armv7a_hardfp" THEN
defaultTarget := gnuarmv7ahardfp
ELSE
defaultTarget := gnux8664
END
END version.