summaryrefslogtreecommitdiff
path: root/os2
diff options
context:
space:
mode:
authorPhilip Newton <pne@cpan.org>2001-07-24 08:45:55 +0200
committerJarkko Hietaniemi <jhi@iki.fi>2001-07-24 15:40:28 +0000
commit2b6ff23b01d2ff9fb57873fd366877ad9c12ef0e (patch)
tree22b1a4109230e2a8015d27e4e69bbf1e32169ab1 /os2
parent6d7381134aa8fec077b679a5dc9d49b6e324e1df (diff)
downloadperl-2b6ff23b01d2ff9fb57873fd366877ad9c12ef0e.tar.gz
my C compiler has no HTML parser
Message-ID: <20010724.064500@ID-11583.news.dfncis.de> p4raw-id: //depot/perl@11466
Diffstat (limited to 'os2')
-rw-r--r--os2/perlrexx.c52
1 files changed, 26 insertions, 26 deletions
diff --git a/os2/perlrexx.c b/os2/perlrexx.c
index 6c0ab93e88..7711783733 100644
--- a/os2/perlrexx.c
+++ b/os2/perlrexx.c
@@ -236,7 +236,7 @@ ULONG PERLEVAL (PCSZ name, LONG rargc, const RXSTRING *rargv,
#define INCL_DOSEXCEPTIONS
#define INCL_DOSERRORS
#define INCL_REXXSAA
-#include &lt;os2.h&gt;
+#include <os2.h>
/*
* "The Road goes ever on and on, down from the door where it began."
@@ -323,15 +323,15 @@ ULONG PERL (PCSZ name, LONG rargc, const RXSTRING *rargv,
ULONG ret;
if (rargc != 1) {
- sprintf(retstr-&gt;strptr, "one argument expected, got %ld", rargc);
- retstr-&gt;strlength = strlen (retstr-&gt;strptr);
+ sprintf(retstr->strptr, "one argument expected, got %ld", rargc);
+ retstr->strlength = strlen (retstr->strptr);
return 1;
}
- if (rargv[0].strlength &gt;= sizeof(buf)) {
- sprintf(retstr-&gt;strptr,
+ if (rargv[0].strlength >= sizeof(buf)) {
+ sprintf(retstr->strptr,
"length of the argument %ld exceeds the maximum %ld",
rargv[0].strlength, (long)sizeof(buf) - 1);
- retstr-&gt;strlength = strlen (retstr-&gt;strptr);
+ retstr->strlength = strlen (retstr->strptr);
return 1;
}
@@ -354,8 +354,8 @@ ULONG PERL (PCSZ name, LONG rargc, const RXSTRING *rargv,
ret = 1;
else {
ret = 0;
- sprintf(retstr-&gt;strptr, "%s", "ok");
- retstr-&gt;strlength = strlen (retstr-&gt;strptr);
+ sprintf(retstr->strptr, "%s", "ok");
+ retstr->strlength = strlen (retstr->strptr);
}
PERL_SYS_TERM1(0);
return ret;
@@ -365,8 +365,8 @@ ULONG PERLEXIT (PCSZ name, LONG rargc, const RXSTRING *rargv,
PCSZ queuename, PRXSTRING retstr)
{
if (rargc != 0) {
- sprintf(retstr-&gt;strptr, "no arguments expected, got %ld", rargc);
- retstr-&gt;strlength = strlen (retstr-&gt;strptr);
+ sprintf(retstr->strptr, "no arguments expected, got %ld", rargc);
+ retstr->strlength = strlen (retstr->strptr);
return 1;
}
PERL_SYS_TERM1(0);
@@ -377,21 +377,21 @@ ULONG PERLTERM (PCSZ name, LONG rargc, const RXSTRING *rargv,
PCSZ queuename, PRXSTRING retstr)
{
if (rargc != 0) {
- sprintf(retstr-&gt;strptr, "no arguments expected, got %ld", rargc);
- retstr-&gt;strlength = strlen (retstr-&gt;strptr);
+ sprintf(retstr->strptr, "no arguments expected, got %ld", rargc);
+ retstr->strlength = strlen (retstr->strptr);
return 1;
}
if (!my_perl) {
- sprintf(retstr-&gt;strptr, "no perl interpreter present");
- retstr-&gt;strlength = strlen (retstr-&gt;strptr);
+ sprintf(retstr->strptr, "no perl interpreter present");
+ retstr->strlength = strlen (retstr->strptr);
return 1;
}
perl_destruct(my_perl);
perl_free(my_perl);
my_perl = 0;
- sprintf(retstr-&gt;strptr, "%s", "ok");
- retstr-&gt;strlength = strlen (retstr-&gt;strptr);
+ sprintf(retstr->strptr, "%s", "ok");
+ retstr->strlength = strlen (retstr->strptr);
return 0;
}
@@ -400,15 +400,15 @@ ULONG PERLINIT (PCSZ name, LONG rargc, const RXSTRING *rargv,
PCSZ queuename, PRXSTRING retstr)
{
if (rargc != 0) {
- sprintf(retstr-&gt;strptr, "no argument expected, got %ld", rargc);
- retstr-&gt;strlength = strlen (retstr-&gt;strptr);
+ sprintf(retstr->strptr, "no argument expected, got %ld", rargc);
+ retstr->strlength = strlen (retstr->strptr);
return 1;
}
if (!init_perl(1))
return 1;
- sprintf(retstr-&gt;strptr, "%s", "ok");
- retstr-&gt;strlength = strlen (retstr-&gt;strptr);
+ sprintf(retstr->strptr, "%s", "ok");
+ retstr->strlength = strlen (retstr->strptr);
return 0;
}
@@ -420,8 +420,8 @@ ULONG PERLEVAL (PCSZ name, LONG rargc, const RXSTRING *rargv,
char *str;
if (rargc != 1) {
- sprintf(retstr-&gt;strptr, "one argument expected, got %ld", rargc);
- retstr-&gt;strlength = strlen (retstr-&gt;strptr);
+ sprintf(retstr->strptr, "one argument expected, got %ld", rargc);
+ retstr->strlength = strlen (retstr->strptr);
return 1;
}
@@ -446,11 +446,11 @@ ULONG PERLEVAL (PCSZ name, LONG rargc, const RXSTRING *rargv,
if (SvTRUE(ERRSV) || !SvOK(res))
ret = 1;
str = SvPV(res, len);
- if (len &lt;= 256 /* Default buffer is 256-char long */
- || !DosAllocMem((PPVOID)&amp;retstr-&gt;strptr, len,
+ if (len <= 256 /* Default buffer is 256-char long */
+ || !DosAllocMem((PPVOID)&retstr->strptr, len,
PAG_READ|PAG_WRITE|PAG_COMMIT)) {
- memcpy(retstr-&gt;strptr, str, len);
- retstr-&gt;strlength = len;
+ memcpy(retstr->strptr, str, len);
+ retstr->strlength = len;
} else
ret = 1;