Mercurial > openid

annotate m4/ltsugar.m4 @ 25:c560ec5bf514

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More flexibility in placement of login form and other similar stuff
author Adam Chlipala <adam@chlipala.net>
date Thu, 20 Jan 2011 12:23:44 -0500
parents 3c209338e596
children
rev   line source
adam@0 1 # ltsugar.m4 -- libtool m4 base layer. -*-Autoconf-*-
adam@0 2 #
adam@0 3 # Copyright (C) 2004, 2005, 2007, 2008 Free Software Foundation, Inc.
adam@0 4 # Written by Gary V. Vaughan, 2004
adam@0 5 #
adam@0 6 # This file is free software; the Free Software Foundation gives
adam@0 7 # unlimited permission to copy and/or distribute it, with or without
adam@0 8 # modifications, as long as this notice is preserved.
adam@0 9
adam@0 10 # serial 6 ltsugar.m4
adam@0 11
adam@0 12 # This is to help aclocal find these macros, as it can't see m4_define.
adam@0 13 AC_DEFUN([LTSUGAR_VERSION], [m4_if([0.1])])
adam@0 14
adam@0 15
adam@0 16 # lt_join(SEP, ARG1, [ARG2...])
adam@0 17 # -----------------------------
adam@0 18 # Produce ARG1SEPARG2...SEPARGn, omitting [] arguments and their
adam@0 19 # associated separator.
adam@0 20 # Needed until we can rely on m4_join from Autoconf 2.62, since all earlier
adam@0 21 # versions in m4sugar had bugs.
adam@0 22 m4_define([lt_join],
adam@0 23 [m4_if([$#], [1], [],
adam@0 24 [$#], [2], [[$2]],
adam@0 25 [m4_if([$2], [], [], [[$2]_])$0([$1], m4_shift(m4_shift($@)))])])
adam@0 26 m4_define([_lt_join],
adam@0 27 [m4_if([$#$2], [2], [],
adam@0 28 [m4_if([$2], [], [], [[$1$2]])$0([$1], m4_shift(m4_shift($@)))])])
adam@0 29
adam@0 30
adam@0 31 # lt_car(LIST)
adam@0 32 # lt_cdr(LIST)
adam@0 33 # ------------
adam@0 34 # Manipulate m4 lists.
adam@0 35 # These macros are necessary as long as will still need to support
adam@0 36 # Autoconf-2.59 which quotes differently.
adam@0 37 m4_define([lt_car], [[$1]])
adam@0 38 m4_define([lt_cdr],
adam@0 39 [m4_if([$#], 0, [m4_fatal([$0: cannot be called without arguments])],
adam@0 40 [$#], 1, [],
adam@0 41 [m4_dquote(m4_shift($@))])])
adam@0 42 m4_define([lt_unquote], $1)
adam@0 43
adam@0 44
adam@0 45 # lt_append(MACRO-NAME, STRING, [SEPARATOR])
adam@0 46 # ------------------------------------------
adam@0 47 # Redefine MACRO-NAME to hold its former content plus `SEPARATOR'`STRING'.
adam@0 48 # Note that neither SEPARATOR nor STRING are expanded; they are appended
adam@0 49 # to MACRO-NAME as is (leaving the expansion for when MACRO-NAME is invoked).
adam@0 50 # No SEPARATOR is output if MACRO-NAME was previously undefined (different
adam@0 51 # than defined and empty).
adam@0 52 #
adam@0 53 # This macro is needed until we can rely on Autoconf 2.62, since earlier
adam@0 54 # versions of m4sugar mistakenly expanded SEPARATOR but not STRING.
adam@0 55 m4_define([lt_append],
adam@0 56 [m4_define([$1],
adam@0 57 m4_ifdef([$1], [m4_defn([$1])[$3]])[$2])])
adam@0 58
adam@0 59
adam@0 60
adam@0 61 # lt_combine(SEP, PREFIX-LIST, INFIX, SUFFIX1, [SUFFIX2...])
adam@0 62 # ----------------------------------------------------------
adam@0 63 # Produce a SEP delimited list of all paired combinations of elements of
adam@0 64 # PREFIX-LIST with SUFFIX1 through SUFFIXn. Each element of the list
adam@0 65 # has the form PREFIXmINFIXSUFFIXn.
adam@0 66 # Needed until we can rely on m4_combine added in Autoconf 2.62.
adam@0 67 m4_define([lt_combine],
adam@0 68 [m4_if(m4_eval([$# > 3]), [1],
adam@0 69 [m4_pushdef([_Lt_sep], [m4_define([_Lt_sep], m4_defn([lt_car]))])]]dnl
adam@0 70 [[m4_foreach([_Lt_prefix], [$2],
adam@0 71 [m4_foreach([_Lt_suffix],
adam@0 72 ]m4_dquote(m4_dquote(m4_shift(m4_shift(m4_shift($@)))))[,
adam@0 73 [_Lt_sep([$1])[]m4_defn([_Lt_prefix])[$3]m4_defn([_Lt_suffix])])])])])
adam@0 74
adam@0 75
adam@0 76 # lt_if_append_uniq(MACRO-NAME, VARNAME, [SEPARATOR], [UNIQ], [NOT-UNIQ])
adam@0 77 # -----------------------------------------------------------------------
adam@0 78 # Iff MACRO-NAME does not yet contain VARNAME, then append it (delimited
adam@0 79 # by SEPARATOR if supplied) and expand UNIQ, else NOT-UNIQ.
adam@0 80 m4_define([lt_if_append_uniq],
adam@0 81 [m4_ifdef([$1],
adam@0 82 [m4_if(m4_index([$3]m4_defn([$1])[$3], [$3$2$3]), [-1],
adam@0 83 [lt_append([$1], [$2], [$3])$4],
adam@0 84 [$5])],
adam@0 85 [lt_append([$1], [$2], [$3])$4])])
adam@0 86
adam@0 87
adam@0 88 # lt_dict_add(DICT, KEY, VALUE)
adam@0 89 # -----------------------------
adam@0 90 m4_define([lt_dict_add],
adam@0 91 [m4_define([$1($2)], [$3])])
adam@0 92
adam@0 93
adam@0 94 # lt_dict_add_subkey(DICT, KEY, SUBKEY, VALUE)
adam@0 95 # --------------------------------------------
adam@0 96 m4_define([lt_dict_add_subkey],
adam@0 97 [m4_define([$1($2:$3)], [$4])])
adam@0 98
adam@0 99
adam@0 100 # lt_dict_fetch(DICT, KEY, [SUBKEY])
adam@0 101 # ----------------------------------
adam@0 102 m4_define([lt_dict_fetch],
adam@0 103 [m4_ifval([$3],
adam@0 104 m4_ifdef([$1($2:$3)], [m4_defn([$1($2:$3)])]),
adam@0 105 m4_ifdef([$1($2)], [m4_defn([$1($2)])]))])
adam@0 106
adam@0 107
adam@0 108 # lt_if_dict_fetch(DICT, KEY, [SUBKEY], VALUE, IF-TRUE, [IF-FALSE])
adam@0 109 # -----------------------------------------------------------------
adam@0 110 m4_define([lt_if_dict_fetch],
adam@0 111 [m4_if(lt_dict_fetch([$1], [$2], [$3]), [$4],
adam@0 112 [$5],
adam@0 113 [$6])])
adam@0 114
adam@0 115
adam@0 116 # lt_dict_filter(DICT, [SUBKEY], VALUE, [SEPARATOR], KEY, [...])
adam@0 117 # --------------------------------------------------------------
adam@0 118 m4_define([lt_dict_filter],
adam@0 119 [m4_if([$5], [], [],
adam@0 120 [lt_join(m4_quote(m4_default([$4], [[, ]])),
adam@0 121 lt_unquote(m4_split(m4_normalize(m4_foreach(_Lt_key, lt_car([m4_shiftn(4, $@)]),
adam@0 122 [lt_if_dict_fetch([$1], _Lt_key, [$2], [$3], [_Lt_key ])])))))])[]dnl
adam@0 123 ])