Mailing List Archive

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 [] =

{
{ ' ' , "" }, /* &#00; Unused */
{ ' ' , "" }, /* &#01; Unused */
{ ' ' , "" }, /* &#02; Unused */
{ ' ' , "" }, /* &#03; Unused */
{ ' ' , "" }, /* &#04; Unused */
{ ' ' , "" }, /* &#05; Unused */
{ ' ' , "" }, /* &#06; Unused */
{ ' ' , "" }, /* &#07; Unused */
{ ' ' , "" }, /* &#08; Unused */
{ ' ' , "" }, /* &#09; Horizontal tab */
{ ' ' , "" }, /* &#10; Line feed */
{ ' ' , "" }, /* &#11; Unused */
{ ' ' , "" }, /* &#12; Unused */
{ ' ' , "" }, /* &#13; Carriage Return */
{ ' ' , "" }, /* &#14; Unused */
{ ' ' , "" }, /* &#15; Unused */
{ ' ' , "" }, /* &#16; Unused */
{ ' ' , "" }, /* &#17; Unused */
{ ' ' , "" }, /* &#18; Unused */
{ ' ' , "" }, /* &#19; Unused */
{ ' ' , "" }, /* &#20; Unused */
{ ' ' , "" }, /* &#21; Unused */
{ ' ' , "" }, /* &#22; Unused */
{ ' ' , "" }, /* &#23; Unused */
{ ' ' , "" }, /* &#24; Unused */
{ ' ' , "" }, /* &#25; Unused */
{ ' ' , "" }, /* &#26; Unused */
{ ' ' , "" }, /* &#27; Unused */
{ ' ' , "" }, /* &#28; Unused */
{ ' ' , "" }, /* &#29; Unused */
{ ' ' , "" }, /* &#30; Unused */
{ ' ' , "" }, /* &#31; Unused */
{ ' ' , "" }, /* &#32; Space */
{ '!' , "" }, /* &#33; Exclamation mark */
{ '"' , "&quot;" }, /* Quotation mark */
{ '#' , "" }, /* &#35; Number sign */
{ '$' , "" }, /* &#36; Dollar sign */
{ '%' , "" }, /* &#37; Percent sign */
{ '&' , "&amp;" }, /* Ampersand */
{ '\'' , "" }, /* &#39; Apostrophe */
{ '(' , "" }, /* &#40; Left parenthesis */
{ ')' , "" }, /* &#41; Right parenthesis */
{ '*' , "" }, /* &#42; Asterisk */
{ '+' , "" }, /* &#43; Plus sign */
{ ',' , "" }, /* &#44; Comma */
{ '-' , "" }, /* &#45; Hyphen */
{ '.' , "" }, /* &#46; Period (fullstop) */
{ '/' , "" }, /* &#47; Solidus (slash) */
{ '0' , "" }, /* &#48; Digit 0 */
{ '1' , "" }, /* &#49; Digit 1 */
{ '2' , "" }, /* &#50; Digit 2 */
{ '3' , "" }, /* &#51; Digit 3 */
{ '4' , "" }, /* &#52; Digit 4 */
{ '5' , "" }, /* &#53; Digit 5 */
{ '6' , "" }, /* &#54; Digit 6 */
{ '7' , "" }, /* &#55; Digit 7 */
{ '8' , "" }, /* &#56; Digit 8 */
{ '9' , "" }, /* &#57; Digit 9 */
{ ':' , "" }, /* &#58; Colon */
{ ';' , "" }, /* &#59; Semicolon */
{ '<' , "&lt;" }, /* Less than */
{ '=' , "" }, /* &#61; Equals sign */
{ '>' , "&gt;" }, /* Greater than */
{ '?' , "" }, /* &#63; Question mark */
{ '@' , "" }, /* &#64; Commercial at */
{ 'A' , "" }, /* &#65; Capital A */
{ 'B' , "" }, /* &#66; Capital B */
{ 'C' , "" }, /* &#67; Capital C */
{ 'D' , "" }, /* &#68; Capital D */
{ 'E' , "" }, /* &#69; Capital E */
{ 'F' , "" }, /* &#70; Capital F */
{ 'G' , "" }, /* &#71; Capital G */
{ 'H' , "" }, /* &#72; Capital H */
{ 'I' , "" }, /* &#73; Capital I */
{ 'J' , "" }, /* &#74; Capital J */
{ 'K' , "" }, /* &#75; Capital K */
{ 'L' , "" }, /* &#76; Capital L */
{ 'M' , "" }, /* &#77; Capital M */
{ 'N' , "" }, /* &#78; Capital N */
{ 'O' , "" }, /* &#79; Capital O */
{ 'P' , "" }, /* &#80; Capital P */
{ 'Q' , "" }, /* &#81; Capital Q */
{ 'R' , "" }, /* &#82; Capital R */
{ 'S' , "" }, /* &#83; Capital S */
{ 'T' , "" }, /* &#84; Capital T */
{ 'U' , "" }, /* &#85; Capital U */
{ 'V' , "" }, /* &#86; Capital V */
{ 'W' , "" }, /* &#87; Capital W */
{ 'X' , "" }, /* &#88; Capital X */
{ 'Y' , "" }, /* &#89; Capital Y */
{ 'Z' , "" }, /* &#90; Capital Z */
{ '[.' , "" }, /* &#91; Left square bracket */
{ '\\' , "" }, /* &#92; Reverse solidus (backslash) */
{ ']' , "" }, /* &#93; Right square bracket */
{ '^' , "" }, /* &#94; Caret */
{ '_' , "" }, /* &#95; Horizontal bar (underscore) */
{ '`' , "" }, /* &#96; Acute accent */
{ 'a' , "" }, /* &#97; Small a */
{ 'b' , "" }, /* &#98; Small b */
{ 'c' , "" }, /* &#99; Small c */
{ 'd' , "" }, /* &#100; Small d */
{ 'e' , "" }, /* &#101; Small e */
{ 'f' , "" }, /* &#102; Small f */
{ 'g' , "" }, /* &#103; Small g */
{ 'h' , "" }, /* &#104; Small h */
{ 'i' , "" }, /* &#105; Small i */
{ 'j' , "" }, /* &#106; Small j */
{ 'k' , "" }, /* &#107; Small k */
{ 'l' , "" }, /* &#108; Small l */
{ 'm' , "" }, /* &#109; Small m */
{ 'n' , "" }, /* &#110; Small n */
{ 'o' , "" }, /* &#111; Small o */
{ 'p' , "" }, /* &#112; Small p */
{ 'q' , "" }, /* &#113; Small q */
{ 'r' , "" }, /* &#114; Small r */
{ 's' , "" }, /* &#115; Small s */
{ 't' , "" }, /* &#116; Small t */
{ 'u' , "" }, /* &#117; Small u */
{ 'v' , "" }, /* &#118; Small v */
{ 'w' , "" }, /* &#119; Small w */
{ 'x' , "" }, /* &#120; Small x */
{ 'y' , "" }, /* &#121; Small y */
{ 'z' , "" }, /* &#122; Small z */
{ '{' , "" }, /* &#123; Left curly brace */
{ '|' , "" }, /* &#124; Vertical bar */
{ '}' , "" }, /* &#125; Right curly brace */
{ '~' , "" }, /* &#126; Tilde */
{ '' , "" }, /* &#127; Unused */
{ '€' , "" }, /* &#128; Unused */
{ ' ' , "" }, /* &#129; Unused */
{ ' ' , "" }, /* &#130; Unused */
{ ' ' , "" }, /* &#131; Unused */
{ ' ' , "" }, /* &#132; Unused */
{ ' ' , "" }, /* &#133; Unused */
{ ' ' , "" }, /* &#134; Unused */
{ ' ' , "" }, /* &#135; Unused */
{ ' ' , "" }, /* &#136; Unused */
{ ' ' , "" }, /* &#137; Unused */
{ ' ' , "" }, /* &#138; Horizontal tab */
{ ' ' , "" }, /* &#139; Line feed */
{ ' ' , "" }, /* &#140; Unused */
{ ' ' , "" }, /* &#141; Unused */
{ ' ' , "" }, /* &#142; Carriage Return */
{ ' ' , "" }, /* &#143; Unused */
{ ' ' , "" }, /* &#144; Unused */
{ ' ' , "" }, /* &#145; Unused */
{ ' ' , "" }, /* &#146; Unused */
{ ' ' , "" }, /* &#147; Unused */
{ ' ' , "" }, /* &#148; Unused */
{ ' ' , "" }, /* &#149; Unused */
{ ' ' , "" }, /* &#150; Unused */
{ ' ' , "" }, /* &#151; Unused */
{ ' ' , "" }, /* &#152; Unused */
{ ' ' , "" }, /* &#153; Unused */
{ ' ' , "" }, /* &#154; Unused */
{ ' ' , "" }, /* &#155; Unused */
{ ' ' , "" }, /* &#156; Unused */
{ ' ' , "" }, /* &#157; Unused */
{ ' ' , "" }, /* &#158; Unused */
{ ' ' , "" }, /* &#159; 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" }, /* &#00; Unused */
{ ' ' , "%01" }, /* &#01; Unused */
{ ' ' , "%02" }, /* &#02; Unused */
{ ' ' , "%03" }, /* &#03; Unused */
{ ' ' , "%04" }, /* &#04; Unused */
{ ' ' , "%05" }, /* &#05; Unused */
{ ' ' , "%06" }, /* &#06; Unused */
{ ' ' , "%07" }, /* &#07; Unused */
{ ' ' , "%08" }, /* &#08; Unused */
{ ' ' , "%09" }, /* &#09; Horizontal tab */
{ ' ' , "%0A" }, /* &#10; Line feed */
{ ' ' , "%0B" }, /* &#11; Unused */
{ ' ' , "%0C" }, /* &#12; Unused */
{ ' ' , "%0D" }, /* &#13; Carriage Return */
{ ' ' , "%0E" }, /* &#14; Unused */
{ ' ' , "%0F" }, /* &#15; Unused */
{ ' ' , "%10" }, /* &#16; Unused */
{ ' ' , "%11" }, /* &#17; Unused */
{ ' ' , "%12" }, /* &#18; Unused */
{ ' ' , "%13" }, /* &#19; Unused */
{ ' ' , "%14" }, /* &#20; Unused */
{ ' ' , "%15" }, /* &#21; Unused */
{ ' ' , "%16" }, /* &#22; Unused */
{ ' ' , "%17" }, /* &#23; Unused */
{ ' ' , "%18" }, /* &#24; Unused */
{ ' ' , "%19" }, /* &#25; Unused */
{ ' ' , "%1A" }, /* &#26; Unused */
{ ' ' , "%1B" }, /* &#27; Unused */
{ ' ' , "%1C" }, /* &#28; Unused */
{ ' ' , "%1D" }, /* &#29; Unused */
{ ' ' , "%1E" }, /* &#30; Unused */
{ ' ' , "%1F" }, /* &#31; Unused */
{ ' ' , "+" }, /* &#32; Space */
{ '!' , "" }, /* &#33; Exclamation mark */
{ '"' , "%22" }, /* Quotation mark */
{ '#' , "" }, /* &#35; Number sign */
{ '$' , "" }, /* &#36; Dollar sign */
{ '%' , "%25" }, /* &#37; Percent sign */
{ '&' , "%26" }, /* Ampersand */
{ '\'' , "" }, /* &#39; Apostrophe */
{ '(' , "" }, /* &#40; Left parenthesis */
{ ')' , "" }, /* &#41; Right parenthesis */
{ '*' , "" }, /* &#42; Asterisk */
{ '+' , "%2B" }, /* &#43; Plus sign */
{ ',' , "" }, /* &#44; Comma */
{ '-' , "" }, /* &#45; Hyphen */
{ '.' , "" }, /* &#46; Period (fullstop) */
{ '/' , "" }, /* &#47; Solidus (slash) */
{ '0' , "" }, /* &#48; Digit 0 */
{ '1' , "" }, /* &#49; Digit 1 */
{ '2' , "" }, /* &#50; Digit 2 */
{ '3' , "" }, /* &#51; Digit 3 */
{ '4' , "" }, /* &#52; Digit 4 */
{ '5' , "" }, /* &#53; Digit 5 */
{ '6' , "" }, /* &#54; Digit 6 */
{ '7' , "" }, /* &#55; Digit 7 */
{ '8' , "" }, /* &#56; Digit 8 */
{ '9' , "" }, /* &#57; Digit 9 */
{ ':' , "" }, /* &#58; Colon */
{ ';' , "" }, /* &#59; Semicolon */
{ '<' , "" }, /* Less than */
{ '=' , "%3D" }, /* &#61; Equals sign */
{ '>' , "" }, /* Greater than */
{ '?' , "%3F" }, /* &#63; Question mark */
{ '@' , "" }, /* &#64; Commercial at */
{ 'A' , "" }, /* &#65; Capital A */
{ 'B' , "" }, /* &#66; Capital B */
{ 'C' , "" }, /* &#67; Capital C */
{ 'D' , "" }, /* &#68; Capital D */
{ 'E' , "" }, /* &#69; Capital E */
{ 'F' , "" }, /* &#70; Capital F */
{ 'G' , "" }, /* &#71; Capital G */
{ 'H' , "" }, /* &#72; Capital H */
{ 'I' , "" }, /* &#73; Capital I */
{ 'J' , "" }, /* &#74; Capital J */
{ 'K' , "" }, /* &#75; Capital K */
{ 'L' , "" }, /* &#76; Capital L */
{ 'M' , "" }, /* &#77; Capital M */
{ 'N' , "" }, /* &#78; Capital N */
{ 'O' , "" }, /* &#79; Capital O */
{ 'P' , "" }, /* &#80; Capital P */
{ 'Q' , "" }, /* &#81; Capital Q */
{ 'R' , "" }, /* &#82; Capital R */
{ 'S' , "" }, /* &#83; Capital S */
{ 'T' , "" }, /* &#84; Capital T */
{ 'U' , "" }, /* &#85; Capital U */
{ 'V' , "" }, /* &#86; Capital V */
{ 'W' , "" }, /* &#87; Capital W */
{ 'X' , "" }, /* &#88; Capital X */
{ 'Y' , "" }, /* &#89; Capital Y */
{ 'Z' , "" }, /* &#90; Capital Z */
{ '[.' , "" }, /* &#91; Left square bracket */
{ '\\' , "" }, /* &#92; Reverse solidus (backslash) */
{ ']' , "" }, /* &#93; Right square bracket */
{ '^' , "" }, /* &#94; Caret */
{ '_' , "" }, /* &#95; Horizontal bar (underscore) */
{ '`' , "" }, /* &#96; Acute accent */
{ 'a' , "" }, /* &#97; Small a */
{ 'b' , "" }, /* &#98; Small b */
{ 'c' , "" }, /* &#99; Small c */
{ 'd' , "" }, /* &#100; Small d */
{ 'e' , "" }, /* &#101; Small e */
{ 'f' , "" }, /* &#102; Small f */
{ 'g' , "" }, /* &#103; Small g */
{ 'h' , "" }, /* &#104; Small h */
{ 'i' , "" }, /* &#105; Small i */
{ 'j' , "" }, /* &#106; Small j */
{ 'k' , "" }, /* &#107; Small k */
{ 'l' , "" }, /* &#108; Small l */
{ 'm' , "" }, /* &#109; Small m */
{ 'n' , "" }, /* &#110; Small n */
{ 'o' , "" }, /* &#111; Small o */
{ 'p' , "" }, /* &#112; Small p */
{ 'q' , "" }, /* &#113; Small q */
{ 'r' , "" }, /* &#114; Small r */
{ 's' , "" }, /* &#115; Small s */
{ 't' , "" }, /* &#116; Small t */
{ 'u' , "" }, /* &#117; Small u */
{ 'v' , "" }, /* &#118; Small v */
{ 'w' , "" }, /* &#119; Small w */
{ 'x' , "" }, /* &#120; Small x */
{ 'y' , "" }, /* &#121; Small y */
{ 'z' , "" }, /* &#122; Small z */
{ '{' , "" }, /* &#123; Left curly brace */
{ '|' , "" }, /* &#124; Vertical bar */
{ '}' , "" }, /* &#125; Right curly brace */
{ '~' , "" }, /* &#126; Tilde */
{ '' , "" }, /* &#127; Unused */
{ '€' , "" }, /* &#128; Unused */

{ ' ' , "" }, /* &#129; Unused */
{ ' ' , "" }, /* &#130; Unused */
{ ' ' , "" }, /* &#131; Unused */
{ ' ' , "" }, /* &#132; Unused */
{ ' ' , "" }, /* &#133; Unused */
{ ' ' , "" }, /* &#134; Unused */
{ ' ' , "" }, /* &#135; Unused */
{ ' ' , "" }, /* &#136; Unused */
{ ' ' , "" }, /* &#137; Unused */
{ ' ' , "" }, /* &#138; Horizontal tab */
{ ' ' , "" }, /* &#139; Line feed */
{ ' ' , "" }, /* &#140; Unused */
{ ' ' , "" }, /* &#141; Unused */
{ ' ' , "" }, /* &#142; Carriage Return */
{ ' ' , "" }, /* &#143; Unused */
{ ' ' , "" }, /* &#144; Unused */
{ ' ' , "" }, /* &#145; Unused */
{ ' ' , "" }, /* &#146; Unused */
{ ' ' , "" }, /* &#147; Unused */
{ ' ' , "" }, /* &#148; Unused */
{ ' ' , "" }, /* &#149; Unused */
{ ' ' , "" }, /* &#150; Unused */
{ ' ' , "" }, /* &#151; Unused */
{ ' ' , "" }, /* &#152; Unused */
{ ' ' , "" }, /* &#153; Unused */
{ ' ' , "" }, /* &#154; Unused */
{ ' ' , "" }, /* &#155; Unused */
{ ' ' , "" }, /* &#156; Unused */
{ ' ' , "" }, /* &#157; Unused */
{ ' ' , "" }, /* &#158; Unused */
{ ' ' , "" }, /* &#159; 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 (erik@mind.net)
;; 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' -]