1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#
# $Id: xspace.perl,v 1.3 1999/04/09 18:17:41 JCL Exp $
# xspace.perl
# Jens Lippmann <lippmann@rbg.informatik.tu-darmstadt.de> 26-JAN-97
#
# Extension to LaTeX2HTML to support xspace.sty.
#
# Change Log:
# ===========
# jcl = Jens Lippmann
#
# $Log: xspace.perl,v $
# Revision 1.3 1999/04/09 18:17:41 JCL
# changed my e-Mail address
#
# Revision 1.2 1998/02/19 22:24:35 latex2html
# th-darmstadt -> tu-darmstadt
#
# Revision 1.1 1997/01/27 19:40:44 JCL
# initial revision
#
#
# JCL -- 26-JAN-97 -- created
#
package main;
sub do_cmd_xspace {
local($_) = @_;
local($space) = " ";
# the list is taken from xspace.sty 1.04
$space = "" if /^([{}~.!,:;?\/'\)-]|\\\/|\\ )/;
$space.$_;
}
1; # Must be last line
|
