John
8c0ae02a71
- Compute char value of digit - Substitute C0 control codes for Unicode C0 Control Pictures - Extend through Unicode Latin-1 Supplement - Blank out C1 control code range
51 lines
1.2 KiB
Common Lisp
Executable File
51 lines
1.2 KiB
Common Lisp
Executable File
#!/usr/bin/env -S conlang -r false
|
|
//! Prints out the characters in the ASCII printable range
|
|
//! and the Latin-1 supplement in the format of a hex-dump
|
|
|
|
fn main () {
|
|
ascii()
|
|
}
|
|
|
|
fn n_digit(n: u32) -> char {
|
|
(if n > 9 {
|
|
n - 10 + ('a' as u32)
|
|
} else {
|
|
n + ('0' as u32)
|
|
}) as char
|
|
}
|
|
|
|
fn in_range(num: u32, start: u32, end: u32) -> bool {
|
|
(start <= i) && (i <= end )
|
|
}
|
|
|
|
fn ascii() {
|
|
for row in 0..16 {
|
|
for col in 0..16 {
|
|
if col == 8 {
|
|
print(' ')
|
|
}
|
|
let i = row * 16 + col
|
|
print(n_digit((i >> 4) & 0xf), n_digit(i & 0xf), ' ')
|
|
}
|
|
print(" |")
|
|
for col in 0..16 {
|
|
let i = row * 16 + col
|
|
print(ascii_picture(i))
|
|
}
|
|
println("|")
|
|
}
|
|
}
|
|
|
|
// Start of the C0 control pictures region
|
|
const CO_CONTROL_PICTURES: u32 = '\u{2400}' as u32;
|
|
|
|
fn ascii_picture(c: i32) -> char {
|
|
if c < ' ' as i32 { // C0
|
|
(CO_CONTROL_PICTURES + c) as char
|
|
} else if c == 127 { // C0:DEL
|
|
'␡' // SYMBOL_FOR_DELETE
|
|
} else if c.in_range(0x7f, 0xa0) { // C1
|
|
' '
|
|
} else c as char
|
|
}
|