#lang scheme/base
(require
 scheme/match
 "tools.ss")
(require/provide
 "live/tethered.ss"    ;; Scat code for host<->target interaction.
 
 "live/comm-uart.ss" 
 "live/comm-pk2.ss"
 "live/comm-simulator.ss"  ;; monitor transports and reference implementation
  
 "live/commands.ss"    ;; A target-local view to the above.
 "live/rpn-target.ss"  ;; Base implementation of the target command language.
 "live/reflection.ss"  ;; Namespace operations.
 "live/repl.ss"        ;; repl functionality

 ;; necessary for reflective operations to work:
; "target.ss"
; "ns.ss"
; "scat.ss"
 "macro.ss"
 )

(provide (all-defined-out))

;; (loading "live")

;; All uses of 'eval in the staapl/live/ modules will use the current
;; project namespace, as managed by prj/manager.ss code.  However,
;; live/commands.ss has a link to the manager for delegating
;; meta-namespace operations (like reload/switch/kill/...).


;; LIVE CONNECTION

;; (require "pk2/icsp.ss") (define (debug) (icsp-debug #t))
  

(define (console type dev baud)
  (with-handlers
      ((void (lambda (ex)
               (printf "Error opening console ~a:\n" type)
               (display (ex))
               (newline))))
    (match type
           ('uart       (comm-uart dev baud))
           ('pickit2    (comm-pickit2 dev baud))
           ('simulator  (comm-simulator)))))