#!/bin/bash

# Run native build out of build directory, using host-tools.sh if
# available.

global SYSIMG := ""build/system-image-$1""

if test ! -e $SYSIMG
{
  echo "no $SYSIMG" > !2
  exit 1
}

global PATH := ""$PWD/build/host:$PWD/build/native-compiler-$1:$PATH""

global X := $[readlink -f $2 !2 >/dev/null]
if test -z $X
{
  echo "No control image $2" > !2
  exit 1
}

cd $SYSIMG && ./native-build.sh $X
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:SYSIMG)
          op: Equal
          rhs: {(DQ (build/system-image-) ($ VSub_Number "$1"))}
          spids: [11]
        )
      ]
      spids: [11]
    )
    (If
      arms: [
        (if_arm
          cond: [
            (C {(Lit_Other "[")} {(KW_Bang "!")} {(-e)} {(DQ ($ VSub_Name "$SYSIMG"))} {(Lit_Other "]")})
          ]
          action: [
            (SimpleCommand
              words: [{(echo)} {(DQ ("no ") ($ VSub_Name "$SYSIMG"))}]
              redirects: [(Redir op_id:Redir_GreatAnd fd:-1 arg_word:{(2)} spids:[42])]
            )
            (C {(exit)} {(1)})
          ]
          spids: [-1 32]
        )
      ]
      spids: [-1 50]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:PATH)
          op: Equal
          rhs: 
            {
              (DQ ($ VSub_Name "$PWD") ("/build/host:") ($ VSub_Name "$PWD") (/build/native-compiler-) 
                ($ VSub_Number "$1") (":") ($ VSub_Name "$PATH")
              )
            }
          spids: [53]
        )
      ]
      spids: [53]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:X)
          op: Equal
          rhs: 
            {
              (CommandSubPart
                command_list: 
                  (CommandList
                    children: [
                      (SimpleCommand
                        words: [{(readlink)} {(-f)} {(DQ ($ VSub_Number "$2"))}]
                        redirects: [(Redir op_id:Redir_Great fd:2 arg_word:{(/dev/null)} spids:[75])]
                      )
                    ]
                  )
                left_token: <Left_CommandSub "$(">
                spids: [66 77]
              )
            }
          spids: [65]
        )
      ]
      spids: [65]
    )
    (If
      arms: [
        (if_arm
          cond: [(C {(Lit_Other "[")} {(-z)} {(DQ ($ VSub_Name "$X"))} {(Lit_Other "]")})]
          action: [
            (SimpleCommand
              words: [{(echo)} {(DQ ("No control image ") ($ VSub_Number "$2"))}]
              redirects: [(Redir op_id:Redir_GreatAnd fd:-1 arg_word:{(2)} spids:[101])]
            )
            (C {(exit)} {(1)})
          ]
          spids: [-1 91]
        )
      ]
      spids: [-1 109]
    )
    (AndOr
      children: [
        (C {(cd)} {(DQ ($ VSub_Name "$SYSIMG"))})
        (C {(./native-build.sh)} {(DQ ($ VSub_Name "$X"))})
      ]
      op_id: Op_DAmp
    )
  ]
)