(List
  (FunctionDef __require_tool_version_compare []
    (Subshell
      (List
        (Com {[LIT_CHARS set]} {[LIT_OTHER "+"] [LIT_CHARS e]}        )
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('awk_strverscmp', {[SQ <LIT_CHARS "\n"> <LIT_CHARS "  # Use only awk features that work with 7th edition Unix awk (1978).\n"> <LIT_CHARS "  # My, what an old awk you have, Mr. Solaris!\n"> <LIT_CHARS "  END {\n"> <LIT_CHARS "    while (length(v1) || length(v2)) {\n"> <LIT_CHARS "      # Set d1 to be the next thing to compare from v1, and likewise for d2.\n"> <LIT_CHARS "      # Normally this is a single character, but if v1 and v2 contain digits,\n"> <LIT_CHARS "      # compare them as integers and fractions as strverscmp does.\n"> <LIT_CHARS "      if (v1 ~ /^[0-9]/ && v2 ~ /^[0-9]/) {\n"> <LIT_CHARS "\t# Split v1 and v2 into their leading digit string components d1 and d2,\n"> <LIT_CHARS "\t# and advance v1 and v2 past the leading digit strings.\n"> <LIT_CHARS "\tfor (len1 = 1; substr(v1, len1 + 1) ~ /^[0-9]/; len1++) continue\n"> <LIT_CHARS "\tfor (len2 = 1; substr(v2, len2 + 1) ~ /^[0-9]/; len2++) continue\n"> <LIT_CHARS "\td1 = substr(v1, 1, len1); v1 = substr(v1, len1 + 1)\n"> <LIT_CHARS "\td2 = substr(v2, 1, len2); v2 = substr(v2, len2 + 1)\n"> <LIT_CHARS "\tif (d1 ~ /^0/) {\n"> <LIT_CHARS "\t  if (d2 ~ /^0/) {\n"> <LIT_CHARS "\t    # Compare two fractions.\n"> <LIT_CHARS "\t    while (d1 ~ /^0/ && d2 ~ /^0/) {\n"> <LIT_CHARS "\t      d1 = substr(d1, 2); len1--\n"> <LIT_CHARS "\t      d2 = substr(d2, 2); len2--\n"> <LIT_CHARS "\t    }\n"> <LIT_CHARS "\t    if (len1 != len2 && ! (len1 && len2 && substr(d1, 1, 1) == substr(d2, 1, 1))) {\n"> <LIT_CHARS "\t      # The two components differ in length, and the common prefix\n"> <LIT_CHARS "\t      # contains only leading zeros.  Consider the longer to be less.\n"> <LIT_CHARS "\t      d1 = -len1\n"> <LIT_CHARS "\t      d2 = -len2\n"> <LIT_CHARS "\t    } else {\n"> <LIT_CHARS "\t      # Otherwise, compare as strings.\n"> <LIT_CHARS "\t      d1 = \"x\" d1\n"> <LIT_CHARS "\t      d2 = \"x\" d2\n"> <LIT_CHARS "\t    }\n"> <LIT_CHARS "\t  } else {\n"> <LIT_CHARS "\t    # A fraction is less than an integer.\n"> <LIT_CHARS "\t    exit 1\n"> <LIT_CHARS "\t  }\n"> <LIT_CHARS "\t} else {\n"> <LIT_CHARS "\t  if (d2 ~ /^0/) {\n"> <LIT_CHARS "\t    # An integer is greater than a fraction.\n"> <LIT_CHARS "\t    exit 2\n"> <LIT_CHARS "\t  } else {\n"> <LIT_CHARS "\t    # Compare two integers.\n"> <LIT_CHARS "\t    d1 += 0\n"> <LIT_CHARS "\t    d2 += 0\n"> <LIT_CHARS "\t  }\n"> <LIT_CHARS "\t}\n"> <LIT_CHARS "      } else {\n"> <LIT_CHARS "\t# The normal case, without worrying about digits.\n"> <LIT_CHARS "\tif (v1 == \"\") d1 = v1; else { d1 = substr(v1, 1, 1); v1 = substr(v1,2) }\n"> <LIT_CHARS "\tif (v2 == \"\") d2 = v2; else { d2 = substr(v2, 1, 1); v2 = substr(v2,2) }\n"> <LIT_CHARS "      }\n"> <LIT_CHARS "      if (d1 < d2) exit 1\n"> <LIT_CHARS "      if (d1 > d2) exit 2\n"> <LIT_CHARS "    }\n"> <LIT_CHARS "  }\n">]})])
        (Com {[LIT_CHARS awk]} {[DQ [VarSub awk_strverscmp]]} {[LIT_VAR_LIKE "v1="] [DQ [VarSub 1]] =} {[LIT_VAR_LIKE "v2="] [DQ [VarSub 2]] =} {[LIT_CHARS /dev/null]}        )
        (Case to_match={[VarSub ?]}, pat_word_list=[[{[LIT_CHARS 1]}], [{[LIT_CHARS 0]}], [{[LIT_CHARS 2]}]]
          (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "<">]}          )
          (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "=">]}          )
          (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS ">">]}          )
        )
      )
    )
  )
  (FunctionDef __require_tool_fatal []
    (List
      (Com {[LIT_CHARS echo]} {[VarSub @]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS /dev/stderr]} <REDIR_GREAT ">"> 1),
        >
      )
      (Com {[LIT_CHARS return]} {[LIT_CHARS 1]}      )
    )
  )
  (FunctionDef require_tool []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('envvar_name', {[ComSub (Pipeline (Com {[LIT_CHARS echo]} {[VarSub 1]}) (Com {[LIT_CHARS tr]} {[SQ <LIT_CHARS "[:lower:]">]} {[SQ <LIT_CHARS "[:upper:]">]}) )]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('tool', {[ComSub (AndOr OP_OR_IF (Com {[LIT_CHARS printenv]} {[VarSub envvar_name]}) (Com {[LIT_CHARS echo]} {[VarSub 1]}) )]})])
      (= scope=<EAssignScope.LOCAL 0> flags=0 words=[] bindings=[('version', {[ComSub (Pipeline (Com redirects=[(FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT "2>"> 2)]{[VarSub tool]} {[LIT_CHARS --version]}) (Com {[LIT_CHARS sed]} {[LIT_CHARS -n]} {[SQ <LIT_CHARS "s/.*[^0-9.]\\([0-9]*\\.[0-9.]*\\).*/\\1/p;q">]}) )]})])
      (If
        (Com {[LIT_CHARS test]} {[LIT_CHARS x] [DQ [VarSub version]]} {[LIT_DBRACKET_LIKE "="]} {[LIT_CHARS x]}        )
        (List
          (Com {[LIT_CHARS echo]} {[DQ [VarSub tool][LIT_CHARS " is required"]]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS /dev/stderr]} <REDIR_GREAT ">"> 1),
            >
          )
          (Com {[LIT_CHARS return]} {[LIT_CHARS 1]}          )
        )
      )
      (Case to_match={[ComSub (Com {[LIT_CHARS __require_tool_version_compare]} {[DQ [VarSub 2]]} {[DQ [VarSub version]]})]}, pat_word_list=[[{[SQ <LIT_CHARS ">">]}]]
        (List
          (Com {[LIT_CHARS echo]} {[DQ [VarSub 1][LIT_CHARS " "][VarSub 2][LIT_CHARS " or better is required: this is "][VarSub tool][LIT_CHARS " "][VarSub version]]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS /dev/stderr]} <REDIR_GREAT ">"> 1),
            >
          )
          (Com {[LIT_CHARS return]} {[LIT_CHARS 1]}          )
        )
      )
    )
  )
  (FunctionDef usage []
    (Com {[LIT_CHARS cat]}
      <
      (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "NAME\n"][LIT_CHARS "    require_tool.sh - Ensure version of a tool is greater than the one expected\n"][LIT_CHARS "\n"][LIT_CHARS "SYNOPSYS\n"][LIT_CHARS "    require_tool.sh [ -h ]\n"][LIT_CHARS "                    [ --help ]\n"][LIT_CHARS "                    [ TOOL MIN_VERSION ]\n"][LIT_CHARS "\n"][LIT_CHARS "DESCRIPTION\n"][LIT_CHARS "    TOOL is the name or path of the program to check. If the name is specified, its\n"][LIT_CHARS "    path is deduced from PATH environment variable. If environment variable TOOL\n"][LIT_CHARS "    (in upper-case characters) is defined, considers its value as path to the tool.\n"][LIT_CHARS "\n"][LIT_CHARS "    MIN_VERSION is a string representing the minimum required version.\n"][LIT_CHARS "\n"][LIT_CHARS "BEHAVIOR\n"][LIT_CHARS "    * locate path to the program.\n"][LIT_CHARS "    * execute "][LIT_OTHER "$"][LIT_CHARS " TOOL_PATH --version\n"][LIT_CHARS "    * extract version from standard output.\n"][LIT_CHARS "    * compare this version to the expected one.\n"][LIT_CHARS "\n"][LIT_CHARS "OPTIONS\n"][LIT_CHARS "    -h --help\n"][LIT_CHARS "        Display this message and exit 0\n"][LIT_CHARS "\n"][LIT_CHARS "ERRORS\n"][LIT_CHARS "    if program is not found or its version is prior to expected version,\n"][LIT_CHARS "    a message is written to error output.\n"][LIT_CHARS "\n"][LIT_CHARS "EXIT VALUE\n"][LIT_CHARS "    returns 0 if program version if greater equals than expected version,\n"][LIT_CHARS "    returns 1 otherwise.\n"][LIT_CHARS "\n"][LIT_CHARS "EXAMPLE\n"][LIT_CHARS "    "][LIT_OTHER "$"][LIT_CHARS " require_tool.sh emacs 23\n"][LIT_CHARS "    "][LIT_OTHER "$"][LIT_CHARS " CC=g++ require_tool.sh cc 4.6\n"][LIT_CHARS "    "][LIT_OTHER "$"][LIT_CHARS " require_tool.sh zsh 4.5\n"][LIT_CHARS "\n"]]} <REDIR_DLESS "<<"> 0),
      >
    )
  )
  (For arg [{[VarSub @]}])
    (Case to_match={[VarSub arg]}, pat_word_list=[[{[LIT_CHARS -h]}, {[LIT_CHARS --help]}]]
      (List
        (Com {[LIT_CHARS usage]}        )
        (Com {[LIT_CHARS exit]} {[LIT_CHARS 0]}        )
      )
    )
  )
  (If
    (Com {[LIT_DBRACKET_LIKE "["]} {[VarSub #]} {[LIT_CHARS -gt]} {[LIT_CHARS 2]} {[LIT_DBRACKET_LIKE "]"]}    )
    (List
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "ERROR: expecting 2 parameters. Please see option --help"]]}      )
      (Com {[LIT_CHARS exit]} {[LIT_CHARS 1]}      )
    )
  )
  (Com {[LIT_CHARS require_tool]} {[VarSub @]}  )
)