Update of /var/cvs/cjk/utils/subfonts
In directory genba:/tmp/cvs-serv21305/utils/subfonts
Modified Files:
hlatex2agl.pl
Log Message:
* utils/subfonts/hlatex2agl.pl: Make it accept a third parameter
which specifies the used SFD file.
(process_afmfile, process_pfbfile): Add minor tweaks to handle fonts
generated with other tools than FontForge.
Index: hlatex2agl.pl
===================================================================
RCS file: /var/cvs/cjk/utils/subfonts/hlatex2agl.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** hlatex2agl.pl 25 Apr 2006 18:38:33 -0000 1.2
--- hlatex2agl.pl 29 Aug 2006 10:00:44 -0000 1.3
***************
*** 27,31 ****
# Example:
#
! # perl hlatex2agl.pl wmj umj
# Copyright (C) 1994-2006 Werner Lemberg <[EMAIL PROTECTED]>
--- 27,31 ----
# Example:
#
! # perl hlatex2agl.pl wmj umj UKS-HLaTeX.sfd
# Copyright (C) 1994-2006 Werner Lemberg <[EMAIL PROTECTED]>
***************
*** 51,60 ****
$prog =~ [EMAIL PROTECTED]/@@;
! if ($#ARGV != 1) {
! die("usage: $prog virtual_namestem real_namestem\n");
}
my $virtnamestem = $ARGV[0];
my $realnamestem = $ARGV[1];
--- 51,61 ----
$prog =~ [EMAIL PROTECTED]/@@;
! if ($#ARGV != 2) {
! die("usage: $prog virtual_namestem real_namestem sfd_file\n");
}
my $virtnamestem = $ARGV[0];
my $realnamestem = $ARGV[1];
+ my $sfdfile = $ARGV[2];
***************
*** 64,68 ****
my @virtsubfonts;
! read_sfdfile("UKS-HLaTeX.sfd", [EMAIL PROTECTED], [EMAIL PROTECTED]);
--- 65,69 ----
my @virtsubfonts;
! read_sfdfile($sfdfile, [EMAIL PROTECTED], [EMAIL PROTECTED]);
***************
*** 398,406 ****
# Update version number.
s/001\.000/001.001/;
print(OUTFILE $_);
# Add comment.
! if (/^Comment/) {
print(OUTFILE "Comment AGL compliant glyph names added "
. "by script $prog 2005-Jul-27.\n");
--- 399,408 ----
# Update version number.
s/001\.000/001.001/;
+ s/Altsys\ Fontographer\ 4\.1\ 1\/10\/95$/001.001/;
print(OUTFILE $_);
# Add comment.
! if (/^Comment\ UniqueID/ || /^Comment\ Generated/) {
print(OUTFILE "Comment AGL compliant glyph names added "
. "by script $prog 2005-Jul-27.\n");
***************
*** 456,460 ****
# Add comment.
! if (/^% Generated/) {
print(OUTFILE "% AGL compliant glyph names added "
. "by script $prog 2005-Jul-27.\n");
--- 458,462 ----
# Add comment.
! if (/^%%CreationDate/) {
print(OUTFILE "% AGL compliant glyph names added "
. "by script $prog 2005-Jul-27.\n");
_______________________________________________
Cjk-commit maillist - [email protected]
http://lists.ffii.org/mailman/listinfo/cjk-commit
