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 3a490aa..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.3 %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


@@ -15,8 +54,18 @@ static char sccsid[] = "@(#)int.c 1.3 %G%";
 #include       <signal.h>
 #include       "whoami.h"
 #include       "vars.h"
 #include       <signal.h>
 #include       "whoami.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)
 
        int     ac;
 main(ac,av)
 
        int     ac;


@@ -24,11 +73,11 @@ main(ac,av)
 
 {
        register char *objprog, *file;
 
 {
        register char *objprog, *file;

-       register long bytesread, block;
+       char *name;
+       register long bytesread, bytestoread, block;

        register FILE *prog;
        struct   pxhdr pxhd;
 #      define   pipe 3
        register FILE *prog;
        struct   pxhdr pxhd;
 #      define   pipe 3

-#      define   pipesize 4096

 
        /*
         * Initialize everything
 
        /*
         * Initialize everything


@@ -40,88 +89,83 @@ main(ac,av)
        /*
         * Determine how PX was invoked, and how to process the program 
         */
        /*
         * Determine how PX was invoked, and how to process the program 
         */

-       if (_argv[0][0] == '-' && _argv[0][1] == 'o')
-               {
-               file = &_argv[0][2];
+       file = _argv[1];
+       if (!strcmp(_argv[0], "pdx")) {
+               _mode = PDX;
+               _argv += 2; _argc -= 2;
+               name = _argv[0];
+       } else if (!strcmp(_argv[0], "pix")) {

                _mode = PIX;
                _mode = PIX;

-               }
-       else if (_argc <= 1)
-               {
-               file = "obj";
-               _mode = PX;
-               }
-       else if (_argv[1][0] != '-')
-               {
-               file = _argv[1];
-               _mode = PX;
-               }
-       else if (_argv[1][1] == 0)
-               {
-               file = _argv[0];
+               _argv++; _argc--;
+               name = _argv[0];
+       } else if (!strcmp(_argv[0], "pipe")) {

                _mode = PIPE;
                _mode = PIPE;

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

 \f
 \f

+       /*
+        * 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);
+       }

        /*
         * Process program header information
         */
        /*
         * Process program header information
         */

-       if (_mode == PIPE)
+       if (_mode == PIPE) {

                read(pipe,&pxhd,sizeof(struct pxhdr));
                read(pipe,&pxhd,sizeof(struct pxhdr));

-       else
-               {
+       } else {

                prog = fopen(file,"r");
                prog = fopen(file,"r");

-               if (prog == NULL)
-                       {
+               if (prog == NULL) {

                        perror(file);
                        exit(1);
                        perror(file);
                        exit(1);

-                       }
-               fseek(prog,(long)(HEADER_BYTES-sizeof(struct pxhdr)),0);
+               }

                fread(&pxhd,sizeof(struct pxhdr),1,prog);
                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);

                }
                }

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

                exit(1);
                exit(1);

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

                exit(1);
                exit(1);

-               }
+       }

 \f
        /*
         * Load program into memory
         */
        objprog = malloc((int)pxhd.objsize);
 \f
        /*
         * Load program into memory
         */
        objprog = malloc((int)pxhd.objsize);

-       if (_mode == PIPE)
-               {
+       if (_mode == PIPE) {
+               bytestoread = pxhd.objsize;

                bytesread = 0;
                bytesread = 0;

-               do
-                       {
-                       block = read(pipe,(int)(objprog+bytesread),pipesize);
-                       bytesread += block;
+               do      {
+                       block = read(pipe,(int)(objprog+bytesread),bytestoread);
+                       if (block > 0) {
+                               bytesread += block;
+                               bytestoread -= block;

                        }
                        }

-                       while (block);
-               }
-       else
-               {
+               } while (block > 0);
+       } else {

                bytesread = fread(objprog,1,(int)pxhd.objsize,prog);
                fclose(prog);
                bytesread = fread(objprog,1,(int)pxhd.objsize,prog);
                fclose(prog);

-               if (_mode == PIX)
-                       unlink(file);
-               }
-       if (bytesread != pxhd.objsize)
-               {
+       }
+       if (bytesread != pxhd.objsize) {

                fprintf(stderr,"Read error occurred while loading %s\n",file);
                exit(1);
                fprintf(stderr,"Read error occurred while loading %s\n",file);
                exit(1);

-               }
+       }

        if (_mode == PIX)
                fputs("Execution begins...\n",stderr);
        /*
        if (_mode == PIX)
                fputs("Execution begins...\n",stderr);
        /*


@@ -133,8 +177,16 @@ main(ac,av)
        if (signal(SIGINT,SIG_IGN) != SIG_IGN)
                signal(SIGINT,intr);
        signal(SIGSEGV,memsize);
        if (signal(SIGINT,SIG_IGN) != SIG_IGN)
                signal(SIGINT,intr);
        signal(SIGSEGV,memsize);

-       signal(SIGFPE,except);
+       signal(SIGFPE,EXCEPT);

        signal(SIGTRAP,liberr);
        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);
+       }
+

        /*
         * do it
         */
        /*
         * do it
         */


@@ -150,6 +202,22 @@ main(ac,av)
        signal(SIGBUS,SIG_DFL);
        signal(SIGSYS,SIG_DFL);
        PFLUSH();
        signal(SIGBUS,SIG_DFL);
        signal(SIGSYS,SIG_DFL);
        PFLUSH();

-       /* pfree(objprog); */

        psexit(0);
 }
        psexit(0);
 }

+
+/*
+ * 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.
+ */
+
+static void
+inittrap(dispaddr, dpaddr, endaddr, pcaddr, loopaddrp)
+union disply *dispaddr;
+struct disp *dpaddr;
+char *endaddr;
+union progcntr *pcaddr;
+char **loopaddrp;
+{
+       kill(getpid(), SIGIOT);
+}