BSD 4_3_Net_2 release

[unix-history] / usr / src / usr.bin / pascal / px / int.c

diff --git a/usr/src/usr.bin/pascal/px/int.c b/usr/src/usr.bin/pascal/px/int.c
index c8d6df8..cc90d05 100644 (file)
--- a/usr/src/usr.bin/pascal/px/int.c
+++ b/usr/src/usr.bin/pascal/px/int.c
@@ -1,6 +1,45 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */

 
 

-static char sccsid[] = "@(#)int.c 1.1 %G%";
+#ifndef lint
+char copyright[] =
+"@(#) Copyright (c) 1980 The Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)int.c      5.3 (Berkeley) 4/16/91";
+#endif /* not lint */

 
 /*
  * px - interpreter for Berkeley Pascal
 
 /*
  * px - interpreter for Berkeley Pascal


@@ -13,139 +52,172 @@ static char sccsid[] = "@(#)int.c 1.1 %G%";
  */
 
 #include       <signal.h>
  */
 
 #include       <signal.h>

+#include       "whoami.h"

 #include       "vars.h"
 #include       "vars.h"

+#include       "libpc.h"

 #include       "objfmt.h"
 
 #include       "objfmt.h"
 

+/*
+ * New stuff for pdx
+ */
+
+extern char *end;
+extern loopaddr();
+extern union progcntr pdx_pc;  /* address of interpreter program cntr */
+static void inittrap();
+

 main(ac,av)
 
 main(ac,av)
 

-long   ac;
-char   **av;
+       int     ac;
+       char    **av;

 
 {
 
 {

-register long bytesread, block;
-register char *objprog, *file;
-register FILE *prog;
-struct  pxhdr pxhd;
-#define         pipe 3
-#define         pipesize 4096
+       register char *objprog, *file;
+       char *name;
+       register long bytesread, bytestoread, block;
+       register FILE *prog;
+       struct   pxhdr pxhd;
+#      define   pipe 3

 
 

-/*
- * Initialize everything
- */
-_argc = ac;
-_argv = av;
-_nodump = 0;
+       /*
+        * Initialize everything
+        */
+       _argc = ac;
+       _argv = av;
+       _nodump = FALSE;

 \f
 \f

-/*
- * Determine how PX was invoked, and how to process the program 
- */
-if (_argv[0][0] == '-' && _argv[0][1] == 'o')
-       {
-       file = &_argv[0][2];
-       _mode = PIX;
-       }
-else if (_argc <= 1)
-       {
-       file = "obj";
-       _mode = PX;
-       }
-else if (_argv[1][0] != '-')
-       {
+       /*
+        * Determine how PX was invoked, and how to process the program 
+        */

        file = _argv[1];
        file = _argv[1];

-       _mode = PX;
-       }
-else if (_argv[1][1] == 0)
-       {
-       file = _argv[0];
-       _mode = PIPE;
-       _argc -= 1;
-       _argv[1] = _argv[0];
-       _argv = &_argv[1];
-       }
-else
-       {
-       fputs("Improper specification of object file to PX\n",stderr);
-       exit(1);
+       if (!strcmp(_argv[0], "pdx")) {
+               _mode = PDX;
+               _argv += 2; _argc -= 2;
+               name = _argv[0];
+       } else if (!strcmp(_argv[0], "pix")) {
+               _mode = PIX;
+               _argv++; _argc--;
+               name = _argv[0];
+       } else if (!strcmp(_argv[0], "pipe")) {
+               _mode = PIPE;
+               file = "PIPE";
+               _argv++; _argc--;
+               name = _argv[0];
+       } else {
+               _mode = PX;
+               if (_argc <= 1)
+                       file = "obj";
+               name = file;

        }
 \f
        }
 \f

-/*
- * Process program header information
- */
-if (_mode == PIPE)
-       read(pipe,&pxhd,sizeof(struct pxhdr));
-else
-       {
-       prog = fopen(file,"r");
-       if (prog == NULL)
-               {
-               perror(file);
+       /*
+        * kludge to check for old style objs.
+        */
+       if (_mode == PX && !strcmp(file, "-")) {
+               fprintf(stderr, "%s is obsolete and must be recompiled\n",
+                   _argv[0]);

                exit(1);
                exit(1);

+       }
+       /*
+        * Process program header information
+        */
+       if (_mode == PIPE) {
+               read(pipe,&pxhd,sizeof(struct pxhdr));
+       } else {
+               prog = fopen(file,"r");
+               if (prog == NULL) {
+                       perror(file);
+                       exit(1);
+               }
+               fread(&pxhd,sizeof(struct pxhdr),1,prog);
+               if (pxhd.magicnum != MAGICNUM) {
+                       fseek(prog,(long)(HEADER_BYTES-sizeof(struct pxhdr)),0);
+                       fread(&pxhd,sizeof(struct pxhdr),1,prog);

                }
                }

-       fseek(prog,HEADER_BYTES-sizeof(struct pxhdr),0);
-       fread(&pxhd,sizeof(struct pxhdr),1,prog);

        }
        }

-if (pxhd.maketime < createtime)
-       {
-       fprintf(stderr,"%s is obsolete and must be recompiled\n",file);
-       exit(1);
+       if (pxhd.magicnum != MAGICNUM) {
+               fprintf(stderr,"%s is not a Pascal interpreter file\n",name);
+               exit(1);

        }
        }

-if (pxhd.magicnum != 0403)
-       {
-       fprintf(stderr,"%s is not a Pascal program\n",file);
-       exit(1);
+       if (pxhd.maketime < createtime) {
+               fprintf(stderr,"%s is obsolete and must be recompiled\n",name);
+               exit(1);

        }
 \f
        }
 \f

-/*
- * Load program into memory
- */
-objprog = malloc(pxhd.objsize);
-if (_mode == PIPE)
-       {
-       bytesread = 0;
-       do
-               {
-               block = read(pipe,objprog+bytesread,pipesize);
-               bytesread += block;
-               }
-               while (block);
+       /*
+        * Load program into memory
+        */
+       objprog = malloc((int)pxhd.objsize);
+       if (_mode == PIPE) {
+               bytestoread = pxhd.objsize;
+               bytesread = 0;
+               do      {
+                       block = read(pipe,(int)(objprog+bytesread),bytestoread);
+                       if (block > 0) {
+                               bytesread += block;
+                               bytestoread -= block;
+                       }
+               } while (block > 0);
+       } else {
+               bytesread = fread(objprog,1,(int)pxhd.objsize,prog);
+               fclose(prog);

        }
        }

-else
-       {
-       bytesread = fread(objprog,1,pxhd.objsize,prog);
-       fclose(prog);
-       if (_mode == PIX)
-               unlink(file);
+       if (bytesread != pxhd.objsize) {
+               fprintf(stderr,"Read error occurred while loading %s\n",file);
+               exit(1);

        }
        }

-if (bytesread != pxhd.objsize)
-       {
-       fprintf(stderr,"Read error occurred while loading %s\n",file);
-       exit(1);
+       if (_mode == PIX)
+               fputs("Execution begins...\n",stderr);
+       /*
+        * set interpreter to catch expected signals and begin interpretation
+        */
+       signal(SIGILL,syserr);
+       signal(SIGBUS,syserr);
+       signal(SIGSYS,syserr);
+       if (signal(SIGINT,SIG_IGN) != SIG_IGN)
+               signal(SIGINT,intr);
+       signal(SIGSEGV,memsize);
+       signal(SIGFPE,EXCEPT);
+       signal(SIGTRAP,liberr);
+
+       /*
+        * See if we're being watched by the debugger, if so set a trap.
+        */
+       if (_mode == PDX || (_mode == PIX && pxhd.symtabsize > 0)) {
+               inittrap(&_display, &_dp, objprog, &pdx_pc, loopaddr);

        }
        }

-if (_mode == PIX)
-       fputs("Execution begins...\n",stderr);
-/*
- * set interpreter to catch expected signals and begin interpretation
- */
-signal(SIGILL,syserr);
-signal(SIGBUS,syserr);
-signal(SIGSYS,syserr);
-if (signal(SIGINT,SIG_IGN) != SIG_IGN)
-       signal(SIGINT,intr);
-signal(SIGSEGV,memsize);
-signal(SIGFPE,except);
-signal(SIGTRAP,liberr);
-interpreter(objprog);
+
+       /*
+        * do it
+        */
+       interpreter(objprog);
+       /*
+        * reset signals, deallocate memory, and exit normally
+        */
+       signal(SIGINT,SIG_IGN);
+       signal(SIGSEGV,SIG_DFL);
+       signal(SIGFPE,SIG_DFL);
+       signal(SIGTRAP,SIG_DFL);
+       signal(SIGILL,SIG_DFL);
+       signal(SIGBUS,SIG_DFL);
+       signal(SIGSYS,SIG_DFL);
+       PFLUSH();
+       psexit(0);
+}
+

 /*
 /*

- * reset signals, deallocate memory, and exit normally
+ * Generate an IOT trap to tell the debugger that the object code
+ * has been read in.  Parameters are there for debugger to look at,
+ * not the procedure.

  */
  */

-signal(SIGINT,SIG_IGN);
-signal(SIGSEGV,SIG_DFL);
-signal(SIGFPE,SIG_DFL);
-signal(SIGTRAP,SIG_DFL);
-signal(SIGILL,SIG_DFL);
-signal(SIGBUS,SIG_DFL);
-signal(SIGSYS,SIG_DFL);
-PFLUSH();
-/* pfree(objprog); */
-psexit(0);
+
+static void
+inittrap(dispaddr, dpaddr, endaddr, pcaddr, loopaddrp)
+union disply *dispaddr;
+struct disp *dpaddr;
+char *endaddr;
+union progcntr *pcaddr;
+char **loopaddrp;
+{
+       kill(getpid(), SIGIOT);

 }
 }