diff options
| author | Drahflow <drahflow@gmx.de> | 2014-05-28 00:22:36 +0200 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2014-05-28 00:22:36 +0200 |
| commit | 9ccdf0ddc45d63e9261febd80635781e882513d4 (patch) | |
| tree | b90082074a312cf91c58286a2e2fbf73f456ea20 /samyle/hexedit.ey | |
| parent | 8df51c3d165c9c225e51d502b8816998f25ea2a2 (diff) | |
This should go into a separate repo, actually.
Diffstat (limited to 'samyle/hexedit.ey')
| -rw-r--r-- | samyle/hexedit.ey | 34 |
1 files changed, 0 insertions, 34 deletions
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 |