summaryrefslogtreecommitdiff
path: root/tvision/makes/mlink.c
blob: 547a08d876619c9b73b3ac059114d98599760451 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
/**[txh]********************************************************************

  Copyright (c) 2004 by Salvador E. Tropea.
  Covered by the GPL license.
  Description:
  MS lib have a really useless command line. This wrapper avoids all the
complexities.
  Also: I failed to create a macro that expands to something that creates
a response file. Looks like it only works outside macros. This program
just collects the files from the specified directories and creates the
library with all of them.
  
***************************************************************************/

#include <windows.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#if _MSC_VER >= 1400
 #define unlink(a) _unlink(a)
#endif

#define MAX_FILE 256

int main(int argc, char *argv[])
{
 FILE *f;
 int i,ret;
 char *s;
 WIN32_FIND_DATA de;
 char dirMask[MAX_PATH+8];
 HANDLE d;

 if (argc<3)
   {
    printf("MS lib wrapper\n");
    printf("Copyright (c) 2004 by Salvador E. Tropea. GPL.\n");
    printf("Usage: mlink lib list_obj_files\n");
    return 1;
   }
 f=fopen("mslink.lnk","wt");
 if (!f)
   {
    printf("Can't create response file\n");
    return 2;
   }
 for (i=2; i<argc; i++)
    {
     sprintf(dirMask,"%s\\*.obj",argv[i]);
     d=FindFirstFile(dirMask,&de);
     if (d==INVALID_HANDLE_VALUE)
       {
        printf("Can't open directory %s\n",argv[i]);
        return 4;
       }
     do
       {
        //printf("%s\n",de.cFileName);
        fprintf(f,"%s\\%s ",argv[i],de.cFileName);
       }
     while (FindNextFile(d,&de));
     FindClose(d);
    }
 fprintf(f,"\n");
 fclose(f);

 unlink(argv[1]);
 s=(char *)malloc(strlen(argv[1])+32);
 sprintf(s,"lib /OUT:%s @mslink.lnk",argv[1]);
 ret=system(s);
 if (!ret)
    unlink("mslink.lnk");
 return ret;
}