default_mirror http://old-releases.ubuntu.com/ubuntu
mirror_style release
download_style apt

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

proc work_out_debs {
    global required := '"base-files base-passwd bash bsdutils build-essential coreutils debianutils diff dpkg dselect e2fslibs e2fsprogs fakeroot findutils gcc-3.3-base grep gzip hostname initscripts libacl1 libattr1 libblkid1 libc6 libcap1 libcomerr2 libdb1-compat libdb3 libgcc1 libncurses5 libpam-modules libpam-runtime libpam0g libss2 libstdc++5 libuuid1 login lsb-base mawk mount ncurses-base ncurses-bin passwd perl-base pkgstriptranslations python-minimal python2.4-minimal sed slang1a-utf8 sysv-rc sysvinit tar util-linux zlib1g'"

    global base := '"apt binutils cpio cpp cpp-3.3 dpkg-dev g++ g++-3.3 gcc gcc-3.3 libc6-dev libdb4.2 libgdbm3 libstdc++5-3.3-dev linux-kernel-headers make patch perl perl-modules'"

    proc without_package {
        echo $2 | tr ' ' '\n' | grep -v "^$1$" | tr '\n' ' '
    }
    proc subst_package {
        echo $3 | tr ' ' '\n' | sed "s/^$1$/$2/" | tr '\n' ' '
    }

    matchstr $ARCH {
        "amd64" {
            }
        "i386" {
            }
	"powerpc" {
	    }
        "ia64" {
            global required := $[subst_package "libc6" "libc6.1" $required]
            global base := $[subst_package "libc6-dev" "libc6.1-dev" $base]
            global base := ""$base libunwind7 libunwind7-dev""
            }

	# Unsupported architectures:
        "alpha" {
            global required := $[subst_package "libc6" "libc6.1" $required]
	    global base := $[subst_package "libc6-dev" "libc6.1-dev" $base]
            }
        * {
            # who knows?
            }
    }
}

proc install_debs {
    first_stage_install
    second_stage_install
}

proc first_stage_install {
    extract $required

    mkdir -p "$TARGET/var/lib/dpkg"
    : >"$TARGET/var/lib/dpkg/status"
    echo >"$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})"
    }

    global DEBIAN_FRONTEND := 'noninteractive'
    export DEBIAN_FRONTEND

    global baseprog := '0'
    global bases := '40'

    setup_proc
    in_target /sbin/ldconfig

    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"
    }

    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

    info UNPACKREQ "Unpacking required packages..."

    p; progress $baseprog $bases INSTCORE "Installing core packages" #8
    smallyes '' | repeatn 5 in_target_failmsg UNPACK_REQ_FAIL_FIVE "Failure while unpacking required packages.  This will be attempted up to five times." "" dpkg --force-depends --unpack $[debfor $required]
    p 10; progress $baseprog $bases INSTCORE "Installing core packages" #18

    info CONFREQ "Configuring required packages..."

    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
    #on_exit "in_target_nofail umount /dev/pts"

    p; progress $baseprog $bases INSTCORE "Installing core packages" #19
    smallyes '' | in_target_failmsg CONF_REQ_FAIL "Failure while configuring required packages." "" dpkg --configure --pending --force-configure-any --force-depends
    p 10; progress $baseprog $bases INSTCORE "Installing core packages" #29

    info INSTCORE "Installing base packages..."

    p; progress $baseprog $bases INSTCORE "Installing core packages" #30
    smallyes '' | repeatn 5 in_target_failmsg INST_BASE_FAIL_FIVE "Failure while installing base packages.  This will be re-attempted up to five times." "" dpkg --force-auto-select --force-overwrite --force-confold --skip-same-version --unpack $[debfor $base]

    smallyes '' | repeatn 5 in_target_failmsg CONF_BASE_FAIL_FIVE "Failure while configuring base packages.  This will be attempted 5 times." "" dpkg  --force-confold --skip-same-version  --configure -a

    p 9; progress $baseprog $bases INSTCORE "Installing core packages" #39

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

    progress $bases $bases INSTCORE "Installing core packages" #40
    info BASESUCCESS "Base system installed successfully."
}
(CommandList
  children: [
    (C {(default_mirror)} {(http) (Lit_Other ":") (//old-releases.ubuntu.com/ubuntu)})
    (C {(mirror_style)} {(release)})
    (C {(download_style)} {(apt)})
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:LIBC) op:Equal rhs:{(libc6)} spids:[15])]
      spids: [15]
    )
    (If
      arms: [
        (if_arm
          cond: [
            (Sentence
              child: 
                (AndOr
                  children: [
                    (C {(Lit_Other "[")} {(DQ ($ VSub_Name "$ARCH"))} {(Lit_Other "=")} {(DQ (alpha))} 
                      {(Lit_Other "]")}
                    )
                    (C {(Lit_Other "[")} {(DQ ($ VSub_Name "$ARCH"))} {(Lit_Other "=")} {(DQ (ia64))} 
                      {(Lit_Other "]")}
                    )
                  ]
                  op_id: Op_DPipe
                )
              terminator: <Op_Semi ";">
            )
          ]
          action: [
            (Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(LhsName name:LIBC) op:Equal rhs:{(DQ (libc6.1))} spids:[54])]
              spids: [54]
            )
          ]
          spids: [-1 51]
        )
      ]
      spids: [-1 59]
    )
    (FuncDef
      name: work_out_debs
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:required)
                  op: Equal
                  rhs: 
                    {
                      (DQ 
                        (
"base-files base-passwd bash bsdutils build-essential coreutils debianutils diff dpkg dselect e2fslibs e2fsprogs fakeroot findutils gcc-3.3-base grep gzip hostname initscripts libacl1 libattr1 libblkid1 libc6 libcap1 libcomerr2 libdb1-compat libdb3 libgcc1 libncurses5 libpam-modules libpam-runtime libpam0g libss2 libstdc++5 libuuid1 login lsb-base mawk mount ncurses-base ncurses-bin passwd perl-base pkgstriptranslations python-minimal python2.4-minimal sed slang1a-utf8 sysv-rc sysvinit tar util-linux zlib1g"
                        )
                      )
                    }
                  spids: [70]
                )
              ]
              spids: [70]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:base)
                  op: Equal
                  rhs: 
                    {
                      (DQ 
                        (
"apt binutils cpio cpp cpp-3.3 dpkg-dev g++ g++-3.3 gcc gcc-3.3 libc6-dev libdb4.2 libgdbm3 libstdc++5-3.3-dev linux-kernel-headers make patch perl perl-modules"
                        )
                      )
                    }
                  spids: [77]
                )
              ]
              spids: [77]
            )
            (FuncDef
              name: without_package
              body: 
                (BraceGroup
                  children: [
                    (Pipeline
                      children: [
                        (C {(echo)} {(DQ ($ VSub_Number "$2"))})
                        (C {(tr)} {(SQ <" ">)} {(SQ <"\\n">)})
                        (C {(grep)} {(-v)} {(DQ ("^") ($ VSub_Number "$1") (Lit_Other "$"))})
                        (C {(tr)} {(SQ <"\\n">)} {(SQ <" ">)})
                      ]
                      negated: False
                    )
                  ]
                  spids: [89]
                )
              spids: [84 88]
            )
            (FuncDef
              name: subst_package
              body: 
                (BraceGroup
                  children: [
                    (Pipeline
                      children: [
                        (C {(echo)} {(DQ ($ VSub_Number "$3"))})
                        (C {(tr)} {(SQ <" ">)} {(SQ <"\\n">)})
                        (C {(sed)} 
                          {
                            (DQ ("s/^") ($ VSub_Number "$1") (Lit_Other "$") (/) ($ VSub_Number "$2") (/))
                          }
                        )
                        (C {(tr)} {(SQ <"\\n">)} {(SQ <" ">)})
                      ]
                      negated: False
                    )
                  ]
                  spids: [143]
                )
              spids: [138 142]
            )
            (Case
              to_match: {($ VSub_Name "$ARCH")}
              arms: [
                (case_arm pat_list:[{(DQ (amd64))}] spids:[202204207-1])
                (case_arm pat_list:[{(DQ (i386))}] spids:[211213216-1])
                (case_arm pat_list:[{(DQ (powerpc))}] spids:[220222225-1])
                (case_arm
                  pat_list: [{(DQ (ia64))}]
                  action: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:required)
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (CommandSubPart
                                  command_list: 
                                    (CommandList
                                      children: [
                                        (C {(subst_package)} {(DQ (libc6))} {(DQ (libc6.1))} 
                                          {(DQ ($ VSub_Name "$required"))}
                                        )
                                      ]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [236 250]
                                )
                              )
                            }
                          spids: [234]
                        )
                      ]
                      spids: [234]
                    )
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:base)
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (CommandSubPart
                                  command_list: 
                                    (CommandList
                                      children: [
                                        (C {(subst_package)} {(DQ (libc6-dev))} {(DQ (libc6.1-dev))} 
                                          {(DQ ($ VSub_Name "$base"))}
                                        )
                                      ]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [256 270]
                                )
                              )
                            }
                          spids: [254]
                        )
                      ]
                      spids: [254]
                    )
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:base)
                          op: Equal
                          rhs: {(DQ ($ VSub_Name "$base") (" libunwind7 libunwind7-dev"))}
                          spids: [274]
                        )
                      ]
                      spids: [274]
                    )
                  ]
                  spids: [229 231 281 -1]
                )
                (case_arm
                  pat_list: [{(DQ (alpha))}]
                  action: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:required)
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (CommandSubPart
                                  command_list: 
                                    (CommandList
                                      children: [
                                        (C {(subst_package)} {(DQ (libc6))} {(DQ (libc6.1))} 
                                          {(DQ ($ VSub_Name "$required"))}
                                        )
                                      ]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [297 311]
                                )
                              )
                            }
                          spids: [295]
                        )
                      ]
                      spids: [295]
                    )
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:base)
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (CommandSubPart
                                  command_list: 
                                    (CommandList
                                      children: [
                                        (C {(subst_package)} {(DQ (libc6-dev))} {(DQ (libc6.1-dev))} 
                                          {(DQ ($ VSub_Name "$base"))}
                                        )
                                      ]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [317 331]
                                )
                              )
                            }
                          spids: [315]
                        )
                      ]
                      spids: [315]
                    )
                  ]
                  spids: [290 292 335 -1]
                )
                (case_arm pat_list:[{(Lit_Other "*")}] spids:[338339346-1])
              ]
              spids: [194 198 349]
            )
          ]
          spids: [67]
        )
      spids: [62 66]
    )
    (FuncDef
      name: install_debs
      body: 
        (BraceGroup
          children: [(C {(first_stage_install)}) (C {(second_stage_install)})]
          spids: [359]
        )
      spids: [354 358]
    )
    (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: [396]
                )
              ]
            )
            (SimpleCommand
              words: [{(echo)}]
              redirects: [
                (Redir
                  op_id: Redir_Great
                  fd: -1
                  arg_word: {(DQ ($ VSub_Name "$TARGET") (/var/lib/dpkg/available))}
                  spids: [405]
                )
              ]
            )
            (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: [441]
                        )
                      ]
                    )
                    (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 432]
                )
              ]
              spids: [-1 471]
            )
            (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: [489]
                        )
                      ]
                      spids: [487]
                    )
                    (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: [499 503]
                                )
                              )
                            }
                          spids: [497]
                        )
                      ]
                      spids: [495]
                    )
                    (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: [511 521]
                                )
                              )
                            }
                          spids: [509]
                        )
                      ]
                      spids: [507]
                    )
                    (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: [550]
                        )
                      ]
                    )
                    (C {(touch)} 
                      {(DQ ($ VSub_Name "$TARGET") (/var/lib/dpkg/info/) (${ VSub_Name pkg) (.list))}
                    )
                  ]
                  spids: [484]
                )
              spids: [479 483]
            )
            (C {(x_feign_install)} {(dpkg)})
          ]
          spids: [375]
        )
      spids: [370 374]
    )
    (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: [613 619]
                            )
                          }
                        )
                      ]
                      negated: False
                    )
                  ]
                  spids: [595]
                )
              spids: [590 594]
            )
            (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: [640 644]
                                              )
                                            }
                                        )
                                    )
                                  spids: [635 646]
                                )
                              )
                            }
                          spids: [633]
                        )
                      ]
                      spids: [633]
                    )
                  ]
                  spids: [630]
                )
              spids: [625 629]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:DEBIAN_FRONTEND)
                  op: Equal
                  rhs: {(noninteractive)}
                  spids: [654]
                )
              ]
              spids: [654]
            )
            (C {(export)} {(DEBIAN_FRONTEND)})
            (Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(LhsName name:baseprog) op:Equal rhs:{(0)} spids:[664])]
              spids: [664]
            )
            (Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(LhsName name:bases) op:Equal rhs:{(40)} spids:[668])]
              spids: [668]
            )
            (C {(setup_proc)})
            (C {(in_target)} {(/sbin/ldconfig)})
            (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 790]
                )
              ]
              spids: [-1 805]
            )
            (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"))}
            )
            (C {(info)} {(UNPACKREQ)} {(DQ ("Unpacking required packages..."))})
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (Pipeline
              children: [
                (C {(smallyes)} {(SQ )})
                (C {(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)} {(--force-depends)} {(--unpack)} 
                  {
                    (CommandSubPart
                      command_list: 
                        (CommandList
                          children: [(C {(debfor)} {($ VSub_Name "$required")})]
                        )
                      left_token: <Left_CommandSub "$(">
                      spids: [967 971]
                    )
                  }
                )
              ]
              negated: False
            )
            (Sentence child:(C {(p)} {(10)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (C {(info)} {(CONFREQ)} {(DQ ("Configuring required packages..."))})
            (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: [1031]
                )
              ]
            )
            (C {(chmod)} {(755)} {(DQ ($ VSub_Name "$TARGET") (/sbin/start-stop-daemon))})
            (C {(setup_dselect_method)} {(apt)})
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (Pipeline
              children: [
                (C {(smallyes)} {(SQ )})
                (C {(in_target_failmsg)} {(CONF_REQ_FAIL)} 
                  {(DQ ("Failure while configuring required packages."))} {(DQ )} {(dpkg)} {(--configure)} {(--pending)} {(--force-configure-any)} {(--force-depends)}
                )
              ]
              negated: False
            )
            (Sentence child:(C {(p)} {(10)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (C {(info)} {(INSTCORE)} {(DQ ("Installing base packages..."))})
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (Pipeline
              children: [
                (C {(smallyes)} {(SQ )})
                (C {(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)} {(--force-auto-select)} {(--force-overwrite)} {(--force-confold)} {(--skip-same-version)} 
                  {(--unpack)} 
                  {
                    (CommandSubPart
                      command_list: (CommandList children:[(C {(debfor)} {($ VSub_Name "$base")})])
                      left_token: <Left_CommandSub "$(">
                      spids: [1193 1197]
                    )
                  }
                )
              ]
              negated: False
            )
            (Pipeline
              children: [
                (C {(smallyes)} {(SQ )})
                (C {(repeatn)} {(5)} {(in_target_failmsg)} {(CONF_BASE_FAIL_FIVE)} 
                  {
                    (DQ ("Failure while configuring base packages.  This will be attempted 5 times."))
                  } {(DQ )} {(dpkg)} {(--force-confold)} {(--skip-same-version)} {(--configure)} {(-a)}
                )
              ]
              negated: False
            )
            (Sentence child:(C {(p)} {(9)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (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")} {(INSTCORE)} 
              {(DQ ("Installing core packages"))}
            )
            (C {(info)} {(BASESUCCESS)} {(DQ ("Base system installed successfully."))})
          ]
          spids: [587]
        )
      spids: [582 586]
    )
  ]
)