richter 01/02/12 01:03:32
Modified: . README TipsAndTricks.pod epmain.c test.pl
test/html/registry Execute.htm
Log:
- cleanup
Revision Changes Path
1.23 +11 -9 embperl/README
Index: README
===================================================================
RCS file: /home/cvs/embperl/README,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- README 2000/12/04 07:41:00 1.22
+++ README 2001/02/12 09:03:24 1.23
@@ -36,15 +36,17 @@
The following documentation is available within the distribution
-Features of Embperl: perldoc Features.pod
-Introduction to Embperl: perldoc Intro.pod
-Installation of Embperl: perldoc INSTALL.pod
-Full documentation: perldoc Embperl.pod
- perldoc EmbperlObject.pm
- perldoc Embperl/Mail.pm
-Frequent Asked Questions: perldoc Faq.pod
-Changes: perldoc Changes.pod
-Examples: eg/x/README
+Features of Embperl: perldoc Features.pod
+Introduction to Embperl: perldoc Intro.pod
+Introduction to EmbperlObject: perldoc IntroEmbperlObject.pod
+Installation of Embperl: perldoc INSTALL.pod
+Full documentation: perldoc Embperl.pod
+ perldoc EmbperlObject.pm
+ perldoc Embperl/Mail.pm
+Frequent Asked Questions: perldoc Faq.pod
+Tips and Tricks: perldoc TipsAndTricks.pod
+Changes: perldoc Changes.pod
+Examples: eg/x/README
All the above and further information can be found at the Embperl website
1.2 +5 -2 embperl/TipsAndTricks.pod
Index: TipsAndTricks.pod
===================================================================
RCS file: /home/cvs/embperl/TipsAndTricks.pod,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- TipsAndTricks.pod 2001/02/07 08:20:49 1.1
+++ TipsAndTricks.pod 2001/02/12 09:03:25 1.2
@@ -24,8 +24,8 @@
=head1 Tips and Tricks
-This document follows on from the EmbperlObject introductory
-tutorial. As you can see from that, EmbperlObject enables extremely
+This document follows on from the Embperl/EmbperlObject introductory
+tutorial. As you can see from that, Embperl/EmbperlObject enables extremely
powerful websites to be built using a very intuitive object-oriented
structure. Now, we'll look at some additional, "unofficial" techniques
which may also be useful in certain circumstances.
@@ -34,6 +34,9 @@
over the course of months using EmbperlObject in my own websites. I
hope they are useful, or at least spur you on to develop your own
frameworks and share these with others.
+
+If you have any Tips & Tricks you want to share with the public
+please send them to [EMAIL PROTECTED] .
=head1 Alternative Way To Do Global Variables, using __PACKAGE__
1.93 +15 -14 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -r1.92 -r1.93
--- epmain.c 2001/02/09 09:46:31 1.92
+++ epmain.c 2001/02/12 09:03:26 1.93
@@ -1838,9 +1838,10 @@
/* is it a relativ filename? -> append path */
if (!(sSourcefile[0] == '/' ||
- sSourcefile[0] == '\\' ||
- (isalpha(sSourcefile[0]) && sSourcefile[1] == ':' &&
- (sSourcefile[2] == '\\' || sSourcefile[2] == '/'))))
+ sSourcefile[0] == '\\' ||
+ (isalpha(sSourcefile[0]) && sSourcefile[1] == ':' &&
+ (sSourcefile[2] == '\\' || sSourcefile[2] == '/')) ||
+ (r -> pInData && SvROK(r -> pInData))))
getcwd (olddir, sizeof (olddir) - 1) ;
if ( olddir[0] )
@@ -1886,7 +1887,7 @@
f -> pExportHash = NULL ;
}
}
- pNew = "Found " ;
+ pNew = "Found" ;
}
else
{ /* create new file structure */
@@ -1920,11 +1921,11 @@
if (r -> bDebug)
lprintf (r, "[%d]MEM: Load %s in %s\n", r -> nPid, sSourcefile, f ->
sCurrPackage) ;
- pNew = "New " ;
+ pNew = "New" ;
}
if (r -> bDebug)
- lprintf (r, "[%d]CACHE: %s File for %s (%x) in %s hash cache-key %s\n", r
-> nPid, pNew, f -> sSourcefile, f, f -> sCurrPackage, cache_key) ;
+ lprintf (r, "[%d]CACHE: %s File for '%s' (%x) in '%s' hash cache-key
'%s'\n", r -> nPid, pNew, f -> sSourcefile, f, f -> sCurrPackage, cache_key) ;
_free(r,cache_key);
@@ -2187,6 +2188,9 @@
r -> nInsideSub = 0 ;
r -> bExit = 0 ;
+ r -> pOutData = pOut ;
+ r -> pInData = pIn ;
+
r -> pFiles2Free = NULL ;
if (r -> bSubReq && sSourcefile[0] == '?' && sSubName && sSubName[0] != '\0')
{
@@ -2216,9 +2220,6 @@
r -> Buf.pFile = pFile ;
- r -> pOutData = pOut ;
- r -> pInData = pIn ;
-
r -> CmdStack.State.nCmdType = cmdNorm ;
r -> CmdStack.State.bProcessCmds = cmdAll ;
@@ -2963,7 +2964,7 @@
r -> Buf.pSourcelinePos = r -> Buf.pCurrPos = r -> Buf.pBuf ;
r -> Buf.pEndPos = r -> Buf.pBuf + nFileSize ;
- /*xxx*/lprintf (r, "ProcessFile r -> Buf.pFile=%x\n", r -> Buf.pFile) ;
+ /*xxx lprintf (r, "ProcessFile r -> Buf.pFile=%x\n", r -> Buf.pFile) ; */
#ifdef EP2
@@ -3048,7 +3049,7 @@
char * p ;
int n ;
- /*xxx*/lprintf (r, "ProcessBlock nBlockStart=%d nBlockNo=%d r ->
Buf.pFile=%x\n", nBlockStart, nBlockNo, r -> Buf.pFile) ;
+ /*xxx lprintf (r, "ProcessBlock nBlockStart=%d nBlockNo=%d r ->
Buf.pFile=%x\n", nBlockStart, nBlockNo, r -> Buf.pFile) ; */
r -> Buf.pCurrPos = r -> Buf.pBuf + nBlockStart ;
r -> Buf.pEndPos = r -> Buf.pCurrPos + nBlockSize ;
@@ -3185,7 +3186,7 @@
if ((pBufSV = r -> Buf.pFile -> pBufSV) == NULL || !SvPOK (pBufSV))
{
- /*xxx*/lprintf (r, "ReadInputFile r -> pInData=%x rok=%d\n", r -> pInData,
SvROK(r -> pInData)) ;
+ /*xxx lprintf (r, "ReadInputFile r -> pInData=%x rok=%d\n", r -> pInData,
SvROK(r -> pInData)) ; */
if (SvROK(r -> pInData))
{ /* --- get input from memory --- */
@@ -3258,14 +3259,14 @@
memcpy (&Buf, &r -> Buf, sizeof (Buf)) ;
- /*xxx*/lprintf (r, "ProcessSub pFile=%x nBlockStart=%d nBlockNo=%d r ->
Buf.pFile=%x\n", pFile, nBlockStart, nBlockNo, r -> Buf.pFile) ;
+ /*xxx lprintf (r, "ProcessSub pFile=%x nBlockStart=%d nBlockNo=%d r ->
Buf.pFile=%x\n", pFile, nBlockStart, nBlockNo, r -> Buf.pFile) ; */
if (pFile != r -> Buf.pFile)
{ /* get other file */
r -> Buf.pFile = pFile ;
r -> pInData = &sv_undef ;
- /*xxx*/lprintf (r, "ProcessSub call ReadInputFile\n") ;
+ /*xxx lprintf (r, "ProcessSub call ReadInputFile\n") ; */
if ((rc = ReadInputFile (r)) != ok)
{
LogError (r, rc) ;
1.94 +1 -1 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.93
retrieving revision 1.94
diff -u -r1.93 -r1.94
--- test.pl 2001/02/09 09:46:31 1.93
+++ test.pl 2001/02/12 09:03:27 1.94
@@ -1202,7 +1202,7 @@
delete $ENV{EMBPERL_COMPARTMENT} if (defined
($ENV{EMBPERL_COMPARTMENT})) ;
$ENV{EMBPERL_COMPARTMENT} = $test -> {compartment} if (defined ($test
-> {compartment})) ;
delete $ENV{EMBPERL_PACKAGE} if (defined (delete
$ENV{EMBPERL_PACKAGE})) ;
- $ENV{EMBPERL_PACKAGE} = $test -> {package} if (defined ($test ->
{package})) ;
+ $ENV{EMBPERL_PACKAGE} = $test -> {'package'} if (defined ($test ->
{'package'})) ;
@testargs = ( '-o', $outfile ,
'-l', $logfile,
'-d', $debug,
1.2 +1 -1 embperl/test/html/registry/Execute.htm
Index: Execute.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/registry/Execute.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Execute.htm 1998/07/14 20:11:25 1.1
+++ Execute.htm 2001/02/12 09:03:30 1.2
@@ -9,7 +9,7 @@
my($r) = @_;
-$HTML::Embperl::DebugDefault = 811005 ;
+$HTML::Embperl::DebugDefault = $ENV{EMBPERL_DEBUG} ;
$tst1 = '<P>Here is some text</P>' ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
