www.pudn.com > sdk_host_2520.rar > build_pgm.pl

#     build_PGM.pl 
#     Builds the Primary Glyph Map resource (prefix_PGM.src) 
#     and resource linker include file (SGMs.inc) and SGMs-building 
#     batch file (build_SGMs.batch). 
# 
#     The "PGM_list" file must already exist. 
# 
#     "prefix" is the font identifier, used to name the output file 
#     (e.g. "arial_6"). 
# 
 
use strict; 
 
use File::Basename; 
 
require "PGM_SGM.pl"; 
 
sub build_PGM { 
	my $prefix = shift; 
	my $pPGM = shift; 
	my $default_script_index = shift; 
	my $default_glyph_index = shift; 
 
 
	print STDERR "Creating the PGM resource\n"; 
 
	build_PGM_src("$prefix\_PGM.src", $pPGM, $default_script_index, $default_glyph_index); 
} 
 
 
1;