Gecko [ ap.oishifashion.com ]

Name	Size	Permission	Date
fileattrs	[ DIR ]	drwxr-xr-x	2025-12-02 10:03
lua	[ DIR ]	drwxr-xr-x	2025-03-13 03:18
macros.d	[ DIR ]	drwxr-xr-x	2025-12-02 10:03
platform	[ DIR ]	drwxr-xr-x	2025-03-13 03:18
redhat	[ DIR ]	drwxr-xr-x	2025-08-19 07:26
alt-nodejs10_native.req	70 B	-rwxr-xr-x	2022-12-15 17:53
alt-nodejs11_native.req	70 B	-rwxr-xr-x	2022-12-13 13:03
alt-nodejs12_native.req	70 B	-rwxr-xr-x	2022-12-14 06:46
alt-nodejs14_native.req	70 B	-rwxr-xr-x	2023-03-23 19:46
alt-nodejs16_native.req	40 B	-rwxr-xr-x	2023-11-03 14:58
alt-nodejs18_native.req	40 B	-rwxr-xr-x	2025-02-28 19:22
alt-nodejs19_native.req	43 B	-rwxr-xr-x	2023-12-06 19:04
alt-nodejs20_native.req	44 B	-rwxr-xr-x	2025-02-28 20:40
alt-nodejs22_native.req	44 B	-rwxr-xr-x	2025-03-03 12:58
alt-nodejs6_native.req	64 B	-rwxr-xr-x	2022-12-14 09:56
alt-nodejs8_native.req	68 B	-rwxr-xr-x	2022-12-15 17:35
alt-nodejs9_native.req	68 B	-rwxr-xr-x	2022-12-14 09:01
brp-boot-efi-times	1.43 KB	-rwxr-xr-x	2022-06-08 09:44
brp-compress	1.66 KB	-rwxr-xr-x	2020-05-28 10:04
brp-java-gcjcompile	1.4 KB	-rwxr-xr-x	2020-05-28 10:04
brp-python-bytecompile	3.82 KB	-rwxr-xr-x	2020-08-31 09:14
brp-python-hardlink	640 B	-rwxr-xr-x	2020-05-28 10:04
brp-scl-compress	1.77 KB	-rwxr-xr-x	2021-07-27 15:14
brp-scl-python-bytecompile	3.04 KB	-rwxr-xr-x	2021-07-27 15:14
brp-strip	490 B	-rwxr-xr-x	2025-03-13 03:17
brp-strip-comment-note	749 B	-rwxr-xr-x	2020-05-28 10:04
brp-strip-shared	714 B	-rwxr-xr-x	2020-05-28 10:04
brp-strip-static-archive	499 B	-rwxr-xr-x	2020-05-28 10:04
check-buildroot	1.26 KB	-rwxr-xr-x	2020-05-28 10:04
check-files	1.03 KB	-rwxr-xr-x	2020-05-28 10:04
check-prereqs	422 B	-rwxr-xr-x	2020-05-28 10:04
check-rpaths	1.02 KB	-rwxr-xr-x	2020-05-28 10:04
check-rpaths-worker	4.94 KB	-rwxr-xr-x	2025-03-13 03:17
debugedit	38 B	-rwxr-xr-x	2025-03-13 03:18
elfdeps	23.34 KB	-rwxr-xr-x	2025-03-13 03:18
find-debuginfo.sh	46 B	-rwxr-xr-x	2025-03-13 03:18
find-lang.sh	8.04 KB	-rwxr-xr-x	2025-03-13 03:17
find-provides	95 B	-rwxr-xr-x	2020-05-28 10:04
find-requires	95 B	-rwxr-xr-x	2020-05-28 10:04
fontconfig.prov	493 B	-rwxr-xr-x	2020-05-28 10:04
gstreamer1.prov	950 B	-rwxr-xr-x	2025-03-13 09:20
libtooldeps.sh	722 B	-rwxr-xr-x	2020-05-28 10:04
macros	43.12 KB	-rw-r--r--	2025-03-13 03:18
mkinstalldirs	3.46 KB	-rwxr-xr-x	2020-05-28 10:04
nodejs_native.req	74 B	-rwxr-xr-x	2024-05-20 06:02
ocamldeps.sh	6.69 KB	-rwxr-xr-x	2020-05-28 10:04
pkgconfigdeps.sh	1.34 KB	-rwxr-xr-x	2020-05-28 10:04
pythonbundles.py	3.09 KB	-rwxr-xr-x	2024-04-01 21:28
pythondistdeps.py	26.64 KB	-rwxr-xr-x	2024-04-01 21:28
rpm.daily	296 B	-rw-r--r--	2020-05-28 10:04
rpm.log	61 B	-rw-r--r--	2020-05-28 10:04
rpm.supp	688 B	-rw-r--r--	2020-05-28 10:04
rpm2cpio.sh	1.56 KB	-rwxr-xr-x	2025-03-13 03:17
rpmdb_dump	41 B	-rwxr-xr-x	2020-05-28 10:04
rpmdb_load	41 B	-rwxr-xr-x	2020-05-28 10:04
rpmdeps	19.97 KB	-rwxr-xr-x	2025-03-13 03:18
rpmpopt-4.16.1.3	11.83 KB	-rw-r--r--	2025-03-13 03:18
rpmrc	17.24 KB	-rw-r--r--	2025-03-13 03:18
scldeps.sh	258 B	-rwxr-xr-x	2021-07-27 15:14
script.req	326 B	-rwxr-xr-x	2020-05-28 10:04
sepdebugcrcfix	43 B	-rwxr-xr-x	2025-03-13 03:18
sysusers.generate-pre.sh	2.22 KB	-rwxr-xr-x	2025-06-24 13:28
sysusers.prov	605 B	-rwxr-xr-x	2025-06-24 13:28
tgpg	937 B	-rwxr-xr-x	2020-05-28 10:04

Rename

#!/usr/bin/bash
# This is a helper for rpm which collects 'Provides' and 'Requires' information from OCaml files.
# It reads a list of filenames from STDIN.
# It expects as argument either '--provides|-P' or '--requires|-R'.
# Additional optional arguments are:
# -f "ocamlobjinfo command"
# -c # ignored, recognized just for compat reasons
# -i NAME # omit the Requires/Provides for this bytecode unit name
# -x NAME # omit the Requires/Provides for this native unit name
#
# OCaml object files contain either bytecode or native code.
# Each bytecode variant provides a certain interface, which is represented by a hash.
# Each native variant provides a certain interface and a certain implementation, which are represented by hashes.
# Each variant may also require a certain interface and/or implementation provided by other files.
# The details for each file can be inspected with 'ocamlobjinfo'.
#
# Each file contains at least one module.
# Information about each module follows after a line starting with "Name:" or "Unit name:":
#
# cma/cmi/cmo (bytecode):
#   Unit name: NAME
#   Interfaces imported:
#     HASH NAME
#     HASH NAME_FROM_OTHER_MODULE
#
# cmx/cmxa/cmxs (native):
#   Name: NAME
#   CRC of implementation: HASH
#   Interfaces imported:
#     HASH NAME
#     HASH NAME_FROM_OTHER_MODULE
#   Implementations imported:
#     HASH NAME_FROM_OTHER_MODULE
#
# The hash may contain just '-', in which case it is ignored.
#
# Output:
# ocaml(NAME) = HASH # for interfaces (bytecode and native)
# ocamlx(NAME) = HASH # for implementations (native)

set -e
#
OCAMLOBJINFO=ocamlobjinfo
rpm_prefix_interface='ocaml'
rpm_prefix_implementation='ocamlx'
#
parse() {
  local filename="$1"

${OCAMLOBJINFO} "${filename}" | awk '
  BEGIN {
    debug=0
    mode=ENVIRON["mode"]
    RPM_BUILD_ROOT=ENVIRON["RPM_BUILD_ROOT"]
    rpm_prefix_interface=ENVIRON["rpm_prefix_interface"]
    rpm_prefix_implementation=ENVIRON["rpm_prefix_implementation"]
    state="find"
    unit=""

split(ENVIRON["ignore_implementation"], ignore_implementation_a)
    for (i in ignore_implementation_a) {
      val=ignore_implementation_a[i]
      if (debug)
        printf "INFO: ignore_implementation %s\n", val  > "/dev/stderr"
      ignore_implementation[val]=1
    }
    split(ENVIRON["ignore_interface"], ignore_interface_a)
    for (i in ignore_interface_a) {
      val=ignore_interface_a[i]
      if (debug)
        printf "INFO: ignore_interface %s\n", val  > "/dev/stderr"
      ignore_interface[val]=1
    }
  }

/^File / {
    if (RPM_BUILD_ROOT != "" ) {
      file=substr($2,length(RPM_BUILD_ROOT)+1)
    } else {
      file=$2
    }
    state="file"
    next
  }
  /^Unit name:/ {
    unit=$3
    state="cma"
    next
  }
  /^Name:/ {
    unit=$2
    state="cmx"
    next
  }

/^CRC of implementation:/ {
    if (state == "cmx") {
      if (ignore_implementation[unit] != "") {
        if (ignore_implementation[unit] != "seen") {
          printf "INFO: ignoring Provides %s(%s)=%s from %s\n", rpm_prefix_implementation, unit, $4, file  > "/dev/stderr"
          ignore_implementation[unit]="seen"
        }
      } else {
        implementation_provides[unit]=$4
      }
    } else {
      printf "WARN: state %s, expected cmx, got %s\n", state, $0 > "/dev/stderr"
    }
    state="crc"
    next
  }

/^Interfaces imported:/ {
    state="interface"
    next
  }

/^Implementations imported:/ {
    state="implementation"
    next
  }

/^\t/ {
    if (state == "interface" && NF > 1 && match($1, "^-") == 0) {
      if (unit == $2) {
        if (ignore_interface[unit] != "") {
          if (ignore_interface[unit] != "seen") {
            printf "INFO: ignoring Provides %s(%s)=%s from %s\n", rpm_prefix_interface, unit, $1, file  > "/dev/stderr"
            ignore_interface[unit]="seen"
          }
        } else {
          interface_provides[unit]=$1
        }
      } else {
        if (ignore_interface[$2] != "") {
          if (ignore_interface[$2] != "seen") {
            printf "INFO: ignoring Requires %s(%s)=%s from %s\n", rpm_prefix_interface, $2, $1, file  > "/dev/stderr"
            ignore_interface[$2]="seen"
          }
        } else {
          interface_requires[$2]=$1
        }
      }
      next
    } else if (state == "implementation" && NF > 1 && match($1, "^-") == 0) {
      if (unit == $2) {
        if (ignore_implementation[unit] != "") {
          if (ignore_implementation[unit] != "seen") {
            printf "INFO: ignoring Provides %s(%s)=%s from %s\n", rpm_prefix_implementation, unit, $1, file  > "/dev/stderr"
            ignore_implementation[unit]="seen"
          }
        } else {
          implementation_provides[unit]=$1
        }
      } else {
        if (ignore_implementation[$2] != "") {
          if (ignore_implementation[$2] != "seen") {
            printf "INFO: ignoring Requires %s(%s)=%s from %s\n", rpm_prefix_implementation, $2, $1, file  > "/dev/stderr"
            ignore_implementation[$2]="seen"
          }
        } else {
          implementation_requires[$2]=$1
        }
      }
      next
    } else  {
      next
    }
  }
  /^.*/ {
    state="find"
  }

END {
    if (mode == "provides") {
      for (i in interface_provides) {
        printf "%s(%s) = %s\n", rpm_prefix_interface, i, interface_provides[i]
      }
      for (i in implementation_provides) {
        printf "%s(%s) = %s\n", rpm_prefix_implementation, i, implementation_provides[i]
      }
    }
    if (mode == "requires") {
      for (i in interface_requires) {
        printf "%s(%s) = %s\n", rpm_prefix_interface, i, interface_requires[i]
      }
      for (i in implementation_requires) {
        printf "%s(%s) = %s\n", rpm_prefix_implementation, i, implementation_requires[i]
      }
    }
  }
  '
}
#
#
usage() {
    echo >&2 "Usage: ${0##*/} -provides|-requires [-f 'ocamlobjinfo cmd']"
}
#
mode=
ignore_implementation_a=()
ignore_interface_a=()
while test "$#" -gt 0
do
  : "${1}" "${2}"
  case "${1}" in
    -P|--provides) mode='provides' ;;
    -R|--requires) mode='requires' ;;
    -i) ignore_interface_a+=("$2") ; shift ;;
    -x) ignore_implementation_a+=("$2") ; shift ;;
    -f) OCAMLOBJINFO="$2"; shift ;;
    -h|--help) usage ; exit 0 ;;
    -c) ;; # ignored
    --) break ;;
    *) usage ; exit 1 ;;
  esac
  shift
done
if test -z "${mode}" 
then
  usage
  exit 1
fi
#
export rpm_prefix_interface
export rpm_prefix_implementation
export mode
export ignore_implementation="${ignore_implementation_a[@]}"
export ignore_interface="${ignore_interface_a[@]}"
#
while read filename
do
  case "${filename}" in
  *.cma)  parse "${filename}" ;;
  *.cmi)  parse "${filename}" ;;
  *.cmo)  parse "${filename}" ;;
  *.cmx)  parse "${filename}" ;;
  *.cmxa) parse "${filename}" ;;
  *.cmxs) parse "${filename}" ;;
  *) continue ;;
  esac
done
# vim: tw=666 ts=2 shiftwidth=2 et