(CommandList
  children: [
    (C {(set)} {(-e)})
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:action) op:Equal rhs:{($ VSub_Number '$1')} spids:[138])]
      spids: [138]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:srcdir) op:Equal rhs:{($ VSub_Number '$2')} spids:[141])]
      spids: [141]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:cgen)
          op: Equal
          rhs: {(DQ ($ VSub_Number '$3'))}
          spids: [144]
        )
      ]
      spids: [144]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:cgendir)
          op: Equal
          rhs: {($ VSub_Number '$4')}
          spids: [149]
        )
      ]
      spids: [149]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:cgenflags)
          op: Equal
          rhs: {($ VSub_Number '$5')}
          spids: [152]
        )
      ]
      spids: [152]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:arch) op:Equal rhs:{($ VSub_Number '$6')} spids:[155])]
      spids: [155]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:prefix) op:Equal rhs:{($ VSub_Number '$7')} spids:[158])]
      spids: [158]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:archfile)
          op: Equal
          rhs: {($ VSub_Number '$8')}
          spids: [161]
        )
      ]
      spids: [161]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:opcfile)
          op: Equal
          rhs: {($ VSub_Number '$9')}
          spids: [164]
        )
      ]
      spids: [164]
    )
    (CommandList
      children: [
        (Sentence child:(C {(shift)}) terminator:<Op_Semi ';'>)
        (Assignment
          keyword: Assign_None
          pairs: [
            (assign_pair
              lhs: (LhsName name:options)
              op: Equal
              rhs: {($ VSub_Number '$9')}
              spids: [171]
            )
          ]
          spids: [171]
        )
      ]
    )
    (CommandList
      children: [
        (Sentence child:(C {(shift)}) terminator:<Op_Semi ';'>)
        (Assignment
          keyword: Assign_None
          pairs: [
            (assign_pair
              lhs: (LhsName name:extrafiles)
              op: Equal
              rhs: {($ VSub_Number '$9')}
              spids: [185]
            )
          ]
          spids: [185]
        )
      ]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:rootdir)
          op: Equal
          rhs: {(${ VSub_Name srcdir) (/..)}
          spids: [189]
        )
      ]
      spids: [189]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:lowercase)
          op: Equal
          rhs: {(SQ <abcdefghijklmnopqrstuvwxyz>)}
          spids: [206]
        )
      ]
      spids: [206]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:uppercase)
          op: Equal
          rhs: {(SQ <ABCDEFGHIJKLMNOPQRSTUVWXYZ>)}
          spids: [211]
        )
      ]
      spids: [211]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:ARCH)
          op: Equal
          rhs: 
            {
              (CommandSubPart
                command_list: 
                  (CommandList
                    children: [
                      (Pipeline
                        children: [
                          (C {(echo)} {(${ VSub_Name arch)})
                          (C {(tr)} {(DQ (${ VSub_Name lowercase))} {(DQ (${ VSub_Name uppercase))})
                        ]
                        negated: F
                      )
                    ]
                  )
                left_token: <Left_Backtick '`'>
                spids: [217 239]
              )
            }
          spids: [216]
        )
      ]
      spids: [216]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:tmp)
          op: Equal
          rhs: {(tmp-) ($ VSub_Dollar '$$')}
          spids: [245]
        )
      ]
      spids: [245]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:extrafile_args) op:Equal rhs:{(DQ )} spids:[250])]
      spids: [250]
    )
    (ForEach
      iter_name: ef
      iter_words: [{(..)} {($ VSub_Name '$extrafiles')}]
      do_arg_iter: F
      body: 
        (DoGroup
          children: [
            (Case
              to_match: {($ VSub_Name '$ef')}
              arms: [
                (case_arm pat_list:[{(..)}] spids:[274 275 277 16777215])
                (case_arm
                  pat_list: [{(opinst)}]
                  action: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:extrafile_args)
                          op: Equal
                          rhs: 
                            {
                              (DQ ('-Q ') (${ VSub_Name tmp) ('-opinst.c1 ') 
                                ($ VSub_Name '$extrafile_args')
                              )
                            }
                          spids: [283]
                        )
                      ]
                      spids: [283]
                    )
                  ]
                  spids: [280 281 293 16777215]
                )
              ]
              spids: [267 271 296]
            )
          ]
          spids: [264 298]
        )
      spids: [259 16777215]
    )
    (Case
      to_match: {($ VSub_Name '$action')}
      arms: [
        (case_arm
          pat_list: [{(opcodes)}]
          action: [
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-desc.h)} {(${ VSub_Name tmp) (-desc.h1)})
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-desc.c)} {(${ VSub_Name tmp) (-desc.c1)})
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-opc.h)} {(${ VSub_Name tmp) (-opc.h1)})
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-opc.c)} {(${ VSub_Name tmp) (-opc.c1)})
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-opinst.c)} {(${ VSub_Name tmp) (-opinst.c1)})
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-ibld.h)} {(${ VSub_Name tmp) (-ibld.h1)})
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-ibld.c)} {(${ VSub_Name tmp) (-ibld.in1)})
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-asm.c)} {(${ VSub_Name tmp) (-asm.in1)})
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-dis.c)} {(${ VSub_Name tmp) (-dis.in1)})
            (C {(${ VSub_Name cgen)} {(${ VSub_Name cgendir) (/cgen-opc.scm)} {(-s)} 
              {(${ VSub_Name cgendir)} {(${ VSub_Name cgenflags)} {(-f)} {(DQ (${ VSub_Name options))} {(-m)} {(all)} {(-a)} 
              {(${ VSub_Name archfile)} {(-OPC)} {(${ VSub_Name opcfile)} {(-H)} {(${ VSub_Name tmp) (-desc.h1)} {(-C)} 
              {(${ VSub_Name tmp) (-desc.c1)} {(-O)} {(${ VSub_Name tmp) (-opc.h1)} {(-P)} {(${ VSub_Name tmp) (-opc.c1)} {(-L)} 
              {(${ VSub_Name tmp) (-ibld.in1)} {(-A)} {(${ VSub_Name tmp) (-asm.in1)} {(-D)} {(${ VSub_Name tmp) (-dis.in1)} 
              {(${ VSub_Name extrafile_args)}
            )
            (SimpleCommand
              words: [
                {(sed)}
                {(-e)}
                {(DQ ('s/@ARCH@/') (${ VSub_Name ARCH) (/g))}
                {(-e)}
                {(DQ ('s/@arch@/') (${ VSub_Name arch) (/g))}
                {(-e)}
                {(SQ <'s/[ \t][ \t]*$//'>)}
              ]
              redirects: [
                (Redir
                  op: <Redir_Less '<'>
                  fd: 16777215
                  arg_word: {(${ VSub_Name tmp) (-desc.h1)}
                )
                (Redir
                  op: <Redir_Great '>'>
                  fd: 16777215
                  arg_word: {(${ VSub_Name tmp) (-desc.h)}
                )
              ]
            )
            (C {(${ VSub_Name rootdir) (/move-if-change)} {(${ VSub_Name tmp) (-desc.h)} 
              {(${ VSub_Name srcdir) (/) (${ VSub_Name prefix) (-desc.h)}
            )
            (SimpleCommand
              words: [
                {(sed)}
                {(-e)}
                {(DQ ('s/@ARCH@/') (${ VSub_Name ARCH) (/g))}
                {(-e)}
                {(DQ ('s/@arch@/') (${ VSub_Name arch) (/g))}
                {(-e)}
                {(DQ ('s/@prefix@/') (${ VSub_Name prefix) (/))}
                {(-e)}
                {(SQ <'s/[ \t][ \t]*$//'>)}
              ]
              redirects: [
                (Redir
                  op: <Redir_Less '<'>
                  fd: 16777215
                  arg_word: {(${ VSub_Name tmp) (-desc.c1)}
                )
                (Redir
                  op: <Redir_Great '>'>
                  fd: 16777215
                  arg_word: {(${ VSub_Name tmp) (-desc.c)}
                )
              ]
            )
            (C {(${ VSub_Name rootdir) (/move-if-change)} {(${ VSub_Name tmp) (-desc.c)} 
              {(${ VSub_Name srcdir) (/) (${ VSub_Name prefix) (-desc.c)}
            )
            (SimpleCommand
              words: [
                {(sed)}
                {(-e)}
                {(DQ ('s/@ARCH@/') (${ VSub_Name ARCH) (/g))}
                {(-e)}
                {(DQ ('s/@arch@/') (${ VSub_Name arch) (/g))}
                {(-e)}
                {(SQ <'s/[ \t][ \t]*$//'>)}
              ]
              redirects: [
                (Redir
                  op: <Redir_Less '<'>
                  fd: 16777215
                  arg_word: {(${ VSub_Name tmp) (-opc.h1)}
                )
                (Redir
                  op: <Redir_Great '>'>
                  fd: 16777215
                  arg_word: {(${ VSub_Name tmp) (-opc.h)}
                )
              ]
            )
            (C {(${ VSub_Name rootdir) (/move-if-change)} {(${ VSub_Name tmp) (-opc.h)} 
              {(${ VSub_Name srcdir) (/) (${ VSub_Name prefix) (-opc.h)}
            )
            (SimpleCommand
              words: [
                {(sed)}
                {(-e)}
                {(DQ ('s/@ARCH@/') (${ VSub_Name ARCH) (/g))}
                {(-e)}
                {(DQ ('s/@arch@/') (${ VSub_Name arch) (/g))}
                {(-e)}
                {(DQ ('s/@prefix@/') (${ VSub_Name prefix) (/))}
                {(-e)}
                {(SQ <'s/[ \t][ \t]*$//'>)}
              ]
              redirects: [
                (Redir
                  op: <Redir_Less '<'>
                  fd: 16777215
                  arg_word: {(${ VSub_Name tmp) (-opc.c1)}
                )
                (Redir
                  op: <Redir_Great '>'>
                  fd: 16777215
                  arg_word: {(${ VSub_Name tmp) (-opc.c)}
                )
              ]
            )
            (C {(${ VSub_Name rootdir) (/move-if-change)} {(${ VSub_Name tmp) (-opc.c)} 
              {(${ VSub_Name srcdir) (/) (${ VSub_Name prefix) (-opc.c)}
            )
            (Case
              to_match: {($ VSub_Name '$extrafiles')}
              arms: [
                (case_arm
                  pat_list: [{(Lit_Other '*') (opinst) (Lit_Other '*')}]
                  action: [
                    (SimpleCommand
                      words: [
                        {(sed)}
                        {(-e)}
                        {(DQ ('s/@ARCH@/') (${ VSub_Name ARCH) (/g))}
                        {(-e)}
                        {(DQ ('s/@arch@/') (${ VSub_Name arch) (/g))}
                        {(-e)}
                        {(DQ ('s/@prefix@/') (${ VSub_Name prefix) (/))}
                        {(-e)}
                        {(SQ <'s/[ \t][ \t]*$//'>)}
                      ]
                      redirects: [
                        (Redir
                          op: <Redir_Less '<'>
                          fd: 16777215
                          arg_word: {(${ VSub_Name tmp) (-opinst.c1)}
                        )
                        (Redir
                          op: <Redir_Great '>'>
                          fd: 16777215
                          arg_word: {(${ VSub_Name tmp) (-opinst.c)}
                        )
                      ]
                    )
                    (C {(${ VSub_Name rootdir) (/move-if-change)} {(${ VSub_Name tmp) (-opinst.c)} 
                      {(${ VSub_Name srcdir) (/) (${ VSub_Name prefix) (-opinst.c)}
                    )
                  ]
                  spids: [880 883 962 16777215]
                )
              ]
              spids: [873 877 965]
            )
            (Pipeline
              children: [
                (C {(cat)} {(${ VSub_Name srcdir) (/cgen-ibld.in)} {(${ VSub_Name tmp) (-ibld.in1)})
                (SimpleCommand
                  words: [
                    {(sed)}
                    {(-e)}
                    {(DQ ('s/@ARCH@/') (${ VSub_Name ARCH) (/g))}
                    {(-e)}
                    {(DQ ('s/@arch@/') (${ VSub_Name arch) (/g))}
                    {(-e)}
                    {(DQ ('s/@prefix@/') (${ VSub_Name prefix) (/))}
                    {(-e)}
                    {(SQ <'s/[ \t][ \t]*$//'>)}
                  ]
                  redirects: [
                    (Redir
                      op: <Redir_Great '>'>
                      fd: 16777215
                      arg_word: {(${ VSub_Name tmp) (-ibld.c)}
                    )
                  ]
                )
              ]
              negated: F
            )
            (C {(${ VSub_Name rootdir) (/move-if-change)} {(${ VSub_Name tmp) (-ibld.c)} 
              {(${ VSub_Name srcdir) (/) (${ VSub_Name prefix) (-ibld.c)}
            )
            (Pipeline
              children: [
                (C {(sed)} {(-e)} {(DQ ('/ -- assembler routines/ r ') (${ VSub_Name tmp) (-asm.in1))} 
                  {(${ VSub_Name srcdir) (/cgen-asm.in)}
                )
                (SimpleCommand
                  words: [
                    {(sed)}
                    {(-e)}
                    {(DQ ('s/@ARCH@/') (${ VSub_Name ARCH) (/g))}
                    {(-e)}
                    {(DQ ('s/@arch@/') (${ VSub_Name arch) (/g))}
                    {(-e)}
                    {(DQ ('s/@prefix@/') (${ VSub_Name prefix) (/))}
                    {(-e)}
                    {(SQ <'s/[ \t][ \t]*$//'>)}
                  ]
                  redirects: [
                    (Redir
                      op: <Redir_Great '>'>
                      fd: 16777215
                      arg_word: {(${ VSub_Name tmp) (-asm.c)}
                    )
                  ]
                )
              ]
              negated: F
            )
            (C {(${ VSub_Name rootdir) (/move-if-change)} {(${ VSub_Name tmp) (-asm.c)} 
              {(${ VSub_Name srcdir) (/) (${ VSub_Name prefix) (-asm.c)}
            )
            (Pipeline
              children: [
                (C {(sed)} {(-e)} {(DQ ('/ -- disassembler routines/ r ') (${ VSub_Name tmp) (-dis.in1))} 
                  {(${ VSub_Name srcdir) (/cgen-dis.in)}
                )
                (SimpleCommand
                  words: [
                    {(sed)}
                    {(-e)}
                    {(DQ ('s/@ARCH@/') (${ VSub_Name ARCH) (/g))}
                    {(-e)}
                    {(DQ ('s/@arch@/') (${ VSub_Name arch) (/g))}
                    {(-e)}
                    {(DQ ('s/@prefix@/') (${ VSub_Name prefix) (/))}
                    {(-e)}
                    {(SQ <'s/[ \t][ \t]*$//'>)}
                  ]
                  redirects: [
                    (Redir
                      op: <Redir_Great '>'>
                      fd: 16777215
                      arg_word: {(${ VSub_Name tmp) (-dis.c)}
                    )
                  ]
                )
              ]
              negated: F
            )
            (C {(${ VSub_Name rootdir) (/move-if-change)} {(${ VSub_Name tmp) (-dis.c)} 
              {(${ VSub_Name srcdir) (/) (${ VSub_Name prefix) (-dis.c)}
            )
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-desc.h1)} {(${ VSub_Name tmp) (-desc.c1)})
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-opc.h1)} {(${ VSub_Name tmp) (-opc.c1)})
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-opinst.c1)})
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-ibld.h1)} {(${ VSub_Name tmp) (-ibld.in1)})
            (C {(rm)} {(-f)} {(${ VSub_Name tmp) (-asm.in1)} {(${ VSub_Name tmp) (-dis.in1)})
          ]
          spids: [307 308 1312 16777215]
        )
        (case_arm
          pat_list: [{(Lit_Other '*')}]
          action: [
            (SimpleCommand
              words: [{(echo)} {(DQ ($ VSub_Number '$0') (': bad action: ') (${ VSub_Name action))}]
              redirects: [(Redir op:<Redir_GreatAnd '>&'> fd:16777215 arg_word:{(2)})]
            )
            (ControlFlow token:<ControlFlow_Exit exit> arg_word:{(1)})
          ]
          spids: [1315 1316 1338 16777215]
        )
      ]
      spids: [301 305 1341]
    )
    (ControlFlow token:<ControlFlow_Exit exit> arg_word:{(0)})
  ]
)