python source diffs for MSDOS (part 2/2)
Mark Anacker
marka at dsinet
Thu Apr 4 08:40:50 AEST 1991
combine with part 1, then use to patch the original sources.
#---------------------------------- cut here ----------------------------------
# This is a shell archive. Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".
#
# Wrapped by Mark Anacker <marka at dsinet> on Wed Apr 3 14:21:20 1991
#
# This archive contains:
# pythdos01
#
# Existing files will not be overwritten.
LANG=""; export LANG
PATH=/bin:/usr/bin:$PATH; export PATH
if test -f pythdos01
then
echo Ok to overwrite existing file pythdos01\?
read answer
case "$answer" in
[yY]*) echo Proceeding;;
*) echo Aborting; exit 1;;
esac
rm -f pythdos01
if test -f pythdos01
then
echo Error: could not remove pythdos01, aborting
exit 1
fi
fi
echo x - pythdos01
cat >pythdos01 <<'@EOF'
--- 24,31 ----
/* Module support implementation */
! #include "allobjects.h"
! #include "modsupport.h"
#include "import.h"
*** dossrc/modsuppo.h Wed Mar 6 10:05:48 1991
--- src/modsupport.h Wed Mar 6 10:05:48 1991
*** dossrc/moduleob.c Wed Mar 6 10:05:01 1991
--- src/moduleobject.c Wed Mar 6 10:05:01 1991
***************
*** 24,30 ****
/* Module object implementation */
! #include "allobjec.h"
typedef struct {
OB_HEAD
--- 24,30 ----
/* Module object implementation */
! #include "allobjects.h"
typedef struct {
OB_HEAD
*** dossrc/moduleob.h Wed Mar 6 10:05:48 1991
--- src/moduleobject.h Wed Mar 6 10:05:48 1991
*** dossrc/node.c Wed Mar 6 10:05:24 1991
--- src/node.c Wed Mar 6 10:05:24 1991
***************
*** 24,30 ****
/* Parse tree node implementation */
! #include "pgenhead.h"
#include "node.h"
node *
--- 24,30 ----
/* Parse tree node implementation */
! #include "pgenheaders.h"
#include "node.h"
node *
*** dossrc/node.h Wed Mar 6 10:05:33 1991
--- src/node.h Wed Mar 6 10:05:33 1991
*** dossrc/object.c Wed Mar 6 10:04:50 1991
--- src/object.c Wed Mar 6 10:04:50 1991
***************
*** 24,30 ****
/* Generic object operations; and implementation of None (NoObject) */
! #include "allobjec.h"
#ifdef REF_DEBUG
long ref_total;
--- 24,30 ----
/* Generic object operations; and implementation of None (NoObject) */
! #include "allobjects.h"
#ifdef REF_DEBUG
long ref_total;
*** dossrc/object.h Wed Mar 6 10:04:19 1991
--- src/object.h Wed Mar 6 10:04:19 1991
*** dossrc/objimpl.h Wed Mar 6 10:04:06 1991
--- src/objimpl.h Wed Mar 6 10:04:06 1991
*** dossrc/opcode.h Wed Mar 6 10:05:02 1991
--- src/opcode.h Wed Mar 6 10:05:02 1991
*** dossrc/panelmod.c Wed Mar 6 10:04:11 1991
--- src/panelmodule.c Wed Mar 6 10:04:11 1991
*** dossrc/parser.c Wed Mar 6 10:04:35 1991
--- src/parser.c Wed Mar 6 10:04:35 1991
***************
*** 28,34 ****
/* XXX To do: error recovery */
! #include "pgenhead.h"
#include "assert.h"
#include "token.h"
#include "grammar.h"
--- 28,34 ----
/* XXX To do: error recovery */
! #include "pgenheaders.h"
#include "assert.h"
#include "token.h"
#include "grammar.h"
*** dossrc/parser.h Wed Mar 6 10:05:34 1991
--- src/parser.h Wed Mar 6 10:05:34 1991
*** dossrc/parsetok.c Wed Mar 6 10:05:02 1991
--- src/parsetok.c Wed Mar 6 10:05:02 1991
***************
*** 24,31 ****
/* Parser-tokenizer link implementation */
! #include "pgenhead.h"
! #include "tokenize.h"
#include "node.h"
#include "grammar.h"
#include "parser.h"
--- 24,31 ----
/* Parser-tokenizer link implementation */
! #include "pgenheaders.h"
! #include "tokenizer.h"
#include "node.h"
#include "grammar.h"
#include "parser.h"
***************
*** 48,54 ****
{
struct tok_state *tok = tok_setups(s);
int ret;
!
if (tok == NULL) {
fprintf(stderr, "no mem for tok_setups\n");
return E_NOMEM;
--- 48,54 ----
{
struct tok_state *tok = tok_setups(s);
int ret;
!
if (tok == NULL) {
fprintf(stderr, "no mem for tok_setups\n");
return E_NOMEM;
*** dossrc/parsetok.h Wed Mar 6 10:05:49 1991
--- src/parsetok.h Wed Mar 6 10:05:49 1991
*** dossrc/patchlev.h Wed Mar 6 11:12:15 1991
--- src/patchlevel.h Wed Mar 6 11:12:15 1991
*** dossrc/pgen.c Wed Mar 6 10:04:26 1991
--- src/pgen.c Wed Mar 6 10:04:26 1991
***************
*** 27,38 ****
/* For a description, see the comments at end of this file */
! #include "pgenhead.h"
#include "assert.h"
#include "token.h"
#include "node.h"
#include "grammar.h"
! #include "metagram.h"
#include "pgen.h"
extern int debugging;
--- 27,38 ----
/* For a description, see the comments at end of this file */
! #include "pgenheaders.h"
#include "assert.h"
#include "token.h"
#include "node.h"
#include "grammar.h"
! #include "metagrammar.h"
#include "pgen.h"
extern int debugging;
*** dossrc/pgen.h Wed Mar 6 10:05:49 1991
--- src/pgen.h Wed Mar 6 10:05:49 1991
*** dossrc/pgenhead.h Wed Mar 6 10:05:36 1991
--- src/pgenheaders.h Wed Mar 6 10:05:36 1991
*** dossrc/pgenmain.c Wed Mar 6 10:05:03 1991
--- src/pgenmain.c Wed Mar 6 10:05:03 1991
***************
*** 32,38 ****
Error messages and status info during the generation process are
written to stdout, or sometimes to stderr. */
! #include "pgenhead.h"
#include "grammar.h"
#include "node.h"
#include "parsetok.h"
--- 32,38 ----
Error messages and status info during the generation process are
written to stdout, or sometimes to stderr. */
! #include "pgenheaders.h"
#include "grammar.h"
#include "node.h"
#include "parsetok.h"
***************
*** 56,62 ****
node *n;
FILE *fp;
char *filename;
!
#ifdef THINK_C
filename = askfile();
#else
--- 56,62 ----
node *n;
FILE *fp;
char *filename;
!
#ifdef THINK_C
filename = askfile();
#else
*** dossrc/posixmod.c Wed Mar 6 11:15:02 1991
--- src/posixmodule.c Wed Mar 6 11:15:02 1991
***************
*** 29,63 ****
#include <setjmp.h>
#include <sys/types.h>
#include <sys/stat.h>
! #include <time.h>
#ifdef SYSV
#include <dirent.h>
#define direct dirent
#else
! #include <dir.h>
! #include <io.h>
#endif
! #ifdef MSDOS
! #include <dos.h>
! #include <fcntl.h>
- struct timeval {
- unsigned long tv_sec;
- long tv_usec;
- };
-
- #endif
-
- #include "allobjec.h"
- #include "modsuppo.h"
-
extern char *strerror PROTO((int));
#ifdef AMOEBA
#define NO_LSTAT
#endif
/* Return a dictionary corresponding to the POSIX environment table */
extern char **environ;
--- 29,52 ----
#include <setjmp.h>
#include <sys/types.h>
#include <sys/stat.h>
! #include <sys/time.h>
#ifdef SYSV
#include <dirent.h>
#define direct dirent
#else
! #include <sys/dir.h>
#endif
! #include "allobjects.h"
! #include "modsupport.h"
extern char *strerror PROTO((int));
#ifdef AMOEBA
#define NO_LSTAT
#endif
+
/* Return a dictionary corresponding to the POSIX environment table */
extern char **environ;
***************
*** 198,216 ****
object *self;
object *args;
{
- #ifdef MSDOS
- object *path1;
- int i;
- if (!getstrintarg(args, &path1, &i))
- return NULL;
- if (_chmod(getstringvalue(path1), 1, i) < 0)
- return posix_error();
- INCREF(None);
- return None;
- #else
extern int chmod PROTO((const char *, mode_t));
! return posix_strint(args, _chmod);
! #endif
}
static object *
--- 187,194 ----
object *self;
object *args;
{
extern int chmod PROTO((const char *, mode_t));
! return posix_strint(args, chmod);
}
static object *
***************
*** 232,243 ****
object *self;
object *args;
{
- #ifndef MSDOS
extern int link PROTO((const char *, const char *));
return posix_2str(args, link);
- #else
- return NULL;
- #endif
}
static object *
--- 210,217 ----
object *self;
object *args;
{
extern int link PROTO((const char *, const char *));
return posix_2str(args, link);
}
static object *
***************
*** 246,280 ****
object *args;
{
object *name, *d, *v;
-
- #ifdef MSDOS
- struct ffblk ep;
- int rv;
- if (!getstrarg(args, &name))
- return NULL;
-
- if (findfirst((char *) getstringvalue(name),&ep,0) == -1)
- return posix_error();
- if ((d = newlistobject(0)) == NULL)
- return NULL;
- rv = 0;
- while (rv == 0) {
- v = newstringobject(ep.ff_name);
- if (v == NULL) {
- DECREF(d);
- d = NULL;
- break;
- }
- if (addlistitem(d, v) != 0) {
- DECREF(v);
- DECREF(d);
- d = NULL;
- break;
- }
- DECREF(v);
- rv = findnext(&ep);
- }
- #else
DIR *dirp;
struct direct *ep;
if (!getstrarg(args, &name))
--- 220,225 ----
object *args;
{
object *name, *d, *v;
DIR *dirp;
struct direct *ep;
if (!getstrarg(args, &name))
***************
*** 301,308 ****
DECREF(v);
}
closedir(dirp);
- #endif
-
return d;
}
--- 246,251 ----
DECREF(v);
}
closedir(dirp);
return d;
}
***************
*** 360,368 ****
object *self;
object *args;
{
- #ifdef MSDOS
- return NULL; /* no reasonable DOS equivalent */
- #else
int i;
if (!getintarg(args, &i))
return NULL;
--- 303,308 ----
object *self;
object *args;
{
int i;
if (!getintarg(args, &i))
return NULL;
***************
*** 370,376 ****
if (i < 0)
return posix_error();
return newintobject((long)i);
- #endif
}
static object *
--- 310,315 ----
if (i < 0)
return posix_error();
return newintobject((long)i);
}
static object *
***************
*** 389,401 ****
{
object *path;
struct timeval tv[2];
- #ifdef MSDOS
- struct date dt;
- struct time tm;
- struct ftime dft;
- int fh;
- #endif
-
if (args == NULL || !is_tupleobject(args) || gettuplesize(args) != 2) {
err_badarg();
return NULL;
--- 328,333 ----
{
object *path;
struct timeval tv[2];
if (args == NULL || !is_tupleobject(args) || gettuplesize(args) != 2) {
err_badarg();
return NULL;
***************
*** 405,434 ****
&tv[0].tv_sec, &tv[1].tv_sec))
return NULL;
tv[0].tv_usec = tv[1].tv_usec = 0;
- #ifdef MSDOS
- unixtodos(tv[0].tv_sec,&dt,&tm);
- dft.ft_tsec = tm.ti_sec; dft.ft_min = tm.ti_min;
- dft.ft_hour = tm.ti_hour; dft.ft_day = dt.da_day;
- dft.ft_month = dt.da_mon;
- dft.ft_year = (dt.da_year - 1980); /* this is for TC library */
-
- if ((fh = open(getstringvalue(path),O_RDWR)) < 0)
- return posix_error(); /* can't open file to set time */
- if (setftime(fh,&dft) < 0)
- {
- close(fh);
- return posix_error();
- }
- close(fh); /* close the temp handle */
- #else
if (utime(getstringvalue(path), tv) < 0)
return posix_error();
- #endif
INCREF(None);
return None;
}
- #define NO_LSTAT
#ifndef NO_LSTAT
--- 337,348 ----
&tv[0].tv_sec, &tv[1].tv_sec))
return NULL;
tv[0].tv_usec = tv[1].tv_usec = 0;
if (utime(getstringvalue(path), tv) < 0)
return posix_error();
INCREF(None);
return None;
}
#ifndef NO_LSTAT
*** dossrc/printgra.c Wed Mar 6 10:05:05 1991
--- src/printgrammar.c Wed Mar 6 10:05:05 1991
***************
*** 24,30 ****
/* Print a bunch of C initializers that represent a grammar */
! #include "pgenhead.h"
#include "grammar.h"
/* Forward */
--- 24,30 ----
/* Print a bunch of C initializers that represent a grammar */
! #include "pgenheaders.h"
#include "grammar.h"
/* Forward */
***************
*** 38,44 ****
grammar *g;
FILE *fp;
{
! fprintf(fp, "#include \"pgenhead.h\"\n");
fprintf(fp, "#include \"grammar.h\"\n");
printdfas(g, fp);
printlabels(g, fp);
--- 38,44 ----
grammar *g;
FILE *fp;
{
! fprintf(fp, "#include \"pgenheaders.h\"\n");
fprintf(fp, "#include \"grammar.h\"\n");
printdfas(g, fp);
printlabels(g, fp);
*** dossrc/profmain.c Wed Mar 6 10:05:15 1991
--- src/profmain.c Wed Mar 6 10:05:15 1991
***************
*** 30,36 ****
#include "node.h"
#include "parsetok.h"
#include "graminit.h"
! #include "tokenize.h"
#include "errcode.h"
#include "malloc.h"
--- 30,36 ----
#include "node.h"
#include "parsetok.h"
#include "graminit.h"
! #include "tokenizer.h"
#include "errcode.h"
#include "malloc.h"
***************
*** 112,118 ****
runparser(fp, start)
FILE *fp;
{
- grammar module_input;
node *n;
int ret;
ret = parsefile(fp, &gram, module_input, "Parsing", ".", &n);
--- 112,117 ----
runparser(fp, start)
FILE *fp;
{
node *n;
int ret;
ret = parsefile(fp, &gram, module_input, "Parsing", ".", &n);
*** dossrc/PROTO.h Wed Mar 6 10:05:21 1991
--- src/PROTO.h Wed Mar 6 10:05:21 1991
*** dossrc/python.c Wed Mar 6 10:04:40 1991
--- src/pythonmain.c Wed Mar 6 10:04:40 1991
***************
*** 24,42 ****
/* Python interpreter main program */
! #include "patchlev.h"
! #include "allobjec.h"
#include "grammar.h"
#include "node.h"
#include "parsetok.h"
#include "graminit.h"
#include "errcode.h"
! #include "sysmodul.h"
#include "compile.h"
#include "ceval.h"
! #include "pythonru.h"
#include "import.h"
extern char *getpythonpath();
--- 24,42 ----
/* Python interpreter main program */
! #include "patchlevel.h"
! #include "allobjects.h"
#include "grammar.h"
#include "node.h"
#include "parsetok.h"
#include "graminit.h"
#include "errcode.h"
! #include "sysmodule.h"
#include "compile.h"
#include "ceval.h"
! #include "pythonrun.h"
#include "import.h"
extern char *getpythonpath();
*** dossrc/python.prj Wed Apr 3 13:56:00 1991
--- src/python.prj Wed Apr 3 13:56:00 1991
***************
*** 1,44 ****
- python.c
-
- acceler.c
- bltinmod.c
- ceval.c
- classobj.c
- compile.c
- dictobje.c
- errors.c
- fgetsint.c
- fileobje.c
- floatobj.c
- frameobj.c
- funcobje.c
- graminit.c
- grammar1.c
- import.c
- intobjec.c
- intrchec.c
- listnode.c
- listobje.c
- mathmodu.c
- methodob.c
- modsupport.c
- moduleob.c
- node.c
- object.c
- parser.c
- parsetok.c
- posixmod.c
- regexp.c
- regexpmo.c
- strdup.c
- stringob.c
- structme.c
- sysmodul.c
- timemodu.c
- tokenize.c
- tracebac.c
- tupleobj.c
- typeobje.c
-
- config.c
-
--- 0 ----
*** dossrc/pythonru.h Wed Mar 6 10:05:37 1991
--- src/pythonrun.h Wed Mar 6 10:05:37 1991
*** dossrc/README Wed Mar 6 10:05:44 1991
--- src/README Wed Mar 6 10:05:44 1991
*** dossrc/regexp.c Wed Mar 6 10:04:12 1991
--- src/regexp.c Wed Mar 6 10:04:12 1991
***************
*** 4,10 ****
All Rights Reserved
! Permission to use, copy, modify, and distribute this software and its
documentation for any purpose and without fee is hereby granted,
provided that the above copyright notice appear in all copies and that
both that copyright notice and this permission notice appear in
--- 4,10 ----
All Rights Reserved
! Permission to use, copy, modify, and distribute this software and its
documentation for any purpose and without fee is hereby granted,
provided that the above copyright notice appear in all copies and that
both that copyright notice and this permission notice appear in
***************
*** 54,60 ****
#include "PROTO.h"
#include "malloc.h"
#undef ANY /* Conflicting identifier defined in malloc.h */
! /* #include <string.h> */ /* XXX Remove if not found */
#include "regexp.h"
#include "regmagic.h"
--- 54,60 ----
#include "PROTO.h"
#include "malloc.h"
#undef ANY /* Conflicting identifier defined in malloc.h */
! #include <string.h> /* XXX Remove if not found */
#include "regexp.h"
#include "regmagic.h"
*** dossrc/regexp.h Wed Mar 6 10:05:37 1991
--- src/regexp.h Wed Mar 6 10:05:37 1991
*** dossrc/regexpmo.c Wed Mar 6 10:04:26 1991
--- src/regexpmodule.c Wed Mar 6 10:04:26 1991
***************
*** 25,36 ****
/* Regular expression objects */
/* This needs V8 or Henry Spencer's regexp! */
! #include "allobjec.h"
! #include "modsuppo.h"
#include "regexp.h"
! static object *RegexpError; /* Exception */
typedef struct {
OB_HEAD
--- 25,36 ----
/* Regular expression objects */
/* This needs V8 or Henry Spencer's regexp! */
! #include "allobjects.h"
! #include "modsupport.h"
#include "regexp.h"
! static object *RegexpError; /* Exception */
typedef struct {
OB_HEAD
*** dossrc/regmagic.h Wed Mar 6 10:05:49 1991
--- src/regmagic.h Wed Mar 6 10:05:49 1991
*** dossrc/regsub.c Wed Mar 6 10:05:05 1991
--- src/regsub.c Wed Mar 6 10:05:05 1991
*** dossrc/rltokeni.c Wed Mar 6 10:06:09 1991
--- src/rltokenizer.c Wed Mar 6 10:06:09 1991
***************
*** 23,26 ****
******************************************************************/
#define USE_READLINE
! #include "tokenize.c"
--- 23,26 ----
******************************************************************/
#define USE_READLINE
! #include "tokenizer.c"
*** dossrc/sc_error.c Wed Mar 6 10:05:05 1991
--- src/sc_errors.c Wed Mar 6 10:05:05 1991
***************
*** 28,47 ****
#include "PROTO.h"
#include "object.h"
#include "errors.h"
! #include "sc_error.h"
! #include "stringob.h"
! #include "tupleobj.h"
object *
err_scerr(sc_errno)
int sc_errno;
{
switch(sc_errno) {
!
case NoBufSize:
err_setstr(StubcodeError, "Stubcode didn't start with BufSize");
break;
!
case TwoBufSize:
err_setstr(StubcodeError, "Stubcode can't have more then one BufSize");
break;
--- 28,47 ----
#include "PROTO.h"
#include "object.h"
#include "errors.h"
! #include "sc_errors.h"
! #include "stringobject.h"
! #include "tupleobject.h"
object *
err_scerr(sc_errno)
int sc_errno;
{
switch(sc_errno) {
!
case NoBufSize:
err_setstr(StubcodeError, "Stubcode didn't start with BufSize");
break;
!
case TwoBufSize:
err_setstr(StubcodeError, "Stubcode can't have more then one BufSize");
break;
*** dossrc/sc_error.h Wed Mar 6 10:05:50 1991
--- src/sc_errors.h Wed Mar 6 10:05:50 1991
*** dossrc/sc_globa.h Wed Mar 6 10:05:06 1991
--- src/sc_global.h Wed Mar 6 10:05:06 1991
*** dossrc/sc_inter.c Wed Mar 6 10:04:15 1991
--- src/sc_interpr.c Wed Mar 6 10:04:15 1991
***************
*** 28,46 ****
#endif
#include <stdio.h>
! #include <ailamoeb.h>
#include "PROTO.h"
#include "sc_global.h"
#include "object.h"
#include "objimpl.h"
! #include "stringob.h"
#include "errors.h"
! #include "sc_error.h"
#include "stubcode.h"
! #include "tupleobj.h"
! #include "intobjec.h"
! #include "listobje.h"
typedef struct s_loopstruct {
struct s_loopstruct *l_next; /* Make a list of it */
--- 28,46 ----
#endif
#include <stdio.h>
! #include <ailamoeba.h>
#include "PROTO.h"
#include "sc_global.h"
#include "object.h"
#include "objimpl.h"
! #include "stringobject.h"
#include "errors.h"
! #include "sc_errors.h"
#include "stubcode.h"
! #include "tupleobject.h"
! #include "intobject.h"
! #include "listobject.h"
typedef struct s_loopstruct {
struct s_loopstruct *l_next; /* Make a list of it */
*** dossrc/scdbg.c Wed Mar 6 10:05:06 1991
--- src/scdbg.c Wed Mar 6 10:05:06 1991
***************
*** 23,29 ****
******************************************************************/
! #include "sc_globa.h"
void xPrintNum(Num)
TscOperand Num;
--- 23,29 ----
******************************************************************/
! #include "sc_global.h"
void xPrintNum(Num)
TscOperand Num;
*** dossrc/sigtype.h Wed Mar 6 10:05:37 1991
--- src/sigtype.h Wed Mar 6 10:05:37 1991
*** dossrc/stdwinmo.c Wed Mar 6 10:04:09 1991
--- src/stdwinmodule.c Wed Mar 6 10:04:09 1991
*** dossrc/stdwinob.h Wed Mar 6 10:05:50 1991
--- src/stdwinobject.h Wed Mar 6 10:05:50 1991
*** dossrc/strdup.c Wed Mar 6 10:05:51 1991
--- src/strdup.c Wed Mar 6 10:05:51 1991
*** dossrc/strerror.c Wed Mar 6 10:05:51 1991
--- src/strerror.c Wed Mar 6 10:05:51 1991
*** dossrc/stringob.c Wed Mar 6 10:04:40 1991
--- src/stringobject.c Wed Mar 6 10:04:40 1991
***************
*** 24,30 ****
/* String object implementation */
! #include "allobjec.h"
object *
newsizedstringobject(str, size)
--- 24,30 ----
/* String object implementation */
! #include "allobjects.h"
object *
newsizedstringobject(str, size)
*** dossrc/stringob.h Wed Mar 6 10:05:25 1991
--- src/stringobject.h Wed Mar 6 10:05:25 1991
*** dossrc/strtol.c Wed Mar 6 10:05:16 1991
--- src/strtol.c Wed Mar 6 10:05:16 1991
*** dossrc/structme.c Wed Mar 6 10:05:06 1991
--- src/structmember.c Wed Mar 6 10:05:06 1991
***************
*** 24,32 ****
/* Map C struct members to Python object attributes */
! #include "allobjec.h"
! #include "structme.h"
object *
getmember(addr, mlist, name)
--- 24,32 ----
/* Map C struct members to Python object attributes */
! #include "allobjects.h"
! #include "structmember.h"
object *
getmember(addr, mlist, name)
*** dossrc/structme.h Wed Mar 6 10:05:25 1991
--- src/structmember.h Wed Mar 6 10:05:25 1991
*** dossrc/stubcode.h Wed Mar 6 10:06:09 1991
--- src/stubcode.h Wed Mar 6 10:06:09 1991
*** dossrc/sysmodul.c Wed Mar 6 10:04:57 1991
--- src/sysmodule.c Wed Mar 6 10:04:57 1991
***************
*** 37,47 ****
- ps1, ps2: optional primary and secondary prompts (strings)
*/
! #include "allobjec.h"
! #include "sysmodul.h"
#include "import.h"
! #include "modsuppo.h"
/* Define delimiter used in $PYTHONPATH */
--- 37,47 ----
- ps1, ps2: optional primary and secondary prompts (strings)
*/
! #include "allobjects.h"
! #include "sysmodule.h"
#include "import.h"
! #include "modsupport.h"
/* Define delimiter used in $PYTHONPATH */
*** dossrc/sysmodul.h Wed Mar 6 10:05:51 1991
--- src/sysmodule.h Wed Mar 6 10:05:51 1991
*** dossrc/timemodu.c Wed Mar 6 10:04:57 1991
--- src/timemodule.c Wed Mar 6 10:04:57 1991
***************
*** 24,32 ****
/* Time module */
! #include "allobjec.h"
! #include "modsuppo.h"
#include "sigtype.h"
--- 24,32 ----
/* Time module */
! #include "allobjects.h"
! #include "modsupport.h"
#include "sigtype.h"
*** dossrc/token.h Wed Mar 6 10:05:38 1991
--- src/token.h Wed Mar 6 10:05:38 1991
*** dossrc/tokenize.c Wed Mar 6 10:04:23 1991
--- src/tokenizer.c Wed Mar 6 10:04:23 1991
***************
*** 28,40 ****
/* XXX Need a better interface to report errors than writing to stderr */
/* XXX Should use editor resource to fetch true tab size on Macintosh */
! #include "pgenhead.h"
#include <ctype.h>
! /* #include "string.h" */
! #include "fgetsint.h"
! #include "tokenize.h"
#include "errcode.h"
#ifdef THINK_C
--- 28,40 ----
/* XXX Need a better interface to report errors than writing to stderr */
/* XXX Should use editor resource to fetch true tab size on Macintosh */
! #include "pgenheaders.h"
#include <ctype.h>
! #include "string.h"
! #include "fgetsintr.h"
! #include "tokenizer.h"
#include "errcode.h"
#ifdef THINK_C
*** dossrc/tokenize.h Wed Mar 6 10:05:25 1991
--- src/tokenizer.h Wed Mar 6 10:05:25 1991
*** dossrc/tracebac.c Wed Mar 6 10:04:57 1991
--- src/traceback.c Wed Mar 6 10:04:57 1991
***************
*** 24,35 ****
/* Traceback implementation */
! #include "allobjec.h"
#include "compile.h"
! #include "frameobj.h"
! #include "tracebac.h"
! #include "structme.h"
typedef struct _tracebackobject {
OB_HEAD
--- 24,35 ----
/* Traceback implementation */
! #include "allobjects.h"
#include "compile.h"
! #include "frameobject.h"
! #include "traceback.h"
! #include "structmember.h"
typedef struct _tracebackobject {
OB_HEAD
*** dossrc/tracebac.h Wed Mar 6 10:05:52 1991
--- src/traceback.h Wed Mar 6 10:05:52 1991
*** dossrc/tupleobj.c Wed Mar 6 10:04:51 1991
--- src/tupleobject.c Wed Mar 6 10:04:51 1991
***************
*** 24,30 ****
/* Tuple object implementation */
! #include "allobjec.h"
object *
newtupleobject(size)
--- 24,30 ----
/* Tuple object implementation */
! #include "allobjects.h"
object *
newtupleobject(size)
*** dossrc/tupleobj.h Wed Mar 6 10:05:26 1991
--- src/tupleobject.h Wed Mar 6 10:05:26 1991
*** dossrc/typeobje.c Wed Mar 6 10:05:38 1991
--- src/typeobject.c Wed Mar 6 10:05:38 1991
***************
*** 24,30 ****
/* Type object implementation */
! #include "allobjec.h"
/* Type object implementation */
--- 24,30 ----
/* Type object implementation */
! #include "allobjects.h"
/* Type object implementation */
*** dossrc/xxobject.c Wed Mar 6 10:05:07 1991
--- src/xxobject.c Wed Mar 6 10:05:07 1991
***************
*** 34,40 ****
/* Xx objects */
! #include "allobjec.h"
typedef struct {
OB_HEAD
--- 34,40 ----
/* Xx objects */
! #include "allobjects.h"
typedef struct {
OB_HEAD
@EOF
chmod 644 pythdos01
exit 0
--
Mark Anacker ...{!dsinet,!toybox}!marka
Digital Systems International, Inc. Redmond, WA USA (206) 881-7544
"We have a massive leadership vacuum in this country...
and we need to change bags" - Sen. Belfry
More information about the Alt.sources
mailing list