proc make_hdb
{
  # Some distros don't put /sbin:/usr/sbin in the $PATH for non-root users.
  if test -z $[which  mke2fs] || test -z $[which tune2fs]
  {
    export PATH=/sbin:/usr/sbin:$PATH
  }

  truncate -s $(HDBMEGS)m $HDB &&
  mke2fs -q -b 1024 -F $HDB -i 4096 &&
  tune2fs -j -c 0 -i 0 $HDB

  test $Status -ne 0 && exit 1
}
(CommandList
  children: [
    (FuncDef
      name: make_hdb
      body: 
        (BraceGroup
          children: [
            (If
              arms: [
                (if_arm
                  cond: [
                    (AndOr
                      children: [
                        (C {(Lit_Other "[")} {(-z)} 
                          {
                            (DQ 
                              (CommandSubPart
                                command_list: (CommandList children:[(C {(which)} {(mke2fs)})])
                                left_token: <Left_CommandSub "$(">
                                spids: [18 22]
                              )
                            )
                          } {(Lit_Other "]")}
                        )
                        (C {(Lit_Other "[")} {(-z)} 
                          {
                            (DQ 
                              (CommandSubPart
                                command_list: (CommandList children:[(C {(which)} {(tune2fs)})])
                                left_token: <Left_CommandSub "$(">
                                spids: [34 38]
                              )
                            )
                          } {(Lit_Other "]")}
                        )
                      ]
                      op_id: Op_DPipe
                    )
                  ]
                  action: [
                    (C {(export)} 
                      {(Lit_VarLike "PATH=") (/sbin) (Lit_Other ":") (/usr/sbin) (Lit_Other ":") 
                        ($ VSub_Name "$PATH")
                      }
                    )
                  ]
                  spids: [-1 44]
                )
              ]
              spids: [-1 57]
            )
            (AndOr
              children: [
                (C {(truncate)} {(-s)} {(${ VSub_Name HDBMEGS) (m)} {(DQ ($ VSub_Name "$HDB"))})
                (AndOr
                  children: [
                    (C {(mke2fs)} {(-q)} {(-b)} {(1024)} {(-F)} {(DQ ($ VSub_Name "$HDB"))} {(-i)} {(4096)})
                    (C {(tune2fs)} {(-j)} {(-c)} {(0)} {(-i)} {(0)} {(DQ ($ VSub_Name "$HDB"))})
                  ]
                  op_id: Op_DAmp
                )
              ]
              op_id: Op_DAmp
            )
            (AndOr
              children: [
                (C {(Lit_Other "[")} {($ VSub_QMark "$?")} {(-ne)} {(0)} {(Lit_Other "]")})
                (C {(exit)} {(1)})
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [4]
        )
      spids: [0 3]
    )
  ]
)