home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / PERL30X.ZIP / DIFF3040.SH < prev    next >
Text File  |  1991-01-14  |  13KB  |  410 lines
  1. Some patches to make patchlevel 40 compilable.
  2.  
  3. #!/bin/sh
  4. # This is a shell archive (produced by shar 3.53)
  5. # To extract the files from this archive, save it to a file, remove
  6. # everything above the "!/bin/sh" line above, and type "sh file_name".
  7. #
  8. # made 11/16/1990 20:07 UTC by unknown@os2
  9. # Source directory F:\
  10. #
  11. # existing files will NOT be overwritten unless -c is specified
  12. #
  13. # This shar contains:
  14. # length  mode       name
  15. # ------ ---------- ------------------------------------------
  16. #   5603 -rw-rw-rw- perl3040.dif
  17. #   4092 -rw-rw-rw- alarm.c
  18. #     52 -rw-rw-rw- alarm.h
  19. #    280 -rw-rw-rw- alarm.pl
  20. #
  21. # ============= perl3040.dif ==============
  22. if test -f 'perl3040.dif' -a X"$1" != X"-c"; then
  23.     echo 'x - skipping perl3040.dif (File already exists)'
  24. else
  25. echo 'x - extracting perl3040.dif (Text)'
  26. sed 's/^X//' << 'SHAR_EOF' > 'perl3040.dif' &&
  27. Only in perl3040/OS2: alarm.c
  28. Only in perl3040/OS2: alarm.h
  29. Only in perl3040/OS2/EG: alarm.pl
  30. diff -cbBwr perl-3.0@40/os2/config.h perl3040/OS2/config.h
  31. *** perl-3.0@40/os2/config.h    Sun Oct 28 15:40:02 1990
  32. --- perl3040/os2/config.h    Thu Nov 15 22:16:00 1990
  33. ***************
  34. *** 235,241 ****
  35. X   *    This symbol, if defined, indicates that ndbm.h exists and should
  36. X   *    be included.
  37. X   */
  38. ! /*#define    NDBM        /**/
  39. X  
  40. X  /* ODBM:
  41. X   *    This symbol, if defined, indicates that dbm.h exists and should
  42. --- 235,241 ----
  43. X   *    This symbol, if defined, indicates that ndbm.h exists and should
  44. X   *    be included.
  45. X   */
  46. ! #define    NDBM        /**/
  47. X  
  48. X  /* ODBM:
  49. X   *    This symbol, if defined, indicates that dbm.h exists and should
  50. ***************
  51. *** 494,500 ****
  52. X  #ifdef OS2
  53. X  #define SIG_NAME "ZERO","HUP","INT","QUIT","ILL","TRAP","IOT","EMT","FPE",\
  54. X        /*      0      1     2     3      4      5     6     7    8 */\
  55. !    "KILL","BUS","SEGV","SYS","PIPE","ALRM","TERM","USR1","USR2","CLD",\
  56. X    /* 9     10     11    12    13     14     15     16     17    18 */\
  57. X     "PWR","USR3","BREAK","ABRT"
  58. X    /*19     20     21    22   */
  59. --- 494,500 ----
  60. X  #ifdef OS2
  61. X  #define SIG_NAME "ZERO","HUP","INT","QUIT","ILL","TRAP","IOT","EMT","FPE",\
  62. X        /*      0      1     2     3      4      5     6     7    8 */\
  63. !    "KILL","BUS","SEGV","SYS","PIPE","UALRM","TERM","ALRM","USR2","CLD",\
  64. X    /* 9     10     11    12    13     14     15     16     17    18 */\
  65. X     "PWR","USR3","BREAK","ABRT"
  66. X    /*19     20     21    22   */
  67. diff -cbBwr perl-3.0@40/os2/eg/os2.pl perl3040/OS2/EG/os2.pl
  68. *** perl-3.0@40/os2/eg/os2.pl    Sun Oct 28 15:40:02 1990
  69. --- perl3040/os2/eg/os2.pl    Thu Nov 15 22:07:24 1990
  70. ***************
  71. *** 1,4 ****
  72. --- 1,5 ----
  73. X  extproc C:\binp\misc\perl.exe -S
  74. + #!perl
  75. X  
  76. X  # os2.pl:  Demonstrates the OS/2 system calls and shows off some of the
  77. X  # features in common with the UNIX version.
  78. diff -cbBwr perl-3.0@40/os2/perl.bad perl3040/OS2/perl.bad
  79. *** perl-3.0@40/os2/perl.bad    Wed Nov 14 23:39:52 1990
  80. --- perl3040/os2/perl.bad    Thu Nov 15 20:02:04 1990
  81. ***************
  82. *** 5,7 ****
  83. --- 5,8 ----
  84. X  DOSSETPRTY
  85. X  DOSGETPRTY
  86. X  DOSQFSATTACH
  87. + DOSCREATETHREAD
  88. diff -cbBwr perl-3.0@40/os2/perl.cs perl3040/OS2/perl.cs
  89. *** perl-3.0@40/os2/perl.cs    Wed Nov 14 23:39:54 1990
  90. --- perl3040/os2/perl.cs    Thu Nov 15 20:00:08 1990
  91. ***************
  92. *** 3,11 ****
  93. X  hash.c perl.c perly.c regcomp.c regexec.c stab.c str.c util.c
  94. X  )
  95. X  (-W1 -Od -Olt -B2C2L -B3C3L -DDEBUGGING eval.c{evalargs.xc} toke.c)
  96. ! (-W1 -Od -Olt -I.
  97. ! os2\os2.c os2\popen.c os2\mktemp.c os2\director.c os2\suffix.c
  98. X  )
  99. X  
  100. X  setargv.obj
  101. X  os2\perl.def
  102. --- 3,15 ----
  103. X  hash.c perl.c perly.c regcomp.c regexec.c stab.c str.c util.c
  104. X  )
  105. X  (-W1 -Od -Olt -B2C2L -B3C3L -DDEBUGGING eval.c{evalargs.xc} toke.c)
  106. ! (-W1 -Od -Olt -I. -Ios2
  107. ! os2\os2.c os2\popen.c os2\mktemp.c os2\director.c os2\suffix.c os2\alarm.c
  108. X  )
  109. + 
  110. + ; link with this library if you have GNU gdbm for OS/2
  111. + ; remember to enable the NDBM symbol in config.h before compiling
  112. + lgdbm.lib
  113. X  
  114. X  setargv.obj
  115. X  os2\perl.def
  116. diff -cbBwr perl-3.0@40/os2/perl.def perl3040/OS2/perl.def
  117. *** perl-3.0@40/os2/perl.def    Wed Nov 14 23:39:56 1990
  118. --- perl3040/os2/perl.def    Thu Nov 15 18:36:58 1990
  119. ***************
  120. *** 1,2 ****
  121. X  NAME PERL WINDOWCOMPAT NEWFILES
  122. ! DESCRIPTION 'PERL 3.0, patchlevel 37 - for MS-DOS and OS/2'
  123. --- 1,2 ----
  124. X  NAME PERL WINDOWCOMPAT NEWFILES
  125. ! DESCRIPTION 'PERL 3.0 - for MS-DOS and OS/2'
  126. diff -cbBwr perl-3.0@40/os2/README.OS2 perl3040/OS2/readme.os2
  127. *** perl-3.0@40/os2/readme.os2    Wed Nov 14 23:38:50 1990
  128. --- perl3040/os2/readme.os2    Thu Nov 15 22:31:56 1990
  129. ***************
  130. *** 325,330 ****
  131. --- 325,332 ----
  132. X  os2.c             kernel of OS/2 port (see below)
  133. X  popen.c           new popen.c
  134. X  mktemp.c          enhanced mktemp(), uses TMP env. variable, used by popen.c
  135. + alarm.c           PD implementation for alarm()
  136. + alarm.h          header for alarm.c
  137. X  
  138. X  perl.cs           Compiler Shell script for perl itself
  139. X  perl.def          linker definition file for perl
  140. ***************
  141. *** 375,380 ****
  142. --- 378,395 ----
  143. X  + I am not shure if I can verify the OS/2 port with each release
  144. X    from Larry Wall. Therefore, in future releases there may be
  145. X    changes required to compile perl for OS/2.
  146. + 
  147. X                  October 1990
  148. + 
  149. +                                 Kai Uwe Rommel
  150. +                                 rommel@lan.informatik.tu-muenchen.dbp.de
  151. + 
  152. + 
  153. + Verified patchlevel 40.
  154. + Some bugs were fixed. Added alarm() support (using PD implementation).
  155. + 
  156. + 
  157. +                 November 1990
  158. + 
  159. X                                  Kai Uwe Rommel
  160. X                                  rommel@lan.informatik.tu-muenchen.dbp.de
  161. diff -cbBwr perl-3.0@40/os2/suffix.c perl3040/OS2/suffix.c
  162. *** perl-3.0@40/os2/suffix.c    Sun Oct 28 15:40:04 1990
  163. --- perl3040/os2/suffix.c    Thu Nov 15 19:01:40 1990
  164. ***************
  165. *** 134,146 ****
  166. X  
  167. X      switch(DosOpen(s, &hf, &usAction, 0L, 0, FILE_OPEN,
  168. X      OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE, 0L)) {
  169. X      case NO_ERROR:
  170. X      DosClose(hf);
  171. X      /*FALLTHROUGH*/
  172. X      default:
  173. X      return 1;
  174. -     case ERROR_FILENAME_EXCED_RANGE:
  175. -     return 0;
  176. X      }
  177. X  }
  178. X  #endif /* OS2 */
  179. --- 134,147 ----
  180. X  
  181. X      switch(DosOpen(s, &hf, &usAction, 0L, 0, FILE_OPEN,
  182. X      OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE, 0L)) {
  183. +     case ERROR_INVALID_NAME:
  184. +     case ERROR_FILENAME_EXCED_RANGE:
  185. +     return 0;
  186. X      case NO_ERROR:
  187. X      DosClose(hf);
  188. X      /*FALLTHROUGH*/
  189. X      default:
  190. X      return 1;
  191. X      }
  192. X  }
  193. X  #endif /* OS2 */
  194. SHAR_EOF
  195. chmod 0666 perl3040.dif ||
  196. echo 'restore of perl3040.dif failed'
  197. Wc_c="`wc -c 'perl3040.dif'`"
  198. test 5436 -eq "$Wc_c" ||
  199.     echo 'perl3040.dif: original size 5436, current size' "$Wc_c"
  200. fi
  201. # ============= alarm.c ==============
  202. if test -f 'alarm.c' -a X"$1" != X"-c"; then
  203.     echo 'x - skipping alarm.c (File already exists)'
  204. else
  205. echo 'x - extracting alarm.c (Text)'
  206. sed 's/^X//' << 'SHAR_EOF' > 'alarm.c' &&
  207. /*
  208. X * This software is Copyright 1989 by Jack Hudler.
  209. X *
  210. X * Permission is hereby granted to copy, reproduce, redistribute or otherwise
  211. X * use this software as long as: there is no monetary profit gained
  212. X * specifically from the use or reproduction or this software, it is not
  213. X * sold, rented, traded or otherwise marketed, and this copyright notice is
  214. X * included prominently in any copy made.
  215. X *
  216. X * The author make no claims as to the fitness or correctness of this software
  217. X * for any use whatsoever, and it is provided as is. Any use of this software
  218. X * is at the user's own risk.
  219. X *
  220. X */
  221. X
  222. /****************************** Module Header ******************************\
  223. * Module Name: alarm.c
  224. * Created    : 11-08-89
  225. * Author     : Jack Hudler  [jack@csccat.lonestar.org]
  226. * Copyright  : 1988 Jack Hudler.
  227. * Function   : Unix like alarm signal simulator.
  228. \***************************************************************************/
  229. X
  230. /* Tested using OS2 1.2 with Microsoft C 5.1 and 6.0. */
  231. X
  232. #define INCL_DOSPROCESS
  233. #define INCL_DOSSIGNALS
  234. #define INCL_DOS
  235. #include <os2.h>
  236. X
  237. #include <stdlib.h>
  238. #include <stdio.h>
  239. #include <signal.h>
  240. X
  241. #include "alarm.h"
  242. X
  243. #define ALARM_STACK 4096    /* This maybe over kill, but the page size is 4K */
  244. X
  245. static  PBYTE     pbAlarmStack;
  246. static  SEL       selAlarmStack;
  247. static  TID       tidAlarm;
  248. static  PID       pidMain;
  249. static  BOOL      bAlarmInit=FALSE;
  250. static  BOOL      bAlarmRunning=FALSE;
  251. static  USHORT    uTime;
  252. X
  253. static VOID FAR alarm_thread ( VOID )
  254. {
  255. X    while(1)
  256. X    {
  257. X      if (bAlarmRunning)
  258. X      {
  259. X        DosSleep(1000L);
  260. X        uTime--;
  261. X        if (uTime==0)
  262. X        {
  263. X          // send signal to the main process.. I could have put raise() here
  264. X          // however that would require the use of the multithreaded library,
  265. X          // and it does not contain raise()!
  266. X          // I tried it with the standard library, this signaled ok, but a
  267. X          // test printf in the signal would not work and even caused SEGV.
  268. X          // So I signal the process through OS/2 and then the process
  269. X          // signals itself.
  270. X          if (bAlarmRunning)
  271. X            DosFlagProcess(pidMain,FLGP_PID, PFLG_A,1);
  272. X          bAlarmRunning=FALSE;
  273. X        }
  274. X      }
  275. X      else
  276. X        DosSleep(500L);
  277. X    }
  278. }
  279. X
  280. static VOID PASCAL FAR AlarmSignal(USHORT usSigArg,USHORT usSigNum)
  281. {
  282. X    /*
  283. X     * this is not executed from the thread. The thread triggers Process
  284. X     * flag A which is in the main processes scope, this inturn triggers
  285. X     * (via the raise) SIGUSR1 which is defined to SIGALRM.
  286. X     */
  287. X    raise(SIGUSR1);
  288. }
  289. X
  290. static void alarm_init(void)
  291. {
  292. X    PFNSIGHANDLER pfnPrev;
  293. X    USHORT       pfAction;
  294. X    PIDINFO      pid;
  295. X
  296. X    bAlarmInit = TRUE;
  297. X
  298. X    if (!DosAllocSeg( ALARM_STACK, (PSEL) &selAlarmStack, SEG_NONSHARED ))
  299. X    {
  300. X      OFFSETOF(pbAlarmStack) = ALARM_STACK - 2;
  301. X      SELECTOROF(pbAlarmStack) = selAlarmStack;
  302. X      /* Create the thread */
  303. X      if (DosCreateThread( alarm_thread, &tidAlarm, pbAlarmStack ))
  304. X      {
  305. X        fprintf(stderr,"Alarm thread failed to start.\n");
  306. X        exit(1);
  307. X      }
  308. X      /* Setup the signal handler for Process Flag A */
  309. X      if (DosSetSigHandler(AlarmSignal,&pfnPrev,&pfAction,SIGA_ACCEPT,SIG_PFLG_A))
  310. X      {
  311. X        fprintf(stderr,"SigHandler Failed to install.\n");
  312. X        exit(1);
  313. X      }
  314. X      /* Save main process ID, we'll need it for triggering the signal */
  315. X      DosGetPID(&pid);
  316. X      pidMain = pid.pid;
  317. X    }
  318. X    else
  319. X      exit(1);
  320. }
  321. X
  322. unsigned alarm(unsigned sec)
  323. {
  324. X    if (!bAlarmInit) alarm_init();
  325. X
  326. X    if (sec)
  327. X    {
  328. X      uTime = sec;
  329. X      bAlarmRunning = TRUE;
  330. X    }
  331. X    else
  332. X      bAlarmRunning = FALSE;
  333. X
  334. X    return 0;
  335. }
  336. X
  337. #ifdef TESTING
  338. /* A simple test to see if it works */
  339. BOOL  x;
  340. X
  341. void timeout(void)
  342. {
  343. X    fprintf(stderr,"ALARM TRIGGERED!!\n");
  344. X    DosBeep(1000,500);
  345. X    x++;
  346. }
  347. X
  348. void main(void)
  349. {
  350. X    (void) signal(SIGALRM, timeout);
  351. X    (void) alarm(1L);
  352. X    printf("ALARM RUNNING!!\n");
  353. X    while(!x);
  354. }
  355. #endif
  356. SHAR_EOF
  357. chmod 0666 alarm.c ||
  358. echo 'restore of alarm.c failed'
  359. Wc_c="`wc -c 'alarm.c'`"
  360. test 3943 -eq "$Wc_c" ||
  361.     echo 'alarm.c: original size 3943, current size' "$Wc_c"
  362. fi
  363. # ============= alarm.h ==============
  364. if test -f 'alarm.h' -a X"$1" != X"-c"; then
  365.     echo 'x - skipping alarm.h (File already exists)'
  366. else
  367. echo 'x - extracting alarm.h (Text)'
  368. sed 's/^X//' << 'SHAR_EOF' > 'alarm.h' &&
  369. #define SIGALRM SIGUSR1
  370. unsigned alarm(unsigned);
  371. SHAR_EOF
  372. chmod 0666 alarm.h ||
  373. echo 'restore of alarm.h failed'
  374. Wc_c="`wc -c 'alarm.h'`"
  375. test 50 -eq "$Wc_c" ||
  376.     echo 'alarm.h: original size 50, current size' "$Wc_c"
  377. fi
  378. # ============= alarm.pl ==============
  379. if test -f 'alarm.pl' -a X"$1" != X"-c"; then
  380.     echo 'x - skipping alarm.pl (File already exists)'
  381. else
  382. echo 'x - extracting alarm.pl (Text)'
  383. sed 's/^X//' << 'SHAR_EOF' > 'alarm.pl' &&
  384. sub handler {
  385. X  local($sig) = @_;
  386. X  print "Caught a SIG-$sig -- shutting down\n";
  387. X  exit(0);
  388. }
  389. X
  390. $SIG{'INT'} = 'handler';
  391. $SIG{'QUIT'} = 'handler';
  392. $SIG{'ALRM'} = 'handler';
  393. X
  394. print "Starting execution ...\n";
  395. X
  396. alarm(5);
  397. X
  398. while ( <> ) {
  399. }
  400. X
  401. print "Normal exit.\n";
  402. SHAR_EOF
  403. chmod 0666 alarm.pl ||
  404. echo 'restore of alarm.pl failed'
  405. Wc_c="`wc -c 'alarm.pl'`"
  406. test 262 -eq "$Wc_c" ||
  407.     echo 'alarm.pl: original size 262, current size' "$Wc_c"
  408. fi
  409. exit 0
  410.