add Berkeley specific copyright notice

[unix-history] / usr / src / old / dbx / makedefs.c

/*
* Copyright (c) 1983 The Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley.  The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/

#ifndef lint
char copyright[] =
"@(#) Copyright (c) 1983 The Regents of the University of California.\n\
All rights reserved.\n";
#endif /* not lint */

#ifndef lint
static char sccsid[] = "@(#)makedefs.c  5.5 (Berkeley) %G%";
#endif /* not lint */

/*
* Create a definitions file (e.g. .h) from an implementation file (e.g. .c).
*
* Usage is "makedefs source.c source.h" where source.h is to be created.
*
* Lines beginning with "public" or within a "#ifndef public ... #endif"
* block are copied to the new file.  Initializations (e.g. "int x = 3") are
* omitted ("int x;" is output).
*
* Normally a temporary definitions file is created and compared to
* the given destination.  If they are different, the temporary file
* is copied on top of the destination.  This is so that dependencies
* when using "make" are not triggered.
*
* The "-f" option overrides this and forces the destination file to be created.
*/

#include "defs.h"
#include <signal.h>
#include "pathnames.h"

#define procedure void

#define streqn(s1, s2, n) (strncmp(s1, s2, n) == 0)

Boolean force;
Boolean copytext;

String tmpname;
String modulename();
procedure abnorm();

main(argc, argv)
int argc;
String argv[];
{
   extern String mktemp();
   String name;
   File tmp;
   Integer r;
   Integer index;

   if (streq(argv[1], "-f")) {
       force = true;
       index = 2;
   } else {
       force = false;
       index = 1;
   }
   if (argc - index > 2) {
       fatal("usage: makedefs [ -f ] file.c [ file.h ]\n");
   }
   tmp = nil;
   if (freopen(argv[index], "r", stdin) == NULL) {
       fatal("can't read %s", argv[index]);
   }
   signal(SIGINT, abnorm);
   signal(SIGQUIT, abnorm);
   if (index + 1 < argc) {
       if (force) {
           tmpname = argv[index + 1];
       } else {
           tmpname = mktemp(_PATH_TMP);
       }
       tmp = freopen(tmpname, "w", stdout);
       if (tmp == nil) {
           fatal("can't write %s", tmpname);
       }
   }
   copytext = false;
   name = modulename(argv[index]);
   printf("#ifndef %s\n", name);
   printf("#define %s\n", name);
   copy();
   printf("#endif\n");
   if (tmp != NULL and not force) {
       fclose(tmp);
       r = call("cmp", stdin, stderr, "-s", tmpname, argv[2], nil);
       if (r != 0) {
           r = call("cp", stdin, stderr, tmpname, argv[2], nil);
           if (r != 0) {
               fprintf(stderr, "can't create %s\n", argv[2]);
           }
       }
       unlink(tmpname);
   }
   quit(0);
}

String modulename(s)
String s;
{
   String r, i, j;
   static char buf[256];

   strcpy(buf, s);
   i = rindex(buf, '/');
   if (i == nil) {
       i = buf;
   } else {
       ++i;
   }
   for (j = i; *j; j++) {
       if (*j == '.') {
           *j = '_';
       }
   }
   if (j > i && *--j == 'c') {
       *j = 'h';
   }
   return i;
}

copy()
{
   register char *p;
   integer nesting;
   char line[1024];

   while (gets(line) != NULL) {
       if (streqn(line, "#ifndef public", 14)) {
           copytext = true;
           nesting = 1;
       } else if (streqn(line, "public", 6)) {
           copydef(line);
       } else if (copytext) {
           if (streqn(line, "#ifdef", 6) or streqn(line, "#ifndef", 7)) {
               ++nesting;
               printf("%s\n", line);
           } else if (streqn(line, "#endif", 6)) {
               --nesting;
               if (nesting <= 0) {
                   copytext = false;
               } else {
                   printf("%s\n", line);
               }
           } else {
               printf("%s\n", line);
           }
       } else if (
           streqn(line, "#ifdef", 6) or
           streqn(line, "#ifndef", 7) or
           streqn(line, "#else", 5) or
           streqn(line, "#endif", 6)
       ) {
           printf("%s\n", line);
       }
   }
}

copydef(s)
String s;
{
   register char *p;
   register Boolean isproc;

   isproc = false;
   for (p = &s[7]; *p != '\0' and *p != '='; p++) {
       if (*p == '(') {
           isproc = true;
           printf("(/* ");
       } else if (*p == ')' and isproc and *(p+1) == '\0') {
           printf(" */)");
       } else {
           putchar(*p);
       }
   }
   if (isproc or *p == '=') {
       putchar(';');
   }
   putchar('\n');
}

/*
* Terminate program.
*/

procedure abnorm(signo)
int signo;
{
   unlink(tmpname);
   quit(signo);
}

quit(r)
int r;
{
   exit(r);
}

/*
* No special error recovery strategy.
*/

erecover()
{
}