コミット: 892fbd28404eb114116e2b2739f77c8785f4c9ee - mingw.pkg (git)

Experimental package creation tool for MinGW.org

コミットメタ情報

• リビジョン: 892fbd28404eb114116e2b2739f77c8785f4c9ee (tree)
• 日時: 2020-08-21 23:28:25
• 作者: Keith Marshall <keith@user...>
• コミッター: Keith Marshall

ログメッセージ

Implement supplementary "mingw-port" command.

* src/mingw-port.sh src/modules/porthelp.sh: New files; they implement
the command, and its built-in help facility, respectively.

変更サマリ

• add: src/mingw-port.sh
• add: src/modules/porthelp.sh

差分

--- /dev/null
+++ b/src/mingw-port.sh
@@ -0,0 +1,163 @@
+#!/bin/sh
+# -----------------------------------------------------------------------------
+#
+# mingw-port.sh
+#
+  APPNAME="%PACKAGE%" APPVERSION="%VERSION%"
+#
+# A simple package construction tool for creation of MinGW packages.
+#
+# $Id$
+#
+# Written by Keith Marshall <[e-mail]>
+# Copyright (C) 2020, MinGW.org Project
+#
+  COPYRIGHT_YEARS="2020"
+#
+# 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.
+#
+# -----------------------------------------------------------------------------
+#
+# Save the effective command name, for use in diagnostic messages.
+#
+  cmd=`basename "$0" .sh` cmd_version=${APPVERSION-"%VERSION%"}
+  usage() { cat <<-ETX
+	${unbold}usage: $cmd [--help[=synopsis | options | description]]
+
+	       $cmd [-V | --version] | [--licence | --license]
+
+	       $cmd [--download-only] [-P | --ports=dir]
+	 	 [-D | --depot=dir] [-R | --repository=URI]
+	 	 [--in-tree] package-version
+	 
+	ETX
+  }
+
+# Establish the paths for application support files and extensions.
+#
+  approotdir=`dirname "$0"`
+  test "x`basename "$approotdir"`" = xbin && approotdir=`dirname "$approotdir"`
+  libexecdir=${libexecdir-"$approotdir/libexec"}/$APPNAME/$APPVERSION
+
+# Implement the module/plugin loader; (note that the "die" function here
+# is a simplified fall-back implementation, to handle any failure to load
+# a required module, before a more comprehensive implementation has been
+# sourced)...
+#
+  require() { load "$@" || die "$1 '$2' not found"; }
+  load() { test -f "$libexecdir/${1}s/$2.sh" && . "$libexecdir/${1}s/$2.sh"; }
+  die() { echo >&2 "$error_colour$cmd: *** FATAL *** $@$unbold"; exit 2; }
+
+# ...then load that more comprehensive diagnostic message handler, followed
+# by the options definition handler.
+#
+  require module dmh
+  require module optdefn
+
+# Define options, which are specific to the mingw-port command, and implement
+# their handlers; begin with the standard options, for display of the built-in
+# help, the program version, and the licence.
+#
+  optdefine h help optional_argument
+  opteval_help() { require module porthelp; }
+
+  optdefine V version
+  opteval_version() { require module licence short; }
+
+  optdefine licence; optalias license=licence
+  opteval_licence() { require module licence full; }
+
+# Option -C, --cache=dir, specifies a local directory for persistent storage
+# of downloaded package files; by default, they are discarded after use.
+#
+  optdefine C cache requires_argument
+  opteval_cache() { APPNAME="$APPNAME DOWNLOAD_CACHE_DIR='$optarg'"; }
+
+# Option -D, --depot=dir, specifies a working directory, in which to build
+# mingw-ports; defaults to current directory, when mingw-port is run.
+#
+  optdefine D depot requires_argument
+  opteval_depot() { APPNAME="$APPNAME PACKAGE_DEPOT='$optarg'"; }
+
+# Option -P, --ports=dir, specifies a local directory to store, and search
+# for, mingw-port specifications; by default, current directory is searched
+# first, followed by internet repository; specifying "-P dir" causes "dir"
+# to be searched after current directory, but before any internet search,
+# and downloaded files to be stored in "dir".
+#
+  optdefine P ports requires_argument
+  opteval_ports() { APPNAME="$APPNAME MINGW_PORT_DIR='$optarg'"; }
+
+# Option -R, --repository=URL, specifies the internet "URL", from whence
+# mingw-port specifications may be downloaded; the default is the standard
+# MinGW ports repository, at "https://osdn.net/dl/mingw/mingw-ports".
+#
+  optdefine R repository requires_argument
+  opteval_repository() { APPNAME="$APPNAME MINGW_PORT_REPOSITORY='$optarg'"; }
+
+# Option --download-only suppresses the normal build phase of mingw-port
+# execution, terminating after download, and unpacking of the mingw-port
+# specification, and associated package sources.
+#
+  optdefine download-only
+  opteval_download_only() { download_only=true; }
+
+# Option --in-tree forces mingw-port to change directory, to the top of the
+# package source tree, before proceeding to the build phase of execution,
+# thus initiating an in-tree (in-source) build; by default, the current
+# directory, at the time of mingw-port invocation, will become the active
+# build directory, for an out-of-tree (out-of-source) build.
+#
+  optdefine in-tree
+  opteval_in_tree() { in_tree=true; }
+
+# Evaluate processing options and local variable assignments, as specified
+# by the user, on the command line.
+#
+  while optchk "$@"
+  do shift $argshift; test "x${optmatch}x" = "x--x" && break; done
+
+# When all options have been evaluated, there should be exactly one agrument
+# remaining, (representing the <package-version> ID for the port); if not,
+# diagnose and abort.
+#
+  test $# -eq 1 || {
+    invalid_usage() { local why
+      test $1 -gt 1 && why="too many arguments" || why="missing argument"
+      echo "syntax error: $why"; usage
+    }
+    die 1 "`invalid_usage $#`"
+  }
+
+# The download, and unpacking, phase is always executed; it is delegated to
+# the mingw-pkg application, which, together with any settings to propagate
+# from mingw-port options, is named in the APPNAME variable.
+#
+  $APPNAME --id="$1" import
+
+# The build phase is optional; as with download and unpacking, it too is
+# delegated to mingw-pkg, after first changing directory if necessary.
+#
+  ${download_only-false} || { build_actions="patch configure compile"
+    ${in_tree-false} && { cd "${PACKAGE_DEPOT-.}/$1"; $APPNAME $build_actions
+    } || $APPNAME --srcdir="${PACKAGE_DEPOT-.}/$1" $build_actions
+  } 
+#
+# -----------------------------------------------------------------------------
+# $RCSfile$: end of file

--- /dev/null
+++ b/src/modules/porthelp.sh
@@ -0,0 +1,106 @@
+# porthelp.sh
+# -----------------------------------------------------------------------------
+#
+# mingw-pkg module implementing the mingw-port built-in help displays.
+#
+# -----------------------------------------------------------------------------
+#
+# $Id$
+#
+# Written by Keith Marshall <[e-mail]>
+# Copyright (C) 2020, MinGW.org Project
+#
+# 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.
+#
+# -----------------------------------------------------------------------------
+#
+  for help_class in all synopsis options actions
+  do case $help_class in ${optarg-"all"}*) optarg=$help_class;; esac
+  done
+
+  help_synopsis() { cat <<-ETX
+	Usage: ${cmd="mingw-port"} [OPTIONS] package-version
+
+	Download and build the <package-version> package, as directed by the
+	corresponding mingw-port specification.
+
+	ETX
+      }
+
+  help_options() { cat <<-ETX
+	Options:
+	  -h, --help[=class]	Display help, and exit; "class" is any one of:--
+	 	synopsis	Show only the command synopsis.
+	 	options		Show the synopsis, and summary of options.
+	 	all		Show the full "help" display; (this is the default).
+
+	  --licence		Display the $cmd licence, and exit.
+	  --license		A synonym for "--licence".
+
+	  -V, --version		Display the $cmd version, and exit.
+
+	  -R, --repository=URL	Specify the URL whence mingw-port specification
+	 			files may be downloaded; (if unspecified, defaults
+	 			to https://osdn.net/dl/mingw/mingw-ports).
+
+	  -P, --ports=dir	Specify a directory for local storage of mingw-port
+	 			specification files; mingw-port will always search
+	 			in the current working directory, followed by "dir",
+	 			if specified, and finally in the internet repository
+				specified by "-R URL", (or its built-in default); if
+	 			the specification is found locally, the search stops
+	 			immediately; otherwise, if the file is downloaded
+	 			from the internet, and "-P dir" is specified, a copy
+	 			will be stored in "dir", for future use.
+
+	  -C, --cache-dir	Specify a local directory for persistent storage of
+	 			downloaded packages; (if unspecified, any downloaded
+				package files will be deleted, after unpacking).
+
+	  -D, --depot=dir	Specify the root of the local mingw-port download
+	 			and build directory tree; (if unspecified, defaults
+	 			to the current working directory).
+
+	  --download-only	Download, and prepare the specified package source
+	 			for building, but do not apply any patches from the
+	 			mingw-port, or proceed to build the package.
+
+	  --in-tree		Build the package within its source tree; (if this
+	 			is unspecified, mingw-port will attempt to build
+	 			the package in the current working directory; if
+	 			--download-only is also specified, --in-tree will
+	 			be ignored).
+
+	  Note that mandatory "dir", and "URL", arguments for long-form options are
+	  also required when specifying the corresponding short-form option.
+
+	ETX
+      }
+
+  case $optarg in
+    synopsis) help_$optarg;;
+    options) help_synopsis; help_$optarg;;
+    all) help_synopsis; help_options;;
+    *) die 1 "unknown help category '$optarg'";;
+  esac
+
+  exit 0
+#
+# -----------------------------------------------------------------------------
+# $RCSfile$: end of file