main.rkt
author Tony Garnock-Jones <tonygarnockjones@gmail.com>
Mon, 04 Jul 2011 10:59:25 -0400
changeset 37 c28094727b3d
parent 36 ae93c5bd6657
permissions -rw-r--r--
Cope with no reported error when formatting error messages.
36
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
     1
#lang racket/base
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
     2
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
     3
(require "ometa.scm")
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
     4
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
     5
(provide *ometa-debug*
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
     6
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
     7
	 parse-position>?
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
     8
	 top-file-parse-position
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
     9
	 update-file-parse-position
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    10
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    11
	 merge-parse-errors
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    12
	 make-parse-error
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    13
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    14
	 input-stream-cons
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    15
	 input-stream-position
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    16
	 input-stream-append
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    17
	 ->input-stream-or-false
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    18
	 ->input-stream
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    19
	 register-input-stream-constructor!
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    20
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    21
	 input-stream-split-at-most
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    22
	 input-stream->list
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    23
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    24
	 make-port-input-stream
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    25
	 current-input-stream
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    26
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    27
	 ometa-namespace-getter
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    28
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    29
	 meta-ometa
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    30
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    31
	 serialize-ometa-ast
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    32
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    33
	 format-ometa-error
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    34
	 report-ometa-error
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    35
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    36
	 parse-ometa
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    37
	 parse-ometa-file
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    38
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    39
	 ometa-library-path
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    40
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    41
	 opt
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    42
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    43
	 merge-ometa
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    44
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    45
	 load-ometa
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    46
	 simple-ometa-driver
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    47
	 interpret-ometa ;; use simple-ometa-driver instead
ae93c5bd6657 Racket main.rkt for use as a planet collect
Tony Garnock-Jones <tonygarnockjones@gmail.com>
parents:
diff changeset
    48
	 )