platform/uiq2/launcher/nicemake.c

   1 #include <stdio.h>\r
   2 #include <stdlib.h>\r
   3 #include <string.h>\r
   4 \r
   5 \r
   6 void targetname(char *dest, char *src)\r
   7 {\r
   8         char *p, *p1;\r
   9 \r
  10         if(strlen(src) < 5 || src[0] == '\t') return;\r
  11 \r
  12         // goto string end\r
  13         for(p=src; *p && *p != ' ' && *p != '\r'; p++);\r
  14         // goto start\r
  15         for(p1=p; p1 > src && *p1 != '\\'; p1--); p1++;\r
  16         if(p-p1 > 0) {\r
  17                 strncpy(dest, p1, p-p1);\r
  18                 dest[p-p1] = 0;\r
  19         }\r
  20 }\r
  21 \r
  22 \r
  23 int main(int argc, char *argv[])\r
  24 {\r
  25         FILE *f = 0, *fo = 0;\r
  26         unsigned char buff[512], buff2[128], outname[512];\r
  27         buff2[0] = 0;\r
  28 \r
  29         if(argc != 2) {\r
  30                 printf("usage: %s <makefile>\n\n", argv[0]);\r
  31                 return 1;\r
  32         }\r
  33         \r
  34         f = fopen(argv[1], "r");\r
  35         if(!f) {\r
  36                 printf("%s: couldn't open %s\n", argv[0], argv[1]);\r
  37                 return 2;\r
  38         }\r
  39 \r
  40         strcpy(outname, argv[1]);\r
  41         strcat(outname, ".out");\r
  42         fo = fopen(outname, "w");\r
  43         if(!fo) {\r
  44                 fclose(f);\r
  45                 printf("%s: couldn't open %s for writing\n", argv[0], outname);\r
  46                 return 3;\r
  47         }\r
  48 \r
  49 \r
  50         while(!feof(f)) {\r
  51                 fgets(buff, 512, f);\r
  52                 if(!strncmp(buff, "\t$(GCCUREL)", 11) && !strchr(buff, '>')) {\r
  53                         fprintf(fo, "\t@echo %s: gcc\n\t@$(GCCUREL)", buff2);\r
  54                         fputs(buff+11, fo);\r
  55                 } else if(!strncmp(buff, "\tperl -S ecopyfile.pl", 21) && !strchr(buff, '>')) {\r
  56                         fprintf(fo, "\t@echo %s: perl -S ecopyfile.pl\n\t@perl", buff2);\r
  57                         fputs(buff+5, fo);\r
  58                 } else if(!strncmp(buff, "\tperl -S epocrc.pl", 18) && !strchr(buff, '>')) {\r
  59                         fprintf(fo, "\t@echo %s: perl -S epocrc.pl\n\t@perl", buff2);\r
  60                         fputs(buff+5, fo);\r
  61                 } else if(!strncmp(buff, "\tperl -S epocaif.pl", 19) && !strchr(buff, '>')) {\r
  62                         fprintf(fo, "\t@echo %s: perl -S epocaif.pl\n\t@perl", buff2);\r
  63                         fputs(buff+5, fo);\r
  64                 } else if(!strncmp(buff, "\tperl -S emkdir.pl", 18) && !strchr(buff, '>')) {\r
  65                         fprintf(fo, "\t@echo %s: perl -S emkdir.pl\n\t@perl", buff2);\r
  66                         fputs(buff+5, fo);\r
  67                 } else if(!strncmp(buff, "\tperl -S makedef.pl", 18) && !strchr(buff, '>')) {\r
  68                         fprintf(fo, "\t@echo %s: perl -S makedef.pl\n\t@perl", buff2);\r
  69                         fputs(buff+5, fo);\r
  70                 } else if(!strncmp(buff, "\tld ", 4) && !strchr(buff, '>')) {\r
  71                         fprintf(fo, "\t@echo %s: ld\n\t@ld ", buff2);\r
  72                         fputs(buff+4, fo);\r
  73                 } else if(!strncmp(buff, "\tar ", 4) && !strchr(buff, '>')) {\r
  74                         fprintf(fo, "\t@echo %s: ar\n\t@ar ", buff2);\r
  75                         fputs(buff+4, fo);\r
  76                 } else if(!strncmp(buff, "\tif exist ", 10) && !strchr(buff, '>')) {\r
  77                         fprintf(fo, "\t@echo %s: if exist (del?)\n\t@if exist ", buff2);\r
  78                         fputs(buff+10, fo);\r
  79                 } else if(!strncmp(buff, "\tdlltool ", 9) && !strchr(buff, '>')) {\r
  80                         fprintf(fo, "\t@echo %s: dlltool\n\t@dlltool ", buff2);\r
  81                         fputs(buff+9, fo);\r
  82                 } else if(!strncmp(buff, "\tpetran ", 8) && !strchr(buff, '>')) {\r
  83                         fprintf(fo, "\t@echo %s: petran\n\t@petran ", buff2);\r
  84                         fputs(buff+8, fo);\r
  85                 } else {\r
  86                         // try to get new targetname\r
  87                         targetname(buff2, buff);\r
  88                         fputs(buff, fo);\r
  89                 }\r
  90         }\r
  91 \r
  92 \r
  93         // done!\r
  94         fclose(f);\r
  95         fclose(fo);\r
  96 \r
  97         remove(argv[1]);\r
  98         rename(outname, argv[1]);\r
  99 \r
 100         return 0;\r
 101 }\r