########################################################################
#                                                                      #
#               This software is part of the ast package               #
#          Copyright (c) 1990-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>                  #
#                                                                      #
########################################################################
:
#
# Glenn Fowler
# AT&T Bell Laboratories
#
# Bourne coshell support
#
# @(#)ignore (AT&T Bell Laboratories) 08/11/92
#
while	:
{	matchstr $Argc {
	0 {	exit 0 }
	}
	matchstr $1 {
	*=* {	matchstr $RANDOM {
		$RANDOM {$[echo $1 | sed "s/\\([^=]*\\)=\\(.*\\)/eval \\1='\\2'; export \\1/] }
		* {	export $1 }
		}
		shift
		}
	* {	break
		}
	}
}
@Argv
exit 0
(CommandList
  children: [
    (C {(Lit_Other ":")})
    (While
      cond: [(C {(Lit_Other ":")})]
      body: 
        (DoGroup
          children: [
            (Case
              to_match: {($ VSub_Pound "$#")}
              arms: [(case_arm pat_list:[{(0)}] action:[(C {(exit)} {(0)})] spids:[9697103-1])]
              spids: [89 93 106]
            )
            (Case
              to_match: {($ VSub_Number "$1")}
              arms: [
                (case_arm
                  pat_list: [{(Lit_Other "*") (Lit_Other "=") (Lit_Other "*")}]
                  action: [
                    (Case
                      to_match: {($ VSub_Name "$RANDOM")}
                      arms: [
                        (case_arm
                          pat_list: [{($ VSub_Name "$RANDOM")}]
                          action: [
                            (C 
                              {
                                (CommandSubPart
                                  command_list: 
                                    (CommandList
                                      children: [
                                        (Pipeline
                                          children: [
                                            (C {(echo)} {($ VSub_Number "$1")})
                                            (C {(sed)} 
                                              {
                                                (DQ (s/) 
                                                  (EscapedLiteralPart
                                                    token: <Lit_EscapedChar "\\\\">
                                                  ) ("([^=]*") (EscapedLiteralPart token:<Lit_EscapedChar "\\\\">) (")=") 
                                                  (EscapedLiteralPart
                                                    token: <Lit_EscapedChar "\\\\">
                                                  ) ("(.*") (EscapedLiteralPart token:<Lit_EscapedChar "\\\\">) (")/eval ") 
                                                  (EscapedLiteralPart
                                                    token: <Lit_EscapedChar "\\\\">
                                                  ) ("1='") (EscapedLiteralPart token:<Lit_EscapedChar "\\\\">) ("2'; export ") 
                                                  (EscapedLiteralPart
                                                    token: <Lit_EscapedChar "\\\\">
                                                  ) (1/)
                                                )
                                              }
                                            )
                                          ]
                                          negated: False
                                        )
                                      ]
                                    )
                                  left_token: <Left_Backtick "`">
                                  spids: [130 156]
                                )
                              }
                            )
                          ]
                          spids: [128 129 158 -1]
                        )
                        (case_arm
                          pat_list: [{(Lit_Other "*")}]
                          action: [(C {(export)} {(DQ ($ VSub_Number "$1"))})]
                          spids: [161 162 170 -1]
                        )
                      ]
                      spids: [121 125 173]
                    )
                    (C {(shift)})
                  ]
                  spids: [116 119 179 -1]
                )
                (case_arm
                  pat_list: [{(Lit_Other "*")}]
                  action: [(ControlFlow token:<ControlFlow_Break break>)]
                  spids: [182 183 188 -1]
                )
              ]
              spids: [109 113 191]
            )
          ]
          spids: [87 193]
        )
    )
    (C {(DQ ($ VSub_At "$@"))})
    (C {(exit)} {(0)})
  ]
)