#!/usr/athena/bin/perl # # Tries to generate every single possible Bengali/Bangla glyph # encoded as utf8 # # Note this is currently mostly copy and replace from the one for devanagari # at this point, since I don't know bengali. ## Copyright (C) 2002-2005, Arun A Tharuvai ## This program is free software; you can redistribute it and/or modify ## it under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 2 of the License, or ## (at your option) any later version. ## ## This program is distributed in the hope that it will be useful, ## but WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ## GNU General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with this program; if not, write to the Free Software ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # requires perl 5.6.1 I think. # print " bar $#ARGV foo \n"; # Constants @allcodepoints = (0x0980 .. 0x09ff); @fullcons = (0x0995 .. 0x09B9 , 0x09D8 .. 0x09DF); @dependentvowels = (0x09BE .. 0x09CC , 0x09E2, 0x09E3); $virama = chr(0x09CD); print "\n\n"; print q(); print "\n"; foreach $i (@allcodepoints) { print chr($i) . "
\n"; } foreach $i (@fullcons){ foreach $j (@dependentvowels){ print chr($i) . chr($j) . "
\n"; } } foreach $i (@fullcons){ foreach $j (@fullcons) { print chr($i) . $virama . chr($j) . "
\n"; } } if ($#ARGV > -1){ foreach $i (@fullcons){ foreach $j (@fullcons) { foreach $k (@fullcons) { print chr($i) . $virama . chr($j) . $virama . chr($k) . "
\n"; } } } foreach $i (@fullqcons){ foreach $j (@fullcons) { foreach $k (@fullcons) { foreach $l (@fullcons) { print chr($i) . $virama . chr($j) . $virama . chr($k) . $virama . chr($l) . "
\n"; } } } } } print "\n\n";