From 9ccdf0ddc45d63e9261febd80635781e882513d4 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Wed, 28 May 2014 00:22:36 +0200
Subject: This should go into a separate repo, actually.

---
 samyle/utils.ey | 39 ---------------------------------------
 1 file changed, 39 deletions(-)
 delete mode 100644 samyle/utils.ey

(limited to 'samyle/utils.ey')

diff --git a/samyle/utils.ey b/samyle/utils.ey
deleted file mode 100644
index d0d5f32..0000000
--- a/samyle/utils.ey
+++ /dev/null
@@ -1,39 +0,0 @@
-<
-  sys .linux "+" via
-
-  ".crap\0" +OWRONLY +OCREAT bor +OTRUNC bor 342 +open ==CRAPFILE
-
-  { ==addr
-    CRAPFILE addr 1 +write ==err
-
-    err 0 le { # EFAULT -> address not mapped
-      1 neg
-    } {
-      addr sys .asm .peek
-    } ? *
-  } '0.0 /memory deffd
-
-  <
-    { # ==addr
-      0 2 range add memory
-      _ 1 neg eq any { -- ??io.invalid } { 256 math .unbase } ? *
-    } /u16 deffd
-
-    { # ==addr
-      0 4 range add memory
-      _ 1 neg eq any { -- ??io.invalid } { 256 math .unbase } ? *
-    } /u32 deffd
-
-    { # ==addr
-      0 8 range add memory
-      _ 1 neg eq any { -- ??io.invalid } { 256 math .unbase } ? *
-    } /u64 deffd
-  > /readMemory defvd
-
-  # CRAPFILE +close
-
-  { _ 16 div -01 16 mod "0123456789ABCDEF" [ -031*21* ] str .fromArray } '0.0 /toHex deffd
-  { _ 1 neg eq { -- "--" } |toHex ? * } '0.0 /toHexSave deffd
-> /utils defvd
-
-# vim: syn=elymas
-- 
cgit v1.2.3