source: project/release/4/dissector/top.scm @ 12286

Last change on this file since 12286 was 12286, checked in by felix winkelmann, 13 years ago

ported to chicken-4

File size: 832 bytes
Line 
1;;;;;; Main entry point to the Dissector
2
3;;; Copyright (C) 2004, Taylor Campbell
4;;; All rights reserved.
5;;; See the LICENCE file for details.
6
7;;; The main entry point.
8(define (dissect object . in+out)
9  (let-optionals* in+out ((inport (current-input-port))
10                          (outport (current-output-port)))
11    ;; Double-parentheses here so we can jump out and tail call the
12    ;; thunk that's thrown back.  (Want Feeley's interface, damnit!)
13    ((call-with-current-continuation
14       (lambda (quit)
15         (lambda ()
16           (let ((dissection
17                  (make-dissection object
18                                   (prepare-dissection-menu object)
19                                   '() quit inport outport)))
20             (display-dissection dissection)
21             (dissection-loop dissection))))))))
Note: See TracBrowser for help on using the repository browser.