#!/usr/athena/bin/perl # # Tries to generate every single possible devanagari glyph # encoded as utf8 # ## 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 = (0x0b80 .. 0x0bff); @fullcons = (0x0b95 , 0x0b99, 0x0b9a, 0x0b9c, 0x0b9e, 0x0b9f, 0x0ba3, 0x0ba4, 0x0ba8,0x0ba9,0x0baa,0x0ba3 .. 0x0bb5,0x0bb7..0x0bb9); @dependentvowels = (0x0bbe..0x0bc2,0x0bc6,0x0bc7,0x0bc8,0x0bca,0x0bcb,0x0bcc); $virama = chr(0x0bcd); 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"; } } print "\n\n";