From 9ccdf0ddc45d63e9261febd80635781e882513d4 Mon Sep 17 00:00:00 2001 From: Drahflow Date: Wed, 28 May 2014 00:22:36 +0200 Subject: This should go into a separate repo, actually. --- samyle/hexedit.ey | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 samyle/hexedit.ey (limited to 'samyle/hexedit.ey') diff --git a/samyle/hexedit.ey b/samyle/hexedit.ey deleted file mode 100644 index 170c3eb..0000000 --- a/samyle/hexedit.ey +++ /dev/null @@ -1,34 +0,0 @@ -< - terminal "$" via $styling "$:" via - utils "$$" via - locations .cursor "<>" via - - 1 neg ==CRAPFILE - - { - locations .cursor .byte _ ==addr 16 div 16 mul 128 sub ==base - - $clear - 0 16 range { ==y - 0 16 range { ==x - x 3 mul 1 add y 1 add $goto - - { $$memory $$toHexSave $out } base y 16 mul add x add _ addr eq $:reverseIf - } each - } each - } /display deffd - - { ==k - [ - { 0 k * 106 eq } { <>byte 16 add <>gotoByte } - { 0 k * 107 eq } { <>byte 16 sub <>gotoByte } - { 0 k * 108 eq } { <>byte 1 add <>gotoByte } - { 0 k * 104 eq } { <>byte 1 sub <>gotoByte } - ] conds - display - } /handle deffd - - { _ "" eq |display |handle ? * } -> -- /hexedit deffd - -# vim: syn=elymas -- cgit v1.2.3