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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
#include "lar.h"
int do_print_member( lar_archive *ar, const char *name )
{
lar_member *member;
if( (member = lar_open_member(ar, name)) != NULL )
{
write(fileno(stdout), member->data, member->length);
lar_close_member(member);
}
else
LAR_DIE("Unable to locate archive member");
return 0;
}
int do_print_index( lar_archive *ar )
{
lar_index *index = ar->index;
LAR_FNAME(filename);
while(index)
{
lar_get_filename(ar, index, filename);
printf("%s\n", filename);
index = index->next;
}
return 0;
}
int do_require( const char *package, const char *path )
{
int stat = 1;
lar_archive *ar;
lar_member *mb;
if( (ar = lar_find_archive(package, path)) != NULL )
{
if( (mb = lar_find_member(ar, package)) != NULL )
{
write(fileno(stdout), mb->data, mb->length);
lar_close_member(mb);
stat = 0;
}
lar_close(ar);
}
return stat;
}
int main( int argc, const char* argv[] )
{
lar_archive *ar;
int stat = 0;
if( argv[1] != NULL )
{
switch(argv[1][0])
{
case 's':
if( (ar = lar_open(argv[2])) != NULL )
{
if( argv[3] != NULL )
stat = do_print_member(ar, argv[3]);
else
stat = do_print_index(ar);
lar_close(ar);
}
else
{
LAR_DIE("Failed to open archive");
}
break;
case 'r':
stat = do_require(argv[2], argv[3]);
break;
}
return stat;
}
else
{
printf("Usage:\n");
printf("\tlar show <archive> [<member>]\n");
printf("\tlar require <package> [<path>]\n");
return 1;
}
return 0;
}
|
