perlos2.1

视频监控网络部分的协议ddns,的模块的实现代码,请大家大胆指正.

.Ve
.Sp
This should create an executable \fI./perl.exe\fR with all the statically loaded
extensions built in.  Compare the generated \fIperlmain.c\fR files to make sure
that during the iterations the number of loaded extensions only increases.
Rename \fI./perl.exe\fR to \fIperl_5.8.2.exe\fR on \f(CW\*(C`PATH\*(C'\fR.
.Sp
When it converges, you got a functional variant of \fIperl_5.8.2.exe\fR; copy it
to \f(CW\*(C`perl_.exe\*(C'\fR.  You are done with generation of the local Perl installation.
.IP "8." 4
Make sure that the installed modules are actually installed in the location
of the new Perl, and are not inherited from entries of \f(CW@INC\fR given for
inheritance from the older versions of Perl: set \f(CW\*(C`PERLLIB_582_PREFIX\*(C'\fR to
redirect the new version of Perl to a new location, and copy the installed
files to this new location.  Redo the tests to make sure that the versions of
modules inherited from older versions of Perl are not needed.
.Sp
Actually, the log output of pod2ipf during the step 6 gives a very detailed
info about which modules are loaded from which place; so you may use it as
an additional verification tool.
.Sp
Check that some temporary files did not make into the perl install tree.
Run something like this
.Sp
.Vb 1
\&  pfind . \-f "!(/\e.(pm|pl|ix|al|h|a|lib|txt|pod|imp|bs|dll|ld|bs|inc|xbm|yml|cgi|uu|e2x|skip|packlist|eg|cfg|html|pub|enc|all|ini|po|pot)$/i or /^\ew+$/") | less
.Ve
.Sp
in the install tree (both top one and \fIsitelib\fR one).
.Sp
Compress all the DLLs with \fIlxlite\fR.  The tiny \fI.exe\fR can be compressed with
\&\f(CW\*(C`/c:max\*(C'\fR (the bug only appears when there is a fixup in the last 6 bytes of a
page (?); since the tiny executables are much smaller than a page, the bug
will not hit).  Do not compress \f(CW\*(C`perl_.exe\*(C'\fR \- it would not work under \s-1DOS\s0.
.IP "9." 4
Now you can generate the binary distribution.  This is done by running the
test of the \s-1CPAN\s0 distribution \f(CW\*(C`OS2::SoftInstaller\*(C'\fR.  Tune up the file
\&\fItest.pl\fR to suit the layout of current version of Perl first.  Do not
forget to pack the necessary external DLLs accordingly.  Include the
description of the bugs and test suite failures you could not fix.  Include
the small-stack versions of Perl executables from Perl build directory.
.Sp
Include \fIperl5.def\fR so that people can relink the perl \s-1DLL\s0 preserving
the binary compatibility, or can create compatibility DLLs.  Include the diff
files (\f(CW\*(C`diff \-pu old new\*(C'\fR) of fixes you did so that people can rebuild your
version.  Include \fIperl5.map\fR so that one can use remote debugging.
.IP "10." 4
Share what you did with the other people.  Relax.  Enjoy fruits of your work.
.IP "11." 4
Brace yourself for thanks, bug reports, hate mail and spam coming as result
of the previous step.  No good deed should remain unpunished!
.SH "Building custom \fI.EXE\fP files"
.IX Header "Building custom .EXE files"
The Perl executables can be easily rebuilt at any moment.  Moreover, one can
use the \fIembedding\fR interface (see perlembed) to make very customized
executables.
.Sh "Making executables with a custom collection of statically loaded extensions"
.IX Subsection "Making executables with a custom collection of statically loaded extensions"
It is a little bit easier to do so while \fIdecreasing\fR the list of statically
loaded extensions.  We discuss this case only here.
.IP "1." 4
Change to an empty directory, and create a placeholder <Makefile.PL>:
.Sp
.Vb 2
\&  use ExtUtils::MakeMaker;
\&  WriteMakefile NAME => \*(Aqdummy\*(Aq;
.Ve
.IP "2." 4
Run it with the flavor of Perl (\fIperl.exe\fR or \fIperl_.exe\fR) you want to
rebuild.
.Sp
.Vb 1
\&  perl_ Makefile.PL
.Ve
.IP "3." 4
Ask it to create new Perl executable:
.Sp
.Vb 1
\&  make perl
.Ve
.Sp
(you may need to manually add \f(CW\*(C`PERLTYPE=\-DPERL_CORE\*(C'\fR to this commandline on
some versions of Perl; the symptom is that the command-line globbing does not
work from \s-1OS/2\s0 shells with the newly-compiled executable; check with
.Sp
.Vb 1
\&  .\eperl.exe \-wle "print for @ARGV" *
.Ve
.Sp
).
.IP "4." 4
The previous step created \fIperlmain.c\fR which contains a list of \fInewXS()\fR calls
near the end.  Removing unnecessary calls, and rerunning
.Sp
.Vb 1
\&  make perl
.Ve
.Sp
will produce a customized executable.
.Sh "Making executables with a custom search-paths"
.IX Subsection "Making executables with a custom search-paths"
The default perl executable is flexible enough to support most usages.
However, one may want something yet more flexible; for example, one may want
to find Perl \s-1DLL\s0 relatively to the location of the \s-1EXE\s0 file; or one may want
to ignore the environment when setting the Perl-library search patch, etc.
.PP
If you fill comfortable with \fIembedding\fR interface (see perlembed), such
things are easy to do repeating the steps outlined in \*(L"Making
executables with a custom collection of statically loaded extensions\*(R", and
doing more comprehensive edits to \fImain()\fR of \fIperlmain.c\fR.  The people with
little desire to understand Perl can just rename \fImain()\fR, and do necessary
modification in a custom \fImain()\fR which calls the renamed function in appropriate
time.
.PP
However, there is a third way: perl \s-1DLL\s0 exports the \fImain()\fR function and several
callbacks to customize the search path.  Below is a complete example of a
\&\*(L"Perl loader\*(R" which
.IP "1." 4
Looks for Perl \s-1DLL\s0 in the directory \f(CW\*(C`$exedir/../dll\*(C'\fR;
.IP "2." 4
Prepends the above directory to \f(CW\*(C`BEGINLIBPATH\*(C'\fR;
.IP "3." 4
Fails if the Perl \s-1DLL\s0 found via \f(CW\*(C`BEGINLIBPATH\*(C'\fR is different from what was
loaded on step 1; e.g., another process could have loaded it from \f(CW\*(C`LIBPATH\*(C'\fR
or from a different value of \f(CW\*(C`BEGINLIBPATH\*(C'\fR.  In these cases one needs to
modify the setting of the system so that this other process either does not
run, or loads the \s-1DLL\s0 from \f(CW\*(C`BEGINLIBPATH\*(C'\fR with \f(CW\*(C`LIBPATHSTRICT=T\*(C'\fR (available
with kernels after September 2000).
.IP "4." 4
Loads Perl library from \f(CW\*(C`$exedir/../dll/lib/\*(C'\fR.
.IP "5." 4
Uses Bourne shell from \f(CW\*(C`$exedir/../dll/sh/ksh.exe\*(C'\fR.
.PP
For best results compile the C file below with the same options as the Perl
\&\s-1DLL\s0.  However, a lot of functionality will work even if the executable is not
an \s-1EMX\s0 applications, e.g., if compiled with
.PP
.Vb 1
\&  gcc \-Wall \-DDOSISH \-DOS2=1 \-O2 \-s \-Zomf \-Zsys perl\-starter.c \-DPERL_DLL_BASENAME=\e"perl312F\e" \-Zstack 8192 \-Zlinker /PM:VIO
.Ve
.PP
Here is the sample C file:
.PP
.Vb 5
\&  #define INCL_DOS
\&  #define INCL_NOPM
\&  /* These are needed for compile if os2.h includes os2tk.h, not os2emx.h */
\&  #define INCL_DOSPROCESS
\&  #include <os2.h>
\&
\&  #include "EXTERN.h"
\&  #define PERL_IN_MINIPERLMAIN_C
\&  #include "perl.h"
\&
\&  static char *me;
\&  HMODULE handle;
\&
\&  static void
\&  die_with(char *msg1, char *msg2, char *msg3, char *msg4)
\&  {
\&     ULONG c;
\&     char *s = " error: ";
\&
\&     DosWrite(2, me, strlen(me), &c);
\&     DosWrite(2, s, strlen(s), &c);
\&     DosWrite(2, msg1, strlen(msg1), &c);
\&     DosWrite(2, msg2, strlen(msg2), &c);
\&     DosWrite(2, msg3, strlen(msg3), &c);
\&     DosWrite(2, msg4, strlen(msg4), &c);
\&     DosWrite(2, "\er\en", 2, &c);
\&     exit(255);
\&  }
\&
\&  typedef ULONG (*fill_extLibpath_t)(int type, char *pre, char *post, int replace, char *msg);
\&  typedef int (*main_t)(int type, char *argv[], char *env[]);
\&  typedef int (*handler_t)(void* data, int which);
\&
\&  #ifndef PERL_DLL_BASENAME
\&  #  define PERL_DLL_BASENAME "perl"
\&  #endif
\&
\&  static HMODULE
\&  load_perl_dll(char *basename)
\&  {
\&      char buf[300], fail[260];
\&      STRLEN l, dirl;
\&      fill_extLibpath_t f;
\&      ULONG rc_fullname;
\&      HMODULE handle, handle1;
\&
\&      if (_execname(buf, sizeof(buf) \- 13) != 0)
\&          die_with("Can\*(Aqt find full path: ", strerror(errno), "", "");
\&      /* XXXX Fill \`me\*(Aq with new value */
\&      l = strlen(buf);
\&      while (l && buf[l\-1] != \*(Aq/\*(Aq && buf[l\-1] != \*(Aq\e\e\*(Aq)
\&          l\-\-;
\&      dirl = l \- 1;
\&      strcpy(buf + l, basename);
\&      l += strlen(basename);
\&      strcpy(buf + l, ".dll");
\&      if ( (rc_fullname = DosLoadModule(fail, sizeof fail, buf, &handle)) != 0
\&           && DosLoadModule(fail, sizeof fail, basename, &handle) != 0 )
\&          die_with("Can\*(Aqt load DLL ", buf, "", "");
\&      if (rc_fullname)
\&          return handle;                /* was loaded with short name; all is fine */
\&      if (DosQueryProcAddr(handle, 0, "fill_extLibpath", (PFN*)&f))
\&          die_with(buf, ": DLL exports no symbol ", "fill_extLibpath", "");
\&      buf[dirl] = 0;
\&      if (f(0 /*BEGINLIBPATH*/, buf /* prepend */, NULL /* append */,
\&            0 /* keep old value */, me))
\&          die_with(me, ": prepending BEGINLIBPATH", "", "");
\&      if (DosLoadModule(fail, sizeof fail, basename, &handle1) != 0)
\&          die_with(me, ": finding perl DLL again via BEGINLIBPATH", "", "");
\&      buf[dirl] = \*(Aq\e\e\*(Aq;     
\&      if (handle1 != handle) {
\&          if (DosQueryModuleName(handle1, sizeof(fail), fail))
\&              strcpy(fail, "???");
\&          die_with(buf, ":\en\etperl DLL via BEGINLIBPATH is different: \en\et",
\&                   fail,
\&                   "\en\etYou may need to manipulate global BEGINLIBPATH and LIBPATHSTRICT"
\&                   "\en\etso that the other copy is loaded via BEGINLIBPATH.");
\&      }
\&      return handle;
\&  }
\&
\&  int
\&  main(int argc, char **argv, char **env)
\&  {
\&      main_t f;
\&      handler_t h;
\&    
\&      me = argv[0];
\&      /**/
\&      handle = load_perl_dll(PERL_DLL_BASENAME);
\&
\&      if (DosQueryProcAddr(handle, 0, "Perl_OS2_handler_install", (PFN*)&h))
\&          die_with(PERL_DLL_BASENAME, ": DLL exports no symbol ", "Perl_OS2_handler_install", "");
\&      if ( !h((void *)"~installprefix", Perlos2_handler_perllib_from)
\&           || !h((void *)"~dll", Perlos2_handler_perllib_to)
\&           || !h((void *)"~dll/sh/ksh.exe", Perlos2_handler_perl_sh) )
\&          die_with(PERL_DLL_BASENAME, ": Can\*(Aqt install @INC manglers", "", "");
\&
\&      if (DosQueryProcAddr(handle, 0, "dll_perlmain", (PFN*)&f))
\&          die_with(PERL_DLL_BASENAME, ": DLL exports no symbol ", "dll_perlmain", "");
\&      return f(argc, argv, env);
\&  }
.Ve
.SH "Build FAQ"
.IX Header "Build FAQ"
.ie n .Sh "Some ""/""\fP became \f(CW""\e"" in pdksh."
.el .Sh "Some \f(CW/\fP became \f(CW\e\fP in pdksh."
.IX Subsection "Some / became  in pdksh."
You have a very old pdksh. See Prerequisites.
.ie n .Sh "\*(Aqerrno\*(Aq \- unresolved external"
.el .Sh "\f(CW\*(Aqerrno\*(Aq\fP \- unresolved external"
.IX Subsection "errno - unresolved external"
You do not have MT-safe \fIdb.lib\fR. See Prerequisites.
.Sh "Problems with tr or sed"
.IX Subsection "Problems with tr or sed"
reported with very old version of tr and sed.
.Sh "Some problem (forget which ;\-)"
.IX Subsection "Some problem (forget which ;-)"
You have an older version of \fIperl.dll\fR on your \s-1LIBPATH\s0, which
broke the build of extensions.
.Sh "Library ... not found"
.IX Subsection "Library ... not found"
You did not run \f(CW\*(C`omflibs\*(C'\fR. See Prerequisites.
.Sh "Segfault in make"
.IX Subsection "Segfault in make"
You use an old version of \s-1GNU\s0 make. See Prerequisites.
.Sh "op/sprintf test failure"
.IX Subsection "op/sprintf test failure"
This can result from a bug in emx sprintf which was fixed in 0.9d fix 03.
.SH "Specific (mis)features of OS/2 port"
.IX Header "Specific (mis)features of OS/2 port"
.ie n .Sh """setpriority""\fP, \f(CW""getpriority"""
.el .Sh "\f(CWsetpriority\fP, \f(CWgetpriority\fP"
.IX Subsection "setpriority, getpriority"
Note that these functions are compatible with *nix, not with the older
ports of '94 \- 95. The priorities are absolute, go from 32 to \-95,
lower is quicker. 0 is the default priority.
.PP
\&\fB\s-1WARNING\s0\fR.  Calling \f(CW\*(C`getpriority\*(C'\fR on a non-existing process could lock
the system before Warp3 fixpak22.  Starting with Warp3, Perl will use
a workaround: it aborts \fIgetpriority()\fR if the process is not present.
This is not possible on older versions \f(CW\*(C`2.*\*(C'\fR, and has a race
condition anyway.
.ie n .Sh """system()"""
.el .Sh "\f(CWsystem()\fP"
.IX Subsection "system()"
Multi-argument form of \f(CW\*(C`system()\*(C'\fR allows an additional numeric
argument. The meaning of this argument is described in
OS2::Process.
.PP
When finding a program to run, Perl first asks the \s-1OS\s0 to look for executables
on \f(CW\*(C`PATH\*(C'\fR (\s-1OS/2\s0 adds extension \fI.exe\fR if no extension is present).
If not found, it looks for a script with possible extensions 
added in this order: no extension, \fI.cmd\fR, \fI.btm\fR, 
\&\fI.bat\fR, \fI.pl\fR.  If found, Perl checks the start of the file for magic
strings \f(CW"#!"\fR and \f(CW"extproc "\fR.  If found, Perl uses the rest of the
first line as the beginning of the command line to run this script.  The
only mangling done to the first line is extraction of arguments (currently
up to 3), and ignoring of the path-part of the \*(L"interpreter\*(R" name if it can't
be found using the full path.
.PP
E.g., \f(CW\*(C`system \*(Aqfoo\*(Aq, \*(Aqbar\*(Aq, \*(Aqbaz\*(Aq\*(C'\fR may lead Perl to finding
\&\fIC:/emx/bin/foo.cmd\fR with the first line being
.PP
.Vb 1
\& extproc /bin/bash    \-x   \-c
.Ve
.PP
If \fI/bin/bash.exe\fR is not found, then Perl looks for an executable \fIbash.exe\fR on
\&\f(CW\*(C`PATH\*(C'\fR.  If found in \fIC:/emx.add/bin/bash.exe\fR, then the above \fIsystem()\fR is
translated to
.PP
.Vb 1
\&  system qw(C:/emx.add/bin/bash.exe \-x \-c C:/emx/bin/foo.cmd bar baz)
.Ve
.PP
One additional translation is performed: instead of \fI/bin/sh\fR Perl uses
the hardwired-or-customized shell (see \f(CW"PERL_SH_DIR"\fR).
.PP
The above search