gotosocial/vendor/modernc.org/ccgo/v3/lib/ccgo.go
tobi ebdee5aed8
[chore] Downgrade sqlite v1.29.2 -> v1.28.0 (#2736)
* [chore] Downgrade sqlite v1.29.2 -> v1.29.0

* go down to v1.28.0
2024-03-08 11:45:15 +01:00

2148 lines
55 KiB
Go

// Copyright 2020 The CCGO Authors. All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.
//go:generate stringer -output stringer.go -type=exprMode,opKind
// Package ccgo implements the ccgo command.
package ccgo // import "modernc.org/ccgo/v3/lib"
import (
"bufio"
"bytes"
"encoding/csv"
"encoding/json"
"fmt"
"go/ast"
"go/build"
"go/parser"
"go/token"
"io"
"io/ioutil"
"os"
"os/exec"
"path/filepath"
"regexp"
"runtime"
"runtime/debug"
"sort"
"strconv"
"strings"
"time"
"github.com/kballard/go-shellquote"
"golang.org/x/tools/go/packages"
"modernc.org/cc/v3"
"modernc.org/libc"
"modernc.org/opt"
)
const (
Version = "3.12.6-20210922111124"
experimentsEnvVar = "CCGO_EXPERIMENT"
maxSourceLine = 1 << 20
)
var (
_ = libc.Xstdin
coverExperiment bool
)
func init() {
s := strings.TrimSpace(os.Getenv(experimentsEnvVar))
if s == "" {
return
}
for _, v := range strings.Split(s, ",") {
switch strings.TrimSpace(v) {
case "cover":
coverExperiment = true
}
}
}
//TODO CPython
//TODO Cython
//TODO gmp
//TODO gofrontend
//TODO gsl
//TODO minigmp
//TODO mpc
//TODO mpfr
//TODO pcre
//TODO pcre2
//TODO quickjs
//TODO redis
//TODO sdl2
//TODO wolfssl
//TODO zdat
//TODO zstd
//TODO 2020-07-17
//
// Fix += and friends
//
// Audit all unsafe.Pointer conversions
//
// Remove double dereferencing **
//
// Shifts must not use n.Promote on left opearand
//
// Un-array
//
// Pass more CSmith tests.
//TODO merge VaList slots of distinct top level statements.
//TODO turn void
//
// a = b = c = d
//
// where all but the first and last of a, b, c, ... are declarators, into
//
// c = d
// b = c
// a = b
//TODO define and use all tagged struct types, including inner ones, for example SQLite's SrcList_item.
//TODO rewrite return conditionalExpression so it has no closures. Partially done.
//TODO define and restore simple named constants. Having
//
// #define FOO 42
// ...
// case FOO:
//
// we do not yet define FOO and generate
//
// case 42:
//TODO do not generate a terminating semicolon for empty statements.
//TODO replace
//
// var sqlite3_data_directory uintptr = uintptr(0) /* sqlite3.c:156345:17 */
//
// by
//
// var sqlite3_data_directory uintptr = 0 /* sqlite3.c:156345:17 */
//
// or
//
// var sqlite3_data_directory = uintptr(0) /* sqlite3.c:156345:17 */
//TODO drop all non-referenced declarators unless forced by a command line flag.
const (
builtin = `
#ifdef __PTRDIFF_TYPE__
typedef __PTRDIFF_TYPE__ ptrdiff_t;
#else
#error __PTRDIFF_TYPE__ undefined
#endif
#ifdef __SIZE_TYPE__
typedef __SIZE_TYPE__ size_t;
#else
#error __SIZE_TYPE__ undefined
#endif
#ifdef __WCHAR_TYPE__
typedef __WCHAR_TYPE__ wchar_t;
#else
#error __WCHAR_TYPE__ undefined
#endif
#ifdef __SIZEOF_INT128__
typedef struct { __INT64_TYPE__ lo, hi; } __int128_t; // must match modernc.org/mathutil.Int128
typedef struct { __UINT64_TYPE__ lo, hi; } __uint128_t; // must match modernc.org/mathutil.Int128
#endif;
#define _FILE_OFFSET_BITS 64
#define __FUNCTION__ __func__
#define __PRETTY_FUNCTION__ __func__
#define __asm __asm__
#define __builtin_constant_p(x) __builtin_constant_p_impl(0, x)
#define __builtin_offsetof(type, member) ((__SIZE_TYPE__)&(((type*)0)->member))
#define __builtin_va_arg(ap, type) ((type)__ccgo_va_arg(ap))
#define __builtin_va_copy(dst, src) dst = src
#define __builtin_va_end(ap) __ccgo_va_end(ap)
#define __builtin_va_start(ap, v) __ccgo_va_start(ap)
#define __ccgo_fd_zero(set) __builtin_memset(set, 0, sizeof(fd_set))
#define __ccgo_tcl_default_double_rounding(set) ((void)0)
#define __ccgo_tcl_ieee_double_rounding(set) ((void)0)
#define __extension__
#define __has_include(...) __has_include_impl(#__VA_ARGS__)
#define __has_include_impl(x)
#define __inline__ inline
#define __signed signed
#define asm __asm__
#define in6addr_any (*__ccgo_in6addr_anyp())
typedef void *__builtin_va_list;
typedef long double __float128;
#if defined(__MINGW32__) || defined(__MINGW64__)
typedef __builtin_va_list va_list;
int gnu_printf(const char *format, ...);
int gnu_scanf(const char *format, ...);
int ms_printf(const char *format, ...);
int ms_scanf(const char *format, ...);
#define _VA_LIST_DEFINED
#define __extension__
#endif
__UINT16_TYPE__ __builtin_bswap16 (__UINT16_TYPE__ x);
__UINT32_TYPE__ __builtin_bswap32 (__UINT32_TYPE__ x);
__UINT64_TYPE__ __builtin_bswap64 (__UINT64_TYPE__ x);
char *__builtin___strcat_chk (char *dest, const char *src, size_t os);
char *__builtin___strcpy_chk (char *dest, const char *src, size_t os);
char *__builtin___strncpy_chk(char *dest, char *src, size_t n, size_t os);
char *__builtin_strchr(const char *s, int c);
char *__builtin_strcpy(char *dest, const char *src);
double __builtin_copysign ( double x, double y );
double __builtin_copysignl (long double x, long double y );
double __builtin_fabs(double x);
double __builtin_huge_val (void);
double __builtin_inf (void);
double __builtin_nan (const char *str);
float __builtin_copysignf ( float x, float y );
float __builtin_fabsf(float x);
float __builtin_huge_valf (void);
float __builtin_inff (void);
float __builtin_nanf (const char *str);
int __builtin___snprintf_chk (char *s, size_t maxlen, int flag, size_t os, const char *fmt, ...);
int __builtin___sprintf_chk (char *s, int flag, size_t os, const char *fmt, ...);
int __builtin___vsnprintf_chk (char *s, size_t maxlen, int flag, size_t os, const char *fmt, __builtin_va_list ap);
int __builtin__snprintf_chk(char * str, size_t maxlen, int flag, size_t strlen, const char * format);
int __builtin_abs(int j);
int __builtin_add_overflow();
int __builtin_clz (unsigned);
int __builtin_isunordered(double x, double y);
int __builtin_clzl (unsigned long);
int __builtin_clzll (unsigned long long);
int __builtin_constant_p_impl(int, ...);
int __builtin_getentropy(void*, size_t);
int __builtin_isnan(double);
int __builtin_memcmp(const void *s1, const void *s2, size_t n);
int __builtin_mul_overflow();
int __builtin_popcount (unsigned int x);
int __builtin_popcountl (unsigned long x);
int __builtin_printf(const char *format, ...);
int __builtin_snprintf(char *str, size_t size, const char *format, ...);
int __builtin_sprintf(char *str, const char *format, ...);
int __builtin_strcmp(const char *s1, const char *s2);
int __builtin_sub_overflow();
long __builtin_expect (long exp, long c);
long double __builtin_fabsl(long double x);
long double __builtin_nanl (const char *str);
long long __builtin_llabs(long long j);
size_t __builtin_object_size (void * ptr, int type);
size_t __builtin_strlen(const char *s);
void *__builtin___memcpy_chk (void *dest, const void *src, size_t n, size_t os);
void *__builtin___memmove_chk (void *dest, const void *src, size_t n, size_t os);
void *__builtin___memset_chk (void *dstpp, int c, size_t len, size_t dstlen);
void *__builtin_malloc(size_t size);
void *__builtin_memcpy(void *dest, const void *src, size_t n);
void *__builtin_memset(void *s, int c, size_t n);
void *__builtin_mmap(void *addr, size_t length, int prot, int flags, int fd, __INTPTR_TYPE__ offset);
void *__ccgo_va_arg(__builtin_va_list ap);
void __builtin_abort(void);
void __builtin_bzero(void *s, size_t n);
void __builtin_exit(int status);
void __builtin_free(void *ptr);
void __builtin_prefetch (const void *addr, ...);
void __builtin_trap (void);
void __builtin_unreachable (void);
void __ccgo_dmesg(char*, ...);
void __ccgo_va_end(__builtin_va_list ap);
void __ccgo_va_start(__builtin_va_list ap);
#define __sync_add_and_fetch(ptr, val) \
__builtin_choose_expr( \
__builtin_types_compatible_p(typeof(*ptr), unsigned), \
__sync_add_and_fetch_uint32(ptr, val), \
__TODO__ \
)
#define __sync_fetch_and_add(ptr, val) \
__TODO__ \
#define __sync_sub_and_fetch(ptr, val) \
__builtin_choose_expr( \
__builtin_types_compatible_p(typeof(*ptr), unsigned), \
__sync_sub_and_fetch_uint32(ptr, val), \
__TODO__ \
)
unsigned __sync_add_and_fetch_uint32(unsigned*, unsigned);
unsigned __sync_sub_and_fetch_uint32(unsigned*, unsigned);
#ifdef __APPLE__
int (*__darwin_check_fd_set_overflow)(int, void *, int);
#endif
`
defaultCrt = "modernc.org/libc"
)
func origin(skip int) string {
pc, fn, fl, _ := runtime.Caller(skip)
f := runtime.FuncForPC(pc)
var fns string
if f != nil {
fns = f.Name()
if x := strings.LastIndex(fns, "."); x > 0 {
fns = fns[x+1:]
}
}
return fmt.Sprintf("%s:%d:%s", fn, fl, fns)
}
func todo(s string, args ...interface{}) string {
switch {
case s == "":
s = fmt.Sprintf(strings.Repeat("%v ", len(args)), args...)
default:
s = fmt.Sprintf(s, args...)
}
r := fmt.Sprintf("%s\n\tTODO %s", origin(2), s) //TODOOK
fmt.Fprintf(os.Stdout, "%s\n", r)
os.Stdout.Sync()
return r
}
func trc(s string, args ...interface{}) string {
switch {
case s == "":
s = fmt.Sprintf(strings.Repeat("%v ", len(args)), args...)
default:
s = fmt.Sprintf(s, args...)
}
r := fmt.Sprintf("%s: TRC %s", origin(2), s)
fmt.Fprintf(os.Stderr, "%s\n", r)
os.Stderr.Sync()
return r
}
// Task represents a compilation job.
type Task struct {
D []string // -D
I []string // -I
U []string // -U
ar string // $AR, default "ar"
arLookPath string // LookPath(ar)
args []string
asts []*cc.AST
capif string
saveConfig string // -save-config
saveConfigErr error
cc string // $CC, default "gcc"
ccLookPath string // LookPath(cc)
cdb string // foo.json, use compile DB
cfg *cc.Config
compiledb string // -compiledb
crt string
crtImportPath string // -crt-import-path
exportDefines string // -export-defines
exportEnums string // -export-enums
exportExterns string // -export-externs
exportFields string // -export-fields
exportStructs string // -export-structs
exportTypedefs string // -export-typedefs
goarch string
goos string
hide map[string]struct{} // -hide
hostConfigCmd string // -host-config-cmd
hostConfigOpts string // -host-config-opts
hostIncludes []string
hostPredefined string
hostSysIncludes []string
ignoredIncludes string // -ignored-includes
ignoredObjects map[string]struct{} // -ignore-object
imported []*imported
includedFiles map[string]struct{}
l []string // -l
loadConfig string // --load-config
o string // -o
out io.Writer
pkgName string // -pkgname
replaceFdZero string // -replace-fd-zero
replaceTclDefaultDoubleRounding string // -replace-tcl-default-double-rounding
replaceTclIeeeDoubleRounding string // -replace-tcl-default-double-rounding
scriptFn string // -script
sources []cc.Source
staticLocalsPrefix string // -static-locals-prefix
stderr io.Writer
stdout io.Writer
symSearchOrder []int // >= 0: asts[i], < 0 : imported[-i-1]
verboseCompiledb bool // -verbose-compiledb
volatiles map[cc.StringID]struct{} // -volatile
// Path to a binary that will be called instead of executing
// Task.Main(). Intended to support TestGenerate in stable vs latest
// modes. This is _not_ supposed to be used when the Task instance is
// constructed by a ccgo _command_ (ccgo/v3) - it should never set this
// field. Only programs importing ccgo/v3/lib that opt-in into this
// feature should ever set it.
CallOutBinary string
E bool // -E
allErrors bool // -all-errors
compiledbValid bool // -compiledb present
configSaved bool
configured bool // hostPredefined, hostIncludes, hostSysIncludes are valid
cover bool // -cover-instrumentation
coverC bool // -cover-instrumentation-c
defaultUnExport bool // -unexported-by-default
errTrace bool // -err-trace
exportDefinesValid bool // -export-defines present
exportEnumsValid bool // -export-enums present
exportExternsValid bool // -export-externs present
exportFieldsValid bool // -export-fields present
exportStructsValid bool // -export-structs present
exportTypedefsValid bool // -export-typedefs present
fullPathComments bool // -full-path-comments
funcSig bool // -func-sig
header bool // -header
ignoreUnsupportedAligment bool // -ignore-unsupported-alignment
isScripted bool
mingw bool
noCapi bool // -nocapi
nostdinc bool // -nostdinc
nostdlib bool // -nostdlib
panicStubs bool // -panic-stubs
tracePinning bool // -trace-pinning
traceTranslationUnits bool // -trace-translation-units
verifyStructs bool // -verify-structs
version bool // -version
watch bool // -watch-instrumentation
windows bool // -windows
}
// NewTask returns a newly created Task.
func NewTask(args []string, stdout, stderr io.Writer) *Task {
if dmesgs {
dmesg("%v: %v", origin(1), args)
}
if stdout == nil {
stdout = os.Stdout
}
if stderr == nil {
stderr = os.Stderr
}
return &Task{
args: args,
cfg: &cc.Config{
Config3: cc.Config3{
MaxSourceLine: maxSourceLine,
},
DoNotTypecheckAsm: true,
EnableAssignmentCompatibilityChecking: true,
LongDoubleIsDouble: true,
SharedFunctionDefinitions: &cc.SharedFunctionDefinitions{},
},
ar: env("AR", "ar"),
cc: env("CC", "gcc"),
crt: "libc.",
crtImportPath: defaultCrt,
goarch: env("TARGET_GOARCH", env("GOARCH", runtime.GOARCH)),
goos: env("TARGET_GOOS", env("GOOS", runtime.GOOS)),
hide: map[string]struct{}{},
hostConfigCmd: env("CCGO_CPP", ""),
pkgName: "main",
stderr: stderr,
stdout: stdout,
volatiles: map[cc.StringID]struct{}{},
}
}
func env(name, deflt string) (r string) {
r = deflt
if s := os.Getenv(name); s != "" {
r = s
}
return r
}
// Get exported symbols from package having import path 'path'.
func (t *Task) capi(path string) (pkgName string, exports map[string]struct{}, err error) {
// defer func() {
// var a []string
// for k := range exports {
// a = append(a, k)
// }
// sort.Strings(a)
// trc("%s\n%s", path, strings.Join(a, "\n"))
// }()
var errModule, errGopath error
defer func() {
if err != nil {
a := []string{err.Error()}
if errModule != nil {
a = append(a, fmt.Sprintf("module mode error: %s", errModule))
}
if errGopath != nil {
a = append(a, fmt.Sprintf("gopath mode error: %s", errGopath))
}
wd, err2 := os.Getwd()
err = fmt.Errorf(
"(wd %q, %v): loading C exports from %s (GOPATH=%v GO111MODULE=%v): %v",
wd, err2, path, os.Getenv("GOPATH"), os.Getenv("GO111MODULE"), strings.Join(a, "\n\t"),
)
}
}()
mod := os.Getenv("GO111MODULE")
if mod == "" || mod == "on" {
var pkgs []*packages.Package
pkgs, errModule = packages.Load(
&packages.Config{
Mode: packages.NeedFiles,
Env: append(os.Environ(), fmt.Sprintf("GOOS=%s", t.goos), fmt.Sprintf("GOARCH=%s", t.goarch)),
},
path,
)
switch {
case errModule == nil:
if len(pkgs) != 1 {
errModule = fmt.Errorf("expected one package, loaded %d", len(pkgs))
break
}
pkg := pkgs[0]
if len(pkg.Errors) != 0 {
var a []string
for _, v := range pkg.Errors {
a = append(a, v.Error())
}
errModule = fmt.Errorf("%s", strings.Join(a, "\n"))
break
}
return t.capi2(pkg.GoFiles)
}
}
gopath0 := os.Getenv("GOPATH")
for _, gopath := range strings.Split(gopath0, string(os.PathListSeparator)) {
if gopath == "" || !filepath.IsAbs(gopath) {
continue
}
ctx := build.Context{
GOARCH: t.goarch,
GOOS: t.goos,
GOPATH: gopath,
Compiler: "gc",
}
arg := filepath.Join(gopath, "src", path)
pkg, err := ctx.ImportDir(arg, 0)
if err != nil {
errGopath = err
continue
}
for i, v := range pkg.GoFiles {
pkg.GoFiles[i] = filepath.Join(gopath, "src", path, v)
}
return t.capi2(pkg.GoFiles)
}
return "", nil, fmt.Errorf("cannot load CAPI")
}
func (t *Task) capi2(files []string) (pkgName string, exports map[string]struct{}, err error) {
exports = map[string]struct{}{}
base := fmt.Sprintf("capi_%s_%s.go", t.goos, t.goarch)
var fn string
for _, v := range files {
if filepath.Base(v) == base {
fn = v
break
}
}
if fn == "" {
return "", nil, fmt.Errorf("file %s not found", base)
}
fset := token.NewFileSet()
file, err := parser.ParseFile(fset, fn, nil, 0)
if err != nil {
return "", nil, err
}
obj, ok := file.Scope.Objects["CAPI"]
if !ok {
return "", nil, fmt.Errorf("CAPI not declared in %s", fn)
}
switch obj.Kind {
case ast.Var:
// ok
default:
return "", nil, fmt.Errorf("unexpected CAPI object kind: %v", obj.Kind)
}
spec, ok := obj.Decl.(*ast.ValueSpec)
if !ok {
return "", nil, fmt.Errorf("unexpected CAPI object type: %T", obj.Decl)
}
if len(spec.Values) != 1 {
return "", nil, fmt.Errorf("expected one CAPI expression, got %v", len(spec.Values))
}
ast.Inspect(spec.Values[0], func(n ast.Node) bool {
if x, ok := n.(*ast.BasicLit); ok {
var key string
if key, err = strconv.Unquote(x.Value); err != nil {
err = fmt.Errorf("invalid CAPI key value: %s", x.Value)
return false
}
exports[key] = struct{}{}
}
return true
})
return file.Name.String(), exports, err
}
// Main executes task.
func (t *Task) Main() (err error) {
if dmesgs {
defer func() {
if err != nil {
// trc("FAIL %p: %q: %v", t, t.args, err)
dmesg("%v: returning from Task.Main: %v", origin(1), err)
}
}()
}
defer func() {
if t.saveConfigErr != nil && err == nil {
err = t.saveConfigErr
}
}()
if !t.isScripted && coverExperiment {
defer func() {
fmt.Fprintf(os.Stderr, "cover report:\n%s\n", coverReport())
}()
}
if t.CallOutBinary != "" {
if dmesgs {
dmesg("%v: calling out '%s' instead", origin(1))
}
cmd := exec.Command(t.CallOutBinary, t.args[1:]...)
out, err := cmd.CombinedOutput()
if err != nil {
err = fmt.Errorf("%v\n%s", err, out)
}
return err
}
opts := opt.NewSet()
opts.Arg("D", true, func(arg, value string) error { t.D = append(t.D, value); return nil })
opts.Arg("I", true, func(opt, arg string) error { t.I = append(t.I, arg); return nil })
opts.Arg("U", true, func(arg, value string) error { t.U = append(t.U, value); return nil })
opts.Arg("compiledb", false, func(arg, value string) error { t.compiledb = value; t.compiledbValid = true; return opt.Skip(nil) })
opts.Arg("crt-import-path", false, func(arg, value string) error { t.crtImportPath = value; return nil })
opts.Arg("export-defines", false, func(arg, value string) error { t.exportDefines = value; t.exportDefinesValid = true; return nil })
opts.Arg("export-enums", false, func(arg, value string) error { t.exportEnums = value; t.exportEnumsValid = true; return nil })
opts.Arg("export-externs", false, func(arg, value string) error { t.exportExterns = value; t.exportExternsValid = true; return nil })
opts.Arg("export-fields", false, func(arg, value string) error { t.exportFields = value; t.exportFieldsValid = true; return nil })
opts.Arg("export-structs", false, func(arg, value string) error { t.exportStructs = value; t.exportStructsValid = true; return nil })
opts.Arg("export-typedefs", false, func(arg, value string) error { t.exportTypedefs = value; t.exportTypedefsValid = true; return nil })
opts.Arg("host-config-cmd", false, func(arg, value string) error { t.hostConfigCmd = value; return nil })
opts.Arg("host-config-opts", false, func(arg, value string) error { t.hostConfigOpts = value; return nil })
opts.Arg("ignored-includes", false, func(arg, value string) error { t.ignoredIncludes = value; return nil })
opts.Arg("pkgname", false, func(arg, value string) error { t.pkgName = value; return nil })
opts.Arg("replace-fd-zero", false, func(arg, value string) error { t.replaceFdZero = value; return nil })
opts.Arg("replace-tcl-default-double-rounding", false, func(arg, value string) error { t.replaceTclDefaultDoubleRounding = value; return nil })
opts.Arg("replace-tcl-ieee-double-rounding", false, func(arg, value string) error { t.replaceTclIeeeDoubleRounding = value; return nil })
opts.Arg("script", false, func(arg, value string) error { t.scriptFn = value; return nil })
opts.Arg("static-locals-prefix", false, func(arg, value string) error { t.staticLocalsPrefix = value; return nil })
opts.Opt("E", func(opt string) error { t.E = true; return nil })
opts.Opt("all-errors", func(opt string) error { t.allErrors = true; return nil })
opts.Opt("cover-instrumentation", func(opt string) error { t.cover = true; return nil })
opts.Opt("cover-instrumentation-c", func(opt string) error { t.coverC = true; return nil })
opts.Opt("err-trace", func(opt string) error { t.errTrace = true; return nil })
opts.Opt("full-path-comments", func(opt string) error { t.fullPathComments = true; return nil })
opts.Opt("func-sig", func(opt string) error { t.funcSig = true; return nil })
opts.Opt("header", func(opt string) error { t.header = true; return nil })
opts.Opt("ignore-unsupported-alignment", func(opt string) error { t.ignoreUnsupportedAligment = true; return nil })
opts.Opt("nocapi", func(opt string) error { t.noCapi = true; return nil })
opts.Opt("nostdinc", func(opt string) error { t.nostdinc = true; return nil })
opts.Opt("panic-stubs", func(opt string) error { t.panicStubs = true; return nil })
opts.Opt("trace-pinning", func(opt string) error { t.tracePinning = true; return nil })
opts.Opt("trace-translation-units", func(opt string) error { t.traceTranslationUnits = true; return nil })
opts.Opt("unexported-by-default", func(opt string) error { t.defaultUnExport = true; return nil })
opts.Opt("verbose-compiledb", func(opt string) error { t.verboseCompiledb = true; return nil })
opts.Opt("verify-structs", func(opt string) error { t.verifyStructs = true; return nil })
opts.Opt("version", func(opt string) error { t.version = true; return nil })
opts.Opt("watch-instrumentation", func(opt string) error { t.watch = true; return nil })
opts.Opt("windows", func(opt string) error { t.windows = true; return nil })
opts.Opt("trace-included-files", func(opt string) error {
if t.includedFiles == nil {
t.includedFiles = map[string]struct{}{}
}
prev := t.cfg.IncludeFileHandler
t.cfg.IncludeFileHandler = func(pos token.Position, pathName string) {
if prev != nil {
prev(pos, pathName)
}
if _, ok := t.includedFiles[pathName]; !ok {
t.includedFiles[pathName] = struct{}{}
fmt.Fprintf(os.Stderr, "#include %s\n", pathName)
}
}
return nil
})
opts.Arg("ignore-object", false, func(arg, value string) error {
if t.ignoredObjects == nil {
t.ignoredObjects = map[string]struct{}{}
}
t.ignoredObjects[value] = struct{}{}
return nil
})
opts.Arg("save-config", false, func(arg, value string) error {
if value == "" {
return nil
}
abs, err := filepath.Abs(value)
if err != nil {
return err
}
t.saveConfig = abs
if t.includedFiles == nil {
t.includedFiles = map[string]struct{}{}
}
prev := t.cfg.IncludeFileHandler
t.cfg.IncludeFileHandler = func(pos token.Position, pathName string) {
if prev != nil {
prev(pos, pathName)
}
if _, ok := t.includedFiles[pathName]; !ok {
t.includedFiles[pathName] = struct{}{}
full := filepath.Join(abs, pathName)
switch _, err := os.Stat(full); {
case err != nil && os.IsNotExist(err):
// ok
case err != nil:
t.saveConfigErr = err
return
default:
return
}
b, err := ioutil.ReadFile(pathName)
if err != nil {
t.saveConfigErr = err
return
}
dir, _ := filepath.Split(full)
if err := os.MkdirAll(dir, 0700); err != nil {
t.saveConfigErr = err
return
}
if err := ioutil.WriteFile(full, b, 0600); err != nil {
t.saveConfigErr = err
}
}
}
return nil
})
opts.Arg("-load-config", false, func(arg, value string) error {
if value == "" {
return nil
}
abs, err := filepath.Abs(value)
if err != nil {
return err
}
t.loadConfig = abs
return nil
})
opts.Arg("volatile", false, func(arg, value string) error {
for _, v := range strings.Split(strings.TrimSpace(value), ",") {
t.volatiles[cc.String(v)] = struct{}{}
}
return nil
})
opts.Opt("nostdlib", func(opt string) error {
t.nostdlib = true
t.crt = ""
t.crtImportPath = ""
return nil
})
opts.Arg("hide", false, func(arg, value string) error {
value = strings.TrimSpace(value)
a := strings.Split(value, ",")
for _, v := range a {
t.hide[v] = struct{}{}
}
return nil
})
opts.Arg("l", true, func(arg, value string) error {
value = strings.TrimSpace(value)
a := strings.Split(value, ",")
for _, v := range a {
t.l = append(t.l, v)
t.symSearchOrder = append(t.symSearchOrder, -len(t.l))
}
return nil
})
opts.Arg("o", false, func(arg, value string) error {
if t.o != "" {
return fmt.Errorf("multiple argument: -o %s", value)
}
t.o = value
return nil
})
if err := opts.Parse(t.args[1:], func(arg string) error {
if strings.HasPrefix(arg, "-") {
return fmt.Errorf("unexpected option: %s", arg)
}
switch filepath.Ext(arg) {
case ".h":
t.symSearchOrder = append(t.symSearchOrder, len(t.sources))
t.sources = append(t.sources, cc.Source{Name: arg})
case ".c":
t.symSearchOrder = append(t.symSearchOrder, len(t.sources))
t.sources = append(t.sources, cc.Source{Name: arg, DoNotCache: true})
case ".json":
t.cdb = arg
return opt.Skip(nil)
default:
return fmt.Errorf("unexpected file type: %s", arg)
}
return nil
}); err != nil {
switch x := err.(type) {
case opt.Skip:
switch {
case t.compiledbValid: // -compiledb foo.json, create DB
cmd := []string(x)[1:]
if len(cmd) == 0 {
return fmt.Errorf("missing command after -compiledb <file>")
}
return t.createCompileDB(cmd)
case t.cdb != "": // foo.json ..., use DB
if err := t.configure(); err != nil {
return err
}
return t.useCompileDB(t.cdb, x)
}
return err
default:
return err
}
}
if t.version {
gobin, err := exec.LookPath("go")
var b []byte
if err == nil {
var bin string
bin, err = exec.LookPath(os.Args[0])
if err == nil {
b, err = exec.Command(gobin, "version", "-m", bin).CombinedOutput()
}
}
if err == nil {
fmt.Fprintf(t.stdout, "%s", b)
return nil
}
fmt.Fprintf(t.stdout, "%s\n", Version)
return nil
}
if t.scriptFn != "" {
return t.scriptBuild(t.scriptFn)
}
if len(t.sources) == 0 {
return fmt.Errorf("no input files specified")
}
if t.crtImportPath != "" {
t.l = append(t.l, t.crtImportPath)
t.symSearchOrder = append(t.symSearchOrder, -len(t.l))
m := map[string]struct{}{}
for _, v := range t.l {
v = strings.TrimSpace(v)
if _, ok := m[v]; !ok {
t.imported = append(t.imported, &imported{path: v})
m[v] = struct{}{}
}
}
t.imported[len(t.imported)-1].used = true // crt is always imported
}
if err := t.configure(); err != nil {
return err
}
abi, err := cc.NewABI(t.goos, t.goarch)
if err != nil {
return err
}
abi.Types[cc.LongDouble] = abi.Types[cc.Double]
var re *regexp.Regexp
if t.ignoredIncludes != "" {
if re, err = regexp.Compile(t.ignoredIncludes); err != nil {
return err
}
}
t.cfg.ABI = abi
t.cfg.ReplaceMacroFdZero = t.replaceFdZero
t.cfg.ReplaceMacroTclDefaultDoubleRounding = t.replaceTclDefaultDoubleRounding
t.cfg.ReplaceMacroTclIeeeDoubleRounding = t.replaceTclIeeeDoubleRounding
t.cfg.Config3.IgnoreInclude = re
t.cfg.Config3.NoFieldAndBitfieldOverlap = true
t.cfg.Config3.PreserveWhiteSpace = t.saveConfig == ""
t.cfg.Config3.UnsignedEnums = true
if t.mingw = detectMingw(t.hostPredefined); t.mingw {
t.windows = true
}
if t.nostdinc {
t.hostIncludes = nil
t.hostSysIncludes = nil
}
var sources []cc.Source
if t.hostPredefined != "" {
sources = append(sources, cc.Source{Name: "<predefined>", Value: t.hostPredefined})
}
sources = append(sources, cc.Source{Name: "<builtin>", Value: builtin})
if len(t.D) != 0 {
var a []string
for _, v := range t.D {
if i := strings.IndexByte(v, '='); i > 0 {
a = append(a, fmt.Sprintf("#define %s %s", v[:i], v[i+1:]))
continue
}
a = append(a, fmt.Sprintf("#define %s 1", v))
}
a = append(a, "\n")
sources = append(sources, cc.Source{Name: "<defines>", Value: strings.Join(a, "\n"), DoNotCache: true})
}
if len(t.U) != 0 {
var a []string
for _, v := range t.U {
a = append(a, fmt.Sprintf("#undef %s", v))
}
a = append(a, "\n")
sources = append(sources, cc.Source{Name: "<undefines>", Value: strings.Join(a, "\n"), DoNotCache: true})
}
// https://pubs.opengroup.org/onlinepubs/9699919799/utilities/c99.html
//
// Headers whose names are enclosed in double-quotes ( "" ) shall be
// searched for first in the directory of the file with the #include
// line, then in directories named in -I options, and last in the usual
// places
includePaths := append([]string{"@"}, t.I...)
includePaths = append(includePaths, t.hostIncludes...)
includePaths = append(includePaths, t.hostSysIncludes...)
// For headers whose names are enclosed in angle brackets ( "<>" ), the
// header shall be searched for only in directories named in -I options
// and then in the usual places.
sysIncludePaths := append(t.I, t.hostSysIncludes...)
if t.traceTranslationUnits {
fmt.Printf("target: %s/%s\n", t.goos, t.goarch)
if t.hostConfigCmd != "" {
fmt.Printf("host config cmd: %s\n", t.hostConfigCmd)
}
}
for i, v := range t.sources {
tuSources := append(sources, v)
out := t.stdout
if t.saveConfig != "" {
out = io.Discard
t.E = true
}
if t.E {
t.cfg.PreprocessOnly = true
if err := cc.Preprocess(t.cfg, includePaths, sysIncludePaths, tuSources, out); err != nil {
return err
}
memGuard(i, t.isScripted)
continue
}
var t0 time.Time
if t.traceTranslationUnits {
fmt.Printf("C front end %d/%d: %s ... ", i+1, len(t.sources), v.Name)
t0 = time.Now()
}
ast, err := cc.Translate(t.cfg, includePaths, sysIncludePaths, tuSources)
if err != nil {
return err
}
if t.traceTranslationUnits {
fmt.Println(time.Since(t0))
}
t.asts = append(t.asts, ast)
memGuard(i, t.isScripted)
}
if t.E || t.isScripted {
return nil
}
return t.link()
}
func (t *Task) configure() (err error) {
if t.configured {
return nil
}
type jsonConfig struct {
Predefined string
IncludePaths []string
SysIncludePaths []string
OS string
Arch string
}
t.configured = true
if t.loadConfig != "" {
path := filepath.Join(t.loadConfig, "config.json")
// trc("%p: LOAD_CONFIG(%s)", t, path)
b, err := ioutil.ReadFile(path)
if err != nil {
return err
}
loadConfig := &jsonConfig{}
if err := json.Unmarshal(b, loadConfig); err != nil {
return err
}
t.goos = loadConfig.OS
t.goarch = loadConfig.Arch
for _, v := range loadConfig.IncludePaths {
t.hostIncludes = append(t.hostIncludes, filepath.Join(t.loadConfig, v))
}
for _, v := range loadConfig.SysIncludePaths {
t.hostSysIncludes = append(t.hostSysIncludes, filepath.Join(t.loadConfig, v))
}
t.hostPredefined = loadConfig.Predefined
return nil
}
hostConfigOpts := strings.Split(t.hostConfigOpts, ",")
if t.hostConfigOpts == "" {
hostConfigOpts = nil
}
if t.hostPredefined, t.hostIncludes, t.hostSysIncludes, err = cc.HostConfig(t.hostConfigCmd, hostConfigOpts...); err != nil {
return err
}
if t.saveConfig != "" && !t.configSaved {
t.configSaved = true
// trc("%p: SAVE_CONFIG(%s)", t, t.saveConfig)
cfg := &jsonConfig{
Predefined: t.hostPredefined,
IncludePaths: t.hostIncludes,
SysIncludePaths: t.hostSysIncludes,
OS: t.goos,
Arch: t.goarch,
}
b, err := json.Marshal(cfg)
if err != nil {
return err
}
full := filepath.Join(t.saveConfig, "config.json")
if err := os.MkdirAll(t.saveConfig, 0700); err != nil {
return err
}
if err := ioutil.WriteFile(full, b, 0600); err != nil {
return err
}
}
return nil
}
func (t *Task) setLookPaths() (err error) {
if t.ccLookPath, err = exec.LookPath(t.cc); err != nil {
return err
}
t.arLookPath, err = exec.LookPath(t.ar)
return err
}
func (t *Task) link() (err error) {
if len(t.asts) == 0 {
return fmt.Errorf("no objects to link")
}
if t.o == "" {
t.o = fmt.Sprintf("a_%s_%s.go", t.goos, t.goarch)
}
dir := filepath.Dir(t.o)
t.capif = filepath.Join(dir, fmt.Sprintf("capi_%s_%s.go", t.goos, t.goarch))
f, err2 := os.Create(t.o)
if err2 != nil {
return err2
}
defer func() {
if e := f.Close(); e != nil && err == nil {
err = e
return
}
if out, e := exec.Command("gofmt", "-r", "(x) -> x", "-l", "-s", "-w", t.o).CombinedOutput(); e != nil && err == nil {
err = fmt.Errorf(strings.Join([]string{string(out), e.Error()}, ": "))
}
if out, e := exec.Command("gofmt", "-l", "-s", "-w", t.o).CombinedOutput(); e != nil && err == nil {
err = fmt.Errorf(strings.Join([]string{string(out), e.Error()}, ": "))
}
}()
w := bufio.NewWriter(f)
defer func() {
if e := w.Flush(); e != nil && err == nil {
err = e
}
}()
t.out = w
p, err := newProject(t)
if err != nil {
return err
}
return p.main()
}
func (t *Task) scriptBuild(fn string) error {
f, err := os.Open(fn)
if err != nil {
return err
}
defer f.Close()
r := csv.NewReader(f)
r.Comment = '#'
r.FieldsPerRecord = -1
r.TrimLeadingSpace = true
script, err := r.ReadAll()
if err != nil {
return err
}
return t.scriptBuild2(script)
}
func (t *Task) scriptBuild2(script [][]string) error {
var ldir string
ccgo := []string{t.args[0]}
for i, line := range script {
dir := line[0]
args := line[1:]
for _, v := range args {
if strings.HasSuffix(v, ".c") || strings.HasSuffix(v, ".h") {
v = filepath.Join(dir, v)
t.symSearchOrder = append(t.symSearchOrder, len(t.sources))
t.sources = append(t.sources, cc.Source{Name: v})
}
}
cmd := append(ccgo, args...)
if t.traceTranslationUnits {
if dir != ldir {
fmt.Println(dir)
ldir = dir
}
fmt.Printf("%s\n", cmd)
}
t2 := NewTask(append(ccgo, args...), t.stdout, t.stderr)
t2.cfg.IncludeFileHandler = t.cfg.IncludeFileHandler
t2.cfg.SharedFunctionDefinitions = t.cfg.SharedFunctionDefinitions
t2.configSaved = t.configSaved
t2.configured = t.configured
t2.hostIncludes = t.hostIncludes
t2.hostPredefined = t.hostPredefined
t2.hostSysIncludes = t.hostSysIncludes
t2.includedFiles = t.includedFiles
t2.isScripted = true
t2.loadConfig = t.loadConfig
t2.replaceFdZero = t.replaceFdZero
t2.replaceTclDefaultDoubleRounding = t.replaceTclDefaultDoubleRounding
t2.replaceTclIeeeDoubleRounding = t.replaceTclIeeeDoubleRounding
t2.saveConfig = t.saveConfig
if err := inDir(dir, t2.Main); err != nil {
return err
}
t.asts = append(t.asts, t2.asts...)
if i == 0 {
t.cfg = t2.cfg
}
}
if t.crtImportPath != "" {
t.l = append(t.l, t.crtImportPath)
t.symSearchOrder = append(t.symSearchOrder, -len(t.l))
m := map[string]struct{}{}
for _, v := range t.l {
v = strings.TrimSpace(v)
if _, ok := m[v]; !ok {
t.imported = append(t.imported, &imported{path: v})
m[v] = struct{}{}
}
}
t.imported[len(t.imported)-1].used = true // crt is always imported
}
if t.saveConfig != "" {
return nil
}
return t.link()
}
type cdb struct {
items []*cdbItem
outputIndex map[string][]*cdbItem
}
func (db *cdb) find(obj map[string]*cdbItem, nm string, ver, seqLimit int, path []string, cc, ar string, ignored map[string]struct{}) error {
// trc("%v: nm %q ver %v seqLimit %v path %q cc %q ar %q", origin(1), nm, ver, seqLimit, path, cc, ar)
var item *cdbItem
var k string
switch {
case ver < 0:
// find highest ver with .seq < seqLimit
for i, v := range db.outputIndex[nm] {
if v.seq >= seqLimit {
break
}
item = v
ver = i
}
if item == nil {
ver = -1
for _, v := range db.items {
if seqLimit >= 0 && v.seq >= seqLimit {
break
}
if filepath.Base(v.Output) == filepath.Base(nm) {
item = v
ver = v.ver
break
}
}
}
k = fmt.Sprintf("%s#%d", nm, ver)
default:
// match ver exactly
k = fmt.Sprintf("%s#%d", nm, ver)
if obj[k] != nil {
return nil
}
items := db.outputIndex[nm]
switch {
case ver < len(items):
panic(todo("", nm, ver, seqLimit))
default:
n := -1
for _, v := range db.items {
if seqLimit >= 0 && v.seq >= seqLimit {
break
}
if filepath.Base(v.Output) == filepath.Base(nm) {
n++
if n == ver {
item = v
break
}
}
}
}
}
if item == nil {
for k := range ignored {
if k == nm || strings.HasSuffix(nm, k) {
return nil
}
}
return fmt.Errorf("not found in compile DB: %s (max seq %d), path %v", k, seqLimit, path)
}
if obj[k] != nil {
return nil
}
obj[k] = item
var errs []string
for _, v := range item.sources(cc, ar) {
if err := db.find(obj, v, -1, item.seq, append(path, nm), cc, ar, ignored); err != nil {
errs = append(errs, err.Error())
}
}
if len(errs) != 0 {
sort.Strings(errs)
w := 0
for _, v := range errs {
if w == 0 || w > 0 && v != errs[w-1] {
errs[w] = v
w++
}
}
errs = errs[:w]
return fmt.Errorf("%s", strings.Join(errs, "\n"))
}
return nil
}
func suffixNum(s string, dflt int) (string, int) {
x := strings.LastIndexByte(s, '#')
if x < 0 {
return s, dflt
}
// foo#42
// 012345
// x == 3
num := s[x+1:]
n, err := strconv.ParseUint(num, 10, 32)
if err != nil {
return s, dflt
}
return s[:x], int(n)
}
func (t *Task) useCompileDB(fn string, args []string) error {
if err := t.setLookPaths(); err != nil {
return err
}
var cdb cdb
f, err := os.Open(fn)
if err != nil {
return err
}
de := json.NewDecoder(f)
err = de.Decode(&cdb.items)
f.Close()
if err != nil {
return err
}
cdb.outputIndex = map[string][]*cdbItem{}
for i, v := range cdb.items {
v.seq = i
if len(v.Arguments) == 0 {
if len(v.Command) == 0 {
return fmt.Errorf("either arguments or command is required: %+v", v)
}
if v.Arguments, err = shellquote.Split(v.Command); err != nil {
return err
}
}
k := v.output(t.ccLookPath, t.arLookPath)
a := cdb.outputIndex[k]
v.ver = len(a)
cdb.outputIndex[k] = append(a, v)
}
obj := map[string]*cdbItem{}
notFound := false
for _, v := range args {
v, ver := suffixNum(v, 0)
if err := cdb.find(obj, v, ver, -1, nil, t.ccLookPath, t.arLookPath, t.ignoredObjects); err != nil {
notFound = true
fmt.Fprintln(os.Stderr, err)
}
}
if notFound {
var a []string
for k, v := range cdb.outputIndex {
for _, w := range v {
a = append(a, fmt.Sprintf("%5d %s", w.seq, k))
}
}
sort.Strings(a)
fmt.Fprintf(os.Stderr, "compile DB index:\n\t%s\n", strings.Join(a, "\n\t"))
}
var a []string
for k := range obj {
a = append(a, k)
}
sort.Strings(a)
return t.cdbBuild(obj, a)
}
func (t *Task) cdbBuild(obj map[string]*cdbItem, list []string) error {
var script [][]string
for _, nm := range list {
it := obj[nm]
if !strings.HasSuffix(it.Output, ".o") || it.Arguments[0] != t.cc {
continue
}
args, err := it.ccgoArgs(t.cc)
if err != nil {
return err
}
for _, v := range t.D {
args = append(args, "-D"+v)
}
for _, v := range t.U {
args = append(args, "-U"+v)
}
line := append([]string{it.Directory}, args...)
script = append(script, line)
}
return t.scriptBuild2(script)
}
func (t *Task) createCompileDB(command []string) (rerr error) {
if err := t.setLookPaths(); err != nil {
return err
}
cwd, err := os.Getwd()
if err != nil {
return err
}
f, err := os.Create(t.compiledb)
if err != nil {
return err
}
defer func() {
if err := f.Close(); err != nil && rerr == nil {
rerr = err
}
}()
cwr := newCDBWriter(f)
defer func() {
if err := cwr.finish(); err != nil && rerr == nil {
rerr = err
}
}()
var cmd *exec.Cmd
var parser func(s string) ([]string, error)
out:
switch t.goos {
case "darwin", "freebsd", "netbsd":
switch command[0] {
case "make", "gmake":
// ok
default:
return fmt.Errorf("usupported build command: %s", command[0])
}
sh, err := exec.LookPath("sh")
if err != nil {
return err
}
command = append([]string{sh, "-c"}, join(" ", command[0], "SHELL='sh -x'", command[1:]))
cmd = exec.Command(command[0], command[1:]...)
parser = makeXParser
case "openbsd":
switch command[0] {
case "make", "gmake":
// ok
default:
return fmt.Errorf("usupported build command: %s", command[0])
}
sh, err := exec.LookPath("sh")
if err != nil {
return err
}
command = append([]string{sh, "-c"}, join(" ", command[0], "SHELL='sh -x'", command[1:]))
cmd = exec.Command(command[0], command[1:]...)
parser = makeXParser2
case "windows":
if command[0] != "make" && command[0] != "make.exe" {
return fmt.Errorf("usupported build command: %s", command[0])
}
switch s := runtime.GOOS; s {
case "windows":
argv := append([]string{"-d"}, command[1:]...)
if !strings.HasSuffix(command[0], ".exe") {
command[0] += ".exe"
}
cmd = exec.Command(command[0], argv...)
parser = makeDParser
break out
case "linux":
// ok
default:
return fmt.Errorf("usupported cross compile host: %s", s)
}
fallthrough
default:
strace, err := exec.LookPath("strace")
if err != nil {
return err
}
argv := append([]string{"-f", "-s1000000", "-e", "trace=execve"}, command...)
cmd = exec.Command(strace, argv...)
parser = straceParser
}
cmd.Env = append(os.Environ(), "LC_ALL=C")
cw := t.newCdbMakeWriter(cwr, cwd, parser)
switch {
case t.verboseCompiledb:
cmd.Stdout = io.MultiWriter(cw, os.Stdout)
default:
cmd.Stdout = cw
}
cmd.Stderr = cmd.Stdout
if dmesgs {
dmesg("%v: %v", origin(1), cmd.Args)
}
if err := cmd.Run(); err != nil {
if dmesgs {
dmesg("%v: cmd.Run: %v", origin(1), err)
}
return err
}
return cw.err
}
func makeDParser(s string) ([]string, error) {
const prefix = "CreateProcess("
if !strings.HasPrefix(s, prefix) {
return nil, nil
}
// s: `CreateProcess(C:\Program Files\CodeBlocks\MinGW\bin\gcc.exe,gcc -O3 -Wall -c -o compress.o compress.c,...)`
s = s[len(prefix):]
// s: `C:\Program Files\CodeBlocks\MinGW\bin\gcc.exe,gcc -O3 -Wall -c -o compress.o compress.c,...)`
x := strings.IndexByte(s, ',')
if x < 0 {
return nil, nil
}
cmd := s[:x]
// cmd: `C:\Program Files\CodeBlocks\MinGW\bin\gcc.exe`
s = s[x+1:]
// s: `gcc -O3 -Wall -c -o compress.o compress.c,...)`
if x = strings.LastIndexByte(s, ','); x < 0 {
return nil, nil
}
s = s[:x]
// s: `gcc -O3 -Wall -c -o compress.o compress.c`
a, err := shellquote.Split(strings.TrimSpace(s))
if err != nil || len(a) == 0 {
return nil, err
}
return append([]string{cmd}, a[1:]...), nil
}
func isCreateArchive(s string) bool {
// ar modifiers may be in any order so sort characters in s before checking.
// This turns eg `rc` into `cr`.
b := []byte(s)
sort.Slice(b, func(i, j int) bool { return b[i] < b[j] })
switch string(b) {
case "cq", "cr", "crs", "cru", "r":
return true
}
return false
}
func hasPlusPrefix(s string) (n int, r string) {
for strings.HasPrefix(s, "+") {
n++
s = s[1:]
}
return n, s
}
func makeXParser(s string) (r []string, err error) {
switch {
case strings.HasPrefix(s, "libtool: link: ar "):
s = s[len("libtool: link:"):]
case strings.HasPrefix(s, "libtool: compile: "):
s = s[len("libtool: compile:"):]
for strings.HasPrefix(s, " ") {
s = s[1:]
}
default:
var n int
if n, s = hasPlusPrefix(s); n == 0 {
return nil, nil
}
}
if !strings.HasPrefix(s, " ") {
return nil, nil
}
s = s[1:]
if dmesgs {
dmesg("%v: source line `%s`, caller %v:", origin(1), s, origin(2))
}
r, err = shellquote.Split(s)
if dmesgs {
dmesg("%v: shellquote.Split -> %v %[2]q, %v", origin(1), r, err)
}
if err != nil {
if strings.Contains(err.Error(), "Unterminated single-quoted string") {
return nil, nil // ignore
}
}
if len(r) != 0 && filepath.Base(r[0]) == "libtool" {
r[0] = "libtool"
}
return r, err
}
func makeXParser2(s string) (r []string, err error) {
s = strings.TrimSpace(s)
switch {
case strings.HasPrefix(s, "libtool: link: ar "):
s = s[len("libtool: link:"):]
case strings.HasPrefix(s, "libtool: compile: "):
s = s[len("libtool: compile:"):]
for strings.HasPrefix(s, " ") {
s = s[1:]
}
default:
var n int
if n, s = hasPlusPrefix(s); n != 0 {
return nil, nil
}
}
if dmesgs {
dmesg("%v: source line `%s`, caller %v:", origin(1), s, origin(2))
}
r, err = shellquote.Split(s)
if dmesgs {
dmesg("%v: shellquote.Split -> %v %[2]q, %v", origin(1), r, err)
}
if err != nil {
if strings.Contains(err.Error(), "Unterminated single-quoted string") {
return nil, nil // ignore
}
}
if len(r) != 0 && filepath.Base(r[0]) == "libtool" {
r[0] = "libtool"
}
return r, err
}
func straceParser(s string) ([]string, error) {
prefix := "execve("
if strings.HasPrefix(s, "[pid ") {
s = strings.TrimSpace(s[strings.IndexByte(s, ']')+1:])
}
if !strings.HasPrefix(s, prefix) || !strings.HasSuffix(s, ") = 0") {
return nil, nil
}
// s: `execve("/usr/bin/ar", ["ar", "cr", "libtcl8.6.a", "regcomp.o", ... "bn_s_mp_sqr.o", "bn_s_mp_sub.o"], 0x55e6bbf49648 /* 60 vars */) = 0`
s = s[len(prefix):]
// s: `"/usr/bin/ar", ["ar", "cr", "libtcl8.6.a", "regcomp.o", ... "bn_s_mp_sqr.o", "bn_s_mp_sub.o"], 0x55e6bbf49648 /* 60 vars */) = 0`
a := strings.SplitN(s, ", [", 2)
// a[0]: `"/usr/bin/ar"`, a[1]: `"ar", "cr", "libtcl8.6.a", "regcomp.o", ... "bn_s_mp_sqr.o", "bn_s_mp_sub.o"], 0x55e6bbf49648 /* 60 vars */) = 0`
args := a[1]
// args: `"ar", "cr", "libtcl8.6.a", "regcomp.o", ... "bn_s_mp_sqr.o", "bn_s_mp_sub.o"], 0x55e6bbf49648 /* 60 vars */) = 0`
args = args[:strings.LastIndex(args, "], ")]
// args: `"ar", "cr", "libtcl8.6.a", "regcomp.o", ... "bn_s_mp_sqr.o", "bn_s_mp_sub.o"`
argv, err := shellquote.Split(args)
if err != nil {
return nil, err
}
words, err := shellquote.Split(a[0])
if err != nil {
return nil, err
}
argv[0] = words[0]
for i, v := range argv {
if strings.HasSuffix(v, ",") {
v = v[:len(v)-1]
}
if v2, err := strconv.Unquote(`"` + v + `"`); err == nil {
v = v2
}
argv[i] = v
}
return argv, nil
}
type cdbItem struct {
Arguments []string `json:"arguments"`
Command string `json:"command,omitempty"`
Directory string `json:"directory"`
File string `json:"file"`
Output string `json:"output,omitempty"`
seq int
ver int
}
func (it *cdbItem) cmpString() string { return fmt.Sprint(*it) }
func (it *cdbItem) ccgoArgs(cc string) (r []string, err error) {
switch it.Arguments[0] {
case cc:
set := opt.NewSet()
set.Arg("D", true, func(opt, arg string) error { r = append(r, "-D"+arg); return nil })
set.Arg("I", true, func(opt, arg string) error { r = append(r, "-I"+arg); return nil })
set.Arg("MF", true, func(opt, arg string) error { return nil })
set.Arg("MT", true, func(opt, arg string) error { return nil })
set.Arg("O", true, func(opt, arg string) error { return nil })
set.Arg("U", true, func(opt, arg string) error { r = append(r, "-U"+arg); return nil })
set.Arg("o", true, func(opt, arg string) error { return nil })
set.Arg("std", true, func(opt, arg string) error { return nil })
set.Opt("MD", func(opt string) error { return nil })
set.Opt("MMD", func(opt string) error { return nil })
set.Opt("MP", func(opt string) error { return nil })
set.Opt("ansi", func(opt string) error { return nil })
set.Opt("c", func(opt string) error { return nil })
set.Opt("g", func(opt string) error { return nil })
set.Opt("pedantic", func(opt string) error { return nil })
set.Opt("pipe", func(opt string) error { return nil })
set.Opt("pthread", func(opt string) error { return nil })
set.Opt("s", func(opt string) error { return nil })
set.Opt("w", func(opt string) error { return nil })
if err := set.Parse(it.Arguments[1:], func(arg string) error {
switch {
case strings.HasSuffix(arg, ".c"):
r = append(r, arg)
case
strings.HasPrefix(arg, "-W"),
strings.HasPrefix(arg, "-f"),
strings.HasPrefix(arg, "-m"):
// nop
case strings.HasPrefix(arg, ">"):
return opt.Skip(nil)
default:
return fmt.Errorf("unknown/unsupported CC option: %s", arg)
}
return nil
}); err != nil {
switch err.(type) {
case opt.Skip:
// ok
default:
return nil, err
}
}
return r, nil
default:
return nil, fmt.Errorf("command not supported: %q", it.Arguments[0])
}
}
func (it *cdbItem) output(cc, ar string) (r string) {
if it.Output != "" {
return it.Output
}
if len(it.Arguments) == 0 {
return ""
}
switch it.Arguments[0] {
case cc:
for i, v := range it.Arguments {
if v == "-o" && i < len(it.Arguments)-1 {
it.Output = filepath.Join(it.Directory, it.Arguments[i+1])
break
}
}
if it.Output == "" && strings.HasSuffix(it.File, ".c") {
for _, v := range it.Arguments {
if v == "-c" {
bn := filepath.Base(it.File)
it.Output = filepath.Join(it.Directory, bn[:len(bn)-2]+".o")
break
}
}
}
case ar:
if isCreateArchive(it.Arguments[1]) {
it.Output = filepath.Join(it.Directory, it.Arguments[2])
}
case "libtool":
for i, v := range it.Arguments {
if v == "-o" && i < len(it.Arguments)-1 {
it.Output = filepath.Join(it.Directory, it.Arguments[i+1])
}
}
}
return it.Output
}
func (it *cdbItem) sources(cc, ar string) (r []string) {
if len(it.Arguments) == 0 {
return nil
}
switch arg0 := it.Arguments[0]; arg0 {
case
"libtool",
ar,
filepath.Base(ar),
cc:
var prev string
for _, v := range it.Arguments {
switch prev {
case "-o", "-MT", "-MF":
// nop
default:
if strings.HasSuffix(v, ".o") {
r = append(r, filepath.Join(it.Directory, v))
}
}
prev = v
}
return r
default:
panic(todo("cc: %q ar: %q it: %+v", cc, ar, it))
}
}
type cdbMakeWriter struct {
ar string
arBase string
b bytes.Buffer
cc string
dir string
err error
it cdbItem
parser func(s string) ([]string, error)
prefix string
sc *bufio.Scanner
t *Task
w *cdbWriter
}
func (t *Task) newCdbMakeWriter(w *cdbWriter, dir string, parser func(s string) ([]string, error)) *cdbMakeWriter {
const sz = 1 << 16
r := &cdbMakeWriter{
ar: t.arLookPath,
arBase: filepath.Base(t.arLookPath),
cc: t.ccLookPath,
dir: dir,
parser: parser,
t: t,
w: w,
}
r.sc = bufio.NewScanner(&r.b)
r.sc.Buffer(make([]byte, sz), sz)
return r
}
func (w *cdbMakeWriter) fail(err error) {
if w.err == nil {
w.err = fmt.Errorf("%v (%v)", err, origin(2))
}
}
func (w *cdbMakeWriter) Write(b []byte) (int, error) {
w.b.Write(b)
for bytes.Contains(w.b.Bytes(), []byte{'\n'}) {
if !w.sc.Scan() {
panic(todo("internal error"))
}
s := w.sc.Text()
if strings.HasSuffix(s, "\\") {
w.prefix += s[:len(s)-1]
continue
}
s = w.prefix + s
w.prefix = ""
s = strings.TrimSpace(s)
if edx := strings.Index(s, "Entering directory"); edx >= 0 {
s = s[edx+len("Entering directory"):]
s = strings.TrimSpace(s)
if len(s) == 0 {
continue
}
if (s[0] == '\'' || s[0] == '`') && s[len(s)-1] == '\'' {
s = s[1:]
if len(s) == 0 {
continue
}
s = s[:len(s)-1]
}
s = `"` + s + `"`
dir, err := strconv.Unquote(s)
if err != nil {
w.fail(err)
continue
}
dir = filepath.Clean(dir)
if dir == w.dir {
continue
}
w.dir = dir
fmt.Printf("cd %s\n", dir)
continue
}
if dmesgs {
dmesg("%v: source line `%s`", origin(1), s)
}
args, err := w.parser(s)
if dmesgs {
dmesg("%v: parser -> %v %[2]q, %v", origin(1), args, err)
}
if err != nil {
w.fail(err)
continue
}
if len(args) == 0 {
continue
}
// TODO: change so eg handleGCC returns []cdbItem, skip if none.
w.it = cdbItem{}
err = nil
switch args[0] {
case w.cc:
if w.t.verboseCompiledb {
fmt.Printf("source line: %q\n", s)
}
fmt.Printf("CCGO CC: %q\n", args)
err = w.handleGCC(args)
case w.ar:
fallthrough
case w.arBase:
if isCreateArchive(args[1]) {
if w.t.verboseCompiledb {
fmt.Printf("source line: %q\n", s)
}
fmt.Printf("CCGO AR: %q\n", args)
err = w.handleAR(args)
}
case "libtool":
if w.t.verboseCompiledb {
fmt.Printf("source line: %q\n", s)
}
fmt.Printf("CCGO LIBTOOL: %q\n", args)
err = w.handleLibtool(args)
}
if err != nil {
w.fail(err)
continue
}
if w.it.Output != "" {
w.w.add(w.it)
}
}
return len(b), nil
}
func (w *cdbMakeWriter) handleLibtool(args []string) error {
w.it = cdbItem{
Arguments: args,
Directory: w.dir,
}
for i, v := range args {
switch {
case v == "-o" && i < len(args)-1:
w.it.Output = filepath.Join(w.dir, args[i+1])
}
}
w.it.output(w.cc, w.ar)
return nil
}
func (w *cdbMakeWriter) handleAR(args []string) error {
w.it = cdbItem{
Arguments: args,
Directory: w.dir,
}
// TODO: assumes isCreateArchive has already been checked
w.it.Output = filepath.Join(w.dir, args[2])
return nil
}
func (w *cdbMakeWriter) handleGCC(args []string) error {
w.it = cdbItem{
Arguments: args,
Directory: w.dir,
}
for i, v := range args {
switch {
case v == "-o" && i < len(args)-1:
w.it.Output = filepath.Join(w.dir, args[i+1])
case strings.HasSuffix(v, ".c"):
if w.it.File != "" {
return fmt.Errorf("multiple .c files: %s", v)
}
w.it.File = filepath.Clean(v)
}
}
w.it.output(w.cc, w.ar)
return nil
}
type cdbWriter struct {
w *bufio.Writer
items []cdbItem
}
func newCDBWriter(w io.Writer) *cdbWriter {
return &cdbWriter{w: bufio.NewWriter(w)}
}
func (w *cdbWriter) add(item cdbItem) {
w.items = append(w.items, item)
}
func (w *cdbWriter) finish() error {
enc := json.NewEncoder(w.w)
enc.SetIndent("", " ")
if err := enc.Encode(w.items); err != nil {
return err
}
return w.w.Flush()
}
func join(sep string, a ...interface{}) string {
var b []string
for _, v := range a {
switch x := v.(type) {
case string:
b = append(b, x)
case []string:
b = append(b, x...)
default:
panic(todo("internal error: %T", x))
}
}
return strings.Join(b, sep)
}
func inDir(dir string, f func() error) (err error) {
var cwd string
if cwd, err = os.Getwd(); err != nil {
return err
}
defer func() {
if err2 := os.Chdir(cwd); err2 != nil {
err = err2
}
}()
if err = os.Chdir(dir); err != nil {
return err
}
return f()
}
func detectMingw(s string) bool {
return strings.Contains(s, "#define __MINGW")
}
func memGuard(i int, force bool) {
if totalRam == 0 || totalRam > 64e9 {
return
}
var ms runtime.MemStats
runtime.ReadMemStats(&ms)
switch {
case ms.Alloc < totalRam/2:
return
case ms.Alloc < (8*totalRam)/10:
if force {
break
}
switch {
case totalRam < 1e9:
// ok
case totalRam < 16e9:
if i&1 == 1 {
return
}
default:
if i&3 != 3 {
return
}
}
}
debug.FreeOSMemory()
}