Added newdocs.

src/mx2cc/docs/newdocs.monkey2

@@ -0,0 +1,1296 @@
+
+Namespace mx2.docs
+
+Class DocsNode
+	
+	Method New( ident:String,label:String,parent:DocsNode,nav:Bool=False )
+
+		_ident=ident
+		_label=label ? label Else ident
+		_parent=parent
+		_nav=nav
+
+		If _parent _parent._children.Add( Self )
+	End
+	
+	Property Ident:String()
+	
+		Return _ident
+	End
+	
+	Property Label:String()
+	
+		Return _label
+	End
+	
+	Property Parent:DocsNode()
+	
+		If _nav Return _parent ? _parent.Parent Else Null
+	
+		Return _parent
+	End
+	
+	Property Nav:Bool()
+	
+		Return _nav
+	End
+	
+	property Children:DocsNode[]()
+	
+		Return _children.ToArray()
+	End
+	
+	Property NumChildren:Int()
+	
+		Return _children.Length
+	End
+	
+	Property Markdown:String()
+	
+		Return _markdown
+		
+	Setter( markdown:String )
+	
+		_markdown=markdown
+	End
+	
+	Property Path:String()
+	
+		If _nav Return _parent ? _parent.Path Else ""
+		
+		Local path:=_parent ? _parent.Path Else ""
+		
+		Return path ? path+"."+_ident Else _ident
+	End
+	
+	Property PathLink:String()
+	
+		If _nav Return _parent ? _parent.PathLink Else ""
+		
+		Local link:=_parent ? _parent.PathLink Else ""
+		
+		If link link+="."
+		
+		Return link+"[["+Path+"|"+_label+"]]"
+	End
+	
+	Property Slug:String()
+	
+		Return Path.Replace( ".","-" )
+	End
+	
+	Method FindChild:DocsNode( path:String )
+	
+		If Not _nav
+		
+			Local i:=path.Find( "." )
+			If i=-1 Return path=_ident ? Self Else Null
+			
+			Local ident:=path.Slice( 0,i )
+			If ident<>_ident Return Null
+
+			path=path.Slice( i+1 )
+			
+		Endif
+		
+		For Local child:=Eachin _children
+			Local docs:=child.FindChild( path )
+			If docs Return docs
+		Next
+
+		Return Null
+	End
+	
+	Method Find:DocsNode( path:String )
+	
+		If Not _nav
+		
+			If path=_ident Return Self
+			
+			If path.StartsWith( _ident+"." ) path=path.Slice( _ident.Length+1 )
+		
+			For Local child:=Eachin _children
+				Local docs:=child.FindChild( path )
+				If docs Return docs
+			Next
+		
+		Endif
+		
+		Return _parent ? _parent.Find( path ) Else Null
+	End
+	
+	Method Remove()
+		If Not _parent Return
+		_parent._children.Remove( Self )
+		_parent=Null
+	End
+
+	Method Debug()
+		Print Path
+		For Local child:=Eachin _children
+			child.Debug()
+		Next
+	End
+	
+	Private
+	
+	Field _ident:String
+	Field _label:String
+	Field _parent:DocsNode
+	Field _nav:Bool
+	Field _children:=New Stack<DocsNode>
+	
+	Field _markdown:String
+	
+End
+
+Class DocsBuffer
+	
+	Method EmitBr()
+		
+		EmitLine( "" )
+	End
+	
+	Method EmitLine( line:String )
+		
+		line=line.Trim()
+		
+		If Not line And _lines.Length And Not _lines.Top Return
+		
+		_lines.Push( line )
+	End
+	
+	Method Emit( docs:String )
+	
+		Local lines:=docs.Split( "~n" )
+
+		Local indent:=10000
+		For Local i:=0 Until lines.Length
+			Local line:=lines[i],j:=0
+			While j<line.Length
+				If line[j]>32 Exit
+				j+=1
+			Wend
+			indent=Min( indent,j )
+		Next
+		If indent=10000 indent=0
+		For Local i:=0 Until lines.Length
+			lines[i]=lines[i].Slice( indent ).TrimEnd()
+		Next
+		
+		Local i:=0
+		
+		While i<lines.Length
+		
+			Local line:=lines[i]
+			i+=1
+			
+			If Not line.StartsWith( "@" )
+				EmitLine( line )
+				Continue
+			Endif
+			
+			Local j:=line.Find( " " )
+			If j=-1 j=line.Length
+			
+			Local tag:=line.Slice( 1,j )
+			Local arg:=line.Slice( j )
+				
+			Select tag
+			Case "label"
+			
+				_label=arg
+				
+			Case "param"
+			
+				_params.Push( arg )
+				
+			Case "return"
+			
+				_return=arg
+			
+			Case "example"
+
+				EmitLine( "```" )
+
+				While i<lines.Length And lines[i].Trim()<>"@end"
+					EmitLine( lines[i] )
+					i+=1
+				Wend
+
+				EmitLine( "```" )
+
+				If i<lines.Length i+=1
+				
+			Default
+			
+				Print "DocsBuffer error: '"+lines[i-1]+"'"
+			
+			End
+			
+		Wend
+	End
+	
+	Method Flush:String( docs:DocsNode )
+	
+		If _params.Length	
+		
+			EmitBr()
+			Emit( "| Parameters |    |" )
+			Emit( "|:-----------|:---|" )
+			
+			For Local p:=Eachin _params
+			
+				Local i:=p.Find( " " )
+				If i=-1 Continue
+				
+				Local id:=p.Slice( 0,i )
+				Local docs:=p.Slice( i ).Trim()
+				If Not docs Continue
+				
+				Emit( "| `"+id+"` | "+p+" |" )
+			Next
+			
+			_params.Clear()
+			
+		Endif
+		
+		Local markdown:=_lines.Join( "~n" ).Trim()+"~n"
+		
+		_lines.Clear()
+		_label=""
+		_return=""
+		
+		Return markdown
+	End
+	
+	Private
+	
+	Field _lines:=New StringStack
+	
+	Field _label:String
+	
+	Field _params:=New StringStack
+	
+	Field _return:String
+
+End
+
+Class DocsMaker
+
+	Method new( docsDir:String,pageTemplate:String )
+	
+		_docsDir=docsDir
+		
+		_pageTemplate=pageTemplate
+	End
+
+	Method CreateModuleDocs( module:Module,parent:DocsNode )
+	
+		_module=module
+		
+		_baseDir=_docsDir+"modules/"+_module.name+"/"
+		
+		DeleteDir( _baseDir,True )
+		CreateDir( _baseDir,True )
+
+		Local docs:=New DocsNode( _module.name,"",parent,True )
+		
+		Local done:=New Map<NamespaceScope,Bool>
+		
+		'Create docs tree
+		
+		For Local fscope:=Eachin _module.fileScopes
+			
+			Local scope:=Cast<NamespaceScope>( fscope.outer )
+			If Not scope Continue
+			
+			If done[scope] Continue
+			
+			MakeNamespaceDocs( scope,docs )
+			
+			done[scope]=True
+		Next
+		
+		'Convert to HTML
+
+		_convertor=New MarkdownConvertor( ResolveHtmlLink )
+		
+		CreateHtmlPages( docs )
+		
+		_convertor=Null
+		
+		'Create NAV tree 
+		
+		Local buf:=New StringStack
+		
+		CreateJSNavTree( docs,buf,"" )
+
+		Local tree:=buf.Join( "" )		
+		
+		SaveString( tree,_baseDir+"index.js" )
+		
+		_baseDir=""
+		
+		_module=Null
+	End
+	
+	Private
+	
+	Field _docsDir:String
+	
+	Field _pageTemplate:String
+	
+	Field _module:Module
+	
+	Field _baseDir:String	'monkey2/docs/modules/themodule/
+	
+	Field _convertor:MarkdownConvertor
+	
+	Field _converting:DocsNode
+	
+	Method CreateJSNavTree( docs:DocsNode,buf:StringStack,indent:String )
+	
+		buf.Add( "{text:'"+docs.Label+"'" )
+		
+		If Not docs.Nav
+		
+			Local page:=_module.name+":"+docs.Path
+		
+			buf.Add( ",data:{page:'"+page+"'}")
+		
+		Endif
+		
+		Local children:=docs.Children
+		
+		If children
+		
+			buf.Add( ",children:[" )
+			
+			Local first:=True
+			
+			For Local child:=Eachin children
+				If Not first buf.Add( "," )
+				CreateJSNavTree( child,buf,indent+"  " )
+				first=False
+			Next
+			
+			buf.Push( "]" )
+		
+		Endif
+
+		buf.Add( "}~n" )
+		
+	End
+	
+	Method CreateHtmlPages( docs:DocsNode )
+	
+		If Not docs.Nav
+		
+			Local path:=_baseDir+docs.Slug+".html"
+			
+			_converting=docs
+			
+			Local html:=_convertor.ConvertToHtml( docs.Markdown )
+			
+			_converting=Null
+			
+			If _pageTemplate html=_pageTemplate.Replace( "${CONTENT}",html )
+	
+			SaveString( html,path )
+		Endif
+		
+		For Local child:=Eachin docs.Children
+		
+			CreateHtmlPages( child )
+		Next
+	End
+	
+	Method ResolveHtmlLink:String( link:String,name:String )
+
+		If Not name name=link
+		
+		Local i:=link.Find( "://" )				'http://, https://
+		If i<>-1
+			If link.StartsWith( "http://" ) Or link.StartsWith( "https://" )
+				Local anchor:="<a href='"+link+"'>"+name+"</a>"
+				Return anchor
+			Endif
+			Local anchor:="<a href='"+link+"'>"+name+"</a>"
+			Return anchor
+		Endif
+		
+		i=link.Find( ":" )				'absolute link?
+		If i<>-1
+			Local modname:=link.Slice( 0,i )
+			Local slug:=link.Slice( i+1 ).Replace( ".","-" )
+			Local url:="file://d:/dev/monkey2/modules/"+modname+"/docs/__NEWPAGES__/"+slug+".html"
+			Local anchor:="<a href='"+url+"'>"+name+"</a>"
+			Return anchor
+		Endif
+		
+		Const monkeyTypes:="inumeric,iintegral,ireal,bool,byte,ubyte,short,ushort,int,uint,long,ulong,float,double,string,cstring,ovariant,typeinfo,declinfo,array,object,throwable"
+		
+		Local docs:=_converting.Find( link )	'find module local link
+		If Not docs
+			Print "Link not found:"+link+" while converting:"+_converting.Path
+			Return name
+		Endif
+		
+		Local url:="file://"+_baseDir+docs.Slug+".html"
+		Local anchor:="<a href='"+url+"'>"+name+"</a>"
+		Return anchor
+	End
+
+	Method TypeName:String( type:Type,name:String="" )
+	
+		Local xtype:=Cast<AliasType>( type )
+		If xtype
+			Local types:=""
+			For Local type:=Eachin xtype.types 
+				types+=","+TypeName( type )
+			Next
+			If types types="<"+types.Slice(1)+">"
+		
+			If xtype.instanceOf xtype=xtype.instanceOf
+			
+			Return TypeName( xtype._alias,xtype.adecl.ident )+types
+		Endif
+
+		Local ptype:=Cast<PrimType>( type )
+		If ptype 
+			Local ctype:=ptype.ctype
+			If Not name name=ctype.Name
+			Return "[[monkey:monkey.types."+ctype.Name+"|"+name+"]]"
+		Endif
+	
+		Local atype:=Cast<ArrayType>( type )
+		If atype
+			Local ext:="[,,,,,,,,".Slice( 0,atype.rank )+"]"
+			Return TypeName( atype.elemType,name )+ext
+		Endif
+		
+		Local vtype:=Cast<PointerType>( type )
+		If vtype 
+			Return TypeName( vtype.elemType,name )+" Ptr"
+		Endif
+		
+		Local ftype:=Cast<FuncType>( type )
+		If ftype
+			Local retType:=TypeName( ftype.retType )
+			local argTypes:=""
+			For Local arg:=Eachin ftype.argTypes
+				If argTypes argTypes+=","
+				argTypes+=","+TypeName( arg )
+			Next
+			Return retType+":("+argTypes+")"
+		Endif
+	
+		Local ctype:=Cast<ClassType>( type )
+		If ctype
+			Local types:=""
+			For Local type:=Eachin ctype.types 
+				types+=","+TypeName( type )
+			Next
+			If types types="<"+types.Slice(1)+">"
+				
+			If ctype.instanceOf ctype=ctype.instanceOf
+			
+			Local module:=ctype.transFile.module
+			
+			Local path:=type.Name
+			Local i:=path.Find( "<" )
+			If i<>-1 path=path.Slice( 0,i )
+			
+			If Not name 
+				name=path
+				If _module=ctype.transFile.module
+					Local i:=name.FindLast( "." )
+					If i<>-1 name=name.Slice( i+1 )
+				Endif
+				
+			Endif
+			
+			Return "[["+module.name+":"+path+"|"+name+"]]"+types
+		Endif
+		
+		Local gtype:=Cast<GenArgType>( type )
+		If gtype
+			Return gtype.ident
+		Endif
+		
+		Return type.Name
+	End
+	
+	Method DeclIdent:String( decl:Decl )
+
+		Local ident:=decl.ident.Replace( "@","" )
+		If Not IsIdent( ident[0] ) ident="Op"+OpSym( ident ).Slice( 1 ).Capitalize()
+	
+		Return ident
+	End
+	
+	Method DeclLabel:String( decl:Decl )
+	
+		Local label:=decl.ident
+		If label.StartsWith( "@" )
+			If label.StartsWith( "@u" )
+				label="U"+label.Slice( 2 ).Capitalize()
+			Else
+				label=label.Slice( 1 ).Capitalize()
+				If label="Cstring" label="CString"
+			Endif
+		Else
+			If label="new" label="New"
+		Endif
+		
+		Local fdecl:=Cast<FuncDecl>( decl )
+		If fdecl And fdecl.IsOperator
+			If label="to" label=" To"
+			 label="Operator"+label
+		Endif
+		
+		Local xdecl:=Cast<AliasDecl>( decl )
+		If xdecl And xdecl.genArgs label+="<"+",".Join( xdecl.genArgs )+">"
+		
+		Local cdecl:=Cast<ClassDecl>( decl )
+		If cdecl And cdecl.genArgs label+="<"+",".Join( cdecl.genArgs )+">"
+		
+		Return label
+	End
+	
+	Method DeclLink:String( decl:Decl )
+	
+		Return "[["+DeclIdent( decl )+"|"+DeclLabel( decl )+"]]"
+	End
+	
+	Method DeclDesc:String( decl:Decl )
+	
+		Local desc:=decl.docs
+		
+		Local i:=desc.Find( "~n" )
+		If i<>-1 desc=desc.Slice( 0,i )
+		
+		If desc.StartsWith( "@deprecated" )
+		
+			Local arg:=desc.Slice( 11 ).Trim()
+			
+			desc="(Deprecated: "+arg+")"
+			
+		Endif
+		
+		Local pdecl:=Cast<PropertyDecl>( decl )
+		If pdecl
+			local rw:=""
+			If pdecl.getFunc And Not pdecl.setFunc
+				rw=" _(read only)_"
+			Else If pdecl.setFunc And Not pdecl.getFunc
+				rw=" _(write only)_"
+			Endif
+			desc+=rw
+		Endif
+		
+		Return desc
+	End
+	
+	Method EmitHeader( buf:DocsBuffer,decl:Decl,parent:DocsNode )
+
+		buf.Emit( "_"+_module.name+":"+parent.PathLink+"."+DeclLabel( decl )+"_" )
+	End
+	
+	Method DocsVisible:Bool( decl:Decl,access:int )
+	
+		If Not (decl.flags & access) return False
+	
+		If decl.docs.StartsWith( "@hidden" ) Return False
+		
+		If decl.IsPublic Return True
+		
+		Return decl.docs<>Null
+	End
+	
+	Method MakeMemberDocs:DocsNode( scope:Scope,kind:String,access:Int,parent:DocsNode,buf:DocsBuffer )
+
+		Local tag:=""
+		If access & DECL_PUBLIC
+			tag="Public "
+		Else If access & DECL_PROTECTED
+			tag="Protected "
+		Else If access & DECL_PRIVATE
+			tag="Private "
+		Endif
+		
+		Local kinds:=kind+"s"
+		If kind.EndsWith( "s" )
+			kinds=kind+"es"
+		Else If kind.EndsWith( "y" )
+			kinds=kind.Slice( 0,-1 )+"ies"
+		Endif
+		
+		Local first:=True,docs:DocsNode
+
+		For Local node:=Eachin scope.nodes
+		
+			Local xtype:=Cast<AliasType>( node.Value )
+			If xtype
+				
+'				If xtype.scope<>scope continue
+				
+				Local decl:=xtype.adecl
+				If decl.kind<>kind Or Not DocsVisible( decl,access ) Continue
+
+				If first
+					first=False
+					buf.EmitBr()
+					buf.Emit( "| "+tag+kinds+" | |" )
+					buf.Emit( "|:---|:---|" )
+					docs=New DocsNode( tag+kinds,"",parent,true )
+				Endif
+
+				buf.Emit( "| "+DeclLink( decl )+" | "+DeclDesc( decl )+" |" )
+		
+				MakeAliasDocs( xtype,docs )
+				
+				Continue
+			Endif
+			
+			Local ctype:=Cast<ClassType>( node.Value )
+			If ctype
+				
+'				If ctype.scope<>scope continue
+			
+				If ctype.transFile.module<>_module Continue
+				
+				Local decl:=ctype.cdecl
+				If decl.kind<>kind Or Not DocsVisible( decl,access ) Continue
+				
+				If first
+					first=False
+					buf.EmitBr()
+					buf.Emit( "| "+tag+kinds+" | |" )
+					buf.Emit( "|:---|:---|" )
+					docs=New DocsNode( tag+kinds,"",parent,true )
+				Endif
+				
+				buf.Emit( "| "+DeclLink( decl )+" | "+DeclDesc( decl )+" |" )
+				
+				MakeClassDocs( ctype,docs )
+				
+				Continue
+			Endif
+			
+			Local etype:=Cast<EnumType>( node.Value )
+			If etype
+				
+'				If etype.scope.outer<>scope Continue
+			
+				Local decl:=etype.edecl
+				If decl.kind<>kind Or Not DocsVisible( decl,access ) Continue
+				
+				If first
+					first=False
+					buf.EmitBr()
+					buf.Emit( "| "+tag+kinds+" | |" )
+					buf.Emit( "|:---|:---|" )
+					docs=New DocsNode( tag+kinds,"",parent,true )
+				Endif
+				
+				buf.Emit( "| "+DeclLink( decl )+" | "+DeclDesc( decl )+" |" )
+				
+				MakeEnumDocs( etype,docs )
+				
+				Continue
+			Endif
+				
+		
+			Local plist:=Cast<PropertyList>( node.Value )
+			If plist
+				
+'				If plist.scope<>scope continue
+			
+				Local decl:=plist.pdecl
+				If decl.kind<>kind Or Not DocsVisible( decl,access ) Continue
+
+				If first
+					first=False
+					buf.EmitBr()
+					buf.Emit( "| "+tag+kinds+" | |" )
+					buf.Emit( "|:---|:---|" )
+					docs=New DocsNode( tag+kinds,"",parent,true )
+				Endif
+
+				buf.Emit( "| "+DeclLink( decl )+" | "+DeclDesc( decl )+" |" )
+				
+				MakePropertyDocs( plist,docs )
+				
+				Continue
+			Endif
+			
+			Local flist:=Cast<FuncList>( node.Value )
+			If flist
+				
+'				If flist.funcs[0].scope<>scope Continue
+				
+				Local decl:=flist.funcs[0].fdecl
+				Local fkind:=decl.ident="new" ? "constructor" Else decl.kind
+				If fkind<>kind Or Not DocsVisible( decl,access ) Continue
+				
+				If first
+					first=False
+					buf.EmitBr()
+					buf.Emit( "| "+tag+kinds+" | |" )
+					buf.Emit( "|:---|:---|" )
+					docs=New DocsNode( tag+kinds,"",parent,true )
+				Endif
+
+				buf.Emit( "| "+DeclLink( decl )+" | "+DeclDesc( decl )+" |" )
+				
+				MakeFuncDocs( flist,docs )
+				
+				Continue
+			Endif
+			
+			Local vvar:=cast<VarValue>( node.Value )
+			If vvar
+				
+'				If vvar.scope<>scope Continue
+			
+				If vvar.transFile.module<>_module Continue
+			
+				Local decl:=vvar.vdecl
+				If decl.kind<>kind Or Not DocsVisible( decl,access ) Continue
+
+				If first
+					first=False
+					buf.EmitBr()
+					buf.Emit( "| "+tag+kinds+" | |" )
+					buf.Emit( "|:---|:---|" )
+					docs=New DocsNode( tag+kinds,"",parent,true )
+				Endif
+
+				buf.Emit( "| "+DeclLink( decl )+" | "+DeclDesc( decl )+" |" )
+				
+				MakeVarDocs( vvar,docs )
+				
+				Continue
+			Endif
+				
+		Next
+		
+		Return docs
+	End
+	
+	Method MakeNamespaceDocs:DocsNode( scope:NamespaceScope,parent:DocsNode )
+	
+		Print "Making namespace docs:"+scope.Name
+
+		Local buf:=New DocsBuffer
+
+		Local docs:=New DocsNode( scope.Name,"",parent )
+		
+		'EmitHeader
+		buf.Emit( "_"+_module.name+":"+scope.Name+"_" )
+		
+		buf.Emit( "##### Namespace "+scope.Name )
+		
+
+		MakeMemberDocs( scope,"alias",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"enum",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"interface",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"struct",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"class",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"function",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"global",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"const",DECL_PUBLIC,docs,buf )
+		
+		If Not docs.NumChildren 
+			docs.Remove()
+			Return Null
+		Endif
+		
+		docs.Markdown=buf.Flush( docs )
+
+		Return docs
+	End
+	
+	Method MakeAliasDocs:DocsNode( xtype:AliasType,parent:DocsNode )
+	
+		Local decl:=xtype.adecl
+		
+		Local buf:=New DocsBuffer
+		
+		Local docs:=New DocsNode( DeclIdent( decl ),DeclLabel( decl ),parent )
+
+		EmitHeader( buf,decl,parent )
+		
+		buf.Emit( "##### "+decl.kind.Capitalize()+" "+DeclIdent( decl ) )
+		
+		buf.Emit( decl.docs )
+				
+		docs.Markdown=buf.Flush( docs )
+		
+		Return docs
+	End
+	
+	Method MakeClassDocs:DocsNode( ctype:ClassType,parent:DocsNode )
+		
+		Local decl:=ctype.cdecl
+		Local scope:=ctype.scope
+		
+		Local buf:=New DocsBuffer
+		
+		Local docs:=New DocsNode( DeclIdent( decl ),DeclLabel( decl ),parent )
+		
+		EmitHeader( buf,decl,parent )
+		
+		If decl.IsExtension
+			
+			buf.Emit( "##### "+decl.kind.Capitalize()+" "+decl.ident+" Extension" )
+			
+		Else
+			
+			Local xtends:=""
+			If ctype.superType And DocsVisible( ctype.superType.cdecl,~0 )
+				If ctype.superType<>Type.ObjectClass
+					xtends=" Extends "+TypeName( ctype.superType )
+				Endif
+			Else If ctype.extendsVoid
+				xtends=" Extends Void"
+			Endif
+			
+			Local implments:=""
+			If decl.ifaceTypes
+				Local ifaces:=""
+				For Local iface:=Eachin ctype.ifaceTypes
+					ifaces+=","+TypeName( iface )
+				Next
+				ifaces=ifaces.Slice( 1 )
+				If decl.kind="interface"
+					xtends=" Extends "+ifaces
+				Else
+					implments=" Implements "+ifaces
+				Endif
+			Endif
+			
+			Local mods:=""
+			If decl.IsVirtual
+				mods+=" Virtual"
+			Else If decl.IsAbstract
+				mods+=" Abstract"
+			Else If decl.IsFinal
+				mods+=" Final"
+			Endif
+			
+			buf.Emit( "##### "+decl.kind.Capitalize()+" "+DeclLabel( decl )+xtends+implments+mods )
+
+		Endif
+		
+		buf.Emit( decl.docs )
+		
+		MakeMemberDocs( scope,"alias",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"enum",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"interface",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"struct",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"class",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"const",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"field",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"constructor",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"property",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"method",DECL_PUBLIC,docs,buf )
+		MakeMemberDocs( scope,"function",DECL_PUBLIC,docs,buf )
+		
+		docs.Markdown=buf.Flush( docs )
+		
+		Return docs
+	End
+	
+	Method MakeEnumDocs:DocsNode( etype:EnumType,parent:DocsNode )
+	
+		Local decl:=etype.edecl
+
+		Local docs:=New DocsNode( DeclIdent( decl ),DeclLabel( decl ),parent )
+		
+		Local buf:=New DocsBuffer
+		
+		EmitHeader( buf,decl,parent )
+
+		buf.Emit( "##### "+decl.kind.Capitalize()+" "+DeclIdent( decl ) )
+		
+		buf.Emit( decl.docs )
+	
+		docs.Markdown=buf.Flush( docs )
+		
+		Return docs
+	End
+	
+	Method MakePropertyDocs:DocsNode( plist:PropertyList,parent:DocsNode )
+	
+		Local decl:=plist.pdecl
+
+		Local docs:=New DocsNode( DeclIdent( decl ),DeclLabel( decl ),parent )
+		
+		Local buf:=New DocsBuffer
+		
+		EmitHeader( buf,decl,parent )
+		
+		buf.Emit( "##### "+decl.kind.Capitalize()+" "+DeclIdent( decl )+":"+TypeName( plist.type ) )
+		
+		buf.Emit( decl.docs )
+	
+		docs.Markdown=buf.Flush( docs )
+		
+		Return docs
+	End
+
+	Method MakeFuncDocs:DocsNode( flist:FuncList,parent:DocsNode )
+	
+		Local decl:=flist.funcs[0].fdecl
+	
+		Local docs:=New DocsNode( DeclIdent( decl ),DeclLabel( decl ),parent )
+	
+		Local buf:=New DocsBuffer
+		
+		EmitHeader( buf,decl,parent )
+		
+		For Local pass:=0 Until 2
+		
+			For Local func:=Eachin flist.funcs
+			
+				Local decl:=func.fdecl
+				
+				If pass=0
+				
+					Local params:=""
+					
+					For Local i:=0 Until func.ftype.argTypes.Length
+						Local ident:=func.fdecl.type.params[i].ident
+						Local type:=TypeName( func.ftype.argTypes[i] )
+						Local init:=""
+						If func.fdecl.type.params[i].init
+							init="="+func.fdecl.type.params[i].init.ToString()
+						Endif
+						If params params+=","
+						params+=ident+":"+type+init
+					Next
+
+					If decl.IsOperator
+						buf.Emit( "##### "+DeclLabel( decl )+":"+TypeName( func.ftype.retType )+"( "+params+" )" )
+					Else
+						buf.Emit( "##### "+decl.kind.Capitalize()+" "+DeclLabel( decl )+":"+TypeName( func.ftype.retType )+"( "+params+" )" )
+					endif
+					
+				Else
+				
+					buf.Emit( decl.docs )
+					
+				Endif
+				
+			Next
+			
+		Next
+		
+		docs.Markdown=buf.Flush( docs )
+		
+		Return docs
+	End
+	
+	Method MakeVarDocs:DocsNode( vvar:VarValue,parent:DocsNode )
+	
+		Local decl:=vvar.vdecl
+	
+		Local docs:=New DocsNode( DeclIdent( decl ),DeclLabel( decl ),parent )
+		
+		Local buf:=New DocsBuffer
+		
+		EmitHeader( buf,decl,parent )
+		
+		buf.Emit( "#### "+decl.kind.Capitalize()+" "+DeclLabel( decl )+":"+TypeName( vvar.type ) )
+	
+		buf.Emit( decl.docs )
+		
+		docs.Markdown=buf.Flush( docs )
+		
+		Return docs
+	End
+
+	#rem
+	Method EmitScopeMembers( buf:DocsBuffer,scope:Scope,kind:String,access:int )
+		
+		Local tag:=""
+		If access & DECL_PUBLIC
+			tag="Public "
+		Else If access & DECL_PROTECTED
+			tag="Protected "
+		Else If access & DECL_PRIVATE
+			tag="Private "
+		Endif
+		
+		Local first:=True
+		
+		For Local node:=Eachin scope.nodes
+			
+			Local vvar:=Cast<VarValue>( node.Value )
+			If vvar
+
+				Local decl:=vvar.vdecl
+				
+				If decl.kind<>kind Or Not (decl.flags & access) Continue
+				
+				If first
+					first=False
+					buf.EmitBr()
+					buf.Emit( "| "+tag+kind.Capitalize()+"s | |" )
+					buf.Emit( "|:---|:---|" )
+				Endif
+
+				buf.Emit( "| "+DeclLink( decl,scope )+" | "+DeclDesc( decl )+" |" )
+				
+				Continue
+			Endif
+
+			Local ctype:=Cast<ClassType>( node.Value )
+			If ctype
+				
+				Local decl:=ctype.cdecl
+				
+				If decl.kind<>kind Or Not (decl.flags & access) continue
+				
+				If first
+					first=False
+					Local kinds:=kind.Capitalize() + (kind="class" ? "es" Else "s")
+					buf.EmitBr()
+					buf.Emit( "| "+tag+kinds+" | |" )
+					buf.Emit( "|:---|:---|" )
+				Endif
+				
+				buf.Emit( "| "+DeclLink( decl,scope )+" | "+DeclDesc( decl )+" |" )
+				
+				Continue
+			Endif
+			
+			Local plist:=Cast<PropertyList>( node.Value )
+			If plist
+			
+				Local decl:=plist.pdecl
+				
+				If decl.kind<>kind Or Not (decl.flags & access) continue
+
+				If first
+					first=False
+					Local kinds:="Properties"
+					buf.EmitBr()
+					buf.Emit( "| "+tag+kinds+" | |" )
+					buf.Emit( "|:---|:---|" )
+				Endif
+
+				buf.Emit( "| "+DeclLink( decl,scope )+" | "+DeclDesc( decl )+" |" )
+				
+				Continue
+			Endif
+			
+			Local flist:=Cast<FuncList>( node.Value )
+			If flist
+				
+				Local decl:FuncDecl
+				For Local func:=Eachin flist.funcs
+					Local fdecl:=func.fdecl
+					If fdecl.kind<>kind Or Not (fdecl.flags & access) Continue
+					decl=fdecl
+					Exit
+				Next
+				If Not decl Continue
+				
+				If first
+					first=False
+					buf.EmitBr()
+					buf.Emit( "| "+tag+kind.Capitalize()+"s | |" )
+					buf.Emit( "|:---|:---|" )
+				Endif
+				
+				Print "decl.docs="+decl.docs
+				
+				buf.Emit( "| "+DeclLink( decl,scope )+" | "+DeclDesc( decl )+" |" )
+				
+				Continue
+			Endif
+		Next
+	End
+	
+	Method MakeMemberDocs( scope:Scope,parent:DocsNode )
+		
+		For Local node:=Eachin scope.nodes
+			
+			Local vvar:=Cast<VarValue>( node.Value )
+			If vvar
+
+				Local decl:=vvar.vdecl
+				If Not decl.IsPublic And Not decl.docs Continue
+				
+				MakeVarDocs( vvar,parent )
+				
+				Continue
+			Endif
+
+			Local ctype:=TCast<ClassType>( node.Value )
+			If ctype
+				
+				Local decl:=ctype.cdecl
+				If Not decl.IsPublic And Not decl.docs Continue
+				
+				MakeClassDocs( ctype,parent )
+				
+				Continue
+			Endif
+			
+			Local plist:=Cast<PropertyList>( node.Value )
+			If plist
+			
+				Local decl:=plist.pdecl
+				If Not decl.IsPublic And Not decl.docs Continue
+				
+				MakePropertyDocs( plist,parent )
+				
+				Continue
+			Endif
+			
+			Local flist:=Cast<FuncList>( node.Value )
+			If flist
+			
+				MakeFuncDocs( flist,parent )
+				
+				Continue
+			Endif
+			
+		Next
+		
+	End
+	#end
+		
+	#rem
+	Method MakeClassDocs:DocsNode( ctype:ClassType,parent:DocsNode )
+		
+		Local decl:=ctype.cdecl
+		Local scope:=ctype.scope
+		
+		Local buf:=New DocsBuffer
+		
+		EmitHeader( buf,decl.ident,parent )
+		
+		If decl.IsExtension
+			
+			buf.Emit( "##### "+decl.kind.Capitalize()+" "+decl.ident+" Extension" )
+			
+		Else
+			
+			Local xtends:=""
+			If ctype.superType
+				If ctype.superType<>Type.ObjectClass
+					xtends=" Extends "+TypeName( ctype.superType )
+				Endif
+			Else If ctype.extendsVoid
+				xtends=" Extends Void"
+			Endif
+			
+			Local implments:=""
+			If decl.ifaceTypes
+				Local ifaces:=""
+				For Local iface:=Eachin ctype.ifaceTypes
+					ifaces+=","+TypeName( iface )
+				Next
+				ifaces=ifaces.Slice( 1 )
+				If decl.kind="interface"
+					xtends=" Extends "+ifaces
+				Else
+					implments=" Implements "+ifaces
+				Endif
+			Endif
+			
+			Local mods:=""
+			If decl.IsVirtual
+				mods+=" Virtual"
+			Else If decl.IsAbstract
+				mods+=" Abstract"
+			Else If decl.IsFinal
+				mods+=" Final"
+			Endif
+			
+			buf.Emit( "##### "+decl.kind.Capitalize()+" "+decl.ident+xtends+implments+mods )
+
+		Endif
+		
+		buf.Emit( decl.docs )
+		
+		EmitScopeMembers( buf,"property",scope,DECL_PUBLIC )
+		EmitScopeMembers( buf,"method",scope,DECL_PUBLIC )
+		
+'		EmitScopeMembers( buf,"alias",scope,DECL_PUBLIC )
+'		EmitScopeMembers( buf,"enum",scope,DECL_PUBLIC )
+'		EmitScopeMembers( buf,"struct",scope,DECL_PUBLIC )
+'		EmitScopeMembers( buf,"class",scope,DECL_PUBLIC )
+'		EmitScopeMembers( buf,"interface",scope,DECL_PUBLIC )
+'		EmitScopeMembers( buf,"const",scope,DECL_PUBLIC )
+'		EmitScopeMembers( buf,"global",scope,DECL_PUBLIC )
+'		EmitScopeMembers( buf,"function",scope,DECL_PUBLIC )
+		
+		Local docs:=New DocsNode( decl.ident,parent )
+		
+		docs.Markdown=buf.Flush( docs )
+		
+		MakeMemberDocs( ctype.scope,docs )
+	
+		Return docs
+	End
+	#end
+	
+	#rem	
+	Method MakeFuncDocs:DocsNode( flist:FuncList,parent:DocsNode )
+	
+		Local buf:DocsBuffer
+
+		Local scope:=flist.scope
+		
+		For Local func:=Eachin flist.funcs
+
+			Local decl:=func.fdecl
+			If Not decl.IsPublic And Not decl.docs Continue
+			
+			If Not buf
+				buf=New DocsBuffer
+				
+				EmitHeader( buf,decl.ident,parent )
+			Endif
+			
+			buf.Emit( decl.docs )
+		Next
+		
+		If Not buf Return Null
+
+		Local docs:=New DocsNode( flist.ident,parent )
+		
+		docs.Markdown=buf.Flush( docs )
+		
+		Return docs
+	End
+	
+	Method MakeVarDocs:DocsNode( vvar:VarValue,parent:DocsNode )
+		
+		Local decl:=vvar.vdecl
+		Local scope:=vvar.scope
+		
+		Local buf:=New DocsBuffer
+		
+		EmitHeader( buf,decl.ident,parent )
+		
+		buf.Emit( "##### "+decl.kind.Capitalize()+" "+decl.ident+":"+TypeName( vvar.type ) )
+		
+		buf.Emit( decl.docs )
+		
+		Local docs:=New DocsNode( decl.ident,parent )
+		
+		docs.Markdown=buf.Flush( docs )
+		
+		Return docs
+	End
+	#end
+	
+End

src/mx2cc/docs/newmarkdown.monkey2

@@ -0,0 +1,473 @@
+
+Namespace mx2.docs
+
+Class MarkdownConvertor
+
+	Alias LinkResolver:String( link:String,name:String )
+
+	Method New( linkResolver:LinkResolver )
+	
+		_linkResolver=linkResolver
+	End
+	
+	Method ConvertToHtml:String( source:String )
+	
+		_source=source
+		
+		_lines=_source.Split( "~n" )
+
+		_lineNum=0
+
+		_buf.Clear()
+		
+		For Local i:=0 Until _lines.Length
+	
+			_lines[i]=_lines[i].TrimEnd()
+		Next
+		
+		While Not AtEnd
+		
+			Local line:=NextLine()
+		
+			If line.StartsWith( "#" )
+			
+				EmitHeader( line )
+			
+			Else If line.StartsWith( "|" )
+			
+				EmitTable( line )
+				
+			Else If line.StartsWith( "*" )
+			
+				EmitList( line )
+				
+			Else If line.StartsWith( "```" )
+			
+				EmitCode( line )
+				
+			Else If line.StartsWith( "---" )
+			
+				Emit( "<hr class="+_cls+">" )
+				
+			Else If line.StartsWith( "<" )
+			
+				Emit( line+"\" )
+				
+			Else If line
+			
+				If _lineNum>1 And _lines[_lineNum-2]=""
+					Emit( "<p class="+_cls+">"+Escape( line ) )
+				Else
+					Emit( Escape( line ) )
+				Endif
+
+			Else
+			
+'				If Not _buf.Empty And _buf.Top<>"<p>" Emit( "<p>" )
+				
+			Endif
+				
+'			Else 
+			
+'				If _buf.Empty Or _buf.Top="" Emit( "<p>" )
+			
+'				Emit( Escape( line ) )
+			
+'			Endif
+			
+		Wend
+		
+		Local html:=_buf.Join( "~n" )
+		
+		html=html.Replace( "\~n","" )
+		
+		Return html
+	
+	End
+
+	Private
+	
+	Const CHAR_HASH:=35		'#
+	Const CHAR_ESCAPE:=92	'\
+	
+	Field _cls:="~qmx2docs~q"
+	
+	Field _source:String
+	Field _linkResolver:LinkResolver
+	
+	Field _lines:String[]
+	
+	Field _lineNum:=0
+	Field _buf:=New StringStack
+	
+	Property AtEnd:Bool()
+		Return _lineNum>=_lines.Length
+	End
+	
+	Method Emit( str:String )
+		_buf.Push( str )
+	End
+
+	Method NextLine:String()
+		Local line:=_lineNum>=0 And _lineNum<_lines.Length ? _lines[_lineNum] Else ""
+		_lineNum+=1
+		Return line
+	End
+	
+	Method PrevLine:String()
+		_lineNum-=1
+		Local line:=_lineNum>=0 And _lineNum<_lines.Length ? _lines[_lineNum] Else ""
+		Return line
+	End
+	
+	Method Find:Int( str:String,chr:String,index:Int=0 )
+
+		Local i0:=index
+
+		Repeat
+		
+			Local i1:=str.Find( chr,i0 )
+			If i1=-1 Return str.Length
+			
+			i0=i1+chr.Length
+			
+			If i1 And str[i1-1]=CHAR_ESCAPE
+				Continue
+			Endif
+			
+			If chr="[[" Or chr="]]" Return i1
+			
+			Local i2:=str.Find( "]]",i0 )
+			If i2<>-1
+				Local i3:=str.Find( "[[",i0 )
+				If i2<>-1 And (i3=-1 Or i3>i2) continue
+			Endif
+			
+			Return i1
+		Forever
+		
+		Return str.Length
+	End
+
+	Method ReplaceAll:String( str:String,find:String,rep:String,index:Int )
+	
+		Local i0:=index
+		
+		Repeat
+		
+			Local i1:=str.Find( find,i0 )
+			If i1=-1 Exit
+			
+			str=str.Slice( 0,i1 )+rep+str.Slice( i1+find.Length )
+			i0=i1+rep.Length
+		
+		Forever
+		
+		Return str
+	End
+	
+	Method EscapeHtml:String( str:String )
+	
+		'str=str.Replace( "&","&amp;" )
+		Local i0:=0
+		Repeat
+		
+			Local i1:=str.Find( "&",i0 )
+			If i1=-1 Exit
+			
+			Local i2:=str.Find( ";",i1+1 )
+			If i2<>-1 And i2-i1<8
+			
+				Local r:=str.Slice( i1+1,i2 )
+				
+				Const tags:=New String[]( "nbsp" )
+				
+				For Local tag:=Eachin tags
+					If r<>tag Continue
+					
+					i0=i2+1
+					Exit
+				Next
+				
+				If i0>i1 Continue
+			Endif
+			
+			Local r:="&amp;"
+			str=str.Slice( 0,i1 )+r+str.Slice( i1+1 )
+			i0=i1+r.Length
+		
+		Forever
+
+		'str=str.Replace( "<","&lt;" )
+		'str=str.Replace( ">","&gt;" )
+		i0=0
+		Repeat
+		
+			Local i1:=str.Find( "<",i0 )
+			If i1=-1 
+				str=ReplaceAll( str,">","&gt;",i0 )
+				Exit
+			Endif
+			
+			Local i2:=str.Find( ">",i1+1 )
+			If i2=-1
+				str=ReplaceAll( str,"<","&lt;",i1 )
+				Exit
+			Endif
+			
+			Local i3:=str.Find( "<",i1+1 )
+			If i3<>-1 And i3<i2
+				Local r:="&lt;"
+				str=str.Slice( 0,i1 )+r+str.Slice( i1+1 )
+				i0=i1+r.Length
+				Continue
+			Endif
+			
+			Local r:=str.Slice( i1+1,i2 )
+			
+			Const tags:=New String[]( "a href=","/a" )
+			
+			For Local tag:=Eachin tags
+				If Not r.StartsWith( tag ) Continue
+				
+				r=r.Replace( "\","\\" )
+				r=r.Replace( "*","\*" )
+				r=r.Replace( "_","\_" )
+				r=r.Replace( "`","\`" )
+				
+				r="<"+r+">"
+				str=str.Slice( 0,i1 )+r+str.Slice( i2+1 )
+				i0=i1+r.Length
+				Exit
+			Next
+			If i0>i1 Continue
+			
+			r="&lt;"+r+"&gt;"
+			str=str.Slice( 0,i1 )+r+str.Slice( i2+1 )
+			i0=i1+r.Length
+		Forever
+			
+		Return str
+	End
+	
+	
+	Method ConvertSpanTags:String( str:String,tag:String,ent:String )
+	
+		Local op:="<"+ent+">"
+		Local cl:="</"+ent+">"
+	
+		Local i0:=0
+		Repeat
+		
+			Local i1:=Find( str,tag,i0 )
+			If i1=str.Length Return str
+			
+			Local i2:=Find( str,tag,i1+1 )
+			If i2=str.Length Return str
+			
+			Local r:=op+str.Slice( i1+1,i2 )+cl
+			
+			str=str.Slice( 0,i1 )+r+str.Slice( i2+1 )
+			i0=i1+r.Length
+		
+		Forever
+		
+		Return str
+	End
+	
+	Method ConvertSpanLinks:String( str:String )
+	
+		Local i0:=0
+		Repeat
+		
+			Local i1:=Find( str,"[[",i0 )
+			If i1=str.Length Return str
+			
+			Local i2:=Find( str,"]]",i1+2 )
+			If i2=str.Length Return str
+			
+			Local link:=str.Slice( i1+2,i2 ),name:=""
+			
+			Local i3:=link.Find( "|" )
+			If i3<>-1
+				name=link.Slice( i3+1 )
+				link=link.Slice( 0,i3 )
+			Endif
+			
+			Local r:=_linkResolver( link,name )
+			
+			str=str.Slice( 0,i1 )+r+str.Slice( i2+2 )
+			i0=i1+r.Length
+			
+		Forever
+		
+		Return str
+			
+	End
+	
+	Method ConvertEscapeChars:String( str:String )
+	
+		Local i0:=0
+		
+		Repeat
+			Local i1:=str.Find( "\",i0 )
+			If i1=-1 Or i1+1=str.Length Return str
+			
+			str=str.Slice( 0,i1 )+str.Slice( i1+1 )
+			i0=i1+1
+		Forever
+		
+		Return str
+	End
+	
+	Method Escape:String( str:String )
+	
+		str=EscapeHtml( str )
+		
+		'str=ConvertSpanHtml( str )
+		
+		str=ConvertSpanTags( str,"*","b" )
+		str=ConvertSpanTags( str,"_","i" )
+		str=ConvertSpanTags( str,"`","code" )
+
+		str=ConvertEscapeChars( str )
+
+		str=ConvertSpanLinks( str )
+		
+		Return str
+	End
+	
+	Method EmitHeader( line:String )
+
+		Local i:=1
+		While i<line.Length
+			If line[i]<>CHAR_HASH Exit
+			i+=1
+		Wend
+				
+		Emit( "<h"+i+" cls="+_cls+">" )
+		Emit( Escape( line.Slice( i ).TrimStart() ) )
+		Emit( "</h"+i+">" )
+	End
+	
+	Method EmitTable( line:String )
+
+		Local head:=line
+		Local align:=NextLine()
+				
+		If Not align.StartsWith( "|" )
+			Emit( Escape( head ) )
+			PrevLine()
+			Return
+		Endif
+			
+		Local heads:=New StringStack
+		Local aligns:=New StringStack
+				
+		Local i0:=1
+		While i0<head.Length
+			Local i1:=Find( head,"|",i0 )
+			heads.Push( Escape( head.Slice( i0,i1 ).TrimStart() ) )
+			i0=i1+1
+		Wend
+				
+		i0=1
+		While i0<align.Length
+			Local i1:=Find( align,"|",i0 )
+			Local t:=align.Slice( i0,i1 )
+			If t.StartsWith( ":-" )
+				If t.EndsWith( "-:" )
+					aligns.Push( "center" )
+				Else
+					aligns.Push( "left" )
+				Endif
+			Else If t.EndsWith( "-:" )
+				aligns.Push( "right" )
+			Else
+				aligns.Push( "center" )
+			Endif
+			i0=i1+1
+		Wend
+				
+		While aligns.Length<heads.Length
+			aligns.Push( "center" )
+		Wend
+				
+		Emit( "<table class="+_cls+">" )
+
+		Emit( "<tr class="+_cls+">" )
+		For Local i:=0 Until heads.Length
+			Emit( "<th style=~qtext-align:"+aligns[i]+"~q>"+heads[i]+"</th>" )
+		Next
+		Emit( "</tr>" )
+				
+		Repeat
+			Local row:=NextLine()
+			If Not row.StartsWith( "|" ) 
+				PrevLine()
+				Exit
+			Endif
+					
+			Emit( "<tr class="+_cls+">" )
+			Local i0:=1,col:=0
+			While i0<row.Length And col<heads.Length
+				Local i1:=Find( row,"|",i0 )
+				Emit( "<td class="+_cls+" style=~qtext-align:"+aligns[col]+"~q>"+Escape( row.Slice( i0,i1 ).TrimStart() )+"</td>" )
+				i0=i1+1
+				col+=1
+			Wend
+			Emit( "</tr>" )
+		Forever
+				
+		Emit( "</table>" )
+		
+	End
+	
+	Method EmitList( line:String )
+	
+		Local kind:=line.Slice( 0,1 )
+		
+		Select kind
+		Case "*" Emit( "<ul>" )
+		Case "+" Emit( "<ol>" )
+		End
+		
+		Repeat
+		
+			Emit( "<li class="+_cls+">"+Escape( line.Slice( 1 ) )+"</li>" )
+			
+			If AtEnd Exit
+		
+			line=NextLine()
+			If line.StartsWith( kind ) Continue
+			
+			PrevLine()
+			Exit
+
+		Forever
+		
+		Select kind
+		Case "*" Emit( "</ul>" )
+		Case "+" Emit( "</ol>" )
+		End
+	
+	End
+	
+	Method EmitCode( line:String )
+	
+		Emit( "<pre class="+_cls+"><code class="+_cls+">\" )
+	
+		While Not AtEnd
+		
+			line=NextLine()
+			If line.StartsWith( "```" ) Exit
+			
+			Emit( EscapeHtml( line ) )
+			
+		Wend
+		
+		Emit( "</code></pre>" )
+	
+	End
+	
+End