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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
/*******************************************************************/
/* slibtool: a skinny libtool implementation, written in C */
/* Copyright (C) 2016--2024 SysDeer Technologies, LLC */
/* Released under the Standard MIT License; see COPYING.SLIBTOOL. */
/*******************************************************************/
#include <stdint.h>
#include <string.h>
#include <unistd.h>
#include <stdlib.h>
#include <stdbool.h>
#include <slibtool/slibtool.h>
#include "slibtool_version.h"
#include "slibtool_driver_impl.h"
#include "slibtool_errinfo_impl.h"
int slbt_init_link_params(struct slbt_driver_ctx_impl * ctx)
{
const char * program;
const char * libname;
const char * prefix;
const char * base;
char * dot;
bool fmodule;
int fderr;
fderr = ctx->fdctx.fderr;
program = slbt_program_name(ctx->cctx.targv[0]);
libname = 0;
prefix = 0;
fmodule = false;
/* output */
if (!(ctx->cctx.output)) {
if (ctx->cctx.drvflags & SLBT_DRIVER_VERBOSITY_ERRORS)
slbt_dprintf(fderr,
"%s: error: output file must be "
"specified in link mode.\n",
program);
return -1;
}
/* executable? */
if (!(dot = strrchr(ctx->cctx.output,'.')))
if (!(ctx->cctx.drvflags & SLBT_DRIVER_MODULE))
return 0;
/* todo: archive? library? wrapper? inlined function, avoid repetition */
if ((base = strrchr(ctx->cctx.output,'/')))
base++;
else
base = ctx->cctx.output;
/* archive? */
if (dot && !strcmp(dot,ctx->cctx.settings.arsuffix)) {
prefix = ctx->cctx.settings.arprefix;
if (!strncmp(prefix,base,strlen(prefix)))
libname = base;
else {
if (ctx->cctx.drvflags & SLBT_DRIVER_VERBOSITY_ERRORS)
slbt_dprintf(fderr,
"%s: error: output file prefix does "
"not match its (archive) suffix; "
"the expected prefix was '%s'\n",
program,prefix);
return -1;
}
}
/* library? */
else if (dot && !strcmp(dot,ctx->cctx.settings.dsosuffix)) {
prefix = ctx->cctx.settings.dsoprefix;
if (!strncmp(prefix,base,strlen(prefix))) {
libname = base;
} else if (ctx->cctx.drvflags & SLBT_DRIVER_MODULE) {
libname = base;
fmodule = true;
} else {
if (ctx->cctx.drvflags & SLBT_DRIVER_VERBOSITY_ERRORS)
slbt_dprintf(fderr,
"%s: error: output file prefix does "
"not match its (shared library) suffix; "
"the expected prefix was '%s'\n",
program,prefix);
return -1;
}
}
/* wrapper? */
else if (dot && !strcmp(dot,".la")) {
prefix = ctx->cctx.settings.dsoprefix;
if (!strncmp(prefix,base,strlen(prefix))) {
libname = base;
fmodule = !!(ctx->cctx.drvflags & SLBT_DRIVER_MODULE);
} else if (ctx->cctx.drvflags & SLBT_DRIVER_MODULE) {
libname = base;
fmodule = true;
} else {
if (ctx->cctx.drvflags & SLBT_DRIVER_VERBOSITY_ERRORS)
slbt_dprintf(fderr,
"%s: error: output file prefix does "
"not match its (libtool wrapper) suffix; "
"the expected prefix was '%s'\n",
program,prefix);
return -1;
}
} else
return 0;
/* libname alloc */
if (!fmodule)
libname += strlen(prefix);
if (!(ctx->libname = strdup(libname)))
return -1;
if ((dot = strrchr(ctx->libname,'.')))
*dot = 0;
ctx->cctx.libname = ctx->libname;
return 0;
}
|
