@ai-ecoverse/wasix-f2c 0.0.0 → 3.2.1-1

package/LICENSE

@@ -0,0 +1,80 @@
+==> Notice <==
+
+/****************************************************************
+Copyright 1990 - 1997 by AT&T, Lucent Technologies and Bellcore.
+
+Permission to use, copy, modify, and distribute this software
+and its documentation for any purpose and without fee is hereby
+granted, provided that the above copyright notice appear in all
+copies and that both that the copyright notice and this
+permission notice and warranty disclaimer appear in supporting
+documentation, and that the names of AT&T, Bell Laboratories,
+Lucent or Bellcore or any of their entities not be used in
+advertising or publicity pertaining to distribution of the
+software without specific, written prior permission.
+
+AT&T, Lucent and Bellcore disclaim all warranties with regard to
+this software, including all implied warranties of
+merchantability and fitness.  In no event shall AT&T, Lucent or
+Bellcore be liable for any special, indirect or consequential
+damages or any damages whatsoever resulting from loss of use,
+data or profits, whether in an action of contract, negligence or
+other tortious action, arising out of or in connection with the
+use or performance of this software.
+****************************************************************/
+
+
+==> LICENSE.txt <==
+
+F2C License:
+
+Copyright 1990 - 1997 by AT&T, Lucent Technologies and Bellcore.
+
+Permission to use, copy, modify, and distribute this software and its
+documentation for any purpose and without fee is hereby granted, provided that
+the above copyright notice appear in all copies and that both that the copyright
+notice and this permission notice and warranty disclaimer appear in supporting
+documentation, and that the names of AT&T, Bell Laboratories, Lucent or Bellcore
+or any of their entities not be used in advertising or publicity pertaining to
+distribution of the software without specific, written prior permission.
+
+AT&T, Lucent and Bellcore disclaim all warranties with regard to this software,
+including all implied warranties of merchantability and fitness. In no event
+shall AT&T, Lucent or Bellcore be liable for any special, indirect or
+consequential damages or any damages whatsoever resulting from loss of use, data
+or profits, whether in an action of contract, negligence or other tortious
+action, arising out of or in connection with the use or performance of this
+software.
+
+Scipy License (for the files in tests/scipy/in):
+
+Copyright (c) 2001-2002 Enthought, Inc. 2003-2024, SciPy Developers.
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+
+1. Redistributions of source code must retain the above copyright
+   notice, this list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above
+   copyright notice, this list of conditions and the following
+   disclaimer in the documentation and/or other materials provided
+   with the distribution.
+
+3. Neither the name of the copyright holder nor the names of its
+   contributors may be used to endorse or promote products derived
+   from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

package/README.md

@@ -1,9 +1,36 @@
 # @ai-ecoverse/wasix-f2c
 
-🐣 This package name has been claimed with [fledgling](https://github.com/dmno-dev/fledgling) for [https://github.com/ai-ecoverse/homescoop](https://github.com/ai-ecoverse/homescoop), and a real release will land here soon.
+Fortran 77 for wasm32-wasix through [f2c](https://www.netlib.org/f2c/): a
+**build input** (no slicc commands) that py-scipy compiles its Fortran with,
+fetched by sha256. It follows Pyodide's scipy build.
 
-This is a placeholder — there is nothing to install yet.
+- `lib/libf2c.a`: static and **PIC** (the ehpic tree's legacy wasm exceptions,
+  as scipy's side modules), built from CLAPACK 3.2.1's `F2CLIBS/libf2c` with
+  Pyodide's patches 0001–0007 on wasix-sysroot 2025.9.30-38. 0005 leaves
+  `c_abs`/`z_abs` to OpenBLAS (`@ai-ecoverse/wasix-openblas`), so the two
+  link together. `lib/pkgconfig/f2c.pc` has a relocatable prefix.
+- `include/f2c.h`: the header f2c output is compiled against (hoodmane/f2c's).
+- `share/f2c/src`: the f2c translator's source (hoodmane/f2c `caa9abc`, f2c
+  20240504). It's a **host tool**, so `bin/build-f2c.sh [<out-dir>]` builds it
+  with the host `cc` and prints its path. Without an out dir, it builds it
+  once into `$WASIX_F2C_CACHE`, else `~/.cache/wasix-f2c/<version>`. One
+  tarball serves every build host.
+- `bin/gfortran`: a gfortran for meson and other build systems (Python 3).
+  - **Fortran sources:** `.f`/`.F` are translated with `f2c -R` next to the
+    source (`.F` through the C preprocessor first), then compiled with
+    `$WASIX_CC` (default `wasixcc`) and `-I<package>/include`.
+  - **Links:** link-only calls go to `$WASIX_CC`. An executable link from
+    Fortran adds `libf2c.a`, as gfortran adds libgfortran.
+  - **Identity probes:** meson's (`--version`, `-v`, `-dumpversion`,
+    `-dumpfullversion`, `-E -dM -`) are answered as GNU Fortran 13.2.0 for
+    wasm32, so no host gfortran is needed. Other queries without a source go
+    to `$REAL_GFORTRAN` if set.
+  - **Project fixes:** `$F2C_FIXES` can name a Python file with
+    `fix_f2c_input(path)`, `fix_f2c_output(path)` and `fix_args(args)` hooks,
+    for scipy's f2c fixes.
+  - **Overrides:** `$F2C_PATH` sets the f2c to run, and `$F2C_INCLUDE` the
+    directory for f2c.h.
 
----
-
-Want to claim a name of your own? Run `npx fledgling add <name> --new --yes` — it reserves the name on npm and can set up token-less (OIDC trusted) publishing for when you are ready.
+libf2c and f2c are under the AT&T/Lucent/Bellcore notice (SMLNJ), and
+`bin/gfortran` follows pyodide-build (MPL-2.0). See `LICENSE` and
+`THIRD-PARTY-NOTICES.md`.

package/THIRD-PARTY-NOTICES.md

@@ -0,0 +1,246 @@
+# Third-party notices
+
+libf2c.a is CLAPACK 3.2.1's F2CLIBS/libf2c (its Notice is in LICENSE) with Pyodide's patches; share/f2c/src and f2c.h are hoodmane/f2c caa9abcaddd19154a5e6d77faa78b6289547bef5 (LICENSE.txt, also in LICENSE); bin/gfortran follows pyodide-build (MPL-2.0). libf2c.a is compiled against and meant to be linked with the following.
+
+## wasix-libc headers (@ai-ecoverse/wasix-sysroot 2025.9.30-38; files from tag v2026-07-03.1)
+
+```text
+wasi-libc as a whole is multi-licensed under the
+Apache License v2.0 with LLVM Exceptions, the Apache License v2.0, and
+the MIT License. See the LICENSE-APACHE-LLVM, LICENSE-APACHE and LICENSE-MIT
+files, respectively, for details.
+
+Portions of this software are derived from third-party works covered by
+their own licenses:
+
+dlmalloc/                     - CC0; see the notice in malloc.c for details
+emmalloc/                     - MIT; see the notice in emmalloc.c for details
+libc-bottom-half/cloudlibc/   - BSD-2-Clause; see the LICENSE file for details
+libc-top-half/musl/           - MIT; see the COPYRIGHT file for details
+
+wasi-libc changes to these files are multi-licensed under the
+Apache License v2.0 with LLVM Exceptions, the Apache License v2.0,
+the MIT License, and the original licenses of the third-party works.
+```
+
+```text
+Permission is hereby granted, free of charge, to any
+person obtaining a copy of this software and associated
+documentation files (the "Software"), to deal in the
+Software without restriction, including without
+limitation the rights to use, copy, modify, merge,
+publish, distribute, sublicense, and/or sell copies of
+the Software, and to permit persons to whom the Software
+is furnished to do so, subject to the following
+conditions:
+
+The above copyright notice and this permission notice
+shall be included in all copies or substantial portions
+of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF
+ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
+TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT
+SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR
+IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+DEALINGS IN THE SOFTWARE.
+```
+
+```text
+musl as a whole is licensed under the following standard MIT license:
+
+----------------------------------------------------------------------
+Copyright © 2005-2020 Rich Felker, et al.
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+----------------------------------------------------------------------
+
+Authors/contributors include:
+
+A. Wilcox
+Ada Worcester
+Alex Dowad
+Alex Suykov
+Alexander Monakov
+Andre McCurdy
+Andrew Kelley
+Anthony G. Basile
+Aric Belsito
+Arvid Picciani
+Bartosz Brachaczek
+Benjamin Peterson
+Bobby Bingham
+Boris Brezillon
+Brent Cook
+Chris Spiegel
+Clément Vasseur
+Daniel Micay
+Daniel Sabogal
+Daurnimator
+David Carlier
+David Edelsohn
+Denys Vlasenko
+Dmitry Ivanov
+Dmitry V. Levin
+Drew DeVault
+Emil Renner Berthing
+Fangrui Song
+Felix Fietkau
+Felix Janda
+Gianluca Anzolin
+Hauke Mehrtens
+He X
+Hiltjo Posthuma
+Isaac Dunham
+Jaydeep Patil
+Jens Gustedt
+Jeremy Huntwork
+Jo-Philipp Wich
+Joakim Sindholt
+John Spencer
+Julien Ramseier
+Justin Cormack
+Kaarle Ritvanen
+Khem Raj
+Kylie McClain
+Leah Neukirchen
+Luca Barbato
+Luka Perkov
+M Farkas-Dyck (Strake)
+Mahesh Bodapati
+Markus Wichmann
+Masanori Ogino
+Michael Clark
+Michael Forney
+Mikhail Kremnyov
+Natanael Copa
+Nicholas J. Kain
+orc
+Pascal Cuoq
+Patrick Oppenlander
+Petr Hosek
+Petr Skocik
+Pierre Carrier
+Reini Urban
+Rich Felker
+Richard Pennington
+Ryan Fairfax
+Samuel Holland
+Segev Finer
+Shiz
+sin
+Solar Designer
+Stefan Kristiansson
+Stefan O'Rear
+Szabolcs Nagy
+Timo Teräs
+Trutz Behn
+Valentin Ochs
+Will Dietz
+William Haddon
+William Pitcock
+
+Portions of this software are derived from third-party works licensed
+under terms compatible with the above MIT license:
+
+The TRE regular expression implementation (src/regex/reg* and
+src/regex/tre*) is Copyright © 2001-2008 Ville Laurikari and licensed
+under a 2-clause BSD license (license text in the source files). The
+included version has been heavily modified by Rich Felker in 2012, in
+the interests of size, simplicity, and namespace cleanliness.
+
+Much of the math library code (src/math/* and src/complex/*) is
+Copyright © 1993,2004 Sun Microsystems or
+Copyright © 2003-2011 David Schultz or
+Copyright © 2003-2009 Steven G. Kargl or
+Copyright © 2003-2009 Bruce D. Evans or
+Copyright © 2008 Stephen L. Moshier or
+Copyright © 2017-2018 Arm Limited
+and labelled as such in comments in the individual source files. All
+have been licensed under extremely permissive terms.
+
+The ARM memcpy code (src/string/arm/memcpy.S) is Copyright © 2008
+The Android Open Source Project and is licensed under a two-clause BSD
+license. It was taken from Bionic libc, used on Android.
+
+The AArch64 memcpy and memset code (src/string/aarch64/*) are
+Copyright © 1999-2019, Arm Limited.
+
+The implementation of DES for crypt (src/crypt/crypt_des.c) is
+Copyright © 1994 David Burren. It is licensed under a BSD license.
+
+The implementation of blowfish crypt (src/crypt/crypt_blowfish.c) was
+originally written by Solar Designer and placed into the public
+domain. The code also comes with a fallback permissive license for use
+in jurisdictions that may not recognize the public domain.
+
+The smoothsort implementation (src/stdlib/qsort.c) is Copyright © 2011
+Valentin Ochs and is licensed under an MIT-style license.
+
+The x86_64 port was written by Nicholas J. Kain and is licensed under
+the standard MIT terms.
+
+The mips and microblaze ports were originally written by Richard
+Pennington for use in the ellcc project. The original code was adapted
+by Rich Felker for build system and code conventions during upstream
+integration. It is licensed under the standard MIT terms.
+
+The mips64 port was contributed by Imagination Technologies and is
+licensed under the standard MIT terms.
+
+The powerpc port was also originally written by Richard Pennington,
+and later supplemented and integrated by John Spencer. It is licensed
+under the standard MIT terms.
+
+All other files which have no copyright comments are original works
+produced specifically for use as part of this library, written either
+by Rich Felker, the main author of the library, or by one or more
+contibutors listed above. Details on authorship of individual files
+can be found in the git version control history of the project. The
+omission of copyright and license comments in each file is in the
+interest of source tree size.
+
+In addition, permission is hereby granted for all public header files
+(include/* and arch/*/bits/*) and crt files intended to be linked into
+applications (crt/*, ldso/dlstart.c, and arch/*/crt_arch.h) to omit
+the copyright notice and permission notice otherwise required by the
+license, and to use these files without any requirement of
+attribution. These files include substantial contributions from:
+
+Bobby Bingham
+John Spencer
+Nicholas J. Kain
+Rich Felker
+Richard Pennington
+Stefan Kristiansson
+Szabolcs Nagy
+
+all of whom have explicitly granted such permission.
+
+This file previously contained text expressing a belief that most of
+the files covered by the above exception were sufficiently trivial not
+to be subject to copyright, resulting in confusion over whether it
+negated the permissions granted in the license. In the spirit of
+permissive licensing, and of not having licensing issues being an
+obstacle to adoption, that text has been removed.
+```

package/bin/build-f2c.sh

@@ -0,0 +1,24 @@
+#!/usr/bin/env bash
+# build-f2c.sh [<out-dir>]: build the f2c translator (hoodmane/f2c, the
+# pinned source in share/f2c/src) with the host C compiler and print its
+# path. It's a host tool, so the package ships its source, not a binary for
+# one host. Without <out-dir> it builds once into
+# ${WASIX_F2C_CACHE:-${XDG_CACHE_HOME:-$HOME/.cache}/wasix-f2c}/<version>.
+set -euo pipefail
+PKG="$(cd "$(dirname "$0")/.." && pwd)"
+VER="$(sed -n 's/.*"version": *"\([^"]*\)".*/\1/p' "$PKG/package.json" | head -1)"
+OUT="${1:-${WASIX_F2C_CACHE:-${XDG_CACHE_HOME:-$HOME/.cache}/wasix-f2c}/$VER}"
+if [[ -x "$OUT/f2c" ]]; then
+  echo "$OUT/f2c"
+  exit 0
+fi
+TMP="$(mktemp -d "${TMPDIR:-/tmp}/wasix-f2c-build.XXXXXX")"
+trap 'rm -rf "$TMP"' EXIT
+cp -R "$PKG/share/f2c/src/." "$TMP/"
+# gram.c ships generated: don't regenerate it with yacc (as Pyodide does).
+sed 's/^gram\.c:/gram.c1:/' "$TMP/makefile.u" >"$TMP/makefile"
+make -s -C "$TMP" CC="${HOST_CC:-${CC_FOR_BUILD:-cc}}" CFLAGS="-O -w" f2c >&2
+mkdir -p "$OUT"
+cp "$TMP/f2c" "$OUT/f2c.tmp.$$"
+mv "$OUT/f2c.tmp.$$" "$OUT/f2c"
+echo "$OUT/f2c"

package/bin/gfortran

@@ -0,0 +1,154 @@
+#!/usr/bin/env python3
+# gfortran for wasm32-wasix: Fortran 77 through f2c, then the C compiler.
+#
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0 (http://mozilla.org/MPL/2.0/): the f2c replay below follows
+# pyodide-build's _f2c_fixes.py / pywasmcross (Pyodide, MPL-2.0), as
+# packages/py-scipy/tools/gfortran did. homescoop's changes are under the
+# same licence.
+"""gfortran → f2c → $WASIX_CC.
+
+- A compile of .f/.F sources: each is translated with `f2c -R` (Fortran REAL
+  functions return float, as OpenBLAS's f2c'd LAPACK does) next to the
+  source (.F first through the C preprocessor), and the C is compiled with
+  $WASIX_CC (default wasixcc) and -I<package>/include for f2c.h. gfortran-only
+  flags are dropped.
+- Link-only calls (no Fortran source) go to $WASIX_CC as they are. A link
+  that produces an executable from Fortran (no -c, no -shared) adds
+  <package>/lib/libf2c.a, as gfortran adds libgfortran.
+- meson's identity probes (--version, -v, -dumpversion, -dumpfullversion,
+  -E -dM -) are answered here as GNU Fortran 13.2.0 for wasm32-wasi, so no
+  host gfortran is needed. Anything else without a source goes to
+  $REAL_GFORTRAN if it's set, else fails.
+
+Environment:
+  F2C_PATH     the f2c to run (default: f2c on PATH, else bin/build-f2c.sh
+               builds it once into $WASIX_F2C_CACHE or ~/.cache/wasix-f2c)
+  WASIX_CC     the C compiler (default wasixcc)
+  F2C_INCLUDE  where f2c.h is (default <package>/include)
+  F2C_FIXES    a Python file with optional fix_f2c_input(path),
+               fix_f2c_output(path) and fix_args(args) hooks (scipy's fixes)
+  REAL_GFORTRAN  a host gfortran for other probes (optional)
+"""
+from __future__ import annotations
+
+import importlib.util
+import os
+import shutil
+import subprocess
+import sys
+from pathlib import Path
+
+PKG = Path(__file__).resolve().parent.parent
+GFORTRAN_VERSION = "13.2.0"
+FORTRAN_SUFFIXES = (".f", ".F", ".for", ".FOR", ".f77", ".F77")
+DROP_EXACT = {"-ffixed-form", "-ffree-form", "-fno-second-underscore", "-fPIC", "-fpic", "-cpp", "-nocpp"}
+DROP_PREFIX = ("-fallow-", "-fdefault-", "-fblas-", "-J", "-finit-", "-freal-", "-fimplicit-", "-fcheck",
+               "-ffpe-", "-fbacktrace", "-frecursive", "-std=", "-fmodule", "-ffixed-line-length", "-fno-automatic")
+
+
+def hooks():
+    path = os.environ.get("F2C_FIXES")
+    if not path:
+        return None
+    spec = importlib.util.spec_from_file_location("wasix_f2c_fixes", path)
+    mod = importlib.util.module_from_spec(spec)
+    spec.loader.exec_module(mod)
+    return mod
+
+
+def hook(mod, name, *args):
+    fn = getattr(mod, name, None) if mod else None
+    if fn:
+        fn(*args)
+
+
+def f2c_path() -> str:
+    if os.environ.get("F2C_PATH"):
+        return os.environ["F2C_PATH"]
+    found = shutil.which("f2c")
+    if found:
+        return found
+    out = subprocess.run([str(PKG / "bin" / "build-f2c.sh")], check=True, stdout=subprocess.PIPE, text=True).stdout
+    return out.strip().splitlines()[-1]
+
+
+def wasix_cc() -> str:
+    return os.environ.get("WASIX_CC", "wasixcc")
+
+
+def probe(argv: list[str]) -> int | None:
+    """meson's identity probes, answered as GNU Fortran for wasm32-wasi."""
+    if argv in (["--version"], ["-v", "--version"]):
+        print(f"GNU Fortran (wasix-f2c: f2c -R and {wasix_cc()}) {GFORTRAN_VERSION}")
+        print("This is f2c translating Fortran 77 to C for wasm32-wasix, not GNU Fortran.")
+        return 0
+    if argv in (["-dumpversion"], ["-dumpfullversion"]):
+        print(GFORTRAN_VERSION)
+        return 0
+    if argv == ["-v"]:
+        print(f"Target: wasm32-wasi\ngcc version {GFORTRAN_VERSION} (wasix-f2c)", file=sys.stderr)
+        return 0
+    if "-E" in argv and "-dM" in argv and argv[-1] == "-":
+        defs = subprocess.run([wasix_cc(), "-E", "-dM", "-x", "c", "-"], stdin=subprocess.DEVNULL,
+                              check=True, stdout=subprocess.PIPE, text=True).stdout
+        major, minor, patch = GFORTRAN_VERSION.split(".")
+        keep = [l for l in defs.splitlines() if not l.startswith(("#define __GNUC__", "#define __GNUC_MINOR__", "#define __GNUC_PATCHLEVEL__", "#define __clang"))]
+        keep += [f"#define __GNUC__ {major}", f"#define __GNUC_MINOR__ {minor}", f"#define __GNUC_PATCHLEVEL__ {patch}", "#define __GFORTRAN__ 1"]
+        print("\n".join(sorted(keep)))
+        return 0
+    return None
+
+
+def translate(src: str, mod) -> str:
+    """f2c -R one Fortran source next to itself; returns the .c path."""
+    path = Path(src).resolve()
+    hook(mod, "fix_f2c_input", Path(src))
+    if path.suffix in (".F", ".F77"):
+        pre = path.with_suffix(".f77")
+        subprocess.check_call([wasix_cc(), "-E", "-P", "-C", "-traditional-cpp", "-x", "c", str(path), "-o", str(pre)])
+        path = pre
+    out = path.with_suffix(".c")
+    with open(path) as fin, open(out, "w") as fout:
+        subprocess.check_call([f2c_path(), "-R"], stdin=fin, stdout=fout, cwd=path.parent)
+    c = str(Path(src).with_suffix(".c")) if Path(src).suffix not in (".F", ".F77") else str(out)
+    hook(mod, "fix_f2c_output", Path(c))
+    return c
+
+
+def main() -> int:
+    argv = sys.argv[1:]
+    sources = [a for a in argv if a.endswith(FORTRAN_SUFFIXES) and not a.startswith("-")]
+    if not sources:
+        answered = probe(argv)
+        if answered is not None:
+            return answered
+        if any(a.startswith("-Wl,") or a in ("-shared", "-dynamiclib") or a.endswith((".o", ".a", ".so", ".wasm"))
+               for a in argv):
+            os.execvp(wasix_cc(), [wasix_cc(), *argv])
+        real = os.environ.get("REAL_GFORTRAN")
+        if real:
+            os.execvp(real, [real, *argv])
+        print(f"wasix-f2c gfortran: nothing to translate or link in {' '.join(argv)!r} (set REAL_GFORTRAN for other queries)", file=sys.stderr)
+        return 2
+
+    mod = hooks()
+    args = [wasix_cc()]
+    for a in argv:
+        if a in sources:
+            args.append(translate(a, mod))
+        elif a in DROP_EXACT or a.startswith(DROP_PREFIX):
+            continue
+        else:
+            args.append(a)
+    args.insert(1, f"-I{os.environ.get('F2C_INCLUDE', str(PKG / 'include'))}")
+    links = "-c" not in argv and "-E" not in argv and "-S" not in argv
+    if links and "-shared" not in argv:
+        args += [str(PKG / "lib" / "libf2c.a"), "-lm"]
+    hook(mod, "fix_args", args)
+    os.execvp(args[0], args)
+    return 1
+
+
+if __name__ == "__main__":
+    raise SystemExit(main())