mozilla
/
gecko-dev
зеркало из https://github.com/mozilla/gecko-dev.git
1
0
Форкнуть 0
Код Задачи Пакеты Проекты Релизы Вики Активность

Made semantics compiled on Allegro

This commit is contained in:
waldemar%netscape.com 1999-12-07 22:04:58 +00:00
Родитель 34a05a535b
Коммит 0bd84dc104
2 изменённых файлов: 4 добавлений и 4 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

4
js/semantics/Main.lisp
Просмотреть файл

@ -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)

4
js2/semantics/Main.lisp
Просмотреть файл

@ -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)