(command.CommandList
  children: [
    (command.Simple
      words: [{<cat>}]
      redirects: [
        (redir
          op: <Id.Redir_DLess '<<'>
          loc: (redir_loc.Fd fd:0)
          arg: 
            (redir_param.HereDoc
              here_begin: {<EOM>}
              here_end_span_id: 187
              stdin_parts: [
                <'#ident   '>
                <Id.Right_DoubleQuote '"'>
                <'%Z%%M% %I%     %E% SMI'>
                <Id.Right_DoubleQuote '"'>
                <'\n'>
                <'#\n'>
                <'# Copyright (c) 1998 by Sun Microsystems, Inc.\n'>
                <'#\n'>
                <'#\n'>
                <'# This is the table used by devlinks\n'>
                <'#\n'>
                <'# Each entry should have 2 fields; but may have 3.  Fields are separated\n'>
                <'# by single tab (\''>
                <Id.Lit_BadBackslash '\\'>
                <'t\') characters.\n'>
                <'#\n'>
                <'# The fields are:\n'>
                <'#\n'>
                <'# devfs-spec: a keyword-value set of devfs specifications, describing the set\n'>
                <'#\tof devfs node entries to be linked.\n'>
                <'#\n'>
                <'#\tThe keywords are:\n'>
                <'#\n'>
                <'#\ttype - The devinfo node type (see <sys/sunddi.h> for possible values)\n'>
                <'#\n'>
                <'#\tname - the devinfo node name (the part of a /devices entry that appears\n'>
                <'#\t\tbefore the \'@\' or \':\').\n'>
                <'#\n'>
                <'#\taddr - the devinfo node address part (the portion of the name between\n'>
                <'#\t\tthe \'@\' and the \':\').\n'>
                <'#\n'>
                <'#\tminor - the minor-attributes (the portion of a /devices name after the\n'>
                <'#\t\t\':\').\n'>
                <'#\n'>
                <'#\tThe keywords are separated from their valuse by an equals (\'=\') sign;\n'>
                <'#\tkeyword-value pairs are separated from each other by semicolons (\';\').\n'>
                <'#\n'>
                <'# dev name - the /dev name corresponding to the devfs node described by\n'>
                <'#\tthe devfs-spec field.  This specification is assume to start rooted at\n'>
                <'#\t/dev; THE INITIAL /dev/ SHOULD NOT BE SPECIFIED!\n'>
                <'#\tThe name can contain a number of escape-sequences to include parts of\n'>
                <'#\tthe devfs-name in the /dev/-name.  These escape-sequences all start with\n'>
                <'#\ta backslash (\''>
                <Id.Lit_BadBackslash '\\'>
                <'\') character.  The current sequences are:\n'>
                <'#\n'>
                <'#\t'>
                <Id.Lit_BadBackslash '\\'>
                <'D - the devfs \'name\' field\n'>
                <'#\n'>
                <'#\t'>
                <Id.Lit_BadBackslash '\\'>
                <'An - the \'n\'th component of the address field (n=0 means the whole\n'>
                <'#\t\taddress field)\n'>
                <'#\n'>
                <'#\t'>
                <Id.Lit_BadBackslash '\\'>
                <'Mn - the \'n\'th component of the minor field (n=0 means the entire\n'>
                <'#\t\tminor field).\n'>
                <'#\n'>
                <'#\t'>
                <Id.Lit_BadBackslash '\\'>
                <'Nn - a sequential counter, starting at n (a *single* digit, giving\n'>
                <'#\t\ta starting range of 0 through 9).\n'>
                <'#\n'>
                <'# extra dev link - a few devices need a second link; that is, a second link\n'>
                <'#\tpointing to the first link.  This optional field specifies the /dev\n'>
                <'#\tformat of this second link.  This entry can also use the above-described\n'>
                <'#\tescape-sequences.\n'>
                <'#\n'>
                <'# Fields can be blank; seperated by single tab characters,\n'>
                <'# Spaces are significant, and are considered part of a field. IN GENERAL THIS\n'>
                <'# MEANS THERE SHOULD BE NO SPACE CHARACTERS IN THIS FILE!\n'>
                <'# All fields must be present (even if blank)\n'>
                <'#\n'>
                <'#\n'>
                <'# devfs-spec\tDev-Namespec\tExtra-Link\n'>
                <'#\n'>
              ]
            )
        )
      ]
      more_env: []
      do_fork: T
    )
    (command.Case
      to_match: {(DQ ($ Id.VSub_DollarName MACH))}
      arms: [
        (case_arm
          pat_list: [{(DQ <i386>)}]
          action: [
            (command.Simple
              words: [{<cat>}]
              redirects: [
                (redir
                  op: <Id.Redir_DLessDash '<<-'>
                  loc: (redir_loc.Fd fd:0)
                  arg: (redir_param.HereDoc here_begin:{<EOM>} here_end_span_id:228 stdin_parts:[])
                )
              ]
              more_env: []
              do_fork: T
            )
          ]
          spids: [198 202 230 -1]
        )
        (case_arm
          pat_list: [{(DQ <sparc>)}]
          action: [
            (command.Simple
              words: [{<cat>}]
              redirects: [
                (redir
                  op: <Id.Redir_DLessDash '<<-'>
                  loc: (redir_loc.Fd fd:0)
                  arg: (redir_param.HereDoc here_begin:{<EOM>} here_end_span_id:262 stdin_parts:[])
                )
              ]
              more_env: []
              do_fork: T
            )
          ]
          spids: [233 237 264 -1]
        )
        (case_arm
          pat_list: [{<Id.Lit_Star '*'>}]
          action: [
            (C {<echo>} {(DQ <'Unknown Architecture'>)})
            (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<1>})
          ]
          spids: [267 269 284 -1]
        )
      ]
      redirects: []
    )
  ]
)