Commit | Line | Data |
867988ae |
1 | after 5.003_05: |
2 | PERLLIB_PREFIX was not active if it matches an element of @INC |
3 | as a whole. |
4 | Do not need PERL_SBRK if crtdll-revision is >= 50. |
5 | Use -Zsmall-conv if crtdll-revision is >= 50 (in static perl!). |
6 | :7: warning: #warning <dirent.h> requires <sys/types.h> |
7 | We compile miniperl static. It cannot fork, thus there may be |
8 | problems with pipes (since HAS_FORK is in |
9 | place). Pipes are required by makemaker. |
10 | We compile perl___.exe A.OUT and dynamic. It should be able to |
11 | fork. |
12 | If we can fork, we my_popen by popen unless "-|". Thus we |
13 | write a cooky "-1" into the pid array to indicate |
14 | this. |
15 | Apparently we can fork, and we can load dynamic extensions |
16 | now, though probably not simultaneously. |
17 | *DB tests corrected for OS/2 one-user stat[2]. |
18 | /bin/sh is intercepted and replaced by SH_PATH. |
19 | Note that having '\\' in the command line of one-arg `system' |
20 | would trigger call via shell. |
21 | Segfault with system {'ls'} 'blah'; corrected. |
22 | Documentation of OS/2-different features added to main PODs. |
23 | New buitins in Cwd:: |
24 | |
25 | Cwd::current_drive |
26 | Cwd::sys_chdir - leaves drive as it is. |
27 | Cwd::change_drive |
28 | Cwd::sys_is_absolute - has drive letter and is_rooted |
29 | Cwd::sys_is_rooted - has leading [/\\] (maybe |
30 | after a drive) |
31 | Cwd::sys_is_relative - changes with current dir |
32 | Cwd::sys_cwd - Interface to cwd from EMX. |
33 | Cwd::sys_abspath(name, dir) |
34 | - Really really odious |
35 | function. Returns absolute |
36 | name of file which would |
37 | have 'name' if CWD were 'dir'. |
38 | Dir defaults to the current dir. |
39 | Cwd::extLibpath [type] - Get/set current value of extended |
40 | Cwd::extLibpath_set - library search path. |
41 | path [type] |
42 | The optional last argument redirects |
43 | to END-path if true, |
44 | default is to search BEGIN-path. |
45 | (Note that some of these may be moved to different |
46 | libraries - eventually). |
47 | Executables: |
48 | perl - can fork, can dynalink (but not simultaneously) |
49 | perl_ - can fork, cannot dynalink |
50 | perl__ - same as perl___, but PM. |
51 | perl___ - cannot fork, can dynalink. |
52 | The build of the first one - perl - is rather convoluted, and |
53 | requires a build of miniperl_. |
55497cff |
54 | |
55 | after 5.003_07: |
56 | custom tmpfile and tmpname which may use $TMP, $TEMP. |
57 | all the calls to OS/2 API wrapped so that it is safe to use |
58 | them under DOS (may die(), though). |
59 | Tested that popen works under DOS with modified PDKSH and RSX. |
60 | File::Copy works under DOS. |
61 | MakeMaker modified to work under DOS (perlmain.c.tmp and sh -c true). |
72ea3524 |
62 | |
63 | after 5.003_08: |
64 | OS2::PrfDB exports symbols as documented; |
65 | should work on OS/2 2.1 again. |
66 | uses reliable signals when spawing. |
67 | do not use popen() any more - no intermediate shell unless needed. |
df3ef7a9 |
68 | |
69 | after 5.003_11: |
70 | Functions emx_{malloc,realloc,calloc,free} are exported from DLL. |
71 | get_sysinfo() bugs corrected (flags were not used and wrongly defined). |
44a8e56a |
72 | |
73 | after 5.003_20: |
74 | _isterm is substituted instead of isatty, s?random instead of srand. |
75 | `register' disabled if -DDEBUGGING and not AOUT build: stupid SD386. |
76 | 3-argument select() was stomping over memory. |
e29f6e02 |
77 | |
78 | after 5.003_21: |
79 | Can start scripts by executing 'dir/script' and |
80 | 'script.sh'. Form without extension will call shell only if |
81 | the specified file exists (will not look on path) (to prohibit |
82 | trying to run shell commands directly). - Needed by magic.t. |
aa689395 |
83 | |
84 | after 5.003_27: |
85 | ALTERNATE_SHEBANG="extproc " supported, thus options on this |
86 | line are processed (possibly twice). -S is made legal on such |
87 | a line. This -S -x is not needed any more. |
88 | perl.dll may be used from non-EMX programs (via PERL_SYS_INIT |
89 | - the caller should have valid variable "env" with |
90 | environment). Known problems: $$ does not work - is 0, waitpid |
91 | returns immediately, thus Perl cannot wait for completion of |
92 | started programs. |
d8c2d278 |
93 | |
367f3c24 |
94 | after 5.004_01: |
95 | flock emulation added (disable by setting env PERL_USE_FLOCK=0), |
96 | thanks to Rocco Caputo; |
97 | RSX bug with missing waitpid circomvented; |
98 | -S bug with full path with \ corrected. |
99 | |
d8c2d278 |
100 | before 5.004_02: |
101 | -S switch to perl enables a search with additional extensions |
102 | .cmd, .btm, .bat, .pl as well. This means that if you have |
103 | mycmd.pl or mycmd.bat on PATH, |
104 | perl -S mycmd |
105 | will work. Perl will also look in the current directory first. |
106 | Moreover, a bug with \; in PATH being non-separator is fixed. |
84902520 |
107 | |
fb73857a |
108 | after 5.004_03: |
109 | $^E tracks calls to CRT now. (May break if Perl masks some |
110 | changes to errno?) |
111 | $0 may be edited to longer lengths (at least under OS/2). |
112 | OS2::REXX->loads looks in the OS/2-ish fashion too. |
dd96f567 |
113 | |
91643db9 |
114 | after 5.004_04: |
115 | Default perl.exe was built with a shorter stack than expected. |
116 | Strip extensions DLLs too (unless debugging build). |
117 | ./os2.c being RO could stop cp. |
118 | When starting scripts, Perl will find them on path (using the same |
119 | extensions as for -S command-line switch). If it finds magic |
120 | `extproc ' or `#!' cookies, it will start the scripts directly. |
121 | May use `cmd /c more <' as a pager. |
122 | If a program could not be started, this might have been hidden. |
123 | End of pipe was closed twice when `open'ing a pipeline. |
124 | |
dd96f567 |
125 | after 5.004_53: |
126 | Minimal thread support added. One needs to manually move pthread.h |
3aefca04 |
127 | |
128 | after 5.004_64: |
129 | Make DLL names different if thread-enabled. |
130 | Emit more informative internal DLL descriptions. |
2c2e0e8c |
131 | |
132 | 5.004_72: |
133 | Updated OS2::Process (v0.2) included. |
134 | |
135 | after 5.004_73: |
136 | Fixed a bug with argv not NULL-terminated when starting scripts. |
137 | Support all the forms of starting scripts. |
138 | Support killing a child when receiving a signal during system() |
139 | (in two stage, on first send the same signal, on the next |
140 | send SIGKILL). |
141 | Add the same logic for scripts as in pdksh, including |
142 | stripping the path from #! line if needed, |
143 | calling EXECSHELL or COMSPEC for magic-less scripts; |
144 | Now pdksh is called only if one-arg system()/friends contains |
145 | metachars, or if magic-line asks for sh, or there is no magic |
146 | line and EXECSHELL is set to sh. |
147 | Shell is supplied the original command line if possible. |
017f25f1 |
148 | |
149 | after 5.005_02: |
150 | Can start PM programs from non-PM sessions by plain system() |
151 | and friends. Can start DOS/Win programs. Can start |
152 | fullscreen programs from non-fullscreen sessions too. |
153 | In fact system(P_PM,...) was broken. |
154 | We mangle the name of perl*.DLL, to allow coexistence of different |
155 | versions of Perl executables on the system. Mangling of |
156 | names of extension DLL is also changed, thus running two |
157 | different versions of the executable with loaded |
158 | extensions should not lead to conflicts (since |
159 | extension-full-name and Perl-version mangling work in the |
160 | same set ot 576 possible keys, this may lead to clashes). |
161 | $^E was reset on the second read, and contained ".\r\n" at the end. |
4bfbfac5 |
162 | |
163 | after 5.005_53: |
e96326af |
164 | Would segfault system()ing non-existing program; |
165 | AOUT build was hosed; |
4bfbfac5 |
166 | warning-test for getpriority() might lock the system hard on |
167 | pre-fixpak22 configuration (calling getpriority() on |
168 | non-existing process triggers a system-wide bug). |
169 | |
4e3d4845 |
170 | |
171 | PrfDB was using a bug in processing XSUBs returning U32. |
172 | |
4bfbfac5 |
173 | Variable $OS2::emx_rev implemented (string and numberic values |
174 | are the same as C variables _emx_rev and _emx_vprt). |
175 | Variable $OS2::emx_env implemented (same as C variable _emx_env). |
176 | Variable $OS2::os_ver implemented (_osmajor + 0.001 * _osminor). |
177 | |
178 | Improved centralized management of HAB and HMQ. To get Perl's |
179 | HAB, call perl_hab_GET(). (After the initial call one |
180 | can use Perl_hab instead.) To require Perl's HMQ, |
181 | call perl_hmq_GET(), to release it call perl_hmq_UNSET(), |
182 | to obtain it between these calls use Perl_hmq. |
183 | HMQ management is refcounted, and the program will morph |
184 | itself into/from PM if required. |
185 | If perl.h cannot be included, hab may be obtained by Perl_hab_GET(). |
186 | |
187 | New function OS2::Error(do_harderror,do_exception). Returns |
188 | undef if it was not called yet, otherwise bit 1 is |
189 | set if on previous call do_harderror was enabled, bit |
190 | 2 is set if if on previous call do_exception was enabled. |
191 | This function enables/disables error popups associated with |
192 | hardware errors (Disk not ready etc.) and software exceptions. |
193 | |
194 | New function OS2::Errors2Drive(drive). Returns undef if it was |
195 | not called yet, otherwise return false if Errors were |
196 | not requested to be written to a hard drive, or the |
197 | drive letter if this was requested. |
198 | This function may redirect error popups associated with |
199 | hardware errors (Disk not ready etc.) and software exceptions |
200 | to the file POPUPLOG.OS2 at the root directory of the |
201 | specified drive. Overrides OS2::Error() specified by |
202 | individual programs. Given argument undef will |
203 | disable redirection. Has global effect, persists |
204 | after the application exits. |
205 | |
206 | New function OS2::SysInfo(). Returns a hash with system information. |
207 | The keys of the hash are |
208 | |
209 | MAX_PATH_LENGTH, MAX_TEXT_SESSIONS, MAX_PM_SESSIONS, |
210 | MAX_VDM_SESSIONS, BOOT_DRIVE, DYN_PRI_VARIATION, |
211 | MAX_WAIT, MIN_SLICE, MAX_SLICE, PAGE_SIZE, |
212 | VERSION_MAJOR, VERSION_MINOR, VERSION_REVISION, |
213 | MS_COUNT, TIME_LOW, TIME_HIGH, TOTPHYSMEM, TOTRESMEM, |
214 | TOTAVAILMEM, MAXPRMEM, MAXSHMEM, TIMER_INTERVAL, |
215 | MAX_COMP_LENGTH, FOREGROUND_FS_SESSION, |
216 | FOREGROUND_PROCESS |
217 | |
218 | New function OS2::BootDrive(force). Returns a letter without colon. |
219 | |
220 | New functions OS2::MorphPM(serve)/OS2::UnMorphPM(serve). Transforms |
221 | the current application into a PM application and back. |
222 | The argument true means that a real message loop is |
223 | going to be performed. |
224 | OS2::MorphPM() returns the PM message queue handle as an integer. |
225 | |
226 | New function OS2::Serve_Messages(force). Fake on-demand |
227 | retrieval of outstanding PM messages. If force is false, |
228 | will not dispatch messages if a real message loop is known to |
229 | be present. Returns number of messages retrieved. |
230 | Dies with "QUITing..." if WM_QUIT message is obtained. |
231 | |
232 | New function OS2::Process_Messages(force [, cnt]). Retrieval |
233 | of PM messages until window creation/destruction. |
234 | If force is false, will not dispatch messages |
235 | if a real message loop is known to be present. |
236 | Returns change in number of windows. If cnt is given, |
237 | it is incremented by the number of messages retrieved. |
238 | Dies with "QUITing..." if WM_QUIT message is obtained. |
239 | |
5838269b |
240 | after 5.005_54: |
241 | Opening pipes from/to processes could fail if (un)appropriate |
242 | combination of STDIN/STDOUT was closed. |
243 | |
244 | If the only shell-metachars of a command are ' 2>&1' at the |
245 | end of a command, it is executed without calling the external shell. |
ed344e4f |
246 | |
247 | after 5.005_57: |
248 | Make UDP sockets return correct caller address (OS2 API bug); |
249 | Enable TCPIPV4 defines (works with Warp 3 IAK too?!); |
250 | Force Unix-domain sockets to start with "/socket", convert |
251 | '/' to '\' in the calls; |
252 | Make C<system 1, $cmd> to treat $cmd as in C<system $cmd>; |
253 | Autopatch Configure; |
254 | Find name and location of g[nu]patch.exe; |
255 | Autocopy perl????.dll to t/ when testing; |
256 | |
257 | after 5.005_62: |
258 | Extract a lightweight DLL access module OS2::DLL from OS2::REXX |
259 | which would not load REXX runtime system; |
260 | Allow compile with os2.h which loads os2tk.h instead of os2emx.h; |
261 | Put the version of EMX CRTL into -D define; |
262 | Use _setsyserror() to store last error of OS/2 API for $^E; |
263 | New macro PERL_SYS_INIT3(argvp, argcp, envp); |
264 | Make Dynaloader return info on the failing module after failed dl_open(); |
265 | OS2::REXX test were done for interactive testing (were writing |
266 | "ok" to stderr); |
267 | system() and friends return -1 on failure (was 0xFF00); |
268 | Put the full name of executable into $^X |
269 | (alas, uppercased - but with /); |
270 | t/io/fs.t was failing on HPFS386; |
271 | Remove extra ';' from defines for MQ operations. |
5ba48348 |
272 | |
273 | pre 5.6.1: |
274 | Resolved: "Bad free()" messages (e.g., from DB_File) with -Zomf build. |
275 | The reason was: when an extension DLL was linked, the order of |
276 | libraries was similar to this: |
277 | f1.obj f2.obj libperl.lib -llibr1 -llibr2 |
278 | (with C RTL implicitly after this). When libperl.lib overrides |
279 | some C RTL functions, they are correctly resolved when mentioned |
280 | in f1.obj and f2.obj. However, the resolution for libr1.lib and |
281 | libr2.lib is implementation-dependent. |
282 | |
283 | With -Zomf linking the symbols are resolved for libr1.lib and |
284 | libr2.lib *only if* they reside in .obj-file-sections of libperl.lib |
285 | which were already "picked up" for symbols in f1.obj f2.obj. |
286 | However, libperl.lib is an import library for a .DLL, so *each |
287 | symbol in libperl.lib sits in its own pseudo-section*! |
288 | |
289 | Corollary: only those symbol from libperl.lib which were already |
290 | mentioned in f1.obj f2.obj would be used for libr1.lib and |
291 | libr2.lib. Example: if f1.obj f2.obj do not mention calloc() but |
292 | libr1.lib and libr2.lib do, then .lib's will get calloc() of C RTL, |
293 | not one of libperl.lib. |
294 | |
295 | Solution: create a small duplicate of libperl.lib with overriding |
296 | symbols only. Put it *after* -llibr1 -llibr2 on the link line. |
297 | Map strdup() and putenv() to Perl_strdup() and Perl_putenv() |
298 | inside this library. |
299 | |
300 | Resolved: rmdir() and mkdir() do not accept trailing slashes. |
301 | Wrappers are implemented. |
302 | Resolved: when loading modules, FP mask may be erroneously changed by |
303 | _DLLInitTerm() (e.g., TCP32IP). |
304 | Solutions: a) dlopen() saves/restores the FP mask. |
305 | b) When starting, reset FP mask to a sane value |
306 | (if the DLL was compile-time linked). |
307 | New functions in package OS2: |
308 | unsigned _control87(unsigned new,unsigned mask) # as in EMX |
309 | unsigned get_control87() |
310 | # with default values good for handling exception mask: |
311 | unsigned set_control87_em(new=MCW_EM,mask=MCW_EM) |
312 | Needed to guard against other situations when the FP mask is |
313 | stompted upon. Apparently, IBM used a compiler (for some period |
314 | of time around '95?) which changes FP mask right and left... |
315 | Resolved: $^X was always uppercased (cosmetic). Solution: |
316 | use argv[0] if it differs from what the OS returns only in case. |
317 | Resolved: when creating PM message queues, WinCancelShutdown() was |
318 | not called even if the application said that it would not serve |
319 | messages in this queue. Could result in PM refusing to shutdown. |
320 | |
321 | Solution: resolve WinCancelShutdown at run time, keep the refcount |
322 | of who is going to serve the queue. |
323 | Resolved: Perl_Deregister_MQ() segfaulted (pid/tid not initialized). |
324 | Resolved: FillWinError() would not fetch the error. |
325 | Solution: resolve WinGetLastError at run time, call it. |
326 | Resolved: OS2::REXX would ignore arguments given to a Perl function |
327 | imported into the REXX compartment via REXX_eval_with(). |
328 | Resolved: OS2::REXX would treat arguments given to a Perl function |
329 | imported into the REXX compartment via _register() as ASCIIZ |
330 | strings inside of binary strings. |
331 | Resolved: OS2::REXX did not document _register(). |
332 | Resolved: OS2::REXX would not report the error to REXX if an error |
333 | condition appeared during a call to Perl function from REXX |
334 | compartment. As a result, the return string was not initialized. |
335 | A complete example of a mini-application added to OS2::REXX. |
335bd836 |
336 | README.os2 updated to reflect the current state of Perl. |
d88df687 |
337 | |
c4e0013e |
338 | pre 5.7.2: |
d88df687 |
339 | aout build: kid bootstrap_* were not associated with XS. |
340 | bldlevel did not contain enough info. |
341 | extLibpath* was failing on the call of the second type. |
342 | Configure defines flushNULL now (EMX -Zomf bug broke autodetection). |
343 | Configure did not find SIGBREAK. |
344 | extLibpath supports LIBSTRICT, better error detection. |
345 | crypt() used if present in -lcrypt or -lufc. |
346 | dumb getpw*(), getgr*() etc. supported; as in EMX, but if no |
347 | $ENV{PW_PASSWD}, the passwd field contains a string which |
348 | cannot be returned by crypt() (for security reasons). |
349 | The unwound recursion in detecting executable by script was |
350 | using static buffers. Thus system('pod2text') would fail if the |
351 | current directory contained an empty file named 'perl'. |
352 | Put ordinals in the base DLL. |
353 | Enable EXE-compression. |
354 | Load time (ms): Without /e:2: 70.6; With /e:2: 75.3; Lxlite: 62.8 |
355 | Size drops from 750K to 627K, with lxlite to 515K. |
356 | lxlite /c:max gives 488K, but dumps core in t/TEST |
357 | os2ish.h defines SYSLOG constants ==> Sys::Syslog works. |
358 | Corrected warnings related to OS/2 code. |
359 | At one place = was put instead of ==. |
360 | Setting $^E should work. |
361 | Force "SYS0dddd=0xbar: " to error messages and to dlerror(). |
362 | ($^E == 2 printed SYS0002 itself, but 110 did not.) |
363 | $OS2::nsyserror=0 switches off forcing SYSdddd on $^E. |
364 | perl_.exe does not require PM dlls any more (symbols resolved at |
365 | runtime on the as needed basis). |
366 | OS2::Process: |
367 | get/set: term size; codepages; screen's cursor; screen's contents |
368 | reliable session name setting; |
369 | process's parent pid, and the session id; |
370 | switching to and enumeration of sessions |
371 | window hierarchy inspection |
372 | post a message to a window |
373 | More robust getpriority() on older Warps. |
c4e0013e |
374 | |
375 | New C APIs for runtime loading of entry points from DLLs |
376 | (useful for entry points not present on older versions of |
377 | OS/2, or with DLLs not present on floppy-boot stripped down |
378 | setups): CallORD(), DeclFuncByORD(), DeclVoidFuncByORD(), |
379 | DeclOSFuncByORD(), DeclWinFuncByORD(), AssignFuncPByORD(). |
380 | |
381 | pre 5.7.3: |
382 | Testing with PERL_TEST_NOVREXX=1 in environment makes tests |
383 | noninteractive (VREXX test requires pressing a button on a dialog). |
384 | |
385 | New (ugly and voodooish) hack to work around a bug in EMX |
386 | runtime architecture: |
387 | |
388 | EMX.DLL is *not* initialized from its _DLL_InitTerm() |
389 | routine, but the initialization is postponed until |
390 | immediately before main() is called by the principal |
391 | executable (may be the initialization also happens during |
392 | InitTerm of -Zso -Zsys DLLs?). The only reason I can see is |
393 | to postpone the initialization until the "layout" structure |
394 | is available, so the type of the executable is known. |
395 | [Instead, one should have broken the initialization into two |
396 | steps, with no-layout-known initialization ASAP, and the |
397 | finishing touch done when "layout" is known.] |
398 | |
399 | It is due to this hack that -Zsys, -Zso etc. are needed so |
400 | often. |
401 | |
402 | If during initialization of the Perl runtime environment we |
403 | discover that EMX environment is not set up completely, this |
404 | can be because of either our DLL being called from an |
405 | uncompatible flavor of EMX executable, or from an |
406 | unrelated-to-EMX.DLL (e.g., -Zsys or compiled with a |
407 | different compiler) executable. In the first case only the |
408 | CRTL is not completely initialized, in the other case |
409 | EMX.DLL may be not initialized too. |
410 | |
411 | We detect which of these two situations takes place, then |
412 | explicitly call the initialization entry points of EMX.DLL |
413 | and of CRT. The large caveat is that the init-entry point |
414 | of EMX.DLL also moves the stack pointer (another defect of |
415 | EMX architecture, the init() and |
416 | set_exception_handlers_on_stack() entry points should have |
417 | been separated). Thus we need some inline-assembler to |
418 | compensate for this, and need to remove the installed |
419 | exception handler - it is useless anyway, since exception |
420 | handlers need to be on the stack. [This one is on the |
421 | stack, but will be overwritten on exit from the function.] |
422 | |
423 | We also install an extra hack to run our atexit() handlers |
424 | on termination of the process (since the principal |
425 | executable does not know about *this* CRTL, we need to do it |
426 | ourselves - and longjmp() out of the chain of exception |
427 | handlers at a proper moment :-(). |
428 | |
429 | The net result: Perl DLL can be now used with an arbitrary |
430 | application. PERLREXX DLL is provided which makes Perl usable |
431 | from any REXX-enabled application. |
432 | |
433 | New test targets added to test how well Perl DLL runs with |
434 | different flavors of executables (see all_harness etc). To |
435 | avoid waiting for the user button press, run with env |
436 | PERL_TEST_NOVREXX=1. |
437 | |
438 | Another hack: on init of Perl runtime environment, the |
439 | executable is tested for being an aout EMX executable. The |
440 | test is the same done by gdb, so although this test is very |
441 | voodoo, it should be pretty robust (the beginning of the |
442 | executable code - at 0x10000 - is tested for a known bit |
443 | pattern). The result is used to set $OS2::can_fork, which is |
444 | eventually used to set $Config::Config{can_fork}. |
445 | |
446 | REXX::eval_REXX() made reenterable. ADDRESS PERLEVAL |
447 | available for the run REXX code. PERLLASTERROR available. |
448 | |
449 | A .map file is created for the .dll. Now easier to debug the |
450 | failures which do not happen with a debugging executable. |
451 | |
452 | Duplicate libperl.lib as perl.lib etc. to make Embed happier. |
453 | |
454 | File::Spec better adjusted to OS/2 (still does not support aa:/dir/). |
455 | |
456 | New module OS::Process::Const with necessary constants for the |
457 | Perl calls which mimic OS/2 API calls. |
458 | |
459 | After @14577: |
460 | $Config{pager} better (but needs work in the binary installer!). |
461 | |
25417810 |
462 | New API: OS2::DLLname([type], [\&sub]) |
c4e0013e |
463 | |
464 | New OS2::Process APIs: |
465 | |
466 | process_hwnd winTitle_set winTitle swTitle_set bothTitle_set |
467 | hWindowPos hWindowPos_set DesktopWindow |
468 | ActiveWindow_set |
469 | EnableWindow EnableWindowUpdate IsWindowEnabled |
470 | IsWindowVisible IsWindowShowing WindowPtr WindowULong |
471 | WindowUShort SetWindowBits SetWindowPtr |
472 | SetWindowULong |
473 | SetWindowUShort MPFROMSHORT MPVOID MPFROMCHAR |
474 | MPFROM2SHORT |
475 | MPFROMSH2CH MPFROMLONG |
476 | |
477 | OS::Process::Const symbols exportable from OS::Process too. |
478 | |
479 | OS::Process: prototypes on subroutines which do not naturally |
480 | take "vectors" as arguments (not backwards compatible!). |
481 | |
482 | New C API: SaveCroakWinError(), WinError_2_Perl_rc, |
483 | DeclWinFuncByORD_CACHE(), DeclWinFuncByORD_CACHE_survive(), |
484 | DeclWinFuncByORD_CACHE_resetError_survive(), |
485 | DeclWinFunc_CACHE(), DeclWinFunc_CACHE_resetError(), |
486 | DeclWinFunc_CACHE_survive(), |
487 | DeclWinFunc_CACHE_resetError_survive(); many new OS2 entry |
488 | points conveniently available via wrappers which will do the |
489 | necessary run-time dynalinking. |
490 | |
491 | After @15047: |
c4e0013e |
492 | makes PerlIO preserve the binary/text mode of filehandles |
493 | chosen by CRT library. (However, TTY handles still are not |
494 | clean, since switching them to TERMIO mode and back changes |
495 | the NL translation law at runtime, and PerlIO level does not |
496 | know this.) |
00e72b55 |
497 | |
498 | After @18156: |
499 | mkdir() rmdir() tolerate trailing slashes. |
500 | "localized" morphing to PM when already morphed would unmorph at end. |
501 | Convert \n to \r\n in REXX commands (Classic REXX would allow \r and |
502 | \r\n, but not \n as line-ends). |
503 | |
504 | After @19053: |
505 | Better detection of OS/2 in Configure scripts (if c:/ is not readable). |
506 | Better Configure support for \\ inside cpp-emited # lineno "filename". |
507 | Export pthread-support functions from threaded DLL. |
508 | [older change] If perl5.def file is present, the new perl5.def has |
509 | compatible ordinals. |
510 | OS/2 code compiles with threads enabled; much more robust pthreads |
511 | emulation (but some statics still present); survives fork(). |
512 | New attributes supported with [f]stat() and chmod() |
513 | archived is 0x1000000 = 0100000000 |
514 | hidden is 0x2000000 = 0200000000 |
515 | system is 0x4000000 = 0400000000 |
516 | If extra flag 0x8000000 = 01000000000 is missing during |
517 | chmod(), these 3 flags are ignored; this extra flag |
518 | is set in the result of stat() [this provides backward |
519 | compatibility, as well as transparency of stat()/ |
520 | chmod() supporting DOSISH]. |
521 | OS/2-specific modules use XSLoader now. |
522 | Remove DLLs manually after failing build (link386 would not?!). |
523 | Special-case stat()ing "/dev/nul" and "/dev/null" too. |
524 | Update dlopen() and friends: preserve i387 flags, better error messages, |
525 | support name==NULL (load for "this" DLL); |
526 | OS2::DLL does not eval() generated functions, uses closes instead; |
527 | new method wrapper_REXX() for DLL objects. |
528 | |
529 | After @19774: |
530 | Use common typemap for OS2:: modules. |
531 | New test file os2/perlrexx.cmd (should be run manually; does not it |
532 | exit too early???). |
533 | Export fork_with_resources(), croak_with_os2error() from DLL. |
534 | usleep() availability put in %Config{}. |
535 | Combine most (but not all!) statics into one struct. |
536 | New load-on-demand C functions |
537 | Dos32QueryHeaderInfo |
538 | DosTmrQueryFreq |
539 | DosTmrQueryTime |
540 | WinQueryActiveDesktopPathname |
541 | WinInvalidateRect |
542 | WinCreateFrameControl |
543 | WinQueryClipbrdFmtInfo |
544 | WinQueryClipbrdOwner |
545 | WinQueryClipbrdViewer |
546 | WinQueryClipbrdData |
547 | WinOpenClipbrd |
548 | WinCloseClipbrd |
549 | WinSetClipbrdData |
550 | WinSetClipbrdOwner |
551 | WinSetClipbrdViewer |
552 | WinEnumClipbrdFmts |
553 | WinEmptyClipbrd |
554 | WinAddAtom |
555 | WinFindAtom |
556 | WinDeleteAtom |
557 | WinQueryAtomUsage |
558 | WinQueryAtomName |
559 | WinQueryAtomLength |
560 | WinQuerySystemAtomTable |
561 | WinCreateAtomTable |
562 | WinDestroyAtomTable |
563 | WinOpenWindowDC |
564 | DevOpenDC |
565 | DevQueryCaps |
566 | DevCloseDC |
567 | WinMessageBox |
568 | WinMessageBox2 |
569 | WinQuerySysValue |
570 | WinSetSysValue |
571 | WinAlarm |
572 | WinFlashWindow |
573 | WinLoadPointer |
574 | WinQuerySysPointer |
575 | Check "\\SEM32\\PMDRAG.SEM" before loading PM-specific DLLs. |
576 | Handling of system {realname} was not correct in presence of |
577 | exe-type deduction, #!-emulation etc. |
578 | Use optimized PUSHTARG etc. XSUB convention. |
579 | $^E stringification contains PMERR_INVALID_HWND, PMERR_INVALID_HMQ, |
580 | PMERR_CALL_FROM_WRONG_THREAD, PMERR_NO_MSG_QUEUE, |
581 | PMERR_NOT_IN_A_PM_SESSION if these errors are not in .MSG file |
582 | (at least on Warp3fp42). |
583 | PERLLIB_PREFIX augmented by PERLLIB_582_PREFIX, PERLLIB_58_PREFIX, |
584 | PERLLIB_5_PREFIX (example for 5.8.2, the first one present is |
585 | considered). |
586 | New flag bit 0x2 for OS2::MorphPM(): immediately unmorph after creation |
587 | of message queue. |
588 | (De)Registring MQ preserves i386 flags. |
589 | When die()ing inside OS2:: API, include $^E in the message. |
590 | New function OS2::Timer(): returns Tmr-timer ticks (about 1MHz) since |
591 | start of OS/2, converted to number of seconds (keep in mind |
592 | that this timer uses a different crystal than the real-time |
593 | clock; thus these values have only weak relationship to the |
594 | wall clock time; behaviour with APM on is not defined). |
595 | New function OS2::DevCap() [XXX Wrong usage message!!!] |
596 | Usage: OS2::DevCap([WHAT, [HOW=0]]); the default for WHAT is |
597 | the memory device context, WHAT should be a device context |
598 | (as integer) if HOW==0 and a window handle (as integer) if |
599 | HOW==1. Returns a hash with keys |
600 | FAMILY IO_CAPS TECHNOLOGY DRIVER_VERSION WIDTH HEIGHT |
601 | WIDTH_IN_CHARS HEIGHT_IN_CHARS HORIZONTAL_RESOLUTION |
602 | VERTICAL_RESOLUTION CHAR_WIDTH CHAR_HEIGHT |
603 | SMALL_CHAR_WIDTH SMALL_CHAR_HEIGHT COLORS COLOR_PLANES |
604 | COLOR_BITCOUNT COLOR_TABLE_SUPPORT MOUSE_BUTTONS |
605 | FOREGROUND_MIX_SUPPORT BACKGROUND_MIX_SUPPORT |
606 | VIO_LOADABLE_FONTS WINDOW_BYTE_ALIGNMENT BITMAP_FORMATS |
607 | RASTER_CAPS MARKER_HEIGHT MARKER_WIDTH DEVICE_FONTS |
608 | GRAPHICS_SUBSET GRAPHICS_VERSION GRAPHICS_VECTOR_SUBSET |
609 | DEVICE_WINDOWING ADDITIONAL_GRAPHICS PHYS_COLORS |
610 | COLOR_INDEX GRAPHICS_CHAR_WIDTH GRAPHICS_CHAR_HEIGHT |
611 | HORIZONTAL_FONT_RES VERTICAL_FONT_RES DEVICE_FONT_SIM |
612 | LINEWIDTH_THICK DEVICE_POLYSET_POINTS |
613 | New function OS2::SysValues(which = -1, hwndDesktop = HWND_DESKTOP). |
614 | If which != -1, returns the correspondg SysValue. Otherwise |
615 | returns a hash with keys: |
616 | SWAPBUTTON DBLCLKTIME CXDBLCLK CYDBLCLK |
617 | CXSIZEBORDER CYSIZEBORDER ALARM 7 8 CURSORRATE |
618 | FIRSTSCROLLRATE SCROLLRATE NUMBEREDLISTS WARNINGFREQ |
619 | NOTEFREQ ERRORFREQ WARNINGDURATION NOTEDURATION |
620 | ERRORDURATION 19 CXSCREEN CYSCREEN CXVSCROLL CYHSCROLL |
621 | CYVSCROLLARROW CXHSCROLLARROW CXBORDER CYBORDER |
622 | CXDLGFRAME CYDLGFRAME CYTITLEBAR CYVSLIDER CXHSLIDER |
623 | CXMINMAXBUTTON CYMINMAXBUTTON CYMENU |
624 | CXFULLSCREEN CYFULLSCREEN CXICON CYICON |
625 | CXPOINTER CYPOINTER DEBUG CPOINTERBUTTONS POINTERLEVEL |
626 | CURSORLEVEL TRACKRECTLEVEL CTIMERS MOUSEPRESENT |
627 | CXALIGN CYALIGN |
628 | DESKTOPWORKAREAYTOP DESKTOPWORKAREAYBOTTOM |
629 | DESKTOPWORKAREAXRIGHT DESKTOPWORKAREAXLEFT 55 |
630 | NOTRESERVED EXTRAKEYBEEP SETLIGHTS INSERTMODE 60 61 62 63 |
631 | MENUROLLDOWNDELAY MENUROLLUPDELAY ALTMNEMONIC |
632 | TASKLISTMOUSEACCESS CXICONTEXTWIDTH CICONTEXTLINES |
633 | CHORDTIME CXCHORD CYCHORD CXMOTIONSTART CYMOTIONSTART |
634 | BEGINDRAG ENDDRAG SINGLESELECT OPEN CONTEXTMENU CONTEXTHELP |
635 | TEXTEDIT BEGINSELECT ENDSELECT BEGINDRAGKB ENDDRAGKB |
636 | SELECTKB OPENKB CONTEXTMENUKB CONTEXTHELPKB TEXTEDITKB |
637 | BEGINSELECTKB ENDSELECTKB ANIMATION ANIMATIONSPEED |
638 | MONOICONS KBDALTERED PRINTSCREEN /* 97, the last one on one of the DDK header */ |
639 | LOCKSTARTINPUT DYNAMICDRAG 100 101 102 103 104 105 106 107 |
640 | New function OS2::SysValues_set(which, val, hwndDesktop = HWND_DESKTOP). |
641 | Support new keys NUMPROCESSORS MAXHPRMEM MAXHSHMEM MAXPROCESSES |
642 | VIRTUALADDRESSLIMIT INT10ENABLE from OS2::SysInfo(); support |
643 | up to 10 unnamed values after the last named one. |
644 | New function OS2::SysInfoFor(id[,count=1]). [Wrong usage message!!!] |
645 | New function OS2::Beep(freq = 440, ms = 100). |
646 | New flags mod_name_C_function = 0x100, mod_name_HMODULE = 0x200 in |
647 | addition to old mod_name_handle = 0, mod_name_shortname = 1, |
648 | mod_name_full = 2 for OS2::DLLname(flag, cv); use an address |
649 | (as integer) or module handle instead of cv. |
650 | New function OS2::_headerInfo(req,size[,handle,[offset]]). |
651 | New function OS2::libPath(); returns the value of LIBPATH. |
652 | New function OS2::mytype(which=0) to query current process type: |
653 | 0: type immediately after startup or last fork(); |
654 | 1: type immediately after startup; |
655 | 2: type before the first morphing; |
656 | 3: type as set now in the header. |
657 | New function OS2::mytype_set(type); |
658 | New function OS2::incrMaxFHandles(delta = 0); returns updated value |
659 | for the possible number of open file descriptors. |
660 | Make check_emx_runtime() thread-safe. |
661 | Fix float-to-string conversion in the range .0001..0.1 (would return |
662 | in exponential notation, per gcvt()). |
663 | Make fork(): a) preserve i387 flags; |
664 | b) preverve the dynamically loaded (system) DLLs; |
665 | c) preserve morphed status; |
666 | Make sleep() work with time > 0xffffffff/1000. |
667 | Implement usleep() via _sleep2(); make select() with num_files==0 |
668 | thread-safe (via calling DosSleep()). |
669 | OS2::Process::Const() manages (MB|MBID|CF|CFI|SPTR)_.* constants too. |
670 | New (exported) functions from OS2::Process (some undocumented???): |
671 | process_codepage_set |
672 | TopLevel |
673 | FocusWindow_set_keep_Zorder |
674 | ActiveDesktopPathname |
675 | InvalidateRect |
676 | CreateFrameControl |
677 | ClipbrdFmtInfo |
678 | ClipbrdOwner |
679 | ClipbrdViewer |
680 | ClipbrdData |
681 | OpenClipbrd |
682 | CloseClipbrd |
683 | ClipbrdData_set |
684 | ClipbrdOwner_set |
685 | ClipbrdViewer_set |
686 | EnumClipbrdFmts |
687 | EmptyClipbrd |
688 | AddAtom |
689 | FindAtom |
690 | DeleteAtom |
691 | AtomUsage |
692 | AtomName |
693 | AtomLength |
694 | SystemAtomTable |
695 | CreateAtomTable |
696 | DestroyAtomTable |
697 | _ClipbrdData_set |
698 | ClipbrdText |
699 | ClipbrdText_set |
700 | _MessageBox |
701 | MessageBox |
702 | _MessageBox2 |
703 | MessageBox2 |
704 | LoadPointer |
705 | SysPointer |
706 | Alarm |
707 | FlashWindow |
708 | Do not use AUTOLOAD in OS2::DLL; moved to OS2::DLL::dll. |
709 | New method OS2::DLL->module() (to replace botched ->new() method). |
710 | New functions call20(), call20_p(), call20_rp3(), call20_rp3_p(), |
711 | call20_Dos(), call20_Win(), call20_Win_0OK(), |
712 | call20_Win_0OK_survive() in OS2::DLL to call C functions via |
713 | pointers. |
714 | |
715 | After @20218: |
716 | select() workaround broke build of x2p. |
717 | New OS2::Process (exported, undocumented) functions: |
718 | kbdChar |
719 | kbdhChar |
720 | kbdStatus |
721 | _kbdStatus_set |
722 | kbdhStatus |
723 | kbdhStatus_set |
724 | vioConfig |
725 | viohConfig |
726 | vioMode |
727 | viohMode |
728 | viohMode_set |
729 | _vioMode_set |
730 | _vioState |
731 | _vioState_set |
732 | vioFont |
733 | vioFont_set |
734 | Make CheckOS2Error() macro return the error code. |
735 | New dynaloaded entry point DosReplaceModule(). |
736 | New function OS2::replaceModule(target [, source [, backup]]). |
737 | |
738 | After @21211: |
739 | Make Cwd::sys_abspath() default to '.' and taint the result. |
740 | Fix os2_process*.t to work if the default for VIO windows is maximized. |
741 | Fix to avoid non-existing PIDs for get_sysinfo() broke pid==0. |
742 | Restore default mode for pipes to be TEXT mode. |
743 | |
744 | After @21379: |
745 | New OS2::Process functions: __term_mirror_screen() __term_mirror() |
746 | io_term(). |
747 | Fix a.out build: special-case thread::shared, pick up all the build |
748 | static libraries, not only those for top-level modules. |
749 | Fix DLLname() test to work with the static build too. |
750 | New dynaloaded entry point RexxRegisterSubcomExe(); make OS2::REXX use |
751 | it so it is not linked with REXX*.DLLs any more. |
752 | If system "./foo", and empty "./foo" and "./foo.exe" exist, |
753 | argv[0] would be set to junk. |
754 | Make perl2cmd convert .pl files and keep the command-line switches. |
755 | Make XSLoader and Perl-specific parts of DynaLoader to die with static |
756 | builds (new variable $OS2::is_static used); |
757 | Move perlmain.obj to the DLL; export main() as dll_perlmain(); create |
758 | a library libperl_dllmain to translate the exported symbol |
759 | back to main(); link the executables with this library instead |
760 | of perlmain.obj. |
761 | Add /li to link386's options (line number info in the .map file). |
762 | Another break from fix to avoid non-existing PIDs for get_sysinfo(). |
763 | |
764 | After @21574: |
765 | Update import libraries when perl version changes (e.g., due to rsync). |
766 | New exported symbols dup() and dup2() [the wrappers have workaround |
767 | for off-by-one error + double fault in the pre-Nov2003 kernels |
768 | when a (wrong) filedescriptor which is limit+1 is dup()ed]. |
769 | Enable disabling fd via a FILE* (to avoid close() during fclose()). |
770 | New dynaloaded entry point DosPerfSysCall(). |
771 | New function OS2::perfSysCall(cmd = CMD_KI_RDCNT, ulParm1= 0, |
772 | ulParm2= 0, ulParm3= 0); when called |
773 | with cmd == CMD_KI_RDCNT = 0x63 and no other parameters, |
774 | returns: in the scalar context: the tick count of processor 1; |
775 | in the list context: 4 tick counts per processor: |
776 | total/idle/busy/interrupt-time. |
777 | with cmd == CMD_KI_GETQTY == 0x41 and no other parameters, |
778 | returns the CPU count. Currently in other cases the return |
779 | is void. |
780 | New executables perl___<number> generated with decreased stack size |
781 | (good when virtual memory is low; e.g. floppy boot). |
1933e12c |
782 | |
783 | After 5.8.2 (@21668): |
784 | Fixes to installperl scripts to avoid junk output, allow overwrite |
785 | of existing files (File::Copy::copy is mapped to DosCopy() |
786 | with flags which would not overwrite). |
787 | Disable DynaLoading of Perl modules with AOUT build (will core anyway). |
788 | For AOUT build: Quick hack to construct directories necessary for |
789 | /*/% stuff [maybe better do it from hints/os2.sh?]. |
790 | AOUT build: do -D__ST_MT_ERRNO__ to simplify linking with -Zmtd |
791 | (e.g., to test GD: gd.dll linked with -Zmtd). |
792 | MANIFEST.SKIP was read without a drive part of the filename. |
793 | Rename Cwd::extLibpath*() to OS2::... (old names still preserved). |
794 | Install perl.lib and perl.a too. |
795 | New methods libPath_find(),has_f32(),handle(),fullname() for OS2::DLL. |
796 | Enable quad support using long long. |
797 | New C exported functions os2_execname(), async_mssleep(), msCounter(), |
798 | InfoTable(), dir_subst(), Perl_OS2_handler_install(), |
799 | fill_extLibpath(). |
800 | async_mssleep() uses some undocumented features which allow usage of |
801 | highest possible resolution of sleep() while preserving low |
802 | priority (raise of resolution may be not available before |
803 | Warp3fp40; resolution is 8ms/CLOCK_SCALE). |
804 | usleep() and select(undef,undef,undef,$t) are using this |
805 | interface for time up to 0.5sec. |
806 | New convenience macros os2win_croak_0OK(rc,msg), os2win_croak(rc,msg), |
807 | os2cp_croak(rc,msg). |
808 | Supports ~installprefix, ~exe, ~dll in PERLLIB_PREFIX etc (actual |
809 | directories are substituted). |
810 | New functions OS2::msCounter(), OS2::ms_sleep(), OS2::_InfoTable(). |
811 | Checks stack when fixing EMX being under-initialized (-Zomf -Zsys |
812 | produces 32K stack???). |
813 | New environment variables PERL_BEGINLIBPATH, PERL_PRE_BEGINLIBPATH, |
814 | PERL_POST_BEGINLIBPATH, PERL_ENDLIBPATH, |
815 | PERL_PRE_ENDLIBPATH PERL_POST_ENDLIBPATH (~-enabled); |
816 | PERL_EMXLOAD_SECS. |
817 | Better handling of FIRST_MAKEFILE (propagate to subdirs during test, |
818 | do not require Makefile.PL present). |
819 | perl2cmd converter: do not rewrite if no change. |
820 | README.os2 updated with info on building binary distributions and |
821 | custom perl executables (but not much else). |