diff options
Diffstat (limited to 'tnslc/compile')
-rw-r--r-- | tnslc/compile/arch/arch.tnsl | 20 | ||||
-rw-r--r-- | tnslc/compile/arch/common.tnsl | 22 | ||||
-rw-r--r-- | tnslc/compile/arch/isa_arm.tnsl | 15 | ||||
-rw-r--r-- | tnslc/compile/arch/isa_risc_v.tnsl | 15 | ||||
-rw-r--r-- | tnslc/compile/arch/isa_x86.tnsl | 29 | ||||
-rw-r--r-- | tnslc/compile/comp.tnsl | 3 | ||||
-rw-r--r-- | tnslc/compile/compile.tnsl | 6 | ||||
-rw-r--r-- | tnslc/compile/format/elf.tnsl | 151 | ||||
-rw-r--r-- | tnslc/compile/format/format.tnsl | 20 | ||||
-rw-r--r-- | tnslc/compile/format/pe.tnsl | 0 | ||||
-rw-r--r-- | tnslc/compile/isa_x86.tnsl | 48 |
11 files changed, 52 insertions, 277 deletions
diff --git a/tnslc/compile/arch/arch.tnsl b/tnslc/compile/arch/arch.tnsl deleted file mode 100644 index 5e81673..0000000 --- a/tnslc/compile/arch/arch.tnsl +++ /dev/null @@ -1,20 +0,0 @@ -/## - Copyright 2021 Kyle Gunger - - This file is licensed under the CDDL 1.0 (the License) - and may only be used in accordance with the License. - You should have received a copy of the License with this - software/source code. If you did not, a copy can be found - at the following URL: - - https://opensource.org/licenses/CDDL-1.0 - - THIS SOFTWARE/SOURCE CODE IS PROVIDED "AS IS" WITH NO - WARRANTY, GUARANTEE, OR CLAIM OF FITNESS FOR ANY PURPOSE - EXPRESS OR IMPLIED -#/ - -/; module arch - :import "compile/arch/common.tnsl" - :import "compile/arch/isa_x86.tnsl" -;/
\ No newline at end of file diff --git a/tnslc/compile/arch/common.tnsl b/tnslc/compile/arch/common.tnsl deleted file mode 100644 index 1ff1c89..0000000 --- a/tnslc/compile/arch/common.tnsl +++ /dev/null @@ -1,22 +0,0 @@ -/## - Copyright 2021 Kyle Gunger - - This file is licensed under the CDDL 1.0 (the License) - and may only be used in accordance with the License. - You should have received a copy of the License with this - software/source code. If you did not, a copy can be found - at the following URL: - - https://opensource.org/licenses/CDDL-1.0 - - THIS SOFTWARE/SOURCE CODE IS PROVIDED "AS IS" WITH NO - WARRANTY, GUARANTEE, OR CLAIM OF FITNESS FOR ANY PURPOSE - EXPRESS OR IMPLIED -#/ - -# Instructions are always stored in big-endian format internally. -# The settings for the isa/compiler dictate weather the instruction -# data will be reversed when the sections are being written. -; struct instruction { - {}uint8 data -}
\ No newline at end of file diff --git a/tnslc/compile/arch/isa_arm.tnsl b/tnslc/compile/arch/isa_arm.tnsl deleted file mode 100644 index 0dc3468..0000000 --- a/tnslc/compile/arch/isa_arm.tnsl +++ /dev/null @@ -1,15 +0,0 @@ -/## - Copyright 2021 Kyle Gunger - - This file is licensed under the CDDL 1.0 (the License) - and may only be used in accordance with the License. - You should have received a copy of the License with this - software/source code. If you did not, a copy can be found - at the following URL: - - https://opensource.org/licenses/CDDL-1.0 - - THIS SOFTWARE/SOURCE CODE IS PROVIDED "AS IS" WITH NO - WARRANTY, GUARANTEE, OR CLAIM OF FITNESS FOR ANY PURPOSE - EXPRESS OR IMPLIED -#/ diff --git a/tnslc/compile/arch/isa_risc_v.tnsl b/tnslc/compile/arch/isa_risc_v.tnsl deleted file mode 100644 index 0dc3468..0000000 --- a/tnslc/compile/arch/isa_risc_v.tnsl +++ /dev/null @@ -1,15 +0,0 @@ -/## - Copyright 2021 Kyle Gunger - - This file is licensed under the CDDL 1.0 (the License) - and may only be used in accordance with the License. - You should have received a copy of the License with this - software/source code. If you did not, a copy can be found - at the following URL: - - https://opensource.org/licenses/CDDL-1.0 - - THIS SOFTWARE/SOURCE CODE IS PROVIDED "AS IS" WITH NO - WARRANTY, GUARANTEE, OR CLAIM OF FITNESS FOR ANY PURPOSE - EXPRESS OR IMPLIED -#/ diff --git a/tnslc/compile/arch/isa_x86.tnsl b/tnslc/compile/arch/isa_x86.tnsl deleted file mode 100644 index 03646ce..0000000 --- a/tnslc/compile/arch/isa_x86.tnsl +++ /dev/null @@ -1,29 +0,0 @@ -/## - Copyright 2021 Kyle Gunger - - This file is licensed under the CDDL 1.0 (the License) - and may only be used in accordance with the License. - You should have received a copy of the License with this - software/source code. If you did not, a copy can be found - at the following URL: - - https://opensource.org/licenses/CDDL-1.0 - - THIS SOFTWARE/SOURCE CODE IS PROVIDED "AS IS" WITH NO - WARRANTY, GUARANTEE, OR CLAIM OF FITNESS FOR ANY PURPOSE - EXPRESS OR IMPLIED -#/ - - - -/; gen_symtab (Node program) [Symtab] - -;/ - -/; symtab_to_section (Symtab sym) [{}charp] - -;/ - -/; block_to_asm ({}charp block_name, Node block) [{}charp] - -;/ diff --git a/tnslc/compile/comp.tnsl b/tnslc/compile/comp.tnsl deleted file mode 100644 index 18ca4b5..0000000 --- a/tnslc/compile/comp.tnsl +++ /dev/null @@ -1,3 +0,0 @@ -/; do_compile ({}charp file, ast.Node data, Settings settings) - -;/
\ No newline at end of file diff --git a/tnslc/compile/compile.tnsl b/tnslc/compile/compile.tnsl index df94752..d1f72b4 100644 --- a/tnslc/compile/compile.tnsl +++ b/tnslc/compile/compile.tnsl @@ -16,13 +16,15 @@ /; module compile # :include "compile/arch/arch.tnsl" - :include "compile/arch/isa_x86.tnsl" + :include "compile/isa_x86.tnsl" # :include "compile/comp.tnsl" ;/ -/; do_compile ({}charp file, ast.Node data, Settings settings) +/; do_compile ({}charp file, ~{}Token data) + /; + ;/ ;/ ;struct Symtab { diff --git a/tnslc/compile/format/elf.tnsl b/tnslc/compile/format/elf.tnsl deleted file mode 100644 index 8490180..0000000 --- a/tnslc/compile/format/elf.tnsl +++ /dev/null @@ -1,151 +0,0 @@ -/## - Copyright 2021 Kyle Gunger - - This file is licensed under the CDDL 1.0 (the License) - and may only be used in accordance with the License. - You should have received a copy of the License with this - software/source code. If you did not, a copy can be found - at the following URL: - - https://opensource.org/licenses/CDDL-1.0 - - THIS SOFTWARE/SOURCE CODE IS PROVIDED "AS IS" WITH NO - WARRANTY, GUARANTEE, OR CLAIM OF FITNESS FOR ANY PURPOSE - EXPRESS OR IMPLIED -#/ - -# Constants and values used in ELF files - -# File signature -;const {4}uint8 SIGNATURE_ELF = {0x7F, 'E', 'L', 'F'} - -# ELF version always 1 -;const uint8 VERSION_ELF = 1 - -# OS identifiers (from wikipedia) -;enum ABI_ELF [uint8] { - SystemV = 0x0, - HP_UX = 0x1, - NetBSD = 0x2, - Linux = 0x3, - GNUHurd = 0x4, - Solaris = 0x6, - AIX = 0x7, - IRIX = 0x8, - FreeBSD = 0x9, - Tru64 = 0xA, - OpenBSD = 0xC, - OpenVMS = 0xD -} - -# ELF file types (from wikipedia) -;enum TYPE_ELF [uint16] { - ET_NONE = 0x0, - ET_REL = 0x1, - ET_EXEC = 0x2, - ET_DYN = 0x3, - ET_CORE = 0x4, - ET_LOOS = 0xFE00, - ET_HIOS = 0xFEFF, - ET_LOPROC = 0xFF00, - ET_HIPROC = 0xFFFF -} - -# ISA (from wikipedia) -;enum ARCH_ELF [uint16] { - NONE = 0x0, - SPARC = 0x2, - x86_32 = 0x3, - MIPS = 0x8, - PowerPC = 0x14, - PowerPC64 = 0x15, - ARM = 0x28, - SPARC9 = 0x2B, - IA_64 = 0x32, - x86_64 = 0x3E, - ARM64 = 0xB7, - RISC_V = 0xF3 -} - -# Some zeros to fill out the pad in the header -;const {7}uint8 PAD_ZEROS_ELF = {0, 0, 0, 0, 0, 0, 0} - - - -# Internal file structures - -# Identity inside header -;raw struct IdentityELF { - {4}uint8 - signature, - - uint8 - class, - data, - version, - abi, - - # Usually zero - abiVersion, - - {7}uint8 - # Filled with zeros, use PAD_ZEROS_ELF to fill out - pad -} - -# Main header (32 bit) -;raw struct HeaderELF32 { - IdentityELF - identity, - - uint16 - fileType, - arch, - - {4}uint8 - version, - entry, - programHeader, - sectionHeader, - - {4}uint8 - flags, - - uint16 - headerSize, - programHeaderSize, - programHeaderEntries, - sectionHeaderSize, - sectionHeaderEntries, - shNameIndex -} - -# Main header (64 bit) -;raw struct HeaderELF64 { - IdentityELF - identity, - - uint16 - fileType, - arch, - - {4}uint8 - version, - - {8}uint8 - entry, - programHeader, - sectionHeader, - - {4}uint8 - flags, - - uint16 - headerSize, - programHeaderSize, - programHeaderEntries, - sectionHeaderSize, - sectionHeaderEntries, - shNameIndex -} - diff --git a/tnslc/compile/format/format.tnsl b/tnslc/compile/format/format.tnsl deleted file mode 100644 index 14831b5..0000000 --- a/tnslc/compile/format/format.tnsl +++ /dev/null @@ -1,20 +0,0 @@ -/## - Copyright 2021 Kyle Gunger - - This file is licensed under the CDDL 1.0 (the License) - and may only be used in accordance with the License. - You should have received a copy of the License with this - software/source code. If you did not, a copy can be found - at the following URL: - - https://opensource.org/licenses/CDDL-1.0 - - THIS SOFTWARE/SOURCE CODE IS PROVIDED "AS IS" WITH NO - WARRANTY, GUARANTEE, OR CLAIM OF FITNESS FOR ANY PURPOSE - EXPRESS OR IMPLIED -#/ - -/; module format - # :include "compile/format/out.tnsl" - :include "compile/format/elf.tnsl" -;/
\ No newline at end of file diff --git a/tnslc/compile/format/pe.tnsl b/tnslc/compile/format/pe.tnsl deleted file mode 100644 index e69de29..0000000 --- a/tnslc/compile/format/pe.tnsl +++ /dev/null diff --git a/tnslc/compile/isa_x86.tnsl b/tnslc/compile/isa_x86.tnsl new file mode 100644 index 0000000..1df9902 --- /dev/null +++ b/tnslc/compile/isa_x86.tnsl @@ -0,0 +1,48 @@ +/## + Copyright 2021 Kyle Gunger + + This file is licensed under the CDDL 1.0 (the License) + and may only be used in accordance with the License. + You should have received a copy of the License with this + software/source code. If you did not, a copy can be found + at the following URL: + + https://opensource.org/licenses/CDDL-1.0 + + THIS SOFTWARE/SOURCE CODE IS PROVIDED "AS IS" WITH NO + WARRANTY, GUARANTEE, OR CLAIM OF FITNESS FOR ANY PURPOSE + EXPRESS OR IMPLIED +#/ + +/; gen_x86 (~Node program, {}charp out) + ;tnsl.io.File o = tnsl.io.writeFile(out) + + ;{}uint8 current = gen_head(program) + /; loop (int i = 0; i < len current) [i++] + ;o.write(current{i}) + ;/ + + ;{}uint8 current = gen_data(program) + /; loop (int i = 0; i < len current) [i++] + ;o.write(current{i}) + ;/ + + ;{}uint8 current = gen_text(program) + /; loop (int i = 0; i < len current) [i++] + ;o.write(current{i}) + ;/ + + ;o.close() +;/ + +/; gen_data (~Node program) [{}charp] + +;/ + +/; gen_text (~Node program) [{}charp] + +;/ + +/; gen_head (~Node program) [{}charp] + +;/ |