зеркало из https://github.com/mozilla/gecko-dev.git
Made semantics compiled on Allegro
This commit is contained in:
Родитель
34a05a535b
Коммит
0bd84dc104
|
@ -31,7 +31,7 @@
|
||||||
'("Utilities" "Markup" "RTF" "HTML" "GrammarSymbol" "Grammar" "Parser" "Metaparser" "Lexer" "Calculus" "CalculusMarkup"))
|
'("Utilities" "Markup" "RTF" "HTML" "GrammarSymbol" "Grammar" "Parser" "Metaparser" "Lexer" "Calculus" "CalculusMarkup"))
|
||||||
|
|
||||||
(defparameter *semantics-filenames*
|
(defparameter *semantics-filenames*
|
||||||
'("JS20/Parser" "JS20/Lexer" "JS20/RegExp" #|"JSECMA/Lexer" "JSECMA/Parser"|# ))
|
'("JS20/Parser" "JS20/Lexer" "JS20/Kernel" "JS20/RegExp"))
|
||||||
|
|
||||||
(defparameter *semantic-engine-directory*
|
(defparameter *semantic-engine-directory*
|
||||||
(make-pathname
|
(make-pathname
|
||||||
|
@ -71,7 +71,7 @@
|
||||||
(operate-on-files #-allegro #'load #+allegro #'load-compiled *semantic-engine-filenames*))
|
(operate-on-files #-allegro #'load #+allegro #'load-compiled *semantic-engine-filenames*))
|
||||||
|
|
||||||
(defun load-semantics ()
|
(defun load-semantics ()
|
||||||
(operate-on-files #'load *semantics-filenames*))
|
(operate-on-files #-allegro #'load #+allegro #'load-compiled *semantics-filenames*))
|
||||||
|
|
||||||
|
|
||||||
(defmacro with-local-output ((stream filename) &body body)
|
(defmacro with-local-output ((stream filename) &body body)
|
||||||
|
|
|
@ -31,7 +31,7 @@
|
||||||
'("Utilities" "Markup" "RTF" "HTML" "GrammarSymbol" "Grammar" "Parser" "Metaparser" "Lexer" "Calculus" "CalculusMarkup"))
|
'("Utilities" "Markup" "RTF" "HTML" "GrammarSymbol" "Grammar" "Parser" "Metaparser" "Lexer" "Calculus" "CalculusMarkup"))
|
||||||
|
|
||||||
(defparameter *semantics-filenames*
|
(defparameter *semantics-filenames*
|
||||||
'("JS20/Parser" "JS20/Lexer" "JS20/RegExp" #|"JSECMA/Lexer" "JSECMA/Parser"|# ))
|
'("JS20/Parser" "JS20/Lexer" "JS20/Kernel" "JS20/RegExp"))
|
||||||
|
|
||||||
(defparameter *semantic-engine-directory*
|
(defparameter *semantic-engine-directory*
|
||||||
(make-pathname
|
(make-pathname
|
||||||
|
@ -71,7 +71,7 @@
|
||||||
(operate-on-files #-allegro #'load #+allegro #'load-compiled *semantic-engine-filenames*))
|
(operate-on-files #-allegro #'load #+allegro #'load-compiled *semantic-engine-filenames*))
|
||||||
|
|
||||||
(defun load-semantics ()
|
(defun load-semantics ()
|
||||||
(operate-on-files #'load *semantics-filenames*))
|
(operate-on-files #-allegro #'load #+allegro #'load-compiled *semantics-filenames*))
|
||||||
|
|
||||||
|
|
||||||
(defmacro with-local-output ((stream filename) &body body)
|
(defmacro with-local-output ((stream filename) &body body)
|
||||||
|
|
Загрузка…
Ссылка в новой задаче