diff options
| author |  Calvin Rose <calsrose@gmail.com> | 2026-01-25 18:19:08 -0600 |
|---|---|---|
| committer | Calvin Rose <calsrose@gmail.com> | 2026-01-25 18:19:08 -0600 |
| commit | 7137e4ed30b497cbc60c8a806bb7fc230056aa26 (patch) | |
| tree | 784e667118f1e982cb0c126a5d96a2fde4cd3ec2 /tools | |
| parent | Redo cp437 conversion - dumped bit maps were not correct. (diff) | |
Formatting.
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/cp437.janet | 3 | ||||
| -rw-r--r-- | tools/wchar_procunicode.janet | 6 |
2 files changed, 4 insertions, 5 deletions
diff --git a/tools/cp437.janet b/tools/cp437.janet index ca2a674..aeb5e91 100644 --- a/tools/cp437.janet +++ b/tools/cp437.janet @@ -38,8 +38,7 @@ 0x2261 0xF0 0x00B1 0xF1 0x2265 0xF2 0x2264 0xF3 0x2320 0xF4 0x2321 0xF5 0x00F7 0xF6 0x2248 0xF7 0x00B0 0xF8 0x2219 0xF9 0x00B7 0xFA 0x221A 0xFB - 0x207F 0xFC 0x00B2 0xFD 0x25A0 0xFE 0x00A0 0xFF - }) + 0x207F 0xFC 0x00B2 0xFD 0x25A0 0xFE 0x00A0 0xFF}) (def cp437-to-unicode (invert unicode-to-cp437)) diff --git a/tools/wchar_procunicode.janet b/tools/wchar_procunicode.janet index 9cae631..2614f85 100644 --- a/tools/wchar_procunicode.janet +++ b/tools/wchar_procunicode.janet @@ -64,11 +64,11 @@ (defn bitset/set [mask pos] (def [byte bit] (bitset/pos pos)) (put mask byte - (bor (mask byte) (blshift 1 bit)))) + (bor (mask byte) (blshift 1 bit)))) (defn bitset/clear [mask pos] (def [byte bit] (bitset/pos pos)) (put mask byte - (band (mask byte) (bxor 0xFF (blshift 1 bit))))) + (band (mask byte) (bxor 0xFF (blshift 1 bit))))) (defn buffer->array [buf] (def a (array/new (length buf))) (each x buf @@ -130,7 +130,7 @@ (each {:start start :end end :mask mask :width width} entries (if mask (printf "{ %6d, %2d, 0x%02x%02x%02x%02x%02x%02x%02x%02xULL }," - start width ;(buffer->array mask)) + start width ;(buffer->array mask)) (printf "{ %6d, %2d, %18d }," start width end)))) (defn main [_ path-unicode-data path-width-data] |