From 0bc40b455f8e02ee7cf9984ef07064918a02888c Mon Sep 17 00:00:00 2001 From: "waldemar%netscape.com" Date: Fri, 23 May 2003 01:03:01 +0000 Subject: [PATCH] Added support for strings in references for referring to external definitions in pages other than the default one. git-svn-id: svn://10.0.0.236/trunk@142780 18797224-902f-48f8-a5cc-f745e15eee43 --- mozilla/js2/semantics/GrammarSymbol.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/mozilla/js2/semantics/GrammarSymbol.lisp b/mozilla/js2/semantics/GrammarSymbol.lisp index 0c9a239e2b3..705ebb79f2f 100644 --- a/mozilla/js2/semantics/GrammarSymbol.lisp +++ b/mozilla/js2/semantics/GrammarSymbol.lisp @@ -276,6 +276,7 @@ ; link should be one of: ; :reference if this is a reference of this general-nonterminal; ; :external if this is an external reference of this general-nonterminal; +; a string if this is an external reference of this general-nonterminal to the given html file; ; :definition if this is a definition of this general-nonterminal; ; nil if this use of the general-nonterminal should not be cross-referenced. (defun depict-general-nonterminal (markup-stream general-nonterminal link &optional subscript) @@ -370,6 +371,7 @@ ; link should be one of: ; :reference if this is a reference of this general-grammar-symbol; ; :external if this is an external reference of this general-grammar-symbol; +; a string if this is an external reference of this general-grammar-symbol to the given html file; ; :definition if this is a definition of this general-grammar-symbol; ; nil if this use of the general-grammar-symbol should not be cross-referenced. (defun depict-general-grammar-symbol (markup-stream general-grammar-symbol link &optional subscript) @@ -378,14 +380,14 @@ (depict-terminal markup-stream general-grammar-symbol subscript))) -; Styled text can include (:grammar-symbol []) as long as +; Styled text can include (:grammar-symbol [] []) as long as ; *styled-text-grammar-parametrization* is bound around the call to depict-styled-text. (defvar *styled-text-grammar-parametrization*) -(defun depict-grammar-symbol-styled-text (markup-stream grammar-symbol-source &optional subscript) +(defun depict-grammar-symbol-styled-text (markup-stream grammar-symbol-source &optional subscript link) (depict-general-grammar-symbol markup-stream (grammar-parametrization-intern *styled-text-grammar-parametrization* grammar-symbol-source) - :reference + (or link :reference) subscript)) (setf (styled-text-depictor :grammar-symbol) #'depict-grammar-symbol-styled-text)