This is gensyntax.pl in view mode; [Download] [Up]
#! /usr/bin/perl
# Feed this ftp://unicode.org/MappingTables/UnicodeData-1.1.4.txt.
$compat_start = 0xfb00;
# Small Kana
$uc[12353] = 12354;
$is_uc[12354] = 1;
$uc[12355] = 12356;
$is_uc[12356] = 1;
$uc[12357] = 12358;
$is_uc[12358] = 1;
$uc[12359] = 12360;
$is_uc[12360] = 1;
$uc[12361] = 12362;
$is_uc[12362] = 1;
$uc[12387] = 12388;
$is_uc[12388] = 1;
$uc[12419] = 12420;
$is_uc[12420] = 1;
$uc[12421] = 12422;
$is_uc[12422] = 1;
$uc[12423] = 12424;
$is_uc[12424] = 1;
$uc[12430] = 12430;
$is_uc[12430] = 1;
$uc[12449] = 12450;
$is_uc[12450] = 1;
$uc[12451] = 12452;
$is_uc[12452] = 1;
$uc[12453] = 12454;
$is_uc[12454] = 1;
$uc[12455] = 12456;
$is_uc[12456] = 1;
$uc[12457] = 12458;
$is_uc[12458] = 1;
$uc[12483] = 12484;
$is_uc[12484] = 1;
$uc[12515] = 12516;
$is_uc[12516] = 1;
$uc[12517] = 12518;
$is_uc[12518] = 1;
$uc[12519] = 12520;
$is_uc[12520] = 1;
$uc[12526] = 12527;
$is_uc[12527] = 1;
while (<>) {
next if /^#/;
@F = split(';');
$code = hex($F[0]);
next if $code < 0x200c && $F[2] eq "Cc";
$type[$code] = $F[2];
# 0x17f maps to 0x53, but SGML doesn't allow that.
if ($F[12] && hex($F[12]) > 128) {
$uc[$code] = hex($F[12]);
$is_uc[hex($F[12])] = 1;
}
if ($F[2] eq "Zs") {
$name[$code] = $F[1];
}
if ($code == 0x4e00) {
foreach $code (0x4e00 .. 0x9fa5) {
$type[$code] = $F[2];
}
foreach $code (0xf900 .. 0xfa2e) {
$type[$code] = $F[2];
}
}
}
print <<EOF;
SHUNCHAR CONTROLS
BASESET "ISO Registration Number 176//CHARSET
ISO/IEC 10646-1:1993 UCS-2 with implementation level 3//ESC 2/5 2/15 4/5"
DESCSET 0 65536 0 -- 16 bit --
FUNCTION RE 13
RS 10
SPACE 32
TAB SEPCHAR 9
EOF
foreach $code (128 .. $#type) {
if ($type[$code] eq "Zs") {
$s = $name[$code];
$s =~ s/ /-/g;
print("\"$s\" SEPCHAR $code\n");
}
}
print "NAMING\n";
$is_nmstrt{"Lu"} = 1;
$is_nmstrt{"Ll"} = 1;
$is_nmchar{"Lm"} = 1;
$is_nmstrt{"Lo"} = 1;
$is_nmchar{"Mn"} = 1;
$is_nmchar{"Mc"} = 1;
$is_nmchar{"Nd"} = 1;
$is_nmstrt{"No"} = 1;
$is_nmstrt{"Cc"} = 1; # >= 0x200c
$is_sr{"Cc"} = 1; # >= 0x200c
$is_sr{"Pd"} = 1;
$is_sr{"Ps"} = 1;
$is_sr{"Pe"} = 1;
$is_sr{"Po"} = 1;
$is_sr{"Sm"} = 1;
$is_sr{"Sc"} = 1;
$is_sr{"So"} = 1;
$is_sr{"Zs"} = 1;
$is_sr{"Zl"} = 1;
$is_sr{"Zp"} = 1;
print "LCNMSTRT\n";
foreach $code (128 .. $#type) {
if ($uc[$code] && $code < $compat_start) {
&output($code);
}
}
&flush();
print "UCNMSTRT\n";
foreach $code (128 .. $#type) {
if ($uc[$code] && $code < $compat_start) {
&output($uc[$code]);
}
}
foreach $code (128 .. $#type) {
if (!$uc[$code] && !$is_uc[$code]
&& $is_nmstrt{$type[$code]} && $code < $compat_start) {
&output($code);
}
}
&flush();
print "LCNMCHAR\n";
&output(ord("-"));
&output(ord("."));
&flush();
print "UCNMCHAR\n";
&output(ord("-"));
&output(ord("."));
foreach $code (128 .. $#type) {
if ($is_nmchar{$type[$code]} && $code < $compat_start) {
&output($code);
}
}
&flush();
print <<EOF;
NAMECASE GENERAL YES
ENTITY NO
DELIM GENERAL SGMLREF
SHORTREF SGMLREF
EOF
foreach $code (128 .. $#type) {
if ($is_sr{$type[$code]}) {
&output($code);
}
}
&flush;
print <<EOF;
NAMES SGMLREF
QUANTITY SGMLREF -- To be determined --
ATTSPLEN 1920 -- ?? --
LITLEN 240 -- ?? --
NAMELEN 240 -- ?? --
PILEN 1920 -- ?? --
TAGLEN 1920 -- ?? --
EOF
sub output {
$ch = $_[0];
if ($pending > 0 && $base + $pending == $ch) {
$pending++;
}
else {
&flush;
$base = $ch;
$pending = 1;
}
}
sub flush {
if ($pending > 0) {
printf("%d", $base);
if ($pending > 1) {
if ($pending > 2) {
print " ... ";
}
else {
print "\n";
}
printf("%d", $base + ($pending - 1));
}
print "\n";
$count += $pending;
$pending = 0;
}
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.