########################################################################
#                                                                      #
#               This software is part of the ast package               #
#          Copyright (c) 1994-2011 AT&T Intellectual Property          #
#                      and is licensed under the                       #
#                 Eclipse Public License, Version 1.0                  #
#                    by AT&T Intellectual Property                     #
#                                                                      #
#                A copy of the License is available at                 #
#          http://www.eclipse.org/org/documents/epl-v10.html           #
#         (with md5 checksum b35adb5213ca9657e911e9befb180842)         #
#                                                                      #
#              Information and Software Systems Research               #
#                            AT&T Research                             #
#                           Florham Park NJ                            #
#                                                                      #
#                 Glenn Fowler <gsf@research.att.com>                  #
#                                                                      #
########################################################################
: mam probe script
global opt := ''
while	:
{	matchstr $1 {
	-d {	global opt := '-d' }
	-* {	}
	* {	break }
	}
	shift
}
mamprobe $opt - $1
(CommandList
  children: [
    (C {(Lit_Other ":")} {(mam)} {(probe)} {(script)})
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:opt) op:Equal rhs:{(SQ )} spids:[65])]
      spids: [65]
    )
    (While
      cond: [(C {(Lit_Other ":")})]
      body: 
        (DoGroup
          children: [
            (Case
              to_match: {($ VSub_Number "$1")}
              arms: [
                (case_arm
                  pat_list: [{(-d)}]
                  action: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [(assign_pair lhs:(LhsName name:opt) op:Equal rhs:{(-d)} spids:[83])]
                      spids: [83]
                    )
                  ]
                  spids: [80 81 86 -1]
                )
                (case_arm pat_list:[{(-) (Lit_Other "*")}] spids:[899193-1])
                (case_arm
                  pat_list: [{(Lit_Other "*")}]
                  action: [(ControlFlow token:<ControlFlow_Break break>)]
                  spids: [96 97 101 -1]
                )
              ]
              spids: [73 77 104]
            )
            (C {(shift)})
          ]
          spids: [71 109]
        )
    )
    (C {(mamprobe)} {($ VSub_Name "$opt")} {(-)} {(DQ ($ VSub_Number "$1"))})
  ]
)