Show ASCII table: Difference between revisions

Content deleted Content added
Add Seed7 example.
m removed <nowiki> tags inside of <lang> block
Line 1,288: Line 1,288:
my($n) = @_;
my($n) = @_;
if ($n < 33) { chr 0x2400 + $n } # display symbol names for invisible glyphs
if ($n < 33) { chr 0x2400 + $n } # display symbol names for invisible glyphs
elsif ($n==124) { '<nowiki>|</nowiki>' }
elsif ($n==124) { '|' }
elsif ($n==127) { 'DEL' }
elsif ($n==127) { 'DEL' }
else { chr $n }
else { chr $n }
Line 1,319: Line 1,319:
printf(q[|%d<br>0x%02X<br><big><big title="%s">%s</big></big>] ~ "\n",
printf(q[|%d<br>0x%02X<br><big><big title="%s">%s</big></big>] ~ "\n",
$_, $_, .&glyph.uniname.subst('SYMBOL FOR ', ''),
$_, $_, .&glyph.uniname.subst('SYMBOL FOR ', ''),
.&glyph.subst('|', '<nowiki>|</nowiki>')) for @row;
.&glyph.subst('|', '|')) for @row;
}
}