1 files changed, 0 insertions, 88 deletions
diff --git a/source/common.elna b/source/common.elna
deleted file mode 100644
index 93b4363..0000000
--- a/source/common.elna
+++ /dev/null
@@ -1,88 +0,0 @@
-(* This Source Code Form is subject to the terms of the Mozilla Public License,
-  v. 2.0. If a copy of the MPL was not distributed with this file, You can
-  obtain one at https://mozilla.org/MPL/2.0/. *)
-module
-import sys.posix.cstring, sys.posix.cstdio, sys.posix.cstdlib
-
-type
-  ElnaLocation* = record
-    line: Word;
-    column: Word
-  end
-	ElnaPosition* = record
-		start_location: ElnaLocation;
-		end_location: ElnaLocation
-	end
-
-proc write*#[T](fd: Int; buf: ^const T; size: Word) -> Int
-extern
-
-proc write_s*(value: []const Word8)
-  write(1, value.ptr, value.length)
-return
-
-proc write_z*(value: ^Word8)
-  write(1, value, strlen(value))
-return
-
-proc write_b*(value: Bool)
-  if value then
-    write_s("true")
-  else
-    write_s("false")
-  end
-return
-
-proc write_c*(value: Word8)
-  putchar(cast(value: Int));
-  fflush(nil)
-return
-
-proc write_i*(value: Int)
-var
-  digit: Int
-  n: Word
-  buffer: [10]Word8
-begin
-  n := 10u;
-
-  if value = 0 then
-    write_c('0')
-  end;
-  while value <> 0 do
-    digit := value % 10;
-    value := value / 10;
-
-    buffer[n] := cast(cast('0': Int) + digit: Word8);
-    n := n - 1u
-  end;
-  while n < 10u do
-    n := n + 1u;
-    write_c(buffer[n])
-  end
-return
-
-proc write_u*(value: Word)
-  write_i(cast(value: Int))
-return
-
-(* Returns true or false depending whether two strings  are equal. *)
-proc string_compare*(lhs_pointer: ^Word8; lhs_length: Word; rhs_pointer: []const Word8) -> Bool
-var
-	result: Bool
-begin
-	if lhs_length = rhs_pointer.length then
-		result := memcmp(lhs_pointer, rhs_pointer.ptr, lhs_length) = 0
-	else
-		result := false
-	end
-return result
-
-proc free_and_nil*#[T](ptr: ^T) -> ^T
-begin
-	if ptr <> nil then
-		free(ptr)
-	end
-return nil
-
-end.