richter 00/04/24 21:25:58
Modified: . Changes.pod Embperl.pm Embperl.pod EmbperlD.pod
EmbperlObject.pm Faq.pod MANIFEST README
Embperl Mail.pm Module.pm
emacs embperl.el
test/html ifperl.htm
Added: . epchar.c.min
Log:
- Added epchar.c.min which contains translation tables which
let's all chars above 128 untouched. This is usefull for
processing two byte charsets. Patch from Sangmook Yi.
- The searchpath (EMBPERL_PATH) now uses semikolons (';') instead
of colons (':') to avoid problems with Windows drive letters.
Colons still work on Unix.
Revision Changes Path
1.113 +8 -6 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.112
retrieving revision 1.113
diff -u -r1.112 -r1.113
--- Changes.pod 2000/04/17 21:22:19 1.112
+++ Changes.pod 2000/04/25 04:25:51 1.113
@@ -1,11 +1,7 @@
=pod
-=head1 1.3b3_dev -- That's what currently under developement
+=head1 1.3b3 (BETA) 25.04.2000
-Last Update: <$localtime$> (MET)
-
-NOTE: This version is only available via L<"CVS"|CVS/"INTRO">
-
- Fixed SIGSEGV which occurs in cleanup with Perl 5.6. Spotted by
Aaron Johnson.
- Changed make test so it works correctly with new error messages of
@@ -37,7 +33,13 @@
- Added tests for EmbperlObject
- Fixed a SIGSEGV that occured when Embperl found [*] inside
a page. Spotted by Barrie Slaymaker.
-
+ - Added epchar.c.min which contains translation tables which
+ let's all chars above 128 untouched. This is usefull for
+ processing two byte charsets. Patch from Sangmook Yi.
+ - The searchpath (EMBPERL_PATH) now uses semikolons (';') instead
+ of colons (':') to avoid problems with Windows drive letters.
+ Colons still work on Unix.
+
=head1 1.3b2 (BETA) 11. Feb 2000
1.101 +6 -3 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -r1.100 -r1.101
--- Embperl.pm 2000/04/22 20:18:01 1.100
+++ Embperl.pm 2000/04/25 04:25:51 1.101
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.100 2000/04/22 20:18:01 richter Exp $
+# $Id: Embperl.pm,v 1.101 2000/04/25 04:25:51 richter Exp $
#
###################################################################################
@@ -71,13 +71,15 @@
$req_rec
%http_headers_out
+
+ $pathsplit
) ;
@ISA = qw(Exporter DynaLoader);
-$VERSION = '1.3b3_dev';
+$VERSION = '1.3b3';
# HTML::Embperl cannot be bootstrapped in nonlazy mode except
@@ -112,6 +114,7 @@
@cleanups = () ; # packages which need a cleanup
$LogOutputFileno = 0 ;
+$pathsplit = $^O eq 'MSWin32'?';':';|:' ; # separators for path
# setup constans
@@ -583,14 +586,14 @@
if ($path && !($filename =~ /\//))
{
- my @path = split /:/, $path ;
+ my @path = split /$pathsplit/o, $path ;
my $fn = '' ;
foreach (@path)
{
next if (!$_) ;
$fn = "$_/$filename" ;
- #warn "Embperl path search $fn\n" ;
+ warn "Embperl path search $fn\n" ;
if (-r $fn && (-s _ || $AllowZeroFilesize))
{
if (defined ($allow) && !($fn =~ /$allow/))
1.47 +8 -1 embperl/Embperl.pod
Index: Embperl.pod
===================================================================
RCS file: /home/cvs/embperl/Embperl.pod,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -r1.46 -r1.47
--- Embperl.pod 2000/04/17 03:26:56 1.46
+++ Embperl.pod 2000/04/25 04:25:51 1.47
@@ -480,7 +480,8 @@
=head2 EMBPERL_PATH (1.3b1 and above)
-Can contain a colon separated file search path. When a file is processed and the
filename
+Can contain a semikolon (under Unix also colon) separated file search path.
+When a file is processed and the filename
does not contain a path, I<Embperl> searches all the specified directories for
that file.
@@ -2429,9 +2430,15 @@
=item perl5.005
+=item perl5.6.0
+
=item apache_1.3.1
=item apache_1.3.6
+
+=item apache_1.3.9
+
+=item apache_1.3.12
=back
1.20 +10 -1 embperl/EmbperlD.pod
Index: EmbperlD.pod
===================================================================
RCS file: /home/cvs/embperl/EmbperlD.pod,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- EmbperlD.pod 2000/04/17 03:26:56 1.19
+++ EmbperlD.pod 2000/04/25 04:25:52 1.20
@@ -423,7 +423,8 @@
=head2 EMBPERL_PATH (ab 1.3b1)
-Hier kann eine durch Doppelpunkte getrennte Liste von Verzeichnissen angegeben
werden,
+Hier kann eine durch Semikolon (unter Unix auch Doppelpunkte) getrennte Liste von
+Verzeichnissen angegeben werden,
die I<Embperl> durchsucht, wenn eine Datei verabeitet werden soll und die Datei
keine
Pfadangaben enth�lt.
@@ -2339,6 +2340,8 @@
=item perl5.005_03
+=item perl 5.6.0
+
=item apache_1.2.5
=item apache_1.2.6
@@ -2359,6 +2362,8 @@
=item Apache_1.3.9
+=item Apache_1.3.12
+
=item apache_ssl (Ben SSL)
=item Stronghold 2.2
@@ -2383,11 +2388,15 @@
=item perl5.005
+=item perl 5.6.0
+
=item apache_1.3.1
=item apache_1.3.6
=item Apache_1.3.9
+
+=item Apache_1.3.12
=back
1.25 +4 -3 embperl/EmbperlObject.pm
Index: EmbperlObject.pm
===================================================================
RCS file: /home/cvs/embperl/EmbperlObject.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- EmbperlObject.pm 2000/04/22 20:18:01 1.24
+++ EmbperlObject.pm 2000/04/25 04:25:52 1.25
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: EmbperlObject.pm,v 1.24 2000/04/22 20:18:01 richter Exp $
+# $Id: EmbperlObject.pm,v 1.25 2000/04/25 04:25:52 richter Exp $
#
###################################################################################
@@ -128,7 +128,7 @@
do
{
$fn = "$directory/$basename" ;
- $searchpath .= ":$directory" ;
+ $searchpath .= ";$directory" ;
#warn "EmbperlObject Check: $fn\n" ;
if (-e $fn)
{
@@ -148,7 +148,7 @@
{
next if (!$ap) ;
$fn = "$ap/$basename" ;
- $searchpath .= ":$ap" ;
+ $searchpath .= ";$ap" ;
#warn "EmbperlObject Check: $fn\n" ;
if (-e $fn)
{
@@ -233,7 +233,8 @@
=head2 EMBPERL_OBJECT_ADDPATH
-Additional directories where to search for pages
+Additional directories where to search for pages. Directories are
+separated by C<;> (on Unix C<:> works also)
=head1 Example
1.13 +2 -0 embperl/Faq.pod
Index: Faq.pod
===================================================================
RCS file: /home/cvs/embperl/Faq.pod,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- Faq.pod 2000/04/22 20:18:01 1.12
+++ Faq.pod 2000/04/25 04:25:52 1.13
@@ -1204,6 +1204,8 @@
The distribution contain already an C<epchar.c.iso-latin-2> from Jiri Novak which
is an replacement for epchar.c for the iso-8859-2 (iso-latin-2) character set.
If you want to use iso-latin-2, simply renmae C<epchar.c.iso-latin-2> to
C<epchar.c>.
+There is also an file C<epchar.c.min> from Sangmook Yi, which leaves all
+chars above 128 untouch, which is especialy usefull for two byte charsets.
This file contains three tables:
1.40 +1 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- MANIFEST 2000/04/17 21:03:15 1.39
+++ MANIFEST 2000/04/25 04:25:52 1.40
@@ -44,6 +44,7 @@
epmain.c
epchar.c
epchar.c.iso-latin-2
+epchar.c.min
epeval.c
epcmd.c
eputil.c
1.18 +3 -1 embperl/README
Index: README
===================================================================
RCS file: /home/cvs/embperl/README,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- README 2000/04/14 12:27:41 1.17
+++ README 2000/04/25 04:25:53 1.18
@@ -151,12 +151,14 @@
on Windows NT 4.0 with
perl5.004_04
-perl5.005_xx (only without threads!)
+perl5.005_xx
+perl5.6.0
apache_1.3.0
apache_1.3.1
apache_1.3.4
apache_1.3.6
apache_1.3.9
+apache_1.3.12
on Windows 95/98 with
perl5.004_02 (binary distribution)
1.1 embperl/epchar.c.min
Index: epchar.c.min
===================================================================
/*###################################################################################
#
# Embperl - Copyright (c) 1997-2000 Gerald Richter / ECOS
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the Perl README file.
# For use with Apache httpd and mod_perl, see also Apache copyright.
#
# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
###################################################################################*/
/* minimal input and output escaping. It's usefull for other charsets then
iso-8859-1 (iso-latin-1) and for two byte charset
This translation tables will leave any characters above 128 untouchted
*/
#include "ep.h"
/*
* Character Translation
*/
struct tCharTrans Char2Html [] =
{
{ ' ' , "" }, /* � Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /* 	 Horizontal tab */
{ ' ' , "" }, /* Line feed */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /* Carriage Return */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*   Space */
{ '!' , "" }, /* ! Exclamation mark */
{ '"' , """ }, /* Quotation mark */
{ '#' , "" }, /* # Number sign */
{ '$' , "" }, /* $ Dollar sign */
{ '%' , "" }, /* % Percent sign */
{ '&' , "&" }, /* Ampersand */
{ '\'' , "" }, /* ' Apostrophe */
{ '(' , "" }, /* ( Left parenthesis */
{ ')' , "" }, /* ) Right parenthesis */
{ '*' , "" }, /* * Asterisk */
{ '+' , "" }, /* + Plus sign */
{ ',' , "" }, /* , Comma */
{ '-' , "" }, /* - Hyphen */
{ '.' , "" }, /* . Period (fullstop) */
{ '/' , "" }, /* / Solidus (slash) */
{ '0' , "" }, /* 0 Digit 0 */
{ '1' , "" }, /* 1 Digit 1 */
{ '2' , "" }, /* 2 Digit 2 */
{ '3' , "" }, /* 3 Digit 3 */
{ '4' , "" }, /* 4 Digit 4 */
{ '5' , "" }, /* 5 Digit 5 */
{ '6' , "" }, /* 6 Digit 6 */
{ '7' , "" }, /* 7 Digit 7 */
{ '8' , "" }, /* 8 Digit 8 */
{ '9' , "" }, /* 9 Digit 9 */
{ ':' , "" }, /* : Colon */
{ ';' , "" }, /* ; Semicolon */
{ '<' , "<" }, /* Less than */
{ '=' , "" }, /* = Equals sign */
{ '>' , ">" }, /* Greater than */
{ '?' , "" }, /* ? Question mark */
{ '@' , "" }, /* @ Commercial at */
{ 'A' , "" }, /* A Capital A */
{ 'B' , "" }, /* B Capital B */
{ 'C' , "" }, /* C Capital C */
{ 'D' , "" }, /* D Capital D */
{ 'E' , "" }, /* E Capital E */
{ 'F' , "" }, /* F Capital F */
{ 'G' , "" }, /* G Capital G */
{ 'H' , "" }, /* H Capital H */
{ 'I' , "" }, /* I Capital I */
{ 'J' , "" }, /* J Capital J */
{ 'K' , "" }, /* K Capital K */
{ 'L' , "" }, /* L Capital L */
{ 'M' , "" }, /* M Capital M */
{ 'N' , "" }, /* N Capital N */
{ 'O' , "" }, /* O Capital O */
{ 'P' , "" }, /* P Capital P */
{ 'Q' , "" }, /* Q Capital Q */
{ 'R' , "" }, /* R Capital R */
{ 'S' , "" }, /* S Capital S */
{ 'T' , "" }, /* T Capital T */
{ 'U' , "" }, /* U Capital U */
{ 'V' , "" }, /* V Capital V */
{ 'W' , "" }, /* W Capital W */
{ 'X' , "" }, /* X Capital X */
{ 'Y' , "" }, /* Y Capital Y */
{ 'Z' , "" }, /* Z Capital Z */
{ '[' , "" }, /* [ Left square bracket
*/
{ '\\' , "" }, /* \ Reverse solidus
(backslash) */
{ ']' , "" }, /* ] Right square bracket
*/
{ '^' , "" }, /* ^ Caret */
{ '_' , "" }, /* _ Horizontal bar
(underscore) */
{ '`' , "" }, /* ` Acute accent */
{ 'a' , "" }, /* a Small a */
{ 'b' , "" }, /* b Small b */
{ 'c' , "" }, /* c Small c */
{ 'd' , "" }, /* d Small d */
{ 'e' , "" }, /* e Small e */
{ 'f' , "" }, /* f Small f */
{ 'g' , "" }, /* g Small g */
{ 'h' , "" }, /* h Small h */
{ 'i' , "" }, /* i Small i */
{ 'j' , "" }, /* j Small j */
{ 'k' , "" }, /* k Small k */
{ 'l' , "" }, /* l Small l */
{ 'm' , "" }, /* m Small m */
{ 'n' , "" }, /* n Small n */
{ 'o' , "" }, /* o Small o */
{ 'p' , "" }, /* p Small p */
{ 'q' , "" }, /* q Small q */
{ 'r' , "" }, /* r Small r */
{ 's' , "" }, /* s Small s */
{ 't' , "" }, /* t Small t */
{ 'u' , "" }, /* u Small u */
{ 'v' , "" }, /* v Small v */
{ 'w' , "" }, /* w Small w */
{ 'x' , "" }, /* x Small x */
{ 'y' , "" }, /* y Small y */
{ 'z' , "" }, /* z Small z */
{ '{' , "" }, /* { Left curly brace */
{ '|' , "" }, /* | Vertical bar */
{ '}' , "" }, /* } Right curly brace */
{ '~' , "" }, /* ~ Tilde */
{ '' , "" }, /*  Unused */
{ '�' , "" }, /* € Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /* ‚ Unused */
{ ' ' , "" }, /* ƒ Unused */
{ ' ' , "" }, /* „ Unused */
{ ' ' , "" }, /* … Unused */
{ ' ' , "" }, /* † Unused */
{ ' ' , "" }, /* ‡ Unused */
{ ' ' , "" }, /* ˆ Unused */
{ ' ' , "" }, /* ‰ Unused */
{ ' ' , "" }, /* Š Horizontal tab */
{ ' ' , "" }, /* ‹ Line feed */
{ ' ' , "" }, /* ΠUnused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /* Ž Carriage Return */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /* ‘ Unused */
{ ' ' , "" }, /* ’ Unused */
{ ' ' , "" }, /* “ Unused */
{ ' ' , "" }, /* ” Unused */
{ ' ' , "" }, /* • Unused */
{ ' ' , "" }, /* – Unused */
{ ' ' , "" }, /* — Unused */
{ ' ' , "" }, /* ˜ Unused */
{ ' ' , "" }, /* ™ Unused */
{ ' ' , "" }, /* š Unused */
{ ' ' , "" }, /* › Unused */
{ ' ' , "" }, /* œ Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /* ž Unused */
{ ' ' , "" }, /* Ÿ Unused */
{ ' ' , "" }, /* Non-breaking Space */
{ '�' , "" }, /* Inverted exclamation */
{ '�' , "" }, /* Cent sign */
{ '�' , "" }, /* Pound sterling */
{ '�' , "" }, /* General currency sign */
{ '�' , "" }, /* Yen sign */
/* { '�' , "" }, / * Broken vertical bar */
{ '�' , "" }, /* Broken vertical bar */
{ '�' , "" }, /* Section sign */
/* { '�' , "" }, / * Di�resis / Umlaut */
{ '�' , "" }, /* Di�resis / Umlaut */
{ '�' , "" }, /* Copyright */
{ '�' , "" }, /* Feminine ordinal */
{ '�' , "" }, /* Left angle quote, guillemot left */
{ '�' , "" }, /* Not sign */
{ '�' , "" }, /* Soft hyphen */
{ '�' , "" }, /* Registered trademark */
/* { '�' , "" }, / * Macron accent */
{ '�' , "" }, /* Macron accent */
{ '�' , "" }, /* Degree sign */
{ '�' , "" }, /* Plus or minus */
{ '�' , "" }, /* Superscript two */
{ '�' , "" }, /* Superscript three */
{ '�' , "" }, /* Acute accent */
{ '�' , "" }, /* Micro sign */
{ '�' , "" }, /* Paragraph sign */
{ '�' , "" }, /* Middle dot */
{ '�' , "" }, /* Cedilla */
{ '�' , "" }, /* Superscript one */
{ '�' , "" }, /* Masculine ordinal */
{ '�' , "" }, /* Right angle quote, guillemot right */
{ '�' , "" }, /* Fraction one-fourth */
{ '�' , "" }, /* Fraction one-half */
{ '�' , "" }, /* Fraction three-fourths */
{ '�' , "" }, /* Inverted question mark */
{ '�' , "" }, /* Capital A, grave accent */
{ '�' , "" }, /* Capital A, acute accent */
{ '�' , "" }, /* Capital A, circumflex */
{ '�' , "" }, /* Capital A, tilde */
{ '�' , "" }, /* Capital A, di�resis / umlaut */
{ '�' , "" }, /* Capital A, ring */
{ '�' , "" }, /* Capital AE ligature */
{ '�' , "" }, /* Capital C, cedilla */
{ '�' , "" }, /* Capital E, grave accent */
{ '�' , "" }, /* Capital E, acute accent */
{ '�' , "" }, /* Capital E, circumflex */
{ '�' , "" }, /* Capital E, di�resis / umlaut */
{ '�' , "" }, /* Capital I, grave accent */
{ '�' , "" }, /* Capital I, acute accent */
{ '�' , "" }, /* Capital I, circumflex */
{ '�' , "" }, /* Capital I, di�resis / umlaut */
{ '�' , "" }, /* Capital Eth, Icelandic */
{ '�' , "" }, /* Capital N, tilde */
{ '�' , "" }, /* Capital O, grave accent */
{ '�' , "" }, /* Capital O, acute accent */
{ '�' , "" }, /* Capital O, circumflex */
{ '�' , "" }, /* Capital O, tilde */
{ '�' , "" }, /* Capital O, di�resis / umlaut */
{ '�' , "" }, /* Multiply sign */
{ '�' , "" }, /* Capital O, slash */
{ '�' , "" }, /* Capital U, grave accent */
{ '�' , "" }, /* Capital U, acute accent */
{ '�' , "" }, /* Capital U, circumflex */
{ '�' , "" }, /* Capital U, di�resis / umlaut */
{ '�' , "" }, /* Capital Y, acute accent */
{ '�' , "" }, /* Capital Thorn, Icelandic */
{ '�' , "" }, /* Small sharp s, German sz */
{ '�' , "" }, /* Small a, grave accent */
{ '�' , "" }, /* Small a, acute accent */
{ '�' , "" }, /* Small a, circumflex */
{ '�' , "" }, /* Small a, tilde */
{ '�' , "" }, /* Small a, di�resis / umlaut */
{ '�' , "" }, /* Small a, ring */
{ '�' , "" }, /* Small ae ligature */
{ '�' , "" }, /* Small c, cedilla */
{ '�' , "" }, /* Small e, grave accent */
{ '�' , "" }, /* Small e, acute accent */
{ '�' , "" }, /* Small e, circumflex */
{ '�' , "" }, /* Small e, di�resis / umlaut */
{ '�' , "" }, /* Small i, grave accent */
{ '�' , "" }, /* Small i, acute accent */
{ '�' , "" }, /* Small i, circumflex */
{ '�' , "" }, /* Small i, di�resis / umlaut */
{ '�' , "" }, /* Small eth, Icelandic */
{ '�' , "" }, /* Small n, tilde */
{ '�' , "" }, /* Small o, grave accent */
{ '�' , "" }, /* Small o, acute accent */
{ '�' , "" }, /* Small o, circumflex */
{ '�' , "" }, /* Small o, tilde */
{ '�' , "" }, /* Small o, di�resis / umlaut */
{ '�' , "" }, /* Division sign */
{ '�' , "" }, /* Small o, slash */
{ '�' , "" }, /* Small u, grave accent */
{ '�' , "" }, /* Small u, acute accent */
{ '�' , "" }, /* Small u, circumflex */
{ '�' , "" }, /* Small u, di�resis / umlaut */
{ '�' , "" }, /* Small y, acute accent */
{ '�' , "" }, /* Small thorn, Icelandic */
{ '\255', "" }, /* Small y, di�resis / umlaut */
} ;
struct tCharTrans Char2Url [] =
{
{ ' ' , "%00" }, /* � Unused */
{ ' ' , "%01" }, /*  Unused */
{ ' ' , "%02" }, /*  Unused */
{ ' ' , "%03" }, /*  Unused */
{ ' ' , "%04" }, /*  Unused */
{ ' ' , "%05" }, /*  Unused */
{ ' ' , "%06" }, /*  Unused */
{ ' ' , "%07" }, /*  Unused */
{ ' ' , "%08" }, /*  Unused */
{ ' ' , "%09" }, /* 	 Horizontal tab */
{ ' ' , "%0A" }, /* Line feed */
{ ' ' , "%0B" }, /*  Unused */
{ ' ' , "%0C" }, /*  Unused */
{ ' ' , "%0D" }, /* Carriage Return */
{ ' ' , "%0E" }, /*  Unused */
{ ' ' , "%0F" }, /*  Unused */
{ ' ' , "%10" }, /*  Unused */
{ ' ' , "%11" }, /*  Unused */
{ ' ' , "%12" }, /*  Unused */
{ ' ' , "%13" }, /*  Unused */
{ ' ' , "%14" }, /*  Unused */
{ ' ' , "%15" }, /*  Unused */
{ ' ' , "%16" }, /*  Unused */
{ ' ' , "%17" }, /*  Unused */
{ ' ' , "%18" }, /*  Unused */
{ ' ' , "%19" }, /*  Unused */
{ ' ' , "%1A" }, /*  Unused */
{ ' ' , "%1B" }, /*  Unused */
{ ' ' , "%1C" }, /*  Unused */
{ ' ' , "%1D" }, /*  Unused */
{ ' ' , "%1E" }, /*  Unused */
{ ' ' , "%1F" }, /*  Unused */
{ ' ' , "+" }, /*   Space */
{ '!' , "" }, /* ! Exclamation mark */
{ '"' , "%22" }, /* Quotation mark */
{ '#' , "" }, /* # Number sign */
{ '$' , "" }, /* $ Dollar sign */
{ '%' , "%25" }, /* % Percent sign */
{ '&' , "%26" }, /* Ampersand */
{ '\'' , "" }, /* ' Apostrophe */
{ '(' , "" }, /* ( Left parenthesis */
{ ')' , "" }, /* ) Right parenthesis */
{ '*' , "" }, /* * Asterisk */
{ '+' , "%2B" }, /* + Plus sign */
{ ',' , "" }, /* , Comma */
{ '-' , "" }, /* - Hyphen */
{ '.' , "" }, /* . Period (fullstop) */
{ '/' , "" }, /* / Solidus (slash) */
{ '0' , "" }, /* 0 Digit 0 */
{ '1' , "" }, /* 1 Digit 1 */
{ '2' , "" }, /* 2 Digit 2 */
{ '3' , "" }, /* 3 Digit 3 */
{ '4' , "" }, /* 4 Digit 4 */
{ '5' , "" }, /* 5 Digit 5 */
{ '6' , "" }, /* 6 Digit 6 */
{ '7' , "" }, /* 7 Digit 7 */
{ '8' , "" }, /* 8 Digit 8 */
{ '9' , "" }, /* 9 Digit 9 */
{ ':' , "" }, /* : Colon */
{ ';' , "" }, /* ; Semicolon */
{ '<' , "" }, /* Less than */
{ '=' , "%3D" }, /* = Equals sign */
{ '>' , "" }, /* Greater than */
{ '?' , "%3F" }, /* ? Question mark */
{ '@' , "" }, /* @ Commercial at */
{ 'A' , "" }, /* A Capital A */
{ 'B' , "" }, /* B Capital B */
{ 'C' , "" }, /* C Capital C */
{ 'D' , "" }, /* D Capital D */
{ 'E' , "" }, /* E Capital E */
{ 'F' , "" }, /* F Capital F */
{ 'G' , "" }, /* G Capital G */
{ 'H' , "" }, /* H Capital H */
{ 'I' , "" }, /* I Capital I */
{ 'J' , "" }, /* J Capital J */
{ 'K' , "" }, /* K Capital K */
{ 'L' , "" }, /* L Capital L */
{ 'M' , "" }, /* M Capital M */
{ 'N' , "" }, /* N Capital N */
{ 'O' , "" }, /* O Capital O */
{ 'P' , "" }, /* P Capital P */
{ 'Q' , "" }, /* Q Capital Q */
{ 'R' , "" }, /* R Capital R */
{ 'S' , "" }, /* S Capital S */
{ 'T' , "" }, /* T Capital T */
{ 'U' , "" }, /* U Capital U */
{ 'V' , "" }, /* V Capital V */
{ 'W' , "" }, /* W Capital W */
{ 'X' , "" }, /* X Capital X */
{ 'Y' , "" }, /* Y Capital Y */
{ 'Z' , "" }, /* Z Capital Z */
{ '[' , "" }, /* [ Left square bracket
*/
{ '\\' , "" }, /* \ Reverse solidus
(backslash) */
{ ']' , "" }, /* ] Right square bracket
*/
{ '^' , "" }, /* ^ Caret */
{ '_' , "" }, /* _ Horizontal bar
(underscore) */
{ '`' , "" }, /* ` Acute accent */
{ 'a' , "" }, /* a Small a */
{ 'b' , "" }, /* b Small b */
{ 'c' , "" }, /* c Small c */
{ 'd' , "" }, /* d Small d */
{ 'e' , "" }, /* e Small e */
{ 'f' , "" }, /* f Small f */
{ 'g' , "" }, /* g Small g */
{ 'h' , "" }, /* h Small h */
{ 'i' , "" }, /* i Small i */
{ 'j' , "" }, /* j Small j */
{ 'k' , "" }, /* k Small k */
{ 'l' , "" }, /* l Small l */
{ 'm' , "" }, /* m Small m */
{ 'n' , "" }, /* n Small n */
{ 'o' , "" }, /* o Small o */
{ 'p' , "" }, /* p Small p */
{ 'q' , "" }, /* q Small q */
{ 'r' , "" }, /* r Small r */
{ 's' , "" }, /* s Small s */
{ 't' , "" }, /* t Small t */
{ 'u' , "" }, /* u Small u */
{ 'v' , "" }, /* v Small v */
{ 'w' , "" }, /* w Small w */
{ 'x' , "" }, /* x Small x */
{ 'y' , "" }, /* y Small y */
{ 'z' , "" }, /* z Small z */
{ '{' , "" }, /* { Left curly brace */
{ '|' , "" }, /* | Vertical bar */
{ '}' , "" }, /* } Right curly brace */
{ '~' , "" }, /* ~ Tilde */
{ '' , "" }, /*  Unused */
{ '�' , "" }, /* € Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /* ‚ Unused */
{ ' ' , "" }, /* ƒ Unused */
{ ' ' , "" }, /* „ Unused */
{ ' ' , "" }, /* … Unused */
{ ' ' , "" }, /* † Unused */
{ ' ' , "" }, /* ‡ Unused */
{ ' ' , "" }, /* ˆ Unused */
{ ' ' , "" }, /* ‰ Unused */
{ ' ' , "" }, /* Š Horizontal tab */
{ ' ' , "" }, /* ‹ Line feed */
{ ' ' , "" }, /* ΠUnused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /* Ž Carriage Return */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /* ‘ Unused */
{ ' ' , "" }, /* ’ Unused */
{ ' ' , "" }, /* “ Unused */
{ ' ' , "" }, /* ” Unused */
{ ' ' , "" }, /* • Unused */
{ ' ' , "" }, /* – Unused */
{ ' ' , "" }, /* — Unused */
{ ' ' , "" }, /* ˜ Unused */
{ ' ' , "" }, /* ™ Unused */
{ ' ' , "" }, /* š Unused */
{ ' ' , "" }, /* › Unused */
{ ' ' , "" }, /* œ Unused */
{ ' ' , "" }, /*  Unused */
{ ' ' , "" }, /* ž Unused */
{ ' ' , "" }, /* Ÿ Unused */
{ '�' , "" }, /* Non-breaking Space */
{ '�' , "" }, /* Inverted exclamation */
{ '�' , "" }, /* Cent sign */
{ '�' , "" }, /* Pound sterling */
{ '�' , "" }, /* General currency sign */
{ '�' , "" }, /* Yen sign */
{ '�' , "" }, /* Broken vertical bar */
{ '�' , "" }, /* Section sign */
{ '�' , "" }, /* Di�resis / Umlaut */
{ '�' , "" }, /* Copyright */
{ '�' , "" }, /* Feminine ordinal */
{ '�' , "" }, /* Left angle quote, guillemot left */
{ '�' , "" }, /* Not sign */
{ '�' , "" }, /* Soft hyphen */
{ '�' , "" }, /* Registered trademark */
{ '�' , "" }, /* Macron accent */
{ '�' , "" }, /* Degree sign */
{ '�' , "" }, /* Plus or minus */
{ '�' , "" }, /* Superscript two */
{ '�' , "" }, /* Superscript three */
{ '�' , "" }, /* Acute accent */
{ '�' , "" }, /* Micro sign */
{ '�' , "" }, /* Paragraph sign */
{ '�' , "" }, /* Middle dot */
{ '�' , "" }, /* Cedilla */
{ '�' , "" }, /* Superscript one */
{ '�' , "" }, /* Masculine ordinal */
{ '�' , "" }, /* Right angle quote, guillemot right */
{ '�' , "" }, /* Fraction one-fourth */
{ '�' , "" }, /* Fraction one-half */
{ '�' , "" }, /* Fraction three-fourths */
{ '�' , "" }, /* Inverted question mark */
{ '�' , "" }, /* Capital A, grave accent */
{ '�' , "" }, /* Capital A, acute accent */
{ '�' , "" }, /* Capital A, circumflex */
{ '�' , "" }, /* Capital A, tilde */
{ '�' , "" }, /* Capital A, di�resis / umlaut */
{ '�' , "" }, /* Capital A, ring */
{ '�' , "" }, /* Capital AE ligature */
{ '�' , "" }, /* Capital C, cedilla */
{ '�' , "" }, /* Capital E, grave accent */
{ '�' , "" }, /* Capital E, acute accent */
{ '�' , "" }, /* Capital E, circumflex */
{ '�' , "" }, /* Capital E, di�resis / umlaut */
{ '�' , "" }, /* Capital I, grave accent */
{ '�' , "" }, /* Capital I, acute accent */
{ '�' , "" }, /* Capital I, circumflex */
{ '�' , "" }, /* Capital I, di�resis / umlaut */
{ '�' , "" }, /* Capital Eth, Icelandic */
{ '�' , "" }, /* Capital N, tilde */
{ '�' , "" }, /* Capital O, grave accent */
{ '�' , "" }, /* Capital O, acute accent */
{ '�' , "" }, /* Capital O, circumflex */
{ '�' , "" }, /* Capital O, tilde */
{ '�' , "" }, /* Capital O, di�resis / umlaut */
{ '�' , "" }, /* Multiply sign */
{ '�' , "" }, /* Capital O, slash */
{ '�' , "" }, /* Capital U, grave accent */
{ '�' , "" }, /* Capital U, acute accent */
{ '�' , "" }, /* Capital U, circumflex */
{ '�' , "" }, /* Capital U, di�resis / umlaut */
{ '�' , "" }, /* Capital Y, acute accent */
{ '�' , "" }, /* Capital Thorn, Icelandic */
{ '�' , "" }, /* Small sharp s, German sz */
{ '�' , "" }, /* Small a, grave accent */
{ '�' , "" }, /* Small a, acute accent */
{ '�' , "" }, /* Small a, circumflex */
{ '�' , "" }, /* Small a, tilde */
{ '�' , "" }, /* Small a, di�resis / umlaut */
{ '�' , "" }, /* Small a, ring */
{ '�' , "" }, /* Small ae ligature */
{ '�' , "" }, /* Small c, cedilla */
{ '�' , "" }, /* Small e, grave accent */
{ '�' , "" }, /* Small e, acute accent */
{ '�' , "" }, /* Small e, circumflex */
{ '�' , "" }, /* Small e, di�resis / umlaut */
{ '�' , "" }, /* Small i, grave accent */
{ '�' , "" }, /* Small i, acute accent */
{ '�' , "" }, /* Small i, circumflex */
{ '�' , "" }, /* Small i, di�resis / umlaut */
{ '�' , "" }, /* Small eth, Icelandic */
{ '�' , "" }, /* Small n, tilde */
{ '�' , "" }, /* Small o, grave accent */
{ '�' , "" }, /* Small o, acute accent */
{ '�' , "" }, /* Small o, circumflex */
{ '�' , "" }, /* Small o, tilde */
{ '�' , "" }, /* Small o, di�resis / umlaut */
{ '�' , "" }, /* Division sign */
{ '�' , "" }, /* Small o, slash */
{ '�' , "" }, /* Small u, grave accent */
{ '�' , "" }, /* Small u, acute accent */
{ '�' , "" }, /* Small u, circumflex */
{ '�' , "" }, /* Small u, di�resis / umlaut */
{ '�' , "" }, /* Small y, acute accent */
{ '�' , "" }, /* Small thorn, Icelandic */
{ '\255', "" }, /* Small y, di�resis / umlaut */
} ;
struct tCharTrans Html2Char [] =
{
{ '�' , "" }, /* Capital AE ligature */
{ '�' , "" }, /* Capital A, acute accent */
{ '�' , "" }, /* Capital A, circumflex */
{ '�' , "" }, /* Capital A, grave accent */
{ '�' , "" }, /* Capital A, ring */
{ '�' , "" }, /* Capital A, tilde */
{ '�' , "" }, /* Capital A, di�resis / umlaut */
{ '�' , "" }, /* Capital C, cedilla */
{ '�' , "" }, /* Capital Eth, Icelandic */
{ '�' , "" }, /* Capital E, acute accent */
{ '�' , "" }, /* Capital E, circumflex */
{ '�' , "" }, /* Capital E, grave accent */
{ '�' , "" }, /* Capital E, di�resis / umlaut */
{ '�' , "" }, /* Capital I, acute accent */
{ '�' , "" }, /* Capital I, circumflex */
{ '�' , "" }, /* Capital I, grave accent */
{ '�' , "" }, /* Capital I, di�resis / umlaut */
{ '�' , "" }, /* Capital N, tilde */
{ '�' , "" }, /* Capital O, acute accent */
{ '�' , "" }, /* Capital O, circumflex */
{ '�' , "" }, /* Capital O, grave accent */
{ '�' , "" }, /* Capital O, slash */
{ '�' , "" }, /* Capital O, tilde */
{ '�' , "" }, /* Capital O, di�resis / umlaut */
{ '�' , "" }, /* Capital Thorn, Icelandic */
{ '�' , "" }, /* Capital U, acute accent */
{ '�' , "" }, /* Capital U, circumflex */
{ '�' , "" }, /* Capital U, grave accent */
{ '�' , "" }, /* Capital U, di�resis / umlaut */
{ '�' , "" }, /* Capital Y, acute accent */
{ '�' , "" }, /* Small a, acute accent */
{ '�' , "" }, /* Small a, circumflex */
{ '�' , "" }, /* Acute accent */
{ '�' , "" }, /* Small ae ligature */
{ '�' , "" }, /* Small a, grave accent */
{ '&' , "" }, /* Ampersand */
{ '�' , "" }, /* Small a, ring */
{ '�' , "" }, /* Small a, tilde */
{ '�' , "" }, /* Small a, di�resis / umlaut */
{ '�' , "" }, /* Broken vertical bar */
{ '�' , "" }, /* Broken vertical bar */
{ '�' , "" }, /* Small c, cedilla */
{ '�' , "" }, /* Cedilla */
{ '�' , "" }, /* Cent sign */
{ '�' , "" }, /* Copyright */
{ '�' , "" }, /* General currency sign */
{ '�' , "" }, /* Degree sign */
{ '�' , "" }, /* Di�resis / Umlaut */
{ '�' , "" }, /* Division sign */
{ '�' , "" }, /* Small e, acute accent */
{ '�' , "" }, /* Small e, circumflex */
{ '�' , "" }, /* Small e, grave accent */
{ '�' , "" }, /* Small eth, Icelandic */
{ '�' , "" }, /* Small e, di�resis / umlaut */
{ '�' , "" }, /* Fraction one-half */
{ '�' , "" }, /* Fraction one-fourth */
{ '�' , "" }, /* Fraction three-fourths */
{ '>' , "" }, /* Greater than */
{ '�' , "" }, /* Macron accent */
{ '�' , "" }, /* Small i, acute accent */
{ '�' , "" }, /* Small i, circumflex */
{ '�' , "" }, /* Inverted exclamation */
{ '�' , "" }, /* Small i, grave accent */
{ '�' , "" }, /* Inverted question mark */
{ '�' , "" }, /* Small i, di�resis / umlaut */
{ '�' , "" }, /* Left angle quote, guillemot left */
{ '<' , "" }, /* Less than */
{ '�' , "" }, /* Macron accent */
{ '�' , "" }, /* Micro sign */
{ '�' , "" }, /* Middle dot */
{ ' ' , "" }, /* Non-breaking Space */
{ '�' , "" }, /* Not sign */
{ '�' , "" }, /* Small n, tilde */
{ '�' , "" }, /* Small o, acute accent */
{ '�' , "" }, /* Small o, circumflex */
{ '�' , "" }, /* Small o, grave accent */
{ '�' , "" }, /* Feminine ordinal */
{ '�' , "" }, /* Masculine ordinal */
{ '�' , "" }, /* Small o, slash */
{ '�' , "" }, /* Small o, tilde */
{ '�' , "" }, /* Small o, di�resis / umlaut */
{ '�' , "" }, /* Paragraph sign */
{ '�' , "" }, /* Plus or minus */
{ '�' , "" }, /* Pound sterling */
{ '"' , "" }, /* Quotation mark */
{ '�' , "" }, /* Right angle quote, guillemot right */
{ '�' , "" }, /* Registered trademark */
{ '�' , "" }, /* Section sign */
{ '�' , "" }, /* Soft hyphen */
{ '�' , "" }, /* Superscript one */
{ '�' , "" }, /* Superscript two */
{ '�' , "" }, /* Superscript three */
{ '�' , "" }, /* Small sharp s, German sz */
{ '�' , "" }, /* Small thorn, Icelandic */
{ '�' , "" }, /* Multiply sign */
{ '�' , "" }, /* Small u, acute accent */
{ '�' , "" }, /* Small u, circumflex */
{ '�' , "" }, /* Small u, grave accent */
{ '�' , "" }, /* Di�resis / Umlaut */
{ '�' , "" }, /* Small u, di�resis / umlaut */
{ '�' , "" }, /* Small y, acute accent */
{ '�' , "" }, /* Yen sign */
{ '\255', "" }, /* Small y, di�resis / umlaut */
} ;
int sizeHtml2Char = sizeof (Html2Char) / sizeof (struct tCharTrans) ;
1.24 +0 -0 embperl/Embperl/Mail.pm
Index: Mail.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Mail.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- Mail.pm 2000/04/22 20:18:02 1.23
+++ Mail.pm 2000/04/25 04:25:56 1.24
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Mail.pm,v 1.23 2000/04/22 20:18:02 richter Exp $
+# $Id: Mail.pm,v 1.24 2000/04/25 04:25:56 richter Exp $
#
###################################################################################
1.25 +0 -0 embperl/Embperl/Module.pm
Index: Module.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Module.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- Module.pm 2000/04/22 20:18:03 1.24
+++ Module.pm 2000/04/25 04:25:56 1.25
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Module.pm,v 1.24 2000/04/22 20:18:03 richter Exp $
+# $Id: Module.pm,v 1.25 2000/04/25 04:25:56 richter Exp $
#
###################################################################################
@@ -25,7 +25,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Module.pm,v 1.24 2000/04/22 20:18:03 richter Exp $
+# $Id: Module.pm,v 1.25 2000/04/25 04:25:56 richter Exp $
#
###################################################################################
1.93 +0 -0 embperl/emacs/embperl.el
Index: embperl.el
===================================================================
RCS file: /home/cvs/embperl/emacs/embperl.el,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -r1.92 -r1.93
--- embperl.el 2000/04/22 20:18:03 1.92
+++ embperl.el 2000/04/25 04:25:57 1.93
@@ -19,9 +19,9 @@
;; Author : Erik Arneson ([EMAIL PROTECTED])
;; Created On : Wed Jul 22 17:16:39 PDT 1998
;; Last Modified By: Erik Arneson
-;; Last Modified On: $Date: 2000/04/22 20:18:03 $
+;; Last Modified On: $Date: 2000/04/25 04:25:57 $
;; Version : 1.00
-;; $Id: embperl.el,v 1.92 2000/04/22 20:18:03 richter Exp $
+;; $Id: embperl.el,v 1.93 2000/04/25 04:25:57 richter Exp $
;;
;; Please note that this software is very beta and rather broken. I
;; don't know how useful it will be, although I definitely plan on
1.4 +1 -1 embperl/test/html/ifperl.htm
Index: ifperl.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/ifperl.htm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- ifperl.htm 2000/04/17 21:22:23 1.3
+++ ifperl.htm 2000/04/25 04:25:57 1.4
@@ -3,7 +3,7 @@
<head>
<title>IF Metacommand in Embperl</title>
</head>
-
+
<body>
[- $a = 1; $b = 0; $c = 5; $d = 'txt' -]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
