X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/1d4491c7330698c4dcc66a4c2c168a94fba24aff..fd1ee6a2c0964cd16dd529b991d7bed9d0c776cb:/unicode.plp?ds=inline diff --git a/unicode.plp b/unicode.plp index 4d93554..b55e771 100644 --- a/unicode.plp +++ b/unicode.plp @@ -5,7 +5,7 @@ use warnings; no warnings 'qw'; # that's not a comment, it's a NUMBER SIGN use open IO => ':utf8'; -our $VERSION = '1.0'; +our $VERSION = 'v1.0'; $header{content_type} = 'text/html; charset=utf-8'; @@ -14,12 +14,18 @@ $header{content_type} = 'text/html; charset=utf-8';
-i^k in Vim. @@ -30,7 +36,7 @@ Also see the complete digraphs table.
<: my $diinfo = do 'digraphs.inc.pl'; my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} } - keys %$diinfo; + sort { length $a <=> length $b } keys %$diinfo; sub quote { local $_ = shift; @@ -75,8 +81,7 @@ sub glyph_table { next; } - my $code = join '', map { $di{ord $_} || '' } split //, $cell; - my $name = $diinfo->{$code}->[1]; + my ($code, $name); # determine display class my @class; @@ -92,11 +97,18 @@ sub glyph_table { push @class, 'di-rare'; # discouraged } - if ($code) { + $code = join '', map { $di{ord $_} || '' } split //, $cell; + $name = $diinfo->{$code}->[1]; + length $code == 2 or undef $code; + + if (defined $code) { push @class, 'di-d'; # digraph push @class, 'di-prop' # unofficial if $diinfo->{$code}->[2] =~ /\bXz\b/; } + elsif (defined $name) { + push @class, 'X'; + } if ($cell =~ /[ -~]/) { push @class, 'di-a'; # ascii @@ -112,7 +124,7 @@ sub glyph_table { @class ? sprintf(' class="%s"', join ' ', @class) : '', $colspan > 1 && qq{ colspan="$colspan"}, $cell eq '' ? ' ' : quote($cell), - $code ne '' ? sprintf(' %s', quote($code)) + defined $code ? sprintf(' %s', quote($code)) : length($cell) == 1 && $cell !~ /[a-z]/ ? sprintf(' %04X', 'value', ord $cell) : '', @@ -135,20 +147,40 @@ sub print_glyph_tables { } } +our $verbose = exists $get{v}; + print_glyph_tables( 'Popular', - [qw{. « » . ⹠⺠. â â . â â . â â}], - [qw{. â ⡠⢠. § ¶ # . © ® ⢠. â à ÷ . ± ² â}], + [qw{. « » . ⹠⺠. â â . â â . â â . â â}], + [qw{. â ⡠⢠. § ¶ # . © ® ⢠. ° â² â³ . â à ÷ . ± ² â}], + [qw{. â â . â â . ⺠⹠. â â . â â . â ⺠}], [qw{. Ã¥ ä ö ü à . à æ ø ű Å¿}], [qw{. ¿ ç ñ é ê è}], + [qw{. α β}], [qw{. ×}], + + 'Signs', + [qw{. ¤ ¢ ⥠⬠£ ⨠$ Â¥ . â« â ⦠Ⱡ⧠⮠⩠âª}], + [qw{. â ⡠⢠⣠. ⤠⥠⦠â§}], + [qw{. â â¿ â â â â â â â â}], # solar + [qw{. â â â â â â â â â â â â}], # zodiac 'Arrows', [qw{. â â â â . â - â â . â â â -}], [qw{. â â â â . â - â â . â â â -}], - [qw{. ⤠Ⲡ⥠. â â ⶠ. ⣠⼠â¢}], - [qw{. ⸠Ⳡ⹠. â â â· . ⺠⽠â¿}], + [qw{. ⬠⧠⬠⬠. ⦠- ⨠Ⳡ. ⬠⩠⬠-}], + [qw{. ⬠⬠⬠⬠. ⬠- ⡠⬠. ⬠⬠⬠-}], + [qw{. ⩠⬠⬠. ⧠⡠⨠. ⬠⬠⪠}], + [qw{. ⤠Ⲡ⥠. â â ⶠ. ⣠⼠⢠}], + [qw{. ⸠Ⳡ⹠. â â â· . ⺠⽠⿠}], +$verbose ? ( + [qw{. î© î§ îª . î¥ - î¦ . î« î¨ î¬ }], + [qw{. î± î¯ î² . î - î® . î³ î° î´ }], +) : (), 'Line drawing', + [qw{. â ⦠â â . â ⬠⣠â . â â© â - }], + [qw{. â ⤠â . â ⪠⡠. â ⧠â }], + [qw{. â ⥠â . â ⫠⢠. â ⨠â }], [qw{. â ⬠â . â ⼠⤠. â â´ â}], [qw{. â â³ â . ⣠â â« . â â» â}], [qw{. â ⯠â . â ⿠⥠. â â· â}], @@ -160,22 +192,13 @@ print_glyph_tables( . â¹ â â â â â» â½ }], [qw{. â± â³ â² }], - [qw{. â ⦠â â . â ⬠⣠â . â â© â - }], - [qw{. â ⤠â . â ⪠⡠. â ⧠â }], - [qw{. â ⥠â . â ⫠⢠. â ⨠â }], 'Blocks', - [qw{. â â â . â â â . â â â }], + [qw{. ⡠⣠â . ⤠⦠⥠. ⧠⩠â¨}], [qw{. â . â . â }], + [qw{. â â â . â â â . â â â }], [qw{. â â â . â â â }], [qw{. â â â â â â â â . â â â â â â â â }], - [qw{. ⡠⣠â . ⤠⦠⥠. ⧠⩠â¨}], - - 'Signs', - [qw{. ¤ ¢ ⥠⬠£ ⨠$ Â¥ . â« â ⦠Ⱡ⧠⮠⩠âª}], - [qw{. â ⡠⢠⣠. ⤠⥠⦠â§}], - [qw{. â â¿ â â â â â â â â}], # solar - [qw{. â â â â â â â â â â â â}], # zodiac 'IPA', [qw{ @@ -213,14 +236,7 @@ print_glyph_tables( .>Open a ɶ - - É É }], - 'Alphabetics', - [qw{ - .>Latin a Ä« ı Ä Ã´ ɳ Šṡ Å¡ Ä Ã° Æ· - .>Cyrillic а Ñ Ð¹ Ñ Ñ Ð½ Ñ Ñ Ñ Ñ Ñ Ð¯ - .>Greek α ί Ï Î· Ï Ï Ï Ï Ï Î¸ ξ Ω - .>Hebrew × ×² × ×¢ × × × ×¡ ש × ×¦ ×¥ - }], - +$verbose ? ( 'Japanese', [qw{ - A I U E O _ @@ -233,7 +249,7 @@ print_glyph_tables( .>M ã¾ ã¿ ã ã ã = .>Y ã = ã = ã = .>R ã ã ã ã ã = - .>W ã ã = ã ã = + .>W ã -ã = -ã ã = }], [qw{ - A I U E O @@ -265,20 +281,27 @@ print_glyph_tables( .>P ã ã ã ã ã .>V 㷠㸠㴠㹠㺠}], +) : (), ); :> -ascii + | digraph + | proposed + | other unicode + | discouraged + |