# bash completion for medusa                               -*- shell-script -*-

proc _medusa
{
    var cur = '', prev = '', words = '', cword = ''
    _init_completion || return

    matchstr $prev {
        -h {
            _known_hosts_real $cur
            return 0
            }
        -H|-U|-P|-C|-O {
            _filedir
            return 0
            }
        -M {
            global COMPREPLY := '( '$( compgen -W "$($1 -d | awk '/^ +\+/ {print $2}' \
                | sed -e 's/\.mod$//')" ) )
            return 0
            }
    }

    if [[ "$cur" == -* ]] {
        global COMPREPLY := '( '$( compgen -W '$( _parse_help "$1" )' -- "$cur" ) )
    }
} &&
complete -F _medusa medusa

# ex: ts=4 sw=4 et filetype=sh
(CommandList
  children: [
    (AndOr
      children: [
        (FuncDef
          name: _medusa
          body: 
            (BraceGroup
              children: [
                (Assignment
                  keyword: Assign_Local
                  pairs: [
                    (assign_pair lhs:(LhsName name:cur) op:Equal spids:[13])
                    (assign_pair lhs:(LhsName name:prev) op:Equal spids:[15])
                    (assign_pair lhs:(LhsName name:words) op:Equal spids:[17])
                    (assign_pair lhs:(LhsName name:cword) op:Equal spids:[19])
                  ]
                  spids: [11]
                )
                (AndOr
                  children: [(C {(_init_completion)}) (ControlFlow token:<ControlFlow_Return return>)]
                  op_id: Op_DPipe
                )
                (Case
                  to_match: {($ VSub_Name "$prev")}
                  arms: [
                    (case_arm
                      pat_list: [{(-h)}]
                      action: [
                        (C {(_known_hosts_real)} {(DQ ($ VSub_Name "$cur"))})
                        (ControlFlow
                          token: <ControlFlow_Return return>
                          arg_word: {(0)}
                        )
                      ]
                      spids: [37 38 53 -1]
                    )
                    (case_arm
                      pat_list: [{(-H)} {(-U)} {(-P)} {(-C)} {(-O)}]
                      action: [
                        (C {(_filedir)})
                        (ControlFlow
                          token: <ControlFlow_Return return>
                          arg_word: {(0)}
                        )
                      ]
                      spids: [56 65 76 -1]
                    )
                    (case_arm
                      pat_list: [{(-M)}]
                      action: [
                        (Assignment
                          keyword: Assign_None
                          pairs: [
                            (assign_pair
                              lhs: (LhsName name:COMPREPLY)
                              op: Equal
                              rhs: 
                                {
                                  (ArrayLiteralPart
                                    words: [
                                      {
                                        (CommandSubPart
                                          command_list: 
                                            (CommandList
                                              children: [
                                                (C {(compgen)} {(-W)} 
                                                  {
                                                    (DQ 
                                                      (CommandSubPart
                                                        command_list: 
                                                          (CommandList
                                                            children: [
                                                              (Pipeline
                                                                children: [
                                                                  (C {($ VSub_Number "$1")} {(-d)})
                                                                  (C {(awk)} 
                                                                    {(SQ <"/^ +\\+/ {print $2}">)}
                                                                  )
                                                                  (C {(sed)} {(-e)} 
                                                                    {(SQ <"s/\\.mod$//">)}
                                                                  )
                                                                ]
                                                                negated: False
                                                              )
                                                            ]
                                                          )
                                                        left_token: <Left_CommandSub "$(">
                                                        spids: [93 117]
                                                      )
                                                    )
                                                  }
                                                )
                                              ]
                                            )
                                          left_token: <Left_CommandSub "$(">
                                          spids: [86 120]
                                        )
                                      }
                                    ]
                                  )
                                }
                              spids: [83]
                            )
                          ]
                          spids: [83]
                        )
                        (ControlFlow
                          token: <ControlFlow_Return return>
                          arg_word: {(0)}
                        )
                      ]
                      spids: [79 80 130 -1]
                    )
                  ]
                  spids: [30 34 133]
                )
                (If
                  arms: [
                    (if_arm
                      cond: [
                        (Sentence
                          child: 
                            (DBracket
                              expr: 
                                (BoolBinary
                                  op_id: BoolBinary_GlobDEqual
                                  left: {(DQ ($ VSub_Name "$cur"))}
                                  right: {(-) (Lit_Other "*")}
                                )
                            )
                          terminator: <Op_Semi ";">
                        )
                      ]
                      action: [
                        (Assignment
                          keyword: Assign_None
                          pairs: [
                            (assign_pair
                              lhs: (LhsName name:COMPREPLY)
                              op: Equal
                              rhs: 
                                {
                                  (ArrayLiteralPart
                                    words: [
                                      {
                                        (CommandSubPart
                                          command_list: 
                                            (CommandList
                                              children: [
                                                (C {(compgen)} {(-W)} {(SQ <"$( _parse_help \"$1\" )">)} 
                                                  {(--)} {(DQ ($ VSub_Name "$cur"))}
                                                )
                                              ]
                                            )
                                          left_token: <Left_CommandSub "$(">
                                          spids: [159 175]
                                        )
                                      }
                                    ]
                                  )
                                }
                              spids: [156]
                            )
                          ]
                          spids: [156]
                        )
                      ]
                      spids: [-1 153]
                    )
                  ]
                  spids: [-1 180]
                )
              ]
              spids: [8]
            )
          spids: [4 7]
        )
        (C {(complete)} {(-F)} {(_medusa)} {(medusa)})
      ]
      op_id: Op_DAmp
    )
  ]
)