Return to mklibgcc.c CVS log

Up to [GCC 2.x] / gcc / config / winnt

Annotation of gcc/config/winnt/mklibgcc.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #include <string.h>
                      3: #include <dirent.h>
                      4: 
                      5: char *skips[] = {
                      6:   0
                      7: };
                      8: 
                      9: int
                     10: do_clean()
                     11: {
                     12:   DIR *dir;
                     13:   struct dirent *de;
                     14:   remove("mklibnow.bat");
                     15: 
                     16:   dir = opendir("lgcctmp");
                     17:   if (!dir)
                     18:     return 0;
                     19:   while ((de=readdir(dir)))
                     20:     {
                     21:       char buf[30];
                     22:       if (de->d_name[0] == '.')
                     23:         continue;
                     24:       sprintf(buf, "lgcctmp/%s", de->d_name);
                     25:       unlink(buf);
                     26:     }
                     27:   closedir(dir);
                     28:   return 0;
                     29: }
                     30: 
                     31: int
                     32: main(int argc, char **argv)
                     33: {
                     34:   char *cc = argv[1];
                     35:   char *csrc=argv[2];
                     36:   int i;
                     37:   FILE *batfile;
                     38:   FILE *cfile;
                     39: 
                     40:   if (argc > 1 && strcmp(argv[1], "-c")==0)
                     41:     return do_clean();
                     42: 
                     43:   _mkdir("lgcctmp", 0755);
                     44: 
                     45:   batfile = fopen("mklibnow.bat", "a");
                     46:   if (!batfile)
                     47:     {
                     48:       perror("mklibnow.bat");
                     49:       return 1;
                     50:     }
                     51: /*  fprintf(batfile, "@echo off\n"); */
                     52: 
                     53:   for (i=3; i<argc; i++)
                     54:     {
                     55:       char dirname[30], basename[30], fullname[30], *bp;
                     56:       int s;
                     57:       for (s=0; skips[s]; s++)
                     58:         if (strcmp(skips[s], argv[i]) == 0)
                     59:        break;
                     60:       if (skips[s])
                     61:         continue;
                     62:       strcpy(dirname, "lgcctmp/");
                     63:       strcpy(basename, "\0");
                     64:       if (strncmp(argv[i], "_fix", 4)==0)
                     65:         {
                     66:           strcat(basename, "fx");
                     67:           strcat(basename, argv[i]+4);
                     68:         }
                     69:       else if (strncmp(argv[i], "_float", 4)==0)
                     70:         {
                     71:           strcat(basename, "flt");
                     72:           strcat(basename, argv[i]+6);
                     73:         }
                     74:       else
                     75:         {
                     76:           strcat(basename, argv[i]);
                     77:         }
                     78:       strcpy (fullname, dirname);
                     79:       strcat (fullname, basename);
                     80:       fprintf(batfile, "%s -c lgcctmp/%s.c\n", cc, basename);
                     81:       fprintf(batfile, "copy %s.obj lgcctmp\n", basename);
                     82:       bp = fullname + strlen(fullname);
                     83:       strcpy(bp, ".c");
                     84:       cfile = fopen(fullname, "w");
                     85:       if (cfile)
                     86:         {
                     87:           *bp = 0;
                     88:           fprintf(cfile, "#define L%s\n#include \"%s\"\n", argv[i], csrc);
                     89:           fclose(cfile);
                     90:         }
                     91:       else
                     92:         perror(fullname);
                     93:     }
                     94: 
                     95:   fclose(batfile);
                     96:   return 0;
                     97: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.