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 debconf debianutils diff dpkg e2fsprogs fileutils findutils grep gzip hostname libcap1 libc6 libdb2 libdb3 libncurses5 libnewt0 libpam-modules libpam-runtime libpam0g libperl5.6 libpopt0 libreadline4 libstdc++2.10-glibc2.2 login makedev mawk modutils mount ncurses-base ncurses-bin passwd perl-base procps sed shellutils slang1 sysvinit tar textutils util-linux whiptail'" global base := '"adduser apt apt-utils at base-config bsdmainutils console-common console-tools console-tools-libs console-data cpio cron dhcp-client ed exim fdutils gettext-base groff-base ifupdown info klogd libident libldap2 liblockfile1 libpcre3 libsasl7 libwrap0 logrotate mailx man-db manpages modconf nano net-tools netbase netkit-inetd netkit-ping nvi ppp pppconfig pppoe pppoeconf libpcap0 sysklogd tasksel tcpd telnet'" proc without_package { echo $2 | tr ' ' '\n' | grep -v "^$1$" | tr '\n' ' ' } global IPFWTOOL := 'iptables' matchstr $ARCH { "alpha" { global required := ""$[without_package "libc6" $required] libc6.1"" global base := ""$base setserial aboot pciutils"" global IPFWTOOL := '"ipchains'" } "arm" { global base := ""$base setserial libgpmg1"" global IPFWTOOL := '"ipchains iptables'" } "i386" { global required := ""$[without_package "libperl5.6" $required] mbr"" global base := ""$base lilo pciutils setserial syslinux psmisc pcmcia-cs"" global IPFWTOOL := '"ipchains iptables'" } "ia64" { global required := ""$[without_package "libc6" $required] libc6.1 gcc-2.96-base"" global base := ""$base elilo efibootmgr dosfstools libparted1.4 parted"" } "m68k" { global base := ""$base atari-bootstrap atari-fdisk amiga-fdisk eject mac-fdisk pmac-fdisk-cross setserial vmelilo"" global IPFWTOOL := '"ipchains'" } "powerpc" { global base := ""$base quik mac-fdisk amiga-fdisk psmisc powerpc-utils setserial pciutils hfsutils yaboot pcmcia-cs"" global IPFWTOOL := '"ipchains iptables'" } "sparc" { global base := ""$base silo eject pciutils sparc-utils"" global IPFWTOOL := '"ipchains iptables'" } "mips" { global base := ""$base dvhtool pciutils setserial"" # pcmcia-cs } "mipsel" { global base := ""$base delo pciutils setserial"" # pcmcia-cs } "hppa" { global base := ""$base palo libstdc++3 gcc-3.0-base"" global required := $[without_package "libstdc++2.10-glibc2.2" $required] } s390|s390x { # base-config depends on console-data and console-common # so we can't exclude them although they are useless on s390 global base := ""$base s390-tools telnetd devfsd"" global base := $[without_package "console-tools" $base] global base := $[without_package "console-tools-libs" $base] global base := $[without_package "fdutils" $base] global base := $[without_package "ppp" $base] global base := $[without_package "pppconfig" $base] global base := $[without_package "pppoe" $base] global base := $[without_package "pppoeconf" $base] } * { # who knows? } } global base := ""$base $IPFWTOOL"" } 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 x_core_install debconf 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 if test ! -e "$TARGET/etc/exim/exim.conf" { mkdir -p "$TARGET/etc/exim" touch "$TARGET/etc/exim/exim.conf" } 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] rm -f "$TARGET/usr/sbin/sendmail" ln -sf /bin/true "$TARGET/usr/sbin/sendmail" 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 rm -f "$TARGET/usr/sbin/sendmail" ln -sf exim "$TARGET/usr/sbin/sendmail" 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: ) ] 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 debconf debianutils diff dpkg e2fsprogs fileutils findutils grep gzip hostname libcap1 libc6 libdb2 libdb3 libncurses5 libnewt0 libpam-modules libpam-runtime libpam0g libperl5.6 libpopt0 libreadline4 libstdc++2.10-glibc2.2 login makedev mawk modutils mount ncurses-base ncurses-bin passwd perl-base procps sed shellutils slang1 sysvinit tar textutils util-linux whiptail" ) ) } spids: [67] ) ] spids: [67] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: { (DQ ( "adduser apt apt-utils at base-config bsdmainutils console-common console-tools console-tools-libs console-data cpio cron dhcp-client ed exim fdutils gettext-base groff-base ifupdown info klogd libident libldap2 liblockfile1 libpcre3 libsasl7 libwrap0 logrotate mailx man-db manpages modconf nano net-tools netbase netkit-inetd netkit-ping nvi ppp pppconfig pppoe pppoeconf libpcap0 sysklogd tasksel tcpd telnet" ) ) } 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] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:IPFWTOOL) op:Equal rhs:{(iptables)} spids:[136])] spids: [136] ) (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: spids: [156 166] ) (" libc6.1") ) } spids: [154] ) ] spids: [154] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: {(DQ ($ VSub_Name "$base") (" setserial aboot pciutils"))} spids: [171] ) ] spids: [171] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:IPFWTOOL) op: Equal rhs: {(DQ (ipchains))} spids: [178] ) ] spids: [178] ) ] spids: [149 151 184 -1] ) (case_arm pat_list: [{(DQ (arm))}] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: {(DQ ($ VSub_Name "$base") (" setserial libgpmg1"))} spids: [193] ) ] spids: [193] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:IPFWTOOL) op: Equal rhs: {(DQ ("ipchains iptables"))} spids: [200] ) ] spids: [200] ) ] spids: [188 190 206 -1] ) (case_arm pat_list: [{(DQ (i386))}] 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 (libperl5.6))} {(DQ ($ VSub_Name "$required"))} ) ] ) left_token: spids: [217 227] ) (" mbr") ) } spids: [215] ) ] spids: [215] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: { (DQ ($ VSub_Name "$base") (" lilo pciutils setserial syslinux psmisc pcmcia-cs") ) } spids: [232] ) ] spids: [232] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:IPFWTOOL) op: Equal rhs: {(DQ ("ipchains iptables"))} spids: [239] ) ] spids: [239] ) ] spids: [210 212 245 -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: spids: [256 266] ) (" libc6.1 gcc-2.96-base") ) } spids: [254] ) ] spids: [254] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: { (DQ ($ VSub_Name "$base") (" elilo efibootmgr dosfstools libparted1.4 parted") ) } spids: [271] ) ] spids: [271] ) ] spids: [249 251 278 -1] ) (case_arm pat_list: [{(DQ (m68k))}] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: { (DQ ($ VSub_Name "$base") ( " atari-bootstrap atari-fdisk amiga-fdisk eject mac-fdisk pmac-fdisk-cross setserial vmelilo" ) ) } spids: [287] ) ] spids: [287] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:IPFWTOOL) op: Equal rhs: {(DQ (ipchains))} spids: [294] ) ] spids: [294] ) ] spids: [282 284 300 -1] ) (case_arm pat_list: [{(DQ (powerpc))}] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: { (DQ ($ VSub_Name "$base") ( " quik mac-fdisk amiga-fdisk psmisc powerpc-utils setserial pciutils hfsutils yaboot pcmcia-cs" ) ) } spids: [309] ) ] spids: [309] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:IPFWTOOL) op: Equal rhs: {(DQ ("ipchains iptables"))} spids: [316] ) ] spids: [316] ) ] spids: [304 306 322 -1] ) (case_arm pat_list: [{(DQ (sparc))}] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: {(DQ ($ VSub_Name "$base") (" silo eject pciutils sparc-utils"))} spids: [331] ) ] spids: [331] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:IPFWTOOL) op: Equal rhs: {(DQ ("ipchains iptables"))} spids: [338] ) ] spids: [338] ) ] spids: [326 328 344 -1] ) (case_arm pat_list: [{(DQ (mips))}] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: {(DQ ($ VSub_Name "$base") (" dvhtool pciutils setserial"))} spids: [353] ) ] spids: [353] ) ] spids: [348 350 363 -1] ) (case_arm pat_list: [{(DQ (mipsel))}] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: {(DQ ($ VSub_Name "$base") (" delo pciutils setserial"))} spids: [372] ) ] spids: [372] ) ] spids: [367 369 382 -1] ) (case_arm pat_list: [{(DQ (hppa))}] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: {(DQ ($ VSub_Name "$base") (" palo libstdc++3 gcc-3.0-base"))} spids: [391] ) ] spids: [391] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:required) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [ (C {(without_package)} {(DQ ("libstdc++2.10-glibc2.2"))} {(DQ ($ VSub_Name "$required"))} ) ] ) left_token: spids: [400 410] ) ) } spids: [398] ) ] spids: [398] ) ] spids: [386 388 414 -1] ) (case_arm pat_list: [{(s390)} {(s390x)}] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: {(DQ ($ VSub_Name "$base") (" s390-tools telnetd devfsd"))} spids: [431] ) ] spids: [431] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [ (C {(without_package)} {(DQ (console-tools))} {(DQ ($ VSub_Name "$base"))} ) ] ) left_token: spids: [440 450] ) ) } spids: [438] ) ] spids: [438] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [ (C {(without_package)} {(DQ (console-tools-libs))} {(DQ ($ VSub_Name "$base"))} ) ] ) left_token: spids: [456 466] ) ) } spids: [454] ) ] spids: [454] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [ (C {(without_package)} {(DQ (fdutils))} {(DQ ($ VSub_Name "$base"))} ) ] ) left_token: spids: [472 482] ) ) } spids: [470] ) ] spids: [470] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [ (C {(without_package)} {(DQ (ppp))} {(DQ ($ VSub_Name "$base"))}) ] ) left_token: spids: [488 498] ) ) } spids: [486] ) ] spids: [486] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [ (C {(without_package)} {(DQ (pppconfig))} {(DQ ($ VSub_Name "$base"))} ) ] ) left_token: spids: [504 514] ) ) } spids: [502] ) ] spids: [502] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [ (C {(without_package)} {(DQ (pppoe))} {(DQ ($ VSub_Name "$base"))} ) ] ) left_token: spids: [520 530] ) ) } spids: [518] ) ] spids: [518] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [ (C {(without_package)} {(DQ (pppoeconf))} {(DQ ($ VSub_Name "$base"))} ) ] ) left_token: spids: [536 546] ) ) } spids: [534] ) ] spids: [534] ) ] spids: [417 420 550 -1] ) (case_arm pat_list:[{(Lit_Other "*")}] spids:[553554561-1]) ] spids: [141 145 564] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:base) op: Equal rhs: {(DQ ($ VSub_Name "$base") (" ") ($ VSub_Name "$IPFWTOOL"))} spids: [568] ) ] spids: [568] ) ] 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: [604] ) ] ) (SimpleCommand words: [{(echo)}] redirects: [ (Redir op_id: Redir_Great fd: -1 arg_word: {(DQ ($ VSub_Name "$TARGET") (/var/lib/dpkg/available))} spids: [613] ) ] ) (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: ) ] 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: [649] ) ] ) (Sentence child: (C {(chown)} {(0) (Lit_Other ":") (0)} {(DQ ($ VSub_Name "$TARGET") (/etc/fstab))} ) terminator: ) (C {(chmod)} {(644)} {(DQ ($ VSub_Name "$TARGET") (/etc/fstab))}) ] spids: [-1 640] ) ] spids: [-1 679] ) (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: [697] ) ] spids: [695] ) (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: spids: [707 711] ) ) } spids: [705] ) ] spids: [703] ) (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: spids: [719 729] ) ) } spids: [717] ) ] spids: [715] ) (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: [758] ) ] ) (C {(touch)} {(DQ ($ VSub_Name "$TARGET") (/var/lib/dpkg/info/) (${ VSub_Name pkg) (.list))} ) ] spids: [692] ) spids: [687 691] ) (C {(x_feign_install)} {(dpkg)}) ] spids: [583] ) spids: [578 582] ) (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: spids: [821 827] ) } ) ] negated: False ) ] spids: [803] ) spids: [798 802] ) (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: suffix_op: (StringUnary op_id: VTest_ColonHyphen arg_word: {(1)} ) spids: [849 853] ) } ) ) spids: [844 855] ) ) } spids: [842] ) ] spids: [842] ) ] spids: [839] ) spids: [834 838] ) (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: [872] ) ] spids: [872] ) (C {(export)} {(DEBIAN_FRONTEND)}) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:baseprog) op:Equal rhs:{(0)} spids:[882])] spids: [882] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:bases) op:Equal rhs:{(40)} spids:[886])] spids: [886] ) (Sentence child:(C {(p)}) terminator:) (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:) (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:) (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: ) ] action: [ (C {(ln)} {(-sf)} {(/usr/share/zoneinfo/UTC)} {(DQ ($ VSub_Name "$TARGET") (/etc/localtime))} ) ] spids: [-1 999] ) ] spids: [-1 1014] ) (Sentence child:(C {(p)}) terminator:) (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:) (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTBASE)} {(DQ ("Installing base system"))} ) (C {(x_core_install)} {(perl-base)}) (Sentence child:(C {(p)}) terminator:) (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:) (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTBASE)} {(DQ ("Installing base system"))} ) (C {(x_core_install)} {(debconf)}) (C {(info)} {(UNPACKREQ)} {(DQ ("Unpacking required packages..."))}) (Sentence child:(C {(p)}) terminator:) (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: spids: [1181 1185] ) } ) ] negated: False ) (Sentence child:(C {(p)} {(10)}) terminator:) (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:) ("Warning: Fake start-stop-daemon called, doing nothing") (EscapedLiteralPart token:) ) } ] redirects: [ (Redir op_id: Redir_Great fd: -1 arg_word: {(DQ ($ VSub_Name "$TARGET") (/sbin/start-stop-daemon))} spids: [1245] ) ] ) (C {(chmod)} {(755)} {(DQ ($ VSub_Name "$TARGET") (/sbin/start-stop-daemon))}) (C {(setup_dselect_method)} {(apt)}) (Sentence child:(C {(p)}) terminator:) (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:) (C {(progress)} {($ VSub_Name "$baseprog")} {($ VSub_Name "$bases")} {(INSTBASE)} {(DQ ("Installing base system"))} ) (If arms: [ (if_arm cond: [ (Sentence child: (C {(Lit_Other "[")} {(KW_Bang "!")} {(-e)} {(DQ ($ VSub_Name "$TARGET") (/etc/exim/exim.conf))} {(Lit_Other "]")} ) terminator: ) ] action: [ (C {(mkdir)} {(-p)} {(DQ ($ VSub_Name "$TARGET") (/etc/exim))}) (C {(touch)} {(DQ ($ VSub_Name "$TARGET") (/etc/exim/exim.conf))}) ] spids: [-1 1356] ) ] spids: [-1 1377] ) (C {(info)} {(INSTBASE)} {(DQ ("Installing base packages..."))}) (Sentence child:(C {(p)}) terminator:) (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: spids: [1444 1448] ) } ) ] negated: False ) (C {(rm)} {(-f)} {(DQ ($ VSub_Name "$TARGET") (/usr/sbin/sendmail))}) (C {(ln)} {(-sf)} {(/bin/true)} {(DQ ($ VSub_Name "$TARGET") (/usr/sbin/sendmail))}) (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 ) (C {(rm)} {(-f)} {(DQ ($ VSub_Name "$TARGET") (/usr/sbin/sendmail))}) (C {(ln)} {(-sf)} {(exim)} {(DQ ($ VSub_Name "$TARGET") (/usr/sbin/sendmail))}) (Sentence child:(C {(p)} {(9)}) terminator:) (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: [795] ) spids: [790 794] ) ] )