mk/wrapper/wrapper-subr.sh

   1 # $NetBSD: wrapper-subr.sh,v 1.9 2007/02/21 09:43:26 rillig Exp $
   2 #
   3 # This file contains shell functions that are useful to the wrapper
   4 # scripts.
   5 #
   6
   7 # usage: transform_setname "current-file"
   8 transform_setname() {
   9         wrapsubr_name="$1"
  10 }
  11
  12 # usage: transform_to "newarg"
  13 transform_to() {
  14         arg="$1"
  15         $debug_log $wrapperlog "    ($wrapsubr_name) to: $1"
  16         addtocache=yes
  17 }
  18
  19 # usage: transform_to_and_split "newarg"
  20 transform_to_and_split() {
  21         arg="$1"
  22         $debug_log $wrapperlog "    ($wrapsubr_name) to: $1 [split]"
  23         addtocache=yes
  24         split_arg=yes
  25 }
  26
  27 # usage: transform_discard
  28 transform_discard() {
  29         $debug_log $wrapperlog "    ($wrapsubr_name) discarded: $arg"
  30         arg=""
  31         addtocache=yes
  32         split_arg=yes
  33 }
  34
  35 # usage: transform_discard_with_warning [warning]
  36 transform_discard_with_warning() {
  37         _warning=${1-"discarding option $arg"}
  38         msg_log "$wrapperlog" "WARNING: [$wrapsubr_name] $_warning"
  39         transform_discard
  40         addtocache=no
  41 }
  42
  43 # usage: transform_pass
  44 transform_pass() {
  45         $debug_log $wrapperlog "    ($wrapsubr_name) to: $arg [unchanged]"
  46         addtocache=yes
  47 }
  48
  49 # usage: transform_pass_with_warning [warning]
  50 transform_pass_with_warning() {
  51         _warning=${1-"passing unknown option $arg"}
  52         msg_log "$wrapperlog" "WARNING: [$wrapsubr_name] $_warning"
  53         $debug_log $wrapperlog "    ($wrapsubr_name) to: $arg [unchanged]"
  54         addtocache=no
  55 }
  56
  57 # usage: transform_fail "error message"
  58 transform_fail() {
  59         msg_log "$wrapperlog" "ERROR: [$wrapsubr_name] $1"
  60         msg_log stderr "ERROR: [$wrapsubr_name] $1"
  61         exit 1
  62 }
  63
  64 # usage: fail "source-file" "error message"
  65 fail() {
  66         msg_log "$wrapperlog" "ERROR: [$1] $2"
  67         msg_log stderr "ERROR: [$1] $2"
  68         exit 1
  69 }