#!/bin/sh

cp flisp.boot flisp.boot.bak

echo "Creating stage 0 boot file..."
#../../branches/interpreter/femtolisp/flisp mkboot0.lsp system.lsp compiler.lsp > flisp.boot.new
./flisp mkboot0.lsp system.lsp compiler.lsp > flisp.boot.new
mv flisp.boot.new flisp.boot

echo "Creating stage 1 boot file..."
./flisp mkboot1.lsp

echo "Testing..."
make test
(CommandList
  children: [
    (C {(cp)} {(flisp.boot)} {(flisp.boot.bak)})
    (C {(echo)} {(DQ ("Creating stage 0 boot file..."))})
    (SimpleCommand
      words: [{(./flisp)} {(mkboot0.lsp)} {(system.lsp)} {(compiler.lsp)}]
      redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(flisp.boot.new)} spids:[28])]
    )
    (C {(mv)} {(flisp.boot.new)} {(flisp.boot)})
    (C {(echo)} {(DQ ("Creating stage 1 boot file..."))})
    (C {(./flisp)} {(mkboot1.lsp)})
    (C {(echo)} {(DQ (Testing...))})
    (C {(make)} {(test)})
  ]
)