home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / make / main.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-02-09  |  6.1 KB  |  365 lines
  1. # include "defs"
  2. /*
  3. command make to update programs.
  4. Flags:    'd'  print out debugging comments
  5.     'p'  print out a version of the input graph
  6.     's'  silent mode--don't print out commands
  7.     'f'  the next argument is the name of the description file;
  8.          "makefile" is the default
  9.     'i'  ignore error codes from the shell
  10.     'S'  stop after any command fails (normally do parallel work)
  11.     'n'   don't issue, just print, commands
  12.     't'   touch (update time of) files but don't issue command
  13.     'q'   don't do anything, but check if object is up to date;
  14.           returns exit code 0 if up to date, -1 if not
  15. */
  16.  
  17. struct nameblock *mainname ;
  18. struct nameblock *firstname;
  19. struct lineblock *sufflist;
  20. struct varblock *firstvar;
  21. struct pattern *firstpat ;
  22. struct opendir *firstod;
  23.  
  24. #include <signal.h>
  25. int sigivalue    = 0;
  26. int sigqvalue    = 0;
  27. int waitpid    = 0;
  28.  
  29. int dbgflag    = NO;
  30. int prtrflag    = NO;
  31. int silflag    = NO;
  32. int noexflag    = NO;
  33. int keepgoing    = NO;
  34. int noruleflag    = NO;
  35. int touchflag    = NO;
  36. int questflag    = NO;
  37. int ndocoms    = NO;
  38. int ignerr    = NO;    /* default is to stop on error */
  39. int okdel    = YES;
  40. int inarglist;
  41. char *prompt    = "";    /* other systems -- pick what you want */
  42. char junkname[20];
  43. char funny[128];
  44.  
  45. main(argc,argv)
  46. int argc;
  47. char *argv[];
  48. {
  49. register struct nameblock *p;
  50. int i, j;
  51. int descset, nfargs;
  52. TIMETYPE tjunk;
  53. char c, *s;
  54. static char onechar[2] = "X";
  55. #ifdef unix
  56. int intrupt();
  57.  
  58.  
  59.  
  60. #endif
  61.  
  62. #ifdef METERFILE
  63. meter(METERFILE);
  64. #endif
  65.  
  66. descset = 0;
  67.  
  68. funny['\0'] = (META | TERMINAL);
  69. for(s = "=|^();&<>*?[]:$`'\"\\\n" ; *s ; ++s)
  70.     funny[*s] |= META;
  71. for(s = "\n\t :;&>|" ; *s ; ++s)
  72.     funny[*s] |= TERMINAL;
  73.  
  74.  
  75. inarglist = 1;
  76. for(i=1; i<argc; ++i)
  77.     if(argv[i]!=0 && argv[i][0]!='-' && eqsign(argv[i]))
  78.         argv[i] = 0;
  79.  
  80. setvar("$","$");
  81. inarglist = 0;
  82.  
  83. for(i=1; i<argc; ++i)
  84.     if(argv[i]!=0 && argv[i][0]=='-')
  85.     {
  86.     for(j=1 ; (c=argv[i][j])!='\0' ; ++j)  switch(c)
  87.         {
  88.         case 'd':
  89.             dbgflag = YES;
  90.             break;
  91.  
  92.         case 'p':
  93.             prtrflag = YES;
  94.             break;
  95.  
  96.         case 's':
  97.             silflag = YES;
  98.             break;
  99.  
  100.         case 'i':
  101.             ignerr = YES;
  102.             break;
  103.  
  104.         case 'S':
  105.             keepgoing = NO;
  106.             break;
  107.  
  108.         case 'k':
  109.             keepgoing = YES;
  110.             break;
  111.  
  112.         case 'n':
  113.             noexflag = YES;
  114.             break;
  115.  
  116.         case 'r':
  117.             noruleflag = YES;
  118.             break;
  119.  
  120.         case 't':
  121.             touchflag = YES;
  122.             break;
  123.  
  124.         case 'q':
  125.             questflag = YES;
  126.             break;
  127.  
  128.         case 'f':
  129.             if(i >= argc-1)
  130.               fatal("No description argument after -f flag");
  131.             if( rddescf(argv[i+1]) )
  132.                 fatal1("Cannot open %s", argv[i+1]);
  133.             argv[i+1] = 0;
  134.             ++descset;
  135.             break;
  136.  
  137.         default:
  138.             onechar[0] = c;    /* to make lint happy */
  139.             fatal1("Unknown flag argument %s", onechar);
  140.         }
  141.  
  142.     argv[i] = 0;
  143.     }
  144.  
  145. if( !descset )
  146. #ifdef unix
  147.     if( rddescf("makefile") )  rddescf("Makefile");
  148. #endif
  149. #ifdef gcos
  150.     rddescf("makefile");
  151. #endif
  152.  
  153. if(prtrflag) printdesc(NO);
  154.  
  155. if( srchname(".IGNORE") ) ++ignerr;
  156. if( srchname(".SILENT") ) silflag = 1;
  157. if(p=srchname(".SUFFIXES")) sufflist = p->linep;
  158. if( !sufflist ) fprintf(stderr,"No suffix list.\n");
  159.  
  160. #ifdef unix
  161. sigivalue = (int) signal(SIGINT, SIG_IGN) & 01;
  162. sigqvalue = (int) signal(SIGQUIT, SIG_IGN) & 01;
  163. enbint(intrupt);
  164. #endif
  165.  
  166. nfargs = 0;
  167.  
  168. for(i=1; i<argc; ++i)
  169.     if((s=argv[i]) != 0)
  170.         {
  171.         if((p=srchname(s)) == 0)
  172.             {
  173.             p = makename(s);
  174.             }
  175.         ++nfargs;
  176.         doname(p, 0, &tjunk);
  177.         if(dbgflag) printdesc(YES);
  178.         }
  179.  
  180. /*
  181. If no file arguments have been encountered, make the first
  182. name encountered that doesn't start with a dot
  183. */
  184.  
  185. if(nfargs == 0)
  186.     if(mainname == 0)
  187.         fatal("No arguments or description file");
  188.     else    {
  189.         doname(mainname, 0, &tjunk);
  190.         if(dbgflag) printdesc(YES);
  191.         }
  192.  
  193. exit(0);
  194. }
  195.  
  196.  
  197.  
  198. #ifdef unix
  199. intrupt()
  200. {
  201. struct varblock *varptr();
  202. char *p;
  203. TIMETYPE exists();
  204.  
  205. if(okdel && !noexflag && !touchflag &&
  206.     (p = varptr("@")->varval) && exists(p)>0 && !isprecious(p) )
  207.         {
  208.         fprintf(stderr, "\n***  %s removed.", p);
  209.         unlink(p);
  210.         }
  211.  
  212. if(junkname[0])
  213.     unlink(junkname);
  214. fprintf(stderr, "\n");
  215. exit(2);
  216. }
  217.  
  218.  
  219.  
  220.  
  221. isprecious(p)
  222. char *p;
  223. {
  224. register struct lineblock *lp;
  225. register struct depblock *dp;
  226. register struct nameblock *np;
  227.  
  228. if(np = srchname(".PRECIOUS"))
  229.     for(lp = np->linep ; lp ; lp = lp->nxtlineblock)
  230.         for(dp = lp->depp ; dp ; dp = dp->nxtdepblock)
  231.             if(! unequal(p, dp->depname->namep))
  232.                 return(YES);
  233.  
  234. return(NO);
  235. }
  236.  
  237.  
  238. enbint(k)
  239. int (*k)();
  240. {
  241. if(sigivalue == 0)
  242.     signal(SIGINT,k);
  243. if(sigqvalue == 0)
  244.     signal(SIGQUIT,k);
  245. }
  246. #endif
  247.  
  248. extern char *builtin[];
  249.  
  250. char **linesptr    = builtin;
  251.  
  252. FILE * fin;
  253. int firstrd    = 0;
  254.  
  255.  
  256. rddescf(descfile)
  257. char *descfile;
  258. {
  259. extern int yylineno;
  260. extern char *zznextc;
  261. FILE * k;
  262.  
  263. /* read and parse description */
  264.  
  265. if( !firstrd++ )
  266.     {
  267.     if( !noruleflag )
  268.         rdd1( (FILE *) NULL);
  269.  
  270. #ifdef pwb
  271.         {
  272.         char *nlog, s[100];
  273.         nlog = logdir();
  274.         if ( (k=fopen( concat(nlog,"/makecomm",s), "r")) != NULL)
  275.             rdd1(k);
  276.         else if ( (k=fopen( concat(nlog,"/Makecomm",s), "r")) != NULL)
  277.             rdd1(k);
  278.     
  279.         if ( (k=fopen("makecomm", "r")) != NULL)
  280.             rdd1(k);
  281.         else if ( (k=fopen("Makecomm", "r")) != NULL)
  282.             rdd1(k);
  283.         }
  284. #endif
  285.  
  286.     }
  287. if(! unequal(descfile, "-"))
  288.     return( rdd1(stdin) );
  289.  
  290. if( (k = fopen(descfile,"r")) != NULL)
  291.     return( rdd1(k) );
  292.  
  293. return(1);
  294. }
  295.  
  296.  
  297.  
  298.  
  299. rdd1(k)
  300. FILE * k;
  301. {
  302. fin = k;
  303. yylineno = 0;
  304. zznextc = 0;
  305.  
  306. if( yyparse() )
  307.     fatal("Description file error");
  308.  
  309. if(fin != NULL)
  310.     fclose(fin);
  311.  
  312. return(0);
  313. }
  314.  
  315. printdesc(prntflag)
  316. int prntflag;
  317. {
  318. struct nameblock *p;
  319. struct depblock *dp;
  320. struct varblock *vp;
  321. struct opendir *od;
  322. struct shblock *sp;
  323. struct lineblock *lp;
  324.  
  325. #ifdef unix
  326. if(prntflag)
  327.     {
  328.     printf("Open directories:\n");
  329.     for(od = firstod ; od ; od = od->nxtopendir)
  330.         printf("\t%d: %s\n", fileno(od->dirfc), od->dirn);
  331.     }
  332. #endif
  333.  
  334. if(firstvar != 0) printf("Macros:\n");
  335. for(vp = firstvar; vp ; vp = vp->nxtvarblock)
  336.     printf("\t%s = %s\n" , vp->varname , vp->varval);
  337.  
  338. for(p = firstname; p; p = p->nxtnameblock)
  339.     {
  340.     printf("\n\n%s",p->namep);
  341.     if(p->linep != 0) printf(":");
  342.     if(prntflag) printf("  done=%d",p->done);
  343.     if(p==mainname) printf("  (MAIN NAME)");
  344.     for(lp = p->linep ; lp ; lp = lp->nxtlineblock)
  345.         {
  346.         if( dp = lp->depp )
  347.             {
  348.             printf("\n depends on:");
  349.             for(; dp ; dp = dp->nxtdepblock)
  350.                 if(dp->depname != 0)
  351.                     printf(" %s ", dp->depname->namep);
  352.             }
  353.     
  354.         if(sp = lp->shp)
  355.             {
  356.             printf("\n commands:\n");
  357.             for( ; sp!=0 ; sp = sp->nxtshblock)
  358.                 printf("\t%s\n", sp->shbp);
  359.             }
  360.         }
  361.     }
  362. printf("\n");
  363. fflush(stdout);
  364. }
  365.