matchstr $ARCH {
  amd64|i386|powerpc|sparc {
    default_mirror http://archive.ubuntu.com/ubuntu
    }
  * {
    default_mirror http://ports.ubuntu.com/ubuntu-ports
    }
}
mirror_style release
download_style apt
finddebs_style from-indices
variants - buildd fakechroot

if doing_variant fakechroot {
    test $FAKECHROOT = "true" || error 1 FAKECHROOTREQ "This variant requires fakechroot environment to be started"
}

matchstr $ARCH {
  alpha|ia64 { global LIBC := '"libc6.1'" }
  * {          global LIBC := '"libc6'" }
}

proc work_out_debs {
    global required := $[get_debs Priority: required]

    if doing_variant - {
      #required="$required $(get_debs Priority: important)"
      #  ^^ should be getting debconf here somehow maybe
      global base := $[get_debs Priority: important]
    } elif doing_variant buildd {
      # TODO: add Build-Essential: yes extraoverrides
      #base="$(get_debs Build-Essential: yes)"

      proc add { if test $ARCH = $1 { eval "$2=\"\$$2 $3\""; }; }

      global base := ""apt binutils cpio cpp cpp-4.1 dpkg-dev g++ g++-4.1 gcc gcc-4.1 $(LIBC)-dev libdb4.4 libgdbm3 libstdc++6 libstdc++6-4.1-dev linux-libc-dev make patch perl perl-modules""

      add ia64 base "libunwind7-dev"
      add sparc base "lib64gcc1"
      add sparc base "libc6-dev-sparc64"
      add sparc base "libc6-sparc64"
    } elif doing_variant fakechroot {
      global base := '"apt'"
    }
}

proc first_stage_install {
    extract $required

    mkdir -p "$TARGET/var/lib/dpkg"
    : >"$TARGET/var/lib/dpkg/status"
    : >"$TARGET/var/lib/dpkg/available"

    setup_etc
    if test ! -e "$TARGET/etc/fstab" {
        echo '# UNCONFIGURED FSTAB FOR BASE SYSTEM' > "$TARGET/etc/fstab"
        chown 0:0 "$TARGET/etc/fstab"; chmod 644 "$TARGET/etc/fstab"
    }

    setup_devices

    proc x_feign_install {
        var pkg = $1
        var deb = $[debfor $pkg]
        var ver = $[extract_deb_field "$TARGET/$deb" Version]

        mkdir -p "$TARGET/var/lib/dpkg/info"

        echo \
"Package: $pkg
Version: $ver
Status: install ok installed" >> "$TARGET/var/lib/dpkg/status"

        touch "$TARGET/var/lib/dpkg/info/$(pkg).list"
    }

    x_feign_install dpkg
}

proc second_stage_install {
    proc x_core_install {
	smallyes '' | in_target dpkg --force-depends --install $[debfor @Argv]
    }

    proc p {
	global baseprog := "$($baseprog + ${1:-1})"
    }

    if doing_variant fakechroot {
	setup_proc_fakechroot
    } else {
	setup_proc
	in_target /sbin/ldconfig
    }

    global DEBIAN_FRONTEND := 'noninteractive'
    global DEBCONF_NONINTERACTIVE_SEEN := 'true'
    export DEBIAN_FRONTEND DEBCONF_NONINTERACTIVE_SEEN

    global baseprog := '0'
    global bases := '7'

    p; progress $baseprog $bases INSTCORE "Installing core packages" #1
    info INSTCORE "Installing core packages..."

    p; progress $baseprog $bases INSTCORE "Installing core packages" #2
    ln -sf mawk "$TARGET/usr/bin/awk"
    x_core_install base-files base-passwd
    p; progress $baseprog $bases INSTCORE "Installing core packages" #3
    x_core_install dpkg

    if test ! -e "$TARGET/etc/localtime" {
        ln -sf /usr/share/zoneinfo/UTC "$TARGET/etc/localtime"
    }

    if doing_variant fakechroot {
	install_fakechroot_tools
    }

    p; progress $baseprog $bases INSTCORE "Installing core packages" #4
    x_core_install $LIBC

    p; progress $baseprog $bases INSTCORE "Installing core packages" #5
    x_core_install perl-base

    p; progress $baseprog $bases INSTCORE "Installing core packages" #6
    rm "$TARGET/usr/bin/awk"
    x_core_install mawk

    p; progress $baseprog $bases INSTCORE "Installing core packages" #7
    if doing_variant - {
      x_core_install debconf
    }

    global baseprog := '0'
    global bases := $[set -- $required; echo $Argc]

    info UNPACKREQ "Unpacking required packages..."

    smallyes '' |
      shell {repeatn 5 in_target_failmsg UNPACK_REQ_FAIL_FIVE "Failure while unpacking required packages.  This will be attempted up to five times." "" \
      dpkg --status-fd 8 --force-depends --unpack $[debfor $required] !8 > !1 !1 > !7 |
      dpkg_progress $baseprog $bases UNPACKREQ "Unpacking required packages" UNPACKING} 7>&1

    info CONFREQ "Configuring required packages..."

    if doing_variant fakechroot {
	# fix initscripts postinst (no mounting possible, and wrong if condition)
	sed -i '/dpkg.*--compare-versions/ s/\<lt\>/lt-nl/' "$TARGET/var/lib/dpkg/info/initscripts.postinst"
    }

    mv "$TARGET/sbin/start-stop-daemon" "$TARGET/sbin/start-stop-daemon.REAL"
    echo \
"#!/bin/sh
echo
echo \"Warning: Fake start-stop-daemon called, doing nothing\"" > "$TARGET/sbin/start-stop-daemon"
    chmod 755 "$TARGET/sbin/start-stop-daemon"

    setup_dselect_method apt

    smallyes '' |
      shell {in_target_failmsg CONF_REQ_FAIL "Failure while configuring required packages." "" \
      dpkg --status-fd 8 --configure --pending --force-configure-any --force-depends !8 > !1 !1 > !7 |
      dpkg_progress $baseprog $bases CONFREQ "Configuring required packages" CONFIGURING} 7>&1

    global baseprog := '0'
    global bases := $[set -- $base; echo $Argc]

    info UNPACKBASE "Unpacking the base system..."

    smallyes '' |
      shell {repeatn 5 in_target_failmsg INST_BASE_FAIL_FIVE "Failure while installing base packages.  This will be re-attempted up to five times." "" \
      dpkg --status-fd 8 --force-overwrite --force-confold --skip-same-version --unpack $[debfor $base] !8 > !1 !1 > !7 |
      dpkg_progress $baseprog $bases UNPACKBASE "Unpacking base system" UNPACKING} 7>&1

    info CONFBASE "Configuring the base system..."

    smallyes '' |
      shell {repeatn 5 in_target_failmsg CONF_BASE_FAIL_FIVE "Failure while configuring base packages.  This will be attempted 5 times." "" \
      dpkg --status-fd 8 --force-confold --skip-same-version --configure -a !8 > !1 !1 > !7 |
      dpkg_progress $baseprog $bases CONFBASE "Configuring base system" CONFIGURING} 7>&1

    mv "$TARGET/sbin/start-stop-daemon.REAL" "$TARGET/sbin/start-stop-daemon"

    progress $bases $bases CONFBASE "Configuring base system"
    info BASESUCCESS "Base system installed successfully."
}
(CommandList
  children: [
    (Case
      to_match: {($ VSub_Name "$ARCH")}
      arms: [
        (case_arm
          pat_list: [{(amd64)} {(i386)} {(powerpc)} {(sparc)}]
          action: [(C {(default_mirror)} {(http) (Lit_Other ":") (//archive.ubuntu.com/ubuntu)})]
          spids: [7 14 24 -1]
        )
        (case_arm
          pat_list: [{(Lit_Other "*")}]
          action: [(C {(default_mirror)} {(http) (Lit_Other ":") (//ports.ubuntu.com/ubuntu-ports)})]
          spids: [27 28 38 -1]
        )
      ]
      spids: [0 4 40]
    )
    (C {(mirror_style)} {(release)})
    (C {(download_style)} {(apt)})
    (C {(finddebs_style)} {(from-indices)})
    (C {(variants)} {(-)} {(buildd)} {(fakechroot)})
    (If
      arms: [
        (if_arm
          cond: [(Sentence child:(C {(doing_variant)} {(fakechroot)}) terminator:<Op_Semi ";">)]
          action: [
            (AndOr
              children: [
                (C {(test)} {(DQ ($ VSub_Name "$FAKECHROOT"))} {(Lit_Other "=")} {(DQ (true))})
                (C {(error)} {(1)} {(FAKECHROOTREQ)} 
                  {(DQ ("This variant requires fakechroot environment to be started"))}
                )
              ]
              op_id: Op_DPipe
            )
          ]
          spids: [-1 70]
        )
      ]
      spids: [-1 97]
    )
    (Case
      to_match: {($ VSub_Name "$ARCH")}
      arms: [
        (case_arm
          pat_list: [{(alpha)} {(ia64)}]
          action: [
            (Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(LhsName name:LIBC) op:Equal rhs:{(DQ (libc6.1))} spids:[112])]
              spids: [112]
            )
          ]
          spids: [107 110 117 -1]
        )
        (case_arm
          pat_list: [{(Lit_Other "*")}]
          action: [
            (Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(LhsName name:LIBC) op:Equal rhs:{(DQ (libc6))} spids:[123])]
              spids: [123]
            )
          ]
          spids: [120 121 128 -1]
        )
      ]
      spids: [100 104 130]
    )
    (FuncDef
      name: work_out_debs
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:required)
                  op: Equal
                  rhs: 
                    {
                      (DQ 
                        (CommandSubPart
                          command_list: 
                            (CommandList
                              children: [(C {(get_debs)} {(Priority) (Lit_Other ":")} {(required)})]
                            )
                          left_token: <Left_CommandSub "$(">
                          spids: [143 150]
                        )
                      )
                    }
                  spids: [141]
                )
              ]
              spids: [141]
            )
            (If
              arms: [
                (if_arm
                  cond: [(Sentence child:(C {(doing_variant)} {(-)}) terminator:<Op_Semi ";">)]
                  action: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:base)
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (CommandSubPart
                                  command_list: 
                                    (CommandList
                                      children: [
                                        (C {(get_debs)} {(Priority) (Lit_Other ":")} {(important)})
                                      ]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [175 182]
                                )
                              )
                            }
                          spids: [173]
                        )
                      ]
                      spids: [173]
                    )
                  ]
                  spids: [-1 162]
                )
                (if_arm
                  cond: [(Sentence child:(C {(doing_variant)} {(buildd)}) terminator:<Op_Semi ";">)]
                  action: [
                    (FuncDef
                      name: add
                      body: 
                        (BraceGroup
                          children: [
                            (Sentence
                              child: 
                                (If
                                  arms: [
                                    (if_arm
                                      cond: [
                                        (Sentence
                                          child: 
                                            (C {(Lit_Other "[")} {(DQ ($ VSub_Name "$ARCH"))} 
                                              {(Lit_Other "=")} {(DQ ($ VSub_Number "$1"))} {(Lit_Other "]")}
                                            )
                                          terminator: <Op_Semi ";">
                                        )
                                      ]
                                      action: [
                                        (Sentence
                                          child: 
                                            (C {(eval)} 
                                              {
                                                (DQ ($ VSub_Number "$2") ("=") 
                                                  (EscapedLiteralPart
                                                    token: <Lit_EscapedChar "\\\"">
                                                  ) (EscapedLiteralPart token:<Lit_EscapedChar "\\$">) ($ VSub_Number "$2") (" ") ($ VSub_Number "$3") 
                                                  (EscapedLiteralPart
                                                    token: <Lit_EscapedChar "\\\"">
                                                  )
                                                )
                                              }
                                            )
                                          terminator: <Op_Semi ";">
                                        )
                                      ]
                                      spids: [-1 229]
                                    )
                                  ]
                                  spids: [-1 245]
                                )
                              terminator: <Op_Semi ";">
                            )
                          ]
                          spids: [210]
                        )
                      spids: [205 209]
                    )
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:base)
                          op: Equal
                          rhs: 
                            {
                              (DQ ("apt binutils cpio cpp cpp-4.1 dpkg-dev g++ g++-4.1 gcc gcc-4.1 ") 
                                (${ VSub_Name LIBC) ("-dev libdb4.4 libgdbm3 libstdc++6 libstdc++6-4.1-dev linux-libc-dev make patch perl perl-modules")
                              )
                            }
                          spids: [252]
                        )
                      ]
                      spids: [252]
                    )
                    (C {(add)} {(ia64)} {(base)} {(DQ (libunwind7-dev))})
                    (C {(add)} {(sparc)} {(base)} {(DQ (lib64gcc1))})
                    (C {(add)} {(sparc)} {(base)} {(DQ (libc6-dev-sparc64))})
                    (C {(add)} {(sparc)} {(base)} {(DQ (libc6-sparc64))})
                  ]
                  spids: [186 193]
                )
                (if_arm
                  cond: [
                    (Sentence
                      child: (C {(doing_variant)} {(fakechroot)})
                      terminator: <Op_Semi ";">
                    )
                  ]
                  action: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:base)
                          op: Equal
                          rhs: {(DQ (apt))}
                          spids: [317]
                        )
                      ]
                      spids: [317]
                    )
                  ]
                  spids: [307 314]
                )
              ]
              spids: [-1 323]
            )
          ]
          spids: [138]
        )
      spids: [133 137]
    )
    (FuncDef
      name: first_stage_install
      body: 
        (BraceGroup
          children: [
            (C {(extract)} {($ VSub_Name "$required")})
            (C {(mkdir)} {(-p)} {(DQ ($ VSub_Name "$TARGET") (/var/lib/dpkg))})
            (SimpleCommand
              words: [{(Lit_Other ":")}]
              redirects: [
                (Redir
                  op_id: Redir_Great
                  fd: -1
                  arg_word: {(DQ ($ VSub_Name "$TARGET") (/var/lib/dpkg/status))}
                  spids: [354]
                )
              ]
            )
            (SimpleCommand
              words: [{(Lit_Other ":")}]
              redirects: [
                (Redir
                  op_id: Redir_Great
                  fd: -1
                  arg_word: {(DQ ($ VSub_Name "$TARGET") (/var/lib/dpkg/available))}
                  spids: [363]
                )
              ]
            )
            (C {(setup_etc)})
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (C {(Lit_Other "[")} {(KW_Bang "!")} {(-e)} 
                          {(DQ ($ VSub_Name "$TARGET") (/etc/fstab))} {(Lit_Other "]")}
                        )
                      terminator: <Op_Semi ";">
                    )
                  ]
                  action: [
                    (SimpleCommand
                      words: [{(echo)} {(SQ <"# UNCONFIGURED FSTAB FOR BASE SYSTEM">)}]
                      redirects: [
                        (Redir
                          op_id: Redir_Great
                          fd: -1
                          arg_word: {(DQ ($ VSub_Name "$TARGET") (/etc/fstab))}
                          spids: [399]
                        )
                      ]
                    )
                    (Sentence
                      child: 
                        (C {(chown)} {(0) (Lit_Other ":") (0)} 
                          {(DQ ($ VSub_Name "$TARGET") (/etc/fstab))}
                        )
                      terminator: <Op_Semi ";">
                    )
                    (C {(chmod)} {(644)} {(DQ ($ VSub_Name "$TARGET") (/etc/fstab))})
                  ]
                  spids: [-1 390]
                )
              ]
              spids: [-1 429]
            )
            (C {(setup_devices)})
            (FuncDef
              name: x_feign_install
              body: 
                (BraceGroup
                  children: [
                    (Assignment
                      keyword: Assign_Local
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:pkg)
                          op: Equal
                          rhs: {(DQ ($ VSub_Number "$1"))}
                          spids: [447]
                        )
                      ]
                      spids: [445]
                    )
                    (Assignment
                      keyword: Assign_Local
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:deb)
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (CommandSubPart
                                  command_list: 
                                    (CommandList
                                      children: [(C {(debfor)} {($ VSub_Name "$pkg")})]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [457 461]
                                )
                              )
                            }
                          spids: [455]
                        )
                      ]
                      spids: [453]
                    )
                    (Assignment
                      keyword: Assign_Local
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:ver)
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (CommandSubPart
                                  command_list: 
                                    (CommandList
                                      children: [
                                        (C {(extract_deb_field)} 
                                          {(DQ ($ VSub_Name "$TARGET") (/) ($ VSub_Name "$deb"))} {(Version)}
                                        )
                                      ]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [469 479]
                                )
                              )
                            }
                          spids: [467]
                        )
                      ]
                      spids: [465]
                    )
                    (C {(mkdir)} {(-p)} {(DQ ($ VSub_Name "$TARGET") (/var/lib/dpkg/info))})
                    (SimpleCommand
                      words: [
                        {(echo)}
                        {
                          (DQ ("Package: ") ($ VSub_Name "$pkg") ("\n") ("Version: ") 
                            ($ VSub_Name "$ver") ("\n") ("Status: install ok installed")
                          )
                        }
                      ]
                      redirects: [
                        (Redir
                          op_id: Redir_DGreat
                          fd: -1
                          arg_word: {(DQ ($ VSub_Name "$TARGET") (/var/lib/dpkg/status))}
                          spids: [508]
                        )
                      ]
                    )
                    (C {(touch)} 
                      {(DQ ($ VSub_Name "$TARGET") (/var/lib/dpkg/info/) (${ VSub_Name pkg) (.list))}
                    )
                  ]
                  spids: [442]
                )
              spids: [437 441]
            )
            (C {(x_feign_install)} {(dpkg)})
          ]
          spids: [333]
        )
      spids: [328 332]
    )
    (FuncDef
      name: second_stage_install
      body: 
        (BraceGroup
          children: [
            (FuncDef
              name: x_core_install
              body: 
                (BraceGroup
                  children: [
                    (Pipeline
                      children: [
                        (C {(smallyes)} {(SQ )})
                        (C {(in_target)} {(dpkg)} {(--force-depends)} {(--install)} 
                          {
                            (CommandSubPart
                              command_list: 
                                (CommandList
                                  children: [(C {(debfor)} {(DQ ($ VSub_At "$@"))})]
                                )
                              left_token: <Left_CommandSub "$(">
                              spids: [571 577]
                            )
                          }
                        )
                      ]
                      negated: False
                    )
                  ]
                  spids: [553]
                )
              spids: [548 552]
            )
            (FuncDef
              name: p
              body: 
                (BraceGroup
                  children: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:baseprog)
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (ArithSubPart
                                  anode: 
                                    (ArithBinary
                                      op_id: Arith_Plus
                                      left: (ArithWord w:{($ VSub_Name "$baseprog")})
                                      right: 
                                        (ArithWord
                                          w: 
                                            {
                                              (BracedVarSub
                                                token: <VSub_Number 1>
                                                suffix_op: 
                                                  (StringUnary
                                                    op_id: VTest_ColonHyphen
                                                    arg_word: {(1)}
                                                  )
                                                spids: [599 603]
                                              )
                                            }
                                        )
                                    )
                                  spids: [594 605]
                                )
                              )
                            }
                          spids: [592]
                        )
                      ]
                      spids: [592]
                    )
                  ]
                  spids: [589]
                )
              spids: [584 588]
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: (C {(doing_variant)} {(fakechroot)})
                      terminator: <Op_Semi ";">
                    )
                  ]
                  action: [(C {(setup_proc_fakechroot)})]
                  spids: [-1 620]
                )
              ]
              else_action: [(C {(setup_proc)}) (C {(in_target)} {(/sbin/ldconfig)})]
              spids: [626 637]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:DEBIAN_FRONTEND)
                  op: Equal
                  rhs: {(noninteractive)}
                  spids: [641]
                )
              ]
              spids: [641]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:DEBCONF_NONINTERACTIVE_SEEN)
                  op: Equal
                  rhs: {(true)}
                  spids: [645]
                )
              ]
              spids: [645]
            )
            (C {(export)} {(DEBIAN_FRONTEND)} {(DEBCONF_NONINTERACTIVE_SEEN)})
            (Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(LhsName name:baseprog) op:Equal rhs:{(0)} spids:[657])]
              spids: [657]
            )
            (Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(LhsName name:bases) op:Equal rhs:{(7)} spids:[661])]
              spids: [661]
            )
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (C {(info)} {(INSTCORE)} {(DQ ("Installing core packages..."))})
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (C {(ln)} {(-sf)} {(mawk)} {(DQ ($ VSub_Name "$TARGET") (/usr/bin/awk))})
            (C {(x_core_install)} {(base-files)} {(base-passwd)})
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (C {(x_core_install)} {(dpkg)})
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (C {(Lit_Other "[")} {(KW_Bang "!")} {(-e)} 
                          {(DQ ($ VSub_Name "$TARGET") (/etc/localtime))} {(Lit_Other "]")}
                        )
                      terminator: <Op_Semi ";">
                    )
                  ]
                  action: [
                    (C {(ln)} {(-sf)} {(/usr/share/zoneinfo/UTC)} 
                      {(DQ ($ VSub_Name "$TARGET") (/etc/localtime))}
                    )
                  ]
                  spids: [-1 774]
                )
              ]
              spids: [-1 789]
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: (C {(doing_variant)} {(fakechroot)})
                      terminator: <Op_Semi ";">
                    )
                  ]
                  action: [(C {(install_fakechroot_tools)})]
                  spids: [-1 800]
                )
              ]
              spids: [-1 806]
            )
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (C {(x_core_install)} {($ VSub_Name "$LIBC")})
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (C {(x_core_install)} {(perl-base)})
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (C {(rm)} {(DQ ($ VSub_Name "$TARGET") (/usr/bin/awk))})
            (C {(x_core_install)} {(mawk)})
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (If
              arms: [
                (if_arm
                  cond: [(Sentence child:(C {(doing_variant)} {(-)}) terminator:<Op_Semi ";">)]
                  action: [(C {(x_core_install)} {(debconf)})]
                  spids: [-1 919]
                )
              ]
              spids: [-1 927]
            )
            (Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(LhsName name:baseprog) op:Equal rhs:{(0)} spids:[931])]
              spids: [931]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:bases)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [
                              (Sentence
                                child: (C {(set)} {(--)} {($ VSub_Name "$required")})
                                terminator: <Op_Semi ";">
                              )
                              (C {(echo)} {($ VSub_Pound "$#")})
                            ]
                          )
                        left_token: <Left_CommandSub "$(">
                        spids: [936 947]
                      )
                    }
                  spids: [935]
                )
              ]
              spids: [935]
            )
            (C {(info)} {(UNPACKREQ)} {(DQ ("Unpacking required packages..."))})
            (Pipeline
              children: [
                (C {(smallyes)} {(SQ )})
                (Subshell
                  child: 
                    (Pipeline
                      children: [
                        (SimpleCommand
                          words: [
                            {(repeatn)}
                            {(5)}
                            {(in_target_failmsg)}
                            {(UNPACK_REQ_FAIL_FIVE)}
                            {
                              (DQ 
                                (
"Failure while unpacking required packages.  This will be attempted up to five times."
                                )
                              )
                            }
                            {(DQ )}
                            {(dpkg)}
                            {(--status-fd)}
                            {(8)}
                            {(--force-depends)}
                            {(--unpack)}
                            {
                              (CommandSubPart
                                command_list: 
                                  (CommandList
                                    children: [(C {(debfor)} {($ VSub_Name "$required")})]
                                  )
                                left_token: <Left_CommandSub "$(">
                                spids: [997 1001]
                              )
                            }
                          ]
                          redirects: [
                            (Redir
                              op_id: Redir_GreatAnd
                              fd: 8
                              arg_word: {(1)}
                              spids: [1003]
                            )
                            (Redir
                              op_id: Redir_GreatAnd
                              fd: 1
                              arg_word: {(7)}
                              spids: [1006]
                            )
                          ]
                        )
                        (C {(dpkg_progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} 
                          {(UNPACKREQ)} {(DQ ("Unpacking required packages"))} {(UNPACKING)}
                        )
                      ]
                      negated: False
                    )
                  redirects: [(Redir op_id:Redir_GreatAnd fd:7 arg_word:{(1)} spids:[1027])]
                  spids: [969 1025]
                )
              ]
              negated: False
            )
            (C {(info)} {(CONFREQ)} {(DQ ("Configuring required packages..."))})
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: (C {(doing_variant)} {(fakechroot)})
                      terminator: <Op_Semi ";">
                    )
                  ]
                  action: [
                    (C {(sed)} {(-i)} {(SQ <"/dpkg.*--compare-versions/ s/\\<lt\\>/lt-nl/">)} 
                      {(DQ ($ VSub_Name "$TARGET") (/var/lib/dpkg/info/initscripts.postinst))}
                    )
                  ]
                  spids: [-1 1049]
                )
              ]
              spids: [-1 1070]
            )
            (C {(mv)} {(DQ ($ VSub_Name "$TARGET") (/sbin/start-stop-daemon))} 
              {(DQ ($ VSub_Name "$TARGET") (/sbin/start-stop-daemon.REAL))}
            )
            (SimpleCommand
              words: [
                {(echo)}
                {
                  (DQ ("#!/bin/sh\n") ("echo\n") ("echo ") 
                    (EscapedLiteralPart token:<Lit_EscapedChar "\\\"">) ("Warning: Fake start-stop-daemon called, doing nothing") 
                    (EscapedLiteralPart token:<Lit_EscapedChar "\\\"">)
                  )
                }
              ]
              redirects: [
                (Redir
                  op_id: Redir_Great
                  fd: -1
                  arg_word: {(DQ ($ VSub_Name "$TARGET") (/sbin/start-stop-daemon))}
                  spids: [1099]
                )
              ]
            )
            (C {(chmod)} {(755)} {(DQ ($ VSub_Name "$TARGET") (/sbin/start-stop-daemon))})
            (C {(setup_dselect_method)} {(apt)})
            (Pipeline
              children: [
                (C {(smallyes)} {(SQ )})
                (Subshell
                  child: 
                    (Pipeline
                      children: [
                        (SimpleCommand
                          words: [
                            {(in_target_failmsg)}
                            {(CONF_REQ_FAIL)}
                            {(DQ ("Failure while configuring required packages."))}
                            {(DQ )}
                            {(dpkg)}
                            {(--status-fd)}
                            {(8)}
                            {(--configure)}
                            {(--pending)}
                            {(--force-configure-any)}
                            {(--force-depends)}
                          ]
                          redirects: [
                            (Redir
                              op_id: Redir_GreatAnd
                              fd: 8
                              arg_word: {(1)}
                              spids: [1160]
                            )
                            (Redir
                              op_id: Redir_GreatAnd
                              fd: 1
                              arg_word: {(7)}
                              spids: [1163]
                            )
                          ]
                        )
                        (C {(dpkg_progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} 
                          {(CONFREQ)} {(DQ ("Configuring required packages"))} {(CONFIGURING)}
                        )
                      ]
                      negated: False
                    )
                  redirects: [(Redir op_id:Redir_GreatAnd fd:7 arg_word:{(1)} spids:[1184])]
                  spids: [1132 1182]
                )
              ]
              negated: False
            )
            (Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(LhsName name:baseprog) op:Equal rhs:{(0)} spids:[1189])]
              spids: [1189]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:bases)
                  op: Equal
                  rhs: 
                    {
                      (DQ 
                        (CommandSubPart
                          command_list: 
                            (CommandList
                              children: [
                                (Sentence
                                  child: (C {(set)} {(--)} {($ VSub_Name "$base")})
                                  terminator: <Op_Semi ";">
                                )
                                (C {(echo)} {($ VSub_Pound "$#")})
                              ]
                            )
                          left_token: <Left_CommandSub "$(">
                          spids: [1195 1206]
                        )
                      )
                    }
                  spids: [1193]
                )
              ]
              spids: [1193]
            )
            (C {(info)} {(UNPACKBASE)} {(DQ ("Unpacking the base system..."))})
            (Pipeline
              children: [
                (C {(smallyes)} {(SQ )})
                (Subshell
                  child: 
                    (Pipeline
                      children: [
                        (SimpleCommand
                          words: [
                            {(repeatn)}
                            {(5)}
                            {(in_target_failmsg)}
                            {(INST_BASE_FAIL_FIVE)}
                            {
                              (DQ 
                                (
"Failure while installing base packages.  This will be re-attempted up to five times."
                                )
                              )
                            }
                            {(DQ )}
                            {(dpkg)}
                            {(--status-fd)}
                            {(8)}
                            {(--force-overwrite)}
                            {(--force-confold)}
                            {(--skip-same-version)}
                            {(--unpack)}
                            {
                              (CommandSubPart
                                command_list: 
                                  (CommandList
                                    children: [(C {(debfor)} {($ VSub_Name "$base")})]
                                  )
                                left_token: <Left_CommandSub "$(">
                                spids: [1261 1265]
                              )
                            }
                          ]
                          redirects: [
                            (Redir
                              op_id: Redir_GreatAnd
                              fd: 8
                              arg_word: {(1)}
                              spids: [1267]
                            )
                            (Redir
                              op_id: Redir_GreatAnd
                              fd: 1
                              arg_word: {(7)}
                              spids: [1270]
                            )
                          ]
                        )
                        (C {(dpkg_progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} 
                          {(UNPACKBASE)} {(DQ ("Unpacking base system"))} {(UNPACKING)}
                        )
                      ]
                      negated: False
                    )
                  redirects: [(Redir op_id:Redir_GreatAnd fd:7 arg_word:{(1)} spids:[1291])]
                  spids: [1229 1289]
                )
              ]
              negated: False
            )
            (C {(info)} {(CONFBASE)} {(DQ ("Configuring the base system..."))})
            (Pipeline
              children: [
                (C {(smallyes)} {(SQ )})
                (Subshell
                  child: 
                    (Pipeline
                      children: [
                        (SimpleCommand
                          words: [
                            {(repeatn)}
                            {(5)}
                            {(in_target_failmsg)}
                            {(CONF_BASE_FAIL_FIVE)}
                            {
                              (DQ 
                                (
"Failure while configuring base packages.  This will be attempted 5 times."
                                )
                              )
                            }
                            {(DQ )}
                            {(dpkg)}
                            {(--status-fd)}
                            {(8)}
                            {(--force-confold)}
                            {(--skip-same-version)}
                            {(--configure)}
                            {(-a)}
                          ]
                          redirects: [
                            (Redir
                              op_id: Redir_GreatAnd
                              fd: 8
                              arg_word: {(1)}
                              spids: [1346]
                            )
                            (Redir
                              op_id: Redir_GreatAnd
                              fd: 1
                              arg_word: {(7)}
                              spids: [1349]
                            )
                          ]
                        )
                        (C {(dpkg_progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} 
                          {(CONFBASE)} {(DQ ("Configuring base system"))} {(CONFIGURING)}
                        )
                      ]
                      negated: False
                    )
                  redirects: [(Redir op_id:Redir_GreatAnd fd:7 arg_word:{(1)} spids:[1370])]
                  spids: [1314 1368]
                )
              ]
              negated: False
            )
            (C {(mv)} {(DQ ($ VSub_Name "$TARGET") (/sbin/start-stop-daemon.REAL))} 
              {(DQ ($ VSub_Name "$TARGET") (/sbin/start-stop-daemon))}
            )
            (C {(progress)} {($ VSub_Name "$bases")} {($ VSub_Name "$bases")} {(CONFBASE)} 
              {(DQ ("Configuring base system"))}
            )
            (C {(info)} {(BASESUCCESS)} {(DQ ("Base system installed successfully."))})
          ]
          spids: [545]
        )
      spids: [540 544]
    )
  ]
)