Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added support for algorithm styles

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@103696 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
waldemar%netscape.com
2001-09-25 03:49:47 +00:00
parent 5c2495a607
commit 965032d74d
1 changed files with 18 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
mozilla/js2/semantics/HTML-To-RTF/Convert.lisp
View File

@@ -344,8 +344,8 @@
("grammar-argument" . :grammar-argument)
("indent" . :body-text)
("operator-heading" . :heading4)
("semantics" . :semantics)
("semantics-next" . :semantics-next)))
("algorithm-stmt" . :algorithm-stmt)
("algorithm-next-stmt" . :algorithm-next-stmt)))
(defun class-to-paragraph-style (element)
@@ -374,6 +374,8 @@
(defparameter *divs-containing-divs*
'("indent"))
(defvar *algorithm-level* nil)
(defun emit-div (markup-stream element class)
(cond
((equal class "grammar-rule")
@@ -387,6 +389,20 @@
(setq style :body-text))
(depict-paragraph (markup-stream style)
(emit-inline-parts markup-stream child))))))
((equal class "algorithm")
(let ((*algorithm-level* 0))
(emit-paragraph-elements markup-stream element)))
((or (equal class "algorithm-next") (equal class "algorithm-indent"))
(let ((*algorithm-level* 1))
(emit-paragraph-elements markup-stream element)))
((equal class "lvl")
(let ((*algorithm-level* (1+ *algorithm-level*)))
(emit-paragraph-elements markup-stream element)))
((equal class "stmt")
(unless (and *algorithm-level* (< *algorithm-level* 10))
(error "The stmt class can only be used inside an algorithm class"))
(depict-paragraph (markup-stream (find-symbol (format nil "ALGORITHM-~D" *algorithm-level*) :keyword))
(emit-inline-parts markup-stream element)))
((member class *divs-containing-divs* :test #'equal)
(depict-paragraph (markup-stream :body-text)
(depict markup-stream "***** BEGIN DIV" class))