mirror_style release
download_style apt
force_md5

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 debianutils diff dpkg e2fsprogs fileutils findutils grep gzip hostname libc6 libcap1 libdb3 libgdbmg1 libncurses5 libpam-modules libpam-runtime libpam0g libperl5.6 libstdc++2.10-glibc2.2 login mawk mount ncurses-base ncurses-bin perl-base sed shellutils slang1 sysvinit tar textutils util-linux'"

    global base := '"apt binutils cpio cpp cpp-2.95 debconf dpkg-dev g++ g++-2.95 gcc gcc-2.95 libc6-dev libdb2 libstdc++2.10-dev make patch perl perl-modules'"

    proc without_package {
        echo $2 | tr ' ' '\n' | grep -v "^$1$" | tr '\n' ' '
    }

    matchstr $ARCH {
        "alpha" {
            global required := ""$[without_package "libc6" $required] libc6.1""
	    global base := ""$[without_package "libc6-dev" $base] libc6.1-dev""
            }
        "arm" {
            }
        "i386" {
            }
        "ia64" {
	    global required := ""$[without_package "libc6" $required] libc6.1 gcc-2.96-base libreadline4""
	    global base := ""$[without_package "cpp-2.95" $base] cpp-2.96""
	    global base := ""$[without_package "gcc-2.95" $base] gcc-2.96""
	    global base := ""$[without_package "g++-2.95" $base] g++-2.96""
	    global base := ""$[without_package "libc6-dev" $base] libc6.1-dev elilo efibootmgr dosfstools libparted1.4 parted""
            }
        "m68k" {
            }
        "powerpc" {
            }
        "sparc" {
            }
        "mips" {
            }
        "mipsel" {
            }
        "hppa" {
            }
        s390|s390x {
            }
	sh* {
	    }
        * {
            # who knows?
            }
    }
}

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

    setup_proc
    in_target /sbin/ldconfig

    global DEBIAN_FRONTEND := 'noninteractive'
    export DEBIAN_FRONTEND

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

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

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

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

    p; progress $baseprog $bases INSTBASE "Installing base system" #4
    x_core_install $LIBC

    p; progress $baseprog $bases INSTBASE "Installing base system" #5
    x_core_install perl-base
    p; progress $baseprog $bases INSTBASE "Installing base system" #6
    rm "$TARGET/usr/bin/awk"
    x_core_install mawk
    p; progress $baseprog $bases INSTBASE "Installing base system" #7

    info UNPACKREQ "Unpacking required packages..."

    p; progress $baseprog $bases INSTBASE "Installing base system" #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 INSTBASE "Installing base system" #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

    p; progress $baseprog $bases INSTBASE "Installing base system" #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 INSTBASE "Installing base system" #29

    info INSTBASE "Installing base packages..."

    p; progress $baseprog $bases INSTBASE "Installing base system" #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 INSTBASE "Installing base system" #39

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

    progress $bases $bases INSTBASE "Installing base system" #40
    info BASESUCCESS "Base system installed successfully."
}
(CommandList
  children: [
    (C {(mirror_style)} {(release)})
    (C {(download_style)} {(apt)})
    (C {(force_md5)})
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:LIBC) op:Equal rhs:{(libc6)} spids:[11])]
      spids: [11]
    )
    (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:[50])]
              spids: [50]
            )
          ]
          spids: [-1 47]
        )
      ]
      spids: [-1 55]
    )
    (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 debianutils diff dpkg e2fsprogs fileutils findutils grep gzip hostname libc6 libcap1 libdb3 libgdbmg1 libncurses5 libpam-modules libpam-runtime libpam0g libperl5.6 libstdc++2.10-glibc2.2 login mawk mount ncurses-base ncurses-bin perl-base sed shellutils slang1 sysvinit tar textutils util-linux"
                        )
                      )
                    }
                  spids: [67]
                )
              ]
              spids: [67]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:base)
                  op: Equal
                  rhs: 
                    {
                      (DQ 
                        (
"apt binutils cpio cpp cpp-2.95 debconf dpkg-dev g++ g++-2.95 gcc gcc-2.95 libc6-dev libdb2 libstdc++2.10-dev make patch perl perl-modules"
                        )
                      )
                    }
                  spids: [74]
                )
              ]
              spids: [74]
            )
            (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: [86]
                )
              spids: [81 85]
            )
            (Case
              to_match: {($ VSub_Name "$ARCH")}
              arms: [
                (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 {(without_package)} {(DQ (libc6))} 
                                          {(DQ ($ VSub_Name "$required"))}
                                        )
                                      ]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [151 161]
                                ) (" libc6.1")
                              )
                            }
                          spids: [149]
                        )
                      ]
                      spids: [149]
                    )
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:base)
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (CommandSubPart
                                  command_list: 
                                    (CommandList
                                      children: [
                                        (C {(without_package)} {(DQ (libc6-dev))} 
                                          {(DQ ($ VSub_Name "$base"))}
                                        )
                                      ]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [168 178]
                                ) (" libc6.1-dev")
                              )
                            }
                          spids: [166]
                        )
                      ]
                      spids: [166]
                    )
                  ]
                  spids: [144 146 183 -1]
                )
                (case_arm pat_list:[{(DQ (arm))}] spids:[187189192-1])
                (case_arm pat_list:[{(DQ (i386))}] spids:[196198201-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 {(without_package)} {(DQ (libc6))} 
                                          {(DQ ($ VSub_Name "$required"))}
                                        )
                                      ]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [212 222]
                                ) (" libc6.1 gcc-2.96-base libreadline4")
                              )
                            }
                          spids: [210]
                        )
                      ]
                      spids: [210]
                    )
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:base)
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (CommandSubPart
                                  command_list: 
                                    (CommandList
                                      children: [
                                        (C {(without_package)} {(DQ (cpp-2.95))} 
                                          {(DQ ($ VSub_Name "$base"))}
                                        )
                                      ]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [229 239]
                                ) (" cpp-2.96")
                              )
                            }
                          spids: [227]
                        )
                      ]
                      spids: [227]
                    )
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:base)
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (CommandSubPart
                                  command_list: 
                                    (CommandList
                                      children: [
                                        (C {(without_package)} {(DQ (gcc-2.95))} 
                                          {(DQ ($ VSub_Name "$base"))}
                                        )
                                      ]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [246 256]
                                ) (" gcc-2.96")
                              )
                            }
                          spids: [244]
                        )
                      ]
                      spids: [244]
                    )
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:base)
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (CommandSubPart
                                  command_list: 
                                    (CommandList
                                      children: [
                                        (C {(without_package)} {(DQ ("g++-2.95"))} 
                                          {(DQ ($ VSub_Name "$base"))}
                                        )
                                      ]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [263 273]
                                ) (" g++-2.96")
                              )
                            }
                          spids: [261]
                        )
                      ]
                      spids: [261]
                    )
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:base)
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (CommandSubPart
                                  command_list: 
                                    (CommandList
                                      children: [
                                        (C {(without_package)} {(DQ (libc6-dev))} 
                                          {(DQ ($ VSub_Name "$base"))}
                                        )
                                      ]
                                    )
                                  left_token: <Left_CommandSub "$(">
                                  spids: [280 290]
                                ) (" libc6.1-dev elilo efibootmgr dosfstools libparted1.4 parted")
                              )
                            }
                          spids: [278]
                        )
                      ]
                      spids: [278]
                    )
                  ]
                  spids: [205 207 295 -1]
                )
                (case_arm pat_list:[{(DQ (m68k))}] spids:[299301304-1])
                (case_arm pat_list:[{(DQ (powerpc))}] spids:[308310313-1])
                (case_arm pat_list:[{(DQ (sparc))}] spids:[317319322-1])
                (case_arm pat_list:[{(DQ (mips))}] spids:[326328331-1])
                (case_arm pat_list:[{(DQ (mipsel))}] spids:[335337340-1])
                (case_arm pat_list:[{(DQ (hppa))}] spids:[344346349-1])
                (case_arm pat_list:[{(s390)}{(s390x)}] spids:[352355358-1])
                (case_arm pat_list:[{(sh) (Lit_Other "*")}] spids:[361363366-1])
                (case_arm pat_list:[{(Lit_Other "*")}] spids:[369370377-1])
              ]
              spids: [136 140 380]
            )
          ]
          spids: [63]
        )
      spids: [58 62]
    )
    (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: [411]
                )
              ]
            )
            (SimpleCommand
              words: [{(echo)}]
              redirects: [
                (Redir
                  op_id: Redir_Great
                  fd: -1
                  arg_word: {(DQ ($ VSub_Name "$TARGET") (/var/lib/dpkg/available))}
                  spids: [420]
                )
              ]
            )
            (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: [456]
                        )
                      ]
                    )
                    (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 447]
                )
              ]
              spids: [-1 486]
            )
            (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: [504]
                        )
                      ]
                      spids: [502]
                    )
                    (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: [514 518]
                                )
                              )
                            }
                          spids: [512]
                        )
                      ]
                      spids: [510]
                    )
                    (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: [526 536]
                                )
                              )
                            }
                          spids: [524]
                        )
                      ]
                      spids: [522]
                    )
                    (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: [565]
                        )
                      ]
                    )
                    (C {(touch)} 
                      {(DQ ($ VSub_Name "$TARGET") (/var/lib/dpkg/info/) (${ VSub_Name pkg) (.list))}
                    )
                  ]
                  spids: [499]
                )
              spids: [494 498]
            )
            (C {(x_feign_install)} {(dpkg)})
          ]
          spids: [390]
        )
      spids: [385 389]
    )
    (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: [628 634]
                            )
                          }
                        )
                      ]
                      negated: False
                    )
                  ]
                  spids: [610]
                )
              spids: [605 609]
            )
            (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: [656 660]
                                              )
                                            }
                                        )
                                    )
                                  spids: [651 662]
                                )
                              )
                            }
                          spids: [649]
                        )
                      ]
                      spids: [649]
                    )
                  ]
                  spids: [646]
                )
              spids: [641 645]
            )
            (C {(setup_proc)})
            (C {(in_target)} {(/sbin/ldconfig)})
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:DEBIAN_FRONTEND)
                  op: Equal
                  rhs: {(noninteractive)}
                  spids: [679]
                )
              ]
              spids: [679]
            )
            (C {(export)} {(DEBIAN_FRONTEND)})
            (Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(LhsName name:baseprog) op:Equal rhs:{(0)} spids:[689])]
              spids: [689]
            )
            (Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(LhsName name:bases) op:Equal rhs:{(40)} spids:[693])]
              spids: [693]
            )
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (C {(info)} {(INSTCORE)} {(DQ ("Installing core packages..."))})
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (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")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (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 806]
                )
              ]
              spids: [-1 821]
            )
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (C {(x_core_install)} {($ VSub_Name "$LIBC")})
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (C {(x_core_install)} {(perl-base)})
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (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")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (C {(info)} {(UNPACKREQ)} {(DQ ("Unpacking required packages..."))})
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (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: [983 987]
                    )
                  }
                )
              ]
              negated: False
            )
            (Sentence child:(C {(p)} {(10)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (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: [1047]
                )
              ]
            )
            (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")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (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")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (C {(info)} {(INSTBASE)} {(DQ ("Installing base packages..."))})
            (Sentence child:(C {(p)}) terminator:<Op_Semi ";">)
            (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (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: [1205 1209]
                    )
                  }
                )
              ]
              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")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (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")} {(INSTBASE)} 
              {(DQ ("Installing base system"))}
            )
            (C {(info)} {(BASESUCCESS)} {(DQ ("Base system installed successfully."))})
          ]
          spids: [602]
        )
      spids: [597 601]
    )
  ]
)