home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3166 < prev    next >
Encoding:
Internet Message Format  |  1991-04-08  |  24.7 KB
  1. From: marka@dsinet (Mark Anacker)
  2. Newsgroups: alt.sources
  3. Subject: python source diffs for MSDOS (part 2/2)
  4. Message-ID: <572@elroy>
  5. Date: 3 Apr 91 22:40:50 GMT
  6.  
  7. combine with part 1, then use to patch the original sources.
  8.  
  9. #---------------------------------- cut here ----------------------------------
  10. # This is a shell archive.  Remove anything before this line,
  11. # then unpack it by saving it in a file and typing "sh file".
  12. #
  13. # Wrapped by Mark Anacker <marka@dsinet> on Wed Apr  3 14:21:20 1991
  14. #
  15. # This archive contains:
  16. #    pythdos01    
  17. #
  18. # Existing files will not be overwritten.
  19.  
  20. LANG=""; export LANG
  21. PATH=/bin:/usr/bin:$PATH; export PATH
  22.  
  23. if test -f pythdos01
  24. then
  25.     echo Ok to overwrite existing file pythdos01\?
  26.     read answer
  27.     case "$answer" in
  28.     [yY]*)    echo Proceeding;;
  29.     *)    echo Aborting; exit 1;;
  30.     esac
  31.     rm -f pythdos01
  32.     if test -f pythdos01
  33.     then
  34.         echo Error: could not remove pythdos01, aborting
  35.         exit 1
  36.     fi
  37. fi
  38. echo x - pythdos01
  39. cat >pythdos01 <<'@EOF'
  40.   
  41.   
  42. --- 24,31 ----
  43.   
  44.   /* Module support implementation */
  45.   
  46. ! #include "allobjects.h"
  47. ! #include "modsupport.h"
  48.   #include "import.h"
  49.   
  50.   
  51. *** dossrc/modsuppo.h    Wed Mar  6 10:05:48 1991
  52. --- src/modsupport.h    Wed Mar  6 10:05:48 1991
  53. *** dossrc/moduleob.c    Wed Mar  6 10:05:01 1991
  54. --- src/moduleobject.c    Wed Mar  6 10:05:01 1991
  55. ***************
  56. *** 24,30 ****
  57.   
  58.   /* Module object implementation */
  59.   
  60. ! #include "allobjec.h"
  61.   
  62.   typedef struct {
  63.       OB_HEAD
  64. --- 24,30 ----
  65.   
  66.   /* Module object implementation */
  67.   
  68. ! #include "allobjects.h"
  69.   
  70.   typedef struct {
  71.       OB_HEAD
  72. *** dossrc/moduleob.h    Wed Mar  6 10:05:48 1991
  73. --- src/moduleobject.h    Wed Mar  6 10:05:48 1991
  74. *** dossrc/node.c    Wed Mar  6 10:05:24 1991
  75. --- src/node.c    Wed Mar  6 10:05:24 1991
  76. ***************
  77. *** 24,30 ****
  78.   
  79.   /* Parse tree node implementation */
  80.   
  81. ! #include "pgenhead.h"
  82.   #include "node.h"
  83.   
  84.   node *
  85. --- 24,30 ----
  86.   
  87.   /* Parse tree node implementation */
  88.   
  89. ! #include "pgenheaders.h"
  90.   #include "node.h"
  91.   
  92.   node *
  93. *** dossrc/node.h    Wed Mar  6 10:05:33 1991
  94. --- src/node.h    Wed Mar  6 10:05:33 1991
  95. *** dossrc/object.c    Wed Mar  6 10:04:50 1991
  96. --- src/object.c    Wed Mar  6 10:04:50 1991
  97. ***************
  98. *** 24,30 ****
  99.   
  100.   /* Generic object operations; and implementation of None (NoObject) */
  101.   
  102. ! #include "allobjec.h"
  103.   
  104.   #ifdef REF_DEBUG
  105.   long ref_total;
  106. --- 24,30 ----
  107.   
  108.   /* Generic object operations; and implementation of None (NoObject) */
  109.   
  110. ! #include "allobjects.h"
  111.   
  112.   #ifdef REF_DEBUG
  113.   long ref_total;
  114. *** dossrc/object.h    Wed Mar  6 10:04:19 1991
  115. --- src/object.h    Wed Mar  6 10:04:19 1991
  116. *** dossrc/objimpl.h    Wed Mar  6 10:04:06 1991
  117. --- src/objimpl.h    Wed Mar  6 10:04:06 1991
  118. *** dossrc/opcode.h    Wed Mar  6 10:05:02 1991
  119. --- src/opcode.h    Wed Mar  6 10:05:02 1991
  120. *** dossrc/panelmod.c    Wed Mar  6 10:04:11 1991
  121. --- src/panelmodule.c    Wed Mar  6 10:04:11 1991
  122. *** dossrc/parser.c    Wed Mar  6 10:04:35 1991
  123. --- src/parser.c    Wed Mar  6 10:04:35 1991
  124. ***************
  125. *** 28,34 ****
  126.   
  127.   /* XXX To do: error recovery */
  128.   
  129. ! #include "pgenhead.h"
  130.   #include "assert.h"
  131.   #include "token.h"
  132.   #include "grammar.h"
  133. --- 28,34 ----
  134.   
  135.   /* XXX To do: error recovery */
  136.   
  137. ! #include "pgenheaders.h"
  138.   #include "assert.h"
  139.   #include "token.h"
  140.   #include "grammar.h"
  141. *** dossrc/parser.h    Wed Mar  6 10:05:34 1991
  142. --- src/parser.h    Wed Mar  6 10:05:34 1991
  143. *** dossrc/parsetok.c    Wed Mar  6 10:05:02 1991
  144. --- src/parsetok.c    Wed Mar  6 10:05:02 1991
  145. ***************
  146. *** 24,31 ****
  147.   
  148.   /* Parser-tokenizer link implementation */
  149.   
  150. ! #include "pgenhead.h"
  151. ! #include "tokenize.h"
  152.   #include "node.h"
  153.   #include "grammar.h"
  154.   #include "parser.h"
  155. --- 24,31 ----
  156.   
  157.   /* Parser-tokenizer link implementation */
  158.   
  159. ! #include "pgenheaders.h"
  160. ! #include "tokenizer.h"
  161.   #include "node.h"
  162.   #include "grammar.h"
  163.   #include "parser.h"
  164. ***************
  165. *** 48,54 ****
  166.   {
  167.       struct tok_state *tok = tok_setups(s);
  168.       int ret;
  169. ! 
  170.       if (tok == NULL) {
  171.           fprintf(stderr, "no mem for tok_setups\n");
  172.           return E_NOMEM;
  173. --- 48,54 ----
  174.   {
  175.       struct tok_state *tok = tok_setups(s);
  176.       int ret;
  177. !     
  178.       if (tok == NULL) {
  179.           fprintf(stderr, "no mem for tok_setups\n");
  180.           return E_NOMEM;
  181. *** dossrc/parsetok.h    Wed Mar  6 10:05:49 1991
  182. --- src/parsetok.h    Wed Mar  6 10:05:49 1991
  183. *** dossrc/patchlev.h    Wed Mar  6 11:12:15 1991
  184. --- src/patchlevel.h    Wed Mar  6 11:12:15 1991
  185. *** dossrc/pgen.c    Wed Mar  6 10:04:26 1991
  186. --- src/pgen.c    Wed Mar  6 10:04:26 1991
  187. ***************
  188. *** 27,38 ****
  189.   
  190.   /* For a description, see the comments at end of this file */
  191.   
  192. ! #include "pgenhead.h"
  193.   #include "assert.h"
  194.   #include "token.h"
  195.   #include "node.h"
  196.   #include "grammar.h"
  197. ! #include "metagram.h"
  198.   #include "pgen.h"
  199.   
  200.   extern int debugging;
  201. --- 27,38 ----
  202.   
  203.   /* For a description, see the comments at end of this file */
  204.   
  205. ! #include "pgenheaders.h"
  206.   #include "assert.h"
  207.   #include "token.h"
  208.   #include "node.h"
  209.   #include "grammar.h"
  210. ! #include "metagrammar.h"
  211.   #include "pgen.h"
  212.   
  213.   extern int debugging;
  214. *** dossrc/pgen.h    Wed Mar  6 10:05:49 1991
  215. --- src/pgen.h    Wed Mar  6 10:05:49 1991
  216. *** dossrc/pgenhead.h    Wed Mar  6 10:05:36 1991
  217. --- src/pgenheaders.h    Wed Mar  6 10:05:36 1991
  218. *** dossrc/pgenmain.c    Wed Mar  6 10:05:03 1991
  219. --- src/pgenmain.c    Wed Mar  6 10:05:03 1991
  220. ***************
  221. *** 32,38 ****
  222.      Error messages and status info during the generation process are
  223.      written to stdout, or sometimes to stderr. */
  224.   
  225. ! #include "pgenhead.h"
  226.   #include "grammar.h"
  227.   #include "node.h"
  228.   #include "parsetok.h"
  229. --- 32,38 ----
  230.      Error messages and status info during the generation process are
  231.      written to stdout, or sometimes to stderr. */
  232.   
  233. ! #include "pgenheaders.h"
  234.   #include "grammar.h"
  235.   #include "node.h"
  236.   #include "parsetok.h"
  237. ***************
  238. *** 56,62 ****
  239.       node *n;
  240.       FILE *fp;
  241.       char *filename;
  242. ! 
  243.   #ifdef THINK_C
  244.       filename = askfile();
  245.   #else
  246. --- 56,62 ----
  247.       node *n;
  248.       FILE *fp;
  249.       char *filename;
  250. !     
  251.   #ifdef THINK_C
  252.       filename = askfile();
  253.   #else
  254. *** dossrc/posixmod.c    Wed Mar  6 11:15:02 1991
  255. --- src/posixmodule.c    Wed Mar  6 11:15:02 1991
  256. ***************
  257. *** 29,63 ****
  258.   #include <setjmp.h>
  259.   #include <sys/types.h>
  260.   #include <sys/stat.h>
  261. ! #include <time.h>
  262.   #ifdef SYSV
  263.   #include <dirent.h>
  264.   #define direct dirent
  265.   #else
  266. ! #include <dir.h>
  267. ! #include <io.h>
  268.   #endif
  269.   
  270. ! #ifdef MSDOS
  271. ! #include <dos.h>
  272. ! #include <fcntl.h>
  273.   
  274. - struct timeval {
  275. -     unsigned long tv_sec;
  276. -     long    tv_usec;
  277. -     };
  278. - 
  279. - #endif
  280. - 
  281. - #include "allobjec.h"
  282. - #include "modsuppo.h"
  283. - 
  284.   extern char *strerror PROTO((int));
  285.   
  286.   #ifdef AMOEBA
  287.   #define NO_LSTAT
  288.   #endif
  289.   
  290.   /* Return a dictionary corresponding to the POSIX environment table */
  291.   
  292.   extern char **environ;
  293. --- 29,52 ----
  294.   #include <setjmp.h>
  295.   #include <sys/types.h>
  296.   #include <sys/stat.h>
  297. ! #include <sys/time.h>
  298.   #ifdef SYSV
  299.   #include <dirent.h>
  300.   #define direct dirent
  301.   #else
  302. ! #include <sys/dir.h>
  303.   #endif
  304.   
  305. ! #include "allobjects.h"
  306. ! #include "modsupport.h"
  307.   
  308.   extern char *strerror PROTO((int));
  309.   
  310.   #ifdef AMOEBA
  311.   #define NO_LSTAT
  312.   #endif
  313.   
  314. + 
  315.   /* Return a dictionary corresponding to the POSIX environment table */
  316.   
  317.   extern char **environ;
  318. ***************
  319. *** 198,216 ****
  320.       object *self;
  321.       object *args;
  322.   {
  323. - #ifdef MSDOS
  324. -     object *path1;
  325. -     int i;
  326. -     if (!getstrintarg(args, &path1, &i))
  327. -         return NULL;
  328. -     if (_chmod(getstringvalue(path1), 1, i) < 0)
  329. -         return posix_error();
  330. -     INCREF(None);
  331. -     return None;
  332. - #else
  333.       extern int chmod PROTO((const char *, mode_t));
  334. !     return posix_strint(args, _chmod);
  335. ! #endif
  336.   }
  337.   
  338.   static object *
  339. --- 187,194 ----
  340.       object *self;
  341.       object *args;
  342.   {
  343.       extern int chmod PROTO((const char *, mode_t));
  344. !     return posix_strint(args, chmod);
  345.   }
  346.   
  347.   static object *
  348. ***************
  349. *** 232,243 ****
  350.       object *self;
  351.       object *args;
  352.   {
  353. - #ifndef MSDOS
  354.       extern int link PROTO((const char *, const char *));
  355.       return posix_2str(args, link);
  356. - #else
  357. -     return NULL;
  358. - #endif
  359.   }
  360.   
  361.   static object *
  362. --- 210,217 ----
  363.       object *self;
  364.       object *args;
  365.   {
  366.       extern int link PROTO((const char *, const char *));
  367.       return posix_2str(args, link);
  368.   }
  369.   
  370.   static object *
  371. ***************
  372. *** 246,280 ****
  373.       object *args;
  374.   {
  375.       object *name, *d, *v;
  376. - 
  377. - #ifdef MSDOS
  378. -     struct ffblk ep;
  379. -     int rv;
  380. -     if (!getstrarg(args, &name))
  381. -         return NULL;
  382. - 
  383. -     if (findfirst((char *) getstringvalue(name),&ep,0) == -1)
  384. -         return posix_error();
  385. -     if ((d = newlistobject(0)) == NULL)
  386. -         return NULL;
  387. -     rv = 0;
  388. -     while (rv == 0) {
  389. -         v = newstringobject(ep.ff_name);
  390. -         if (v == NULL) {
  391. -             DECREF(d);
  392. -             d = NULL;
  393. -             break;
  394. -         }
  395. -         if (addlistitem(d, v) != 0) {
  396. -             DECREF(v);
  397. -             DECREF(d);
  398. -             d = NULL;
  399. -             break;
  400. -         }
  401. -         DECREF(v);
  402. -         rv = findnext(&ep);
  403. -     }
  404. - #else
  405.       DIR *dirp;
  406.       struct direct *ep;
  407.       if (!getstrarg(args, &name))
  408. --- 220,225 ----
  409.       object *args;
  410.   {
  411.       object *name, *d, *v;
  412.       DIR *dirp;
  413.       struct direct *ep;
  414.       if (!getstrarg(args, &name))
  415. ***************
  416. *** 301,308 ****
  417.           DECREF(v);
  418.       }
  419.       closedir(dirp);
  420. - #endif
  421. - 
  422.       return d;
  423.   }
  424.   
  425. --- 246,251 ----
  426.           DECREF(v);
  427.       }
  428.       closedir(dirp);
  429.       return d;
  430.   }
  431.   
  432. ***************
  433. *** 360,368 ****
  434.       object *self;
  435.       object *args;
  436.   {
  437. - #ifdef MSDOS
  438. -     return NULL;            /* no reasonable DOS equivalent */
  439. - #else
  440.       int i;
  441.       if (!getintarg(args, &i))
  442.           return NULL;
  443. --- 303,308 ----
  444.       object *self;
  445.       object *args;
  446.   {
  447.       int i;
  448.       if (!getintarg(args, &i))
  449.           return NULL;
  450. ***************
  451. *** 370,376 ****
  452.       if (i < 0)
  453.           return posix_error();
  454.       return newintobject((long)i);
  455. - #endif
  456.   }
  457.   
  458.   static object *
  459. --- 310,315 ----
  460.       if (i < 0)
  461.           return posix_error();
  462.       return newintobject((long)i);
  463.   }
  464.   
  465.   static object *
  466. ***************
  467. *** 389,401 ****
  468.   {
  469.       object *path;
  470.       struct timeval tv[2];
  471. - #ifdef MSDOS
  472. -     struct date dt;
  473. -     struct time tm;
  474. -     struct ftime dft;
  475. -     int    fh;
  476. - #endif
  477. - 
  478.       if (args == NULL || !is_tupleobject(args) || gettuplesize(args) != 2) {
  479.           err_badarg();
  480.           return NULL;
  481. --- 328,333 ----
  482.   {
  483.       object *path;
  484.       struct timeval tv[2];
  485.       if (args == NULL || !is_tupleobject(args) || gettuplesize(args) != 2) {
  486.           err_badarg();
  487.           return NULL;
  488. ***************
  489. *** 405,434 ****
  490.                       &tv[0].tv_sec, &tv[1].tv_sec))
  491.           return NULL;
  492.       tv[0].tv_usec = tv[1].tv_usec = 0;
  493. - #ifdef MSDOS
  494. -     unixtodos(tv[0].tv_sec,&dt,&tm);
  495. -     dft.ft_tsec = tm.ti_sec; dft.ft_min = tm.ti_min;
  496. -     dft.ft_hour = tm.ti_hour; dft.ft_day = dt.da_day;
  497. -     dft.ft_month = dt.da_mon;
  498. -     dft.ft_year = (dt.da_year - 1980);    /* this is for TC library */
  499. - 
  500. -     if ((fh = open(getstringvalue(path),O_RDWR)) < 0)
  501. -         return posix_error();    /* can't open file to set time */
  502. -     if (setftime(fh,&dft) < 0)
  503. -     {
  504. -         close(fh);
  505. -         return posix_error();
  506. -     }
  507. -     close(fh);                /* close the temp handle */
  508. - #else
  509.       if (utime(getstringvalue(path), tv) < 0)
  510.           return posix_error();
  511. - #endif
  512.       INCREF(None);
  513.       return None;
  514.   }
  515.   
  516. - #define    NO_LSTAT
  517.   
  518.   #ifndef NO_LSTAT
  519.   
  520. --- 337,348 ----
  521.                       &tv[0].tv_sec, &tv[1].tv_sec))
  522.           return NULL;
  523.       tv[0].tv_usec = tv[1].tv_usec = 0;
  524.       if (utime(getstringvalue(path), tv) < 0)
  525.           return posix_error();
  526.       INCREF(None);
  527.       return None;
  528.   }
  529.   
  530.   
  531.   #ifndef NO_LSTAT
  532.   
  533. *** dossrc/printgra.c    Wed Mar  6 10:05:05 1991
  534. --- src/printgrammar.c    Wed Mar  6 10:05:05 1991
  535. ***************
  536. *** 24,30 ****
  537.   
  538.   /* Print a bunch of C initializers that represent a grammar */
  539.   
  540. ! #include "pgenhead.h"
  541.   #include "grammar.h"
  542.   
  543.   /* Forward */
  544. --- 24,30 ----
  545.   
  546.   /* Print a bunch of C initializers that represent a grammar */
  547.   
  548. ! #include "pgenheaders.h"
  549.   #include "grammar.h"
  550.   
  551.   /* Forward */
  552. ***************
  553. *** 38,44 ****
  554.       grammar *g;
  555.       FILE *fp;
  556.   {
  557. !     fprintf(fp, "#include \"pgenhead.h\"\n");
  558.       fprintf(fp, "#include \"grammar.h\"\n");
  559.       printdfas(g, fp);
  560.       printlabels(g, fp);
  561. --- 38,44 ----
  562.       grammar *g;
  563.       FILE *fp;
  564.   {
  565. !     fprintf(fp, "#include \"pgenheaders.h\"\n");
  566.       fprintf(fp, "#include \"grammar.h\"\n");
  567.       printdfas(g, fp);
  568.       printlabels(g, fp);
  569. *** dossrc/profmain.c    Wed Mar  6 10:05:15 1991
  570. --- src/profmain.c    Wed Mar  6 10:05:15 1991
  571. ***************
  572. *** 30,36 ****
  573.   #include "node.h"
  574.   #include "parsetok.h"
  575.   #include "graminit.h"
  576. ! #include "tokenize.h"
  577.   #include "errcode.h"
  578.   #include "malloc.h"
  579.   
  580. --- 30,36 ----
  581.   #include "node.h"
  582.   #include "parsetok.h"
  583.   #include "graminit.h"
  584. ! #include "tokenizer.h"
  585.   #include "errcode.h"
  586.   #include "malloc.h"
  587.   
  588. ***************
  589. *** 112,118 ****
  590.   runparser(fp, start)
  591.       FILE *fp;
  592.   {
  593. -     grammar module_input;
  594.       node *n;
  595.       int ret;
  596.       ret = parsefile(fp, &gram, module_input, "Parsing", ".", &n);
  597. --- 112,117 ----
  598.   runparser(fp, start)
  599.       FILE *fp;
  600.   {
  601.       node *n;
  602.       int ret;
  603.       ret = parsefile(fp, &gram, module_input, "Parsing", ".", &n);
  604. *** dossrc/PROTO.h    Wed Mar  6 10:05:21 1991
  605. --- src/PROTO.h    Wed Mar  6 10:05:21 1991
  606. *** dossrc/python.c    Wed Mar  6 10:04:40 1991
  607. --- src/pythonmain.c    Wed Mar  6 10:04:40 1991
  608. ***************
  609. *** 24,42 ****
  610.   
  611.   /* Python interpreter main program */
  612.   
  613. ! #include "patchlev.h"
  614.   
  615. ! #include "allobjec.h"
  616.   
  617.   #include "grammar.h"
  618.   #include "node.h"
  619.   #include "parsetok.h"
  620.   #include "graminit.h"
  621.   #include "errcode.h"
  622. ! #include "sysmodul.h"
  623.   #include "compile.h"
  624.   #include "ceval.h"
  625. ! #include "pythonru.h"
  626.   #include "import.h"
  627.   
  628.   extern char *getpythonpath();
  629. --- 24,42 ----
  630.   
  631.   /* Python interpreter main program */
  632.   
  633. ! #include "patchlevel.h"
  634.   
  635. ! #include "allobjects.h"
  636.   
  637.   #include "grammar.h"
  638.   #include "node.h"
  639.   #include "parsetok.h"
  640.   #include "graminit.h"
  641.   #include "errcode.h"
  642. ! #include "sysmodule.h"
  643.   #include "compile.h"
  644.   #include "ceval.h"
  645. ! #include "pythonrun.h"
  646.   #include "import.h"
  647.   
  648.   extern char *getpythonpath();
  649. *** dossrc/python.prj    Wed Apr  3 13:56:00 1991
  650. --- src/python.prj    Wed Apr  3 13:56:00 1991
  651. ***************
  652. *** 1,44 ****
  653. - python.c
  654. - 
  655. - acceler.c
  656. - bltinmod.c
  657. - ceval.c
  658. - classobj.c
  659. - compile.c
  660. - dictobje.c
  661. - errors.c
  662. - fgetsint.c
  663. - fileobje.c
  664. - floatobj.c
  665. - frameobj.c
  666. - funcobje.c
  667. - graminit.c
  668. - grammar1.c
  669. - import.c
  670. - intobjec.c
  671. - intrchec.c
  672. - listnode.c
  673. - listobje.c
  674. - mathmodu.c
  675. - methodob.c
  676. - modsupport.c
  677. - moduleob.c
  678. - node.c
  679. - object.c
  680. - parser.c
  681. - parsetok.c
  682. - posixmod.c
  683. - regexp.c
  684. - regexpmo.c
  685. - strdup.c
  686. - stringob.c
  687. - structme.c
  688. - sysmodul.c
  689. - timemodu.c
  690. - tokenize.c
  691. - tracebac.c
  692. - tupleobj.c
  693. - typeobje.c
  694. - 
  695. - config.c
  696. - 
  697. --- 0 ----
  698. *** dossrc/pythonru.h    Wed Mar  6 10:05:37 1991
  699. --- src/pythonrun.h    Wed Mar  6 10:05:37 1991
  700. *** dossrc/README    Wed Mar  6 10:05:44 1991
  701. --- src/README    Wed Mar  6 10:05:44 1991
  702. *** dossrc/regexp.c    Wed Mar  6 10:04:12 1991
  703. --- src/regexp.c    Wed Mar  6 10:04:12 1991
  704. ***************
  705. *** 4,10 ****
  706.   
  707.                           All Rights Reserved
  708.   
  709. ! Permission to use, copy, modify, and distribute this software and its
  710.   documentation for any purpose and without fee is hereby granted, 
  711.   provided that the above copyright notice appear in all copies and that
  712.   both that copyright notice and this permission notice appear in 
  713. --- 4,10 ----
  714.   
  715.                           All Rights Reserved
  716.   
  717. ! Permission to use, copy, modify, and distribute this software and its 
  718.   documentation for any purpose and without fee is hereby granted, 
  719.   provided that the above copyright notice appear in all copies and that
  720.   both that copyright notice and this permission notice appear in 
  721. ***************
  722. *** 54,60 ****
  723.   #include "PROTO.h"
  724.   #include "malloc.h"
  725.   #undef ANY /* Conflicting identifier defined in malloc.h */
  726. ! /* #include <string.h> */        /* XXX Remove if not found */
  727.   #include "regexp.h"
  728.   #include "regmagic.h"
  729.   
  730. --- 54,60 ----
  731.   #include "PROTO.h"
  732.   #include "malloc.h"
  733.   #undef ANY /* Conflicting identifier defined in malloc.h */
  734. ! #include <string.h>        /* XXX Remove if not found */
  735.   #include "regexp.h"
  736.   #include "regmagic.h"
  737.   
  738. *** dossrc/regexp.h    Wed Mar  6 10:05:37 1991
  739. --- src/regexp.h    Wed Mar  6 10:05:37 1991
  740. *** dossrc/regexpmo.c    Wed Mar  6 10:04:26 1991
  741. --- src/regexpmodule.c    Wed Mar  6 10:04:26 1991
  742. ***************
  743. *** 25,36 ****
  744.   /* Regular expression objects */
  745.   /* This needs V8 or Henry Spencer's regexp! */
  746.   
  747. ! #include "allobjec.h"
  748. ! #include "modsuppo.h"
  749.   
  750.   #include "regexp.h"
  751.   
  752. ! static object *RegexpError;    /* Exception */
  753.   
  754.   typedef struct {
  755.       OB_HEAD
  756. --- 25,36 ----
  757.   /* Regular expression objects */
  758.   /* This needs V8 or Henry Spencer's regexp! */
  759.   
  760. ! #include "allobjects.h"
  761. ! #include "modsupport.h"
  762.   
  763.   #include "regexp.h"
  764.   
  765. ! static object *RegexpError;    /* Exception */    
  766.   
  767.   typedef struct {
  768.       OB_HEAD
  769. *** dossrc/regmagic.h    Wed Mar  6 10:05:49 1991
  770. --- src/regmagic.h    Wed Mar  6 10:05:49 1991
  771. *** dossrc/regsub.c    Wed Mar  6 10:05:05 1991
  772. --- src/regsub.c    Wed Mar  6 10:05:05 1991
  773. *** dossrc/rltokeni.c    Wed Mar  6 10:06:09 1991
  774. --- src/rltokenizer.c    Wed Mar  6 10:06:09 1991
  775. ***************
  776. *** 23,26 ****
  777.   ******************************************************************/
  778.   
  779.   #define USE_READLINE
  780. ! #include "tokenize.c"
  781. --- 23,26 ----
  782.   ******************************************************************/
  783.   
  784.   #define USE_READLINE
  785. ! #include "tokenizer.c"
  786. *** dossrc/sc_error.c    Wed Mar  6 10:05:05 1991
  787. --- src/sc_errors.c    Wed Mar  6 10:05:05 1991
  788. ***************
  789. *** 28,47 ****
  790.   #include "PROTO.h"
  791.   #include "object.h"
  792.   #include "errors.h"
  793. ! #include "sc_error.h"
  794. ! #include "stringob.h"
  795. ! #include "tupleobj.h"
  796.   
  797.   object *
  798.   err_scerr(sc_errno)
  799.       int sc_errno;
  800.   {
  801.       switch(sc_errno) {
  802. ! 
  803.       case NoBufSize:
  804.           err_setstr(StubcodeError, "Stubcode didn't start with BufSize");
  805.           break;
  806. ! 
  807.       case TwoBufSize:
  808.           err_setstr(StubcodeError, "Stubcode can't have more then one BufSize");
  809.           break;
  810. --- 28,47 ----
  811.   #include "PROTO.h"
  812.   #include "object.h"
  813.   #include "errors.h"
  814. ! #include "sc_errors.h"
  815. ! #include "stringobject.h"
  816. ! #include "tupleobject.h"
  817.   
  818.   object *
  819.   err_scerr(sc_errno)
  820.       int sc_errno;
  821.   {
  822.       switch(sc_errno) {
  823. !     
  824.       case NoBufSize:
  825.           err_setstr(StubcodeError, "Stubcode didn't start with BufSize");
  826.           break;
  827. !     
  828.       case TwoBufSize:
  829.           err_setstr(StubcodeError, "Stubcode can't have more then one BufSize");
  830.           break;
  831. *** dossrc/sc_error.h    Wed Mar  6 10:05:50 1991
  832. --- src/sc_errors.h    Wed Mar  6 10:05:50 1991
  833. *** dossrc/sc_globa.h    Wed Mar  6 10:05:06 1991
  834. --- src/sc_global.h    Wed Mar  6 10:05:06 1991
  835. *** dossrc/sc_inter.c    Wed Mar  6 10:04:15 1991
  836. --- src/sc_interpr.c    Wed Mar  6 10:04:15 1991
  837. ***************
  838. *** 28,46 ****
  839.   #endif
  840.   #include <stdio.h>
  841.   
  842. ! #include <ailamoeb.h>
  843.   
  844.   #include "PROTO.h"
  845.   #include "sc_global.h"
  846.   #include "object.h"
  847.   #include "objimpl.h"
  848. ! #include "stringob.h"
  849.   #include "errors.h"
  850. ! #include "sc_error.h"
  851.   #include "stubcode.h"
  852. ! #include "tupleobj.h"
  853. ! #include "intobjec.h"
  854. ! #include "listobje.h"
  855.   
  856.   typedef struct s_loopstruct {
  857.       struct s_loopstruct    *l_next;    /* Make a list of it      */
  858. --- 28,46 ----
  859.   #endif
  860.   #include <stdio.h>
  861.   
  862. ! #include <ailamoeba.h>
  863.   
  864.   #include "PROTO.h"
  865.   #include "sc_global.h"
  866.   #include "object.h"
  867.   #include "objimpl.h"
  868. ! #include "stringobject.h"
  869.   #include "errors.h"
  870. ! #include "sc_errors.h"
  871.   #include "stubcode.h"
  872. ! #include "tupleobject.h"
  873. ! #include "intobject.h"
  874. ! #include "listobject.h"
  875.   
  876.   typedef struct s_loopstruct {
  877.       struct s_loopstruct    *l_next;    /* Make a list of it      */
  878. *** dossrc/scdbg.c    Wed Mar  6 10:05:06 1991
  879. --- src/scdbg.c    Wed Mar  6 10:05:06 1991
  880. ***************
  881. *** 23,29 ****
  882.   ******************************************************************/
  883.   
  884.   
  885. ! #include "sc_globa.h"
  886.   
  887.   void xPrintNum(Num)
  888.   TscOperand Num;
  889. --- 23,29 ----
  890.   ******************************************************************/
  891.   
  892.   
  893. ! #include "sc_global.h"
  894.   
  895.   void xPrintNum(Num)
  896.   TscOperand Num;
  897. *** dossrc/sigtype.h    Wed Mar  6 10:05:37 1991
  898. --- src/sigtype.h    Wed Mar  6 10:05:37 1991
  899. *** dossrc/stdwinmo.c    Wed Mar  6 10:04:09 1991
  900. --- src/stdwinmodule.c    Wed Mar  6 10:04:09 1991
  901. *** dossrc/stdwinob.h    Wed Mar  6 10:05:50 1991
  902. --- src/stdwinobject.h    Wed Mar  6 10:05:50 1991
  903. *** dossrc/strdup.c    Wed Mar  6 10:05:51 1991
  904. --- src/strdup.c    Wed Mar  6 10:05:51 1991
  905. *** dossrc/strerror.c    Wed Mar  6 10:05:51 1991
  906. --- src/strerror.c    Wed Mar  6 10:05:51 1991
  907. *** dossrc/stringob.c    Wed Mar  6 10:04:40 1991
  908. --- src/stringobject.c    Wed Mar  6 10:04:40 1991
  909. ***************
  910. *** 24,30 ****
  911.   
  912.   /* String object implementation */
  913.   
  914. ! #include "allobjec.h"
  915.   
  916.   object *
  917.   newsizedstringobject(str, size)
  918. --- 24,30 ----
  919.   
  920.   /* String object implementation */
  921.   
  922. ! #include "allobjects.h"
  923.   
  924.   object *
  925.   newsizedstringobject(str, size)
  926. *** dossrc/stringob.h    Wed Mar  6 10:05:25 1991
  927. --- src/stringobject.h    Wed Mar  6 10:05:25 1991
  928. *** dossrc/strtol.c    Wed Mar  6 10:05:16 1991
  929. --- src/strtol.c    Wed Mar  6 10:05:16 1991
  930. *** dossrc/structme.c    Wed Mar  6 10:05:06 1991
  931. --- src/structmember.c    Wed Mar  6 10:05:06 1991
  932. ***************
  933. *** 24,32 ****
  934.   
  935.   /* Map C struct members to Python object attributes */
  936.   
  937. ! #include "allobjec.h"
  938.   
  939. ! #include "structme.h"
  940.   
  941.   object *
  942.   getmember(addr, mlist, name)
  943. --- 24,32 ----
  944.   
  945.   /* Map C struct members to Python object attributes */
  946.   
  947. ! #include "allobjects.h"
  948.   
  949. ! #include "structmember.h"
  950.   
  951.   object *
  952.   getmember(addr, mlist, name)
  953. *** dossrc/structme.h    Wed Mar  6 10:05:25 1991
  954. --- src/structmember.h    Wed Mar  6 10:05:25 1991
  955. *** dossrc/stubcode.h    Wed Mar  6 10:06:09 1991
  956. --- src/stubcode.h    Wed Mar  6 10:06:09 1991
  957. *** dossrc/sysmodul.c    Wed Mar  6 10:04:57 1991
  958. --- src/sysmodule.c    Wed Mar  6 10:04:57 1991
  959. ***************
  960. *** 37,47 ****
  961.   - ps1, ps2: optional primary and secondary prompts (strings)
  962.   */
  963.   
  964. ! #include "allobjec.h"
  965.   
  966. ! #include "sysmodul.h"
  967.   #include "import.h"
  968. ! #include "modsuppo.h"
  969.   
  970.   /* Define delimiter used in $PYTHONPATH */
  971.   
  972. --- 37,47 ----
  973.   - ps1, ps2: optional primary and secondary prompts (strings)
  974.   */
  975.   
  976. ! #include "allobjects.h"
  977.   
  978. ! #include "sysmodule.h"
  979.   #include "import.h"
  980. ! #include "modsupport.h"
  981.   
  982.   /* Define delimiter used in $PYTHONPATH */
  983.   
  984. *** dossrc/sysmodul.h    Wed Mar  6 10:05:51 1991
  985. --- src/sysmodule.h    Wed Mar  6 10:05:51 1991
  986. *** dossrc/timemodu.c    Wed Mar  6 10:04:57 1991
  987. --- src/timemodule.c    Wed Mar  6 10:04:57 1991
  988. ***************
  989. *** 24,32 ****
  990.   
  991.   /* Time module */
  992.   
  993. ! #include "allobjec.h"
  994.   
  995. ! #include "modsuppo.h"
  996.   
  997.   #include "sigtype.h"
  998.   
  999. --- 24,32 ----
  1000.   
  1001.   /* Time module */
  1002.   
  1003. ! #include "allobjects.h"
  1004.   
  1005. ! #include "modsupport.h"
  1006.   
  1007.   #include "sigtype.h"
  1008.   
  1009. *** dossrc/token.h    Wed Mar  6 10:05:38 1991
  1010. --- src/token.h    Wed Mar  6 10:05:38 1991
  1011. *** dossrc/tokenize.c    Wed Mar  6 10:04:23 1991
  1012. --- src/tokenizer.c    Wed Mar  6 10:04:23 1991
  1013. ***************
  1014. *** 28,40 ****
  1015.   /* XXX Need a better interface to report errors than writing to stderr */
  1016.   /* XXX Should use editor resource to fetch true tab size on Macintosh */
  1017.   
  1018. ! #include "pgenhead.h"
  1019.   
  1020.   #include <ctype.h>
  1021. ! /* #include "string.h" */
  1022.   
  1023. ! #include "fgetsint.h"
  1024. ! #include "tokenize.h"
  1025.   #include "errcode.h"
  1026.   
  1027.   #ifdef THINK_C
  1028. --- 28,40 ----
  1029.   /* XXX Need a better interface to report errors than writing to stderr */
  1030.   /* XXX Should use editor resource to fetch true tab size on Macintosh */
  1031.   
  1032. ! #include "pgenheaders.h"
  1033.   
  1034.   #include <ctype.h>
  1035. ! #include "string.h"
  1036.   
  1037. ! #include "fgetsintr.h"
  1038. ! #include "tokenizer.h"
  1039.   #include "errcode.h"
  1040.   
  1041.   #ifdef THINK_C
  1042. *** dossrc/tokenize.h    Wed Mar  6 10:05:25 1991
  1043. --- src/tokenizer.h    Wed Mar  6 10:05:25 1991
  1044. *** dossrc/tracebac.c    Wed Mar  6 10:04:57 1991
  1045. --- src/traceback.c    Wed Mar  6 10:04:57 1991
  1046. ***************
  1047. *** 24,35 ****
  1048.   
  1049.   /* Traceback implementation */
  1050.   
  1051. ! #include "allobjec.h"
  1052.   
  1053.   #include "compile.h"
  1054. ! #include "frameobj.h"
  1055. ! #include "tracebac.h"
  1056. ! #include "structme.h"
  1057.   
  1058.   typedef struct _tracebackobject {
  1059.       OB_HEAD
  1060. --- 24,35 ----
  1061.   
  1062.   /* Traceback implementation */
  1063.   
  1064. ! #include "allobjects.h"
  1065.   
  1066.   #include "compile.h"
  1067. ! #include "frameobject.h"
  1068. ! #include "traceback.h"
  1069. ! #include "structmember.h"
  1070.   
  1071.   typedef struct _tracebackobject {
  1072.       OB_HEAD
  1073. *** dossrc/tracebac.h    Wed Mar  6 10:05:52 1991
  1074. --- src/traceback.h    Wed Mar  6 10:05:52 1991
  1075. *** dossrc/tupleobj.c    Wed Mar  6 10:04:51 1991
  1076. --- src/tupleobject.c    Wed Mar  6 10:04:51 1991
  1077. ***************
  1078. *** 24,30 ****
  1079.   
  1080.   /* Tuple object implementation */
  1081.   
  1082. ! #include "allobjec.h"
  1083.   
  1084.   object *
  1085.   newtupleobject(size)
  1086. --- 24,30 ----
  1087.   
  1088.   /* Tuple object implementation */
  1089.   
  1090. ! #include "allobjects.h"
  1091.   
  1092.   object *
  1093.   newtupleobject(size)
  1094. *** dossrc/tupleobj.h    Wed Mar  6 10:05:26 1991
  1095. --- src/tupleobject.h    Wed Mar  6 10:05:26 1991
  1096. *** dossrc/typeobje.c    Wed Mar  6 10:05:38 1991
  1097. --- src/typeobject.c    Wed Mar  6 10:05:38 1991
  1098. ***************
  1099. *** 24,30 ****
  1100.   
  1101.   /* Type object implementation */
  1102.   
  1103. ! #include "allobjec.h"
  1104.   
  1105.   /* Type object implementation */
  1106.   
  1107. --- 24,30 ----
  1108.   
  1109.   /* Type object implementation */
  1110.   
  1111. ! #include "allobjects.h"
  1112.   
  1113.   /* Type object implementation */
  1114.   
  1115. *** dossrc/xxobject.c    Wed Mar  6 10:05:07 1991
  1116. --- src/xxobject.c    Wed Mar  6 10:05:07 1991
  1117. ***************
  1118. *** 34,40 ****
  1119.   
  1120.   /* Xx objects */
  1121.   
  1122. ! #include "allobjec.h"
  1123.   
  1124.   typedef struct {
  1125.       OB_HEAD
  1126. --- 34,40 ----
  1127.   
  1128.   /* Xx objects */
  1129.   
  1130. ! #include "allobjects.h"
  1131.   
  1132.   typedef struct {
  1133.       OB_HEAD
  1134. @EOF
  1135.  
  1136. chmod 644 pythdos01
  1137.  
  1138. exit 0
  1139. -- 
  1140. Mark Anacker                ...{!dsinet,!toybox}!marka
  1141. Digital Systems International, Inc.    Redmond, WA   USA    (206) 881-7544
  1142. "We have a massive leadership vacuum in this country...
  1143.     and we need to change bags" - Sen. Belfry
  1144.