Permalink
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 156 lines (141 sloc) 4.53 KB
#!/usr/bin/perl
###!/usr/local/bin/perl
$dd = '/'; # directory-delimiter
### $Id: makemap,v 1.4 1997/07/03 14:16:18 RRM Exp $
### File: makemap
### Written by Herbert W. Swan <dprhws@edp.Arco.com>
### Version 1.0, December 22, 1995
### This is part of the 96.1 release of LaTeX2HTML by Nikos Drakos
## Copyright (C) 1995 by Herbert W. Swan
## 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
## Change Log (for initials see file Changes):
## $Log: makemap,v $
## Revision 1.4 1997/07/03 14:16:18 RRM
## - added HTML comments with the USEMAP option
## - the $labels can be given as a filename (test existence) or a prefix
##
## Revision 1.3 1997/07/03 07:24:47 RRM
## - Extended to also process for client-side image-maps, via <USEMAP> tags
## - introduced a $dd directory-delimiter, for customisation
##
## Revision 1.2 1996/12/23 01:41:16 JCL
## o added informative comments and CVS log history
## o changed usage of <date> to an OS independent construction, the
## patch is from Piet van Oostrum.
## o moved most of the code into a main function
##
##
## HWS -- Dec 22, 1995 -- created
#
# LaTeX2HTML image map script
#
# NOTE: The following configuration variable MUST be set to either
# "NCSA" or "CERN" to reflect the type of server you are using;
# or "USEMAP" (AXR)
$SERVER = "NCSA";
#
# Get the command-line arguments:
#
die "Usage: makemap map_template [dest_directory]\n" unless @ARGV;
$template_file = $ARGV[0];
$dest_dir = ".";
$dest_dir = $ARGV[1] if ($#ARGV >= 1);
# print $#ARGV, ":", $dest_dir, "\n";
$map_file = "";
$Date = &get_date;
&main;
sub main {
#
# Next, try to open the template file.
#
open (TEMPLATE, "<$template_file") || die "Can't open $template_file\n";
while (<TEMPLATE>) {
next if /^(\s*\#.*|\s*)$/; # Ignore comments;
#
# Associate the contents of a labels.pl file with a URL.
#
if (/^\+(\S+)\s+(\S+)/) {
$labels = (-f ${1})? ${1} : "${1}labels.pl";
$URL = $2;
open (LABELS, "<$labels") || die "Can't open $labels\n";
while (<LABELS>) {
eval if (/^\$/);
}
close (LABELS);
next;
}
#
# Proceed to the next map file.
#
elsif (/(\S*):\s*$/) {
close (MAP) if (length($map_file));
$map_file = "$dest_dir${dd}$1";
open (MAP, ">$map_file") ||
die "Can't open $map_file for output.";
if ( $SERVER eq "USEMAP" ) {
($tag_name = $1) =~ s/\.map//g;
print (MAP "<!-- Image map, generated by makemap 1.2 at $Date\n");
print (MAP " from source $template_file using $labels -->\n\n");
print (MAP "<MAP NAME=\"$tag_name\">\n");
} else {
print (MAP "# Created by makemap 1.2\n");
print (MAP "# ", $Date);
print (MAP "#\n\n\n");
}
next;
}
#
# Continue mapping coordinates to URL's:
#
else {
$url = $_;
@array = split(/[ \t\n]+/);
$op = @array[1];
if (!/\//) {
($symbol = @array[0]) =~ s/://g;
$url = $symbol unless ($url = $external_labels{$symbol});
next unless $url;
if ($SERVER eq "NCSA") {
print MAP ("$op $url @array[2..$#array]\n");
} elsif ($SERVER eq "CERN") {
print MAP ("$op @array[2..$#array] $url\n");
} elsif ($SERVER eq "USEMAP") {
print MAP ("<AREA SHAPE=\"$op\" ALT=\"\" "
. "COORDS=\"@array[2],@array[3]\"\n HREF=\"$url\">\n");
} else {
print STDERR "Unknown map-server $SERVER, ignoring:\n";
print STDERR ("$op @array[2..$#array] $url\n");
}
} elsif ($SERVER eq "USEMAP") {
print MAP ("<AREA SHAPE=\"$op\" ALT=\"\" "
. "COORDS=\"@array[2],@array[3]\"\n HREF=\"@array[0]\">\n");
#
# Explicit URL's simply get copied.
#
} else {
print MAP ("$op @array[0] @array[2..$#array]\n");
}
}
}
#
# EOF on input. Finish up.
#
close (TEMPLATE);
print MAP "</MAP>\n" if ($SERVER eq "USEMAP");
close (MAP) if (length($map_file));
}
sub get_date {
local(@lt) = localtime;
local($d,$m,$y) = @lt[3,4,5];
sprintf("%d/%d/%d", $m+1, $d, 1900+$y);
}