diff options
| author | bwarken <bwarken> | 2006-11-09 23:56:49 +0000 |
|---|---|---|
| committer | bwarken <bwarken> | 2006-11-09 23:56:49 +0000 |
| commit | f66e9592f6dc17d47088487d1cca791dd56fd5c1 (patch) | |
| tree | e92d64c51737de819b3ab3963e90c48d509b18e0 /contrib/chem/chem.pl | |
| parent | 6b570e0d44b8a9c5f79e6a5f79144bcee354ca5e (diff) | |
| download | groff-f66e9592f6dc17d47088487d1cca791dd56fd5c1.tar.gz | |
Update chem-0.3.0
Diffstat (limited to 'contrib/chem/chem.pl')
| -rwxr-xr-x | contrib/chem/chem.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/contrib/chem/chem.pl b/contrib/chem/chem.pl index 9c6ea782..7dc38657 100755 --- a/contrib/chem/chem.pl +++ b/contrib/chem/chem.pl @@ -30,8 +30,8 @@ # settings ######################################################################## -my $Program_Version = '0.2.0'; -my $Last_Update = '8 Nov 2006'; +my $Program_Version = '0.3.0'; +my $Last_Update = '10 Nov 2006'; # this setting of the groff version is only used before make is run, # otherwise @VERSION@ will set it. @@ -57,7 +57,7 @@ use FindBin; my $Chem_Name; my $Groff_Version; -my $File_macros_pic; +my $File_chem_pic; my $File_pic_tmac; BEGIN { @@ -74,7 +74,7 @@ BEGIN { my $chem_dir = $FindBin::Bin; $at_at{'BINDIR'} = $chem_dir; $at_at{'G'} = ''; - $File_macros_pic = File::Spec->catfile($chem_dir, 'macros.pic'); + $File_chem_pic = File::Spec->catfile($chem_dir, 'chem.pic'); $File_pic_tmac = File::Spec->catfile($chem_dir, '..', 'pic.tmac'); $Groff_Version = ''; $Chem_Name = 'chem'; @@ -84,7 +84,7 @@ BEGIN { $at_at{'G'} = '@g@'; $at_at{'PICDIR'} = '@picdir@'; $at_at{'TMACDIR'} = '@tmacdir@'; - $File_macros_pic = + $File_chem_pic = File::Spec->catfile($at_at{'PICDIR'}, 'chem.pic'); $File_pic_tmac = File::Spec->catfile($at_at{'TMACDIR'}, 'pic.tmac'); $Chem_Name = $at_at{'G'} . 'chem'; @@ -820,7 +820,7 @@ sub fields { # sub init { if ($First_Time) { - printf "copy \"%s\"\n", $File_macros_pic; + printf "copy \"%s\"\n", $File_chem_pic; printf "\ttextht = %g; textwid = .1; cwid = %g\n", $Params{'textht'}, $Params{'cwid'}; printf "\tlineht = %g; linewid = %g\n", |