//--------------------------------------------------------------------------------------------------
//
//  @ CopyRight Roberti & Parau Enterprises, Inc.  2021-2023
//
//  This work is licensed under the Creative Commons Attribution-NoDerivatives 4.0 International License.
//  To view a copy of this license, visit http://creativecommons.org/licenses/by-nd/4.0/
//   or send a letter to Creative Commons, PO Box 1866, Mountain View, CA 94042, USA.
//
//--------------------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------------------
//
//	Static class used to format html listing
//
//--------------------------------------------------------------------------------------------------

package	framework;

import 	java.io.File;
import 	java.math.BigInteger;
import 	java.math.MathContext;
import 	java.util.Date;
import 	java.util.LinkedList;
import 	java.util.Map;


public class DVHtmlListing {

	protected	String	getListing(DVStatements statements) {

	    
		String hexCodeHeader= statements.hexCodeHeader;
		int 	maxHexCodeLength= hexCodeHeader.length();
		
		int		lineOffset= 14+maxHexCodeLength;
		String	lineOffsetSpaces= getSpaces(lineOffset);
		
		File 	input= new File(statements.parseInput.getFileName());
		String 	path= input.getAbsolutePath();
		String 	stmtOffsetSpaces= getSpaces(34+lineOffset);
		String 	msgOffsetSpaces= formatCode("\n" + getSpaces(stmtOffsetSpaces.length()-9));
		String 	detailOffsetSpaces= getSpaces(34+lineOffset);
		
		String 	listing= DVHtmlListing.htmlHeader_1 + input.getName() +
			DVHtmlListing.htmlHeader_2 + formatCode("\n\n    DVASM Listing for Input File:    " + path +"\n" +
				"    DVASM execution completed on:    " + (new Date().toString()) + "\n");
		
		//
		//	Print log
		//
		listing+= "<code class='field'>\n\n--- Log Start\n";
		for (String msg : statements.logListFirstPhase)
			listing+= formatLog(msg);
		for (String msg : statements.logListSecondPhase)
			listing+= formatLog(msg);
		listing+= "--- Log End</code>";
		
		//
		//	Initialize variable for macro expansion processing
		//
        int macroNest= 1;
        int macroNestNext= statements.statementList.get(0).lines[0].lineNo.split("\\.", 3).length;
        String  macroName= null;
        LinkedList<String> macroExpansionList= new LinkedList<String>();
		String  expandAllList= "var expandAllList= [";
        boolean macroToggleFlag= false;

		//
		//	Initialize variable for statement listing loop
		//
        DVStatements.Statement lastStatement= statements.getLastStatement();
        int stmtListSize= statements.statementList.size();
        int     stmtNo= 0;
        
        //
        //  Start main statement listing loop
        //
        listing+= "</pre><div class='title' id='stmtHeader'><pre><code class='title'>\n    Code Listing" +
                "\n    Stmt-Number- Macro Name------  Countr   " + hexCodeHeader +
                "   *-----Source-----></code></pre></div><pre>";
             
        boolean eolFlag= true;
        listing+= formatCode("    ");
        for (DVStatements.Statement s : statements.statementList) { 
        	String stmtName= "stmt_" + s.lines[0].lineNo.replace(".",  "_");
        	String stmtListing= "";
        	
        	if (s.warning || s.error)
        		for (DVStatements.Statement xs= s.lines[0].macroParent; xs != null; xs= xs.lines[0].macroParent)
        			if (! (xs.warning && xs.error))
        				macroExpansionList.add("stmt_" + xs.lines[0].lineNo.replace(".",  "_"));
        	
        	int macroNestPrev= macroNest;
        	macroNest= macroNestNext;
        	if (stmtNo+1 < stmtListSize)
        	    macroNestNext= statements.statementList.get(stmtNo+1).lines[0].lineNo.split("\\.").length;
        	else
                macroNestNext= 1;
        	
        	String prefix= "";
        	if (macroNestPrev > macroNest) {
        		for (int i= 0; i < macroNestPrev-macroNest; i++)
        			stmtListing+= "</pre></div>";
    			stmtListing+= "<pre>";
                
                if (macroNest == 1) {
                    macroName= null;
                    this.classPrefix= "";
                }
                
    			prefix= formatCode("    ");
    			eolFlag= true;
        	}
        	
        	if (macroNestPrev < macroNest) {
    	        stmtListing+= "</pre><div id='" + macroName + "_mdiv' style='display: none'><pre>";
                this.classPrefix= "x";
                prefix= formatCode("    ");
                eolFlag= true;
        	}
        	
    	    if (macroNest < macroNestNext) {
    	    	expandAllList+= "\"" + stmtName + "\",";
        		macroName= stmtName;    		
        		stmtListing+= (eolFlag ? "" : formatCode("\n")) +
        			"<code id='" + macroName + "_mxclk'" +
        			" class='mxclk' onclick=\"toggleMacroExpand('" + macroName + "')\">[+]</code>" +
        			"<code id='" + macroName + "_mcclk'" +
        			" class='mcclk' style='display: none' onclick=\"toggleMacroCollapse('" + macroName + "')\">[-]</code>" +
        			formatCode(" ");
        		
        		prefix= "";
        		eolFlag= true;
        		macroToggleFlag= true;
        	}
    	    else
    	    	macroToggleFlag= false;
        	
        	stmtListing+= prefix;
        	
        	if (! eolFlag)
        		stmtListing+= formatCode("\n    ");
        	
    		stmtListing+= formatShortLong(stmtName, s.lines[0].lineNo, "_lns", "_lnl", 12) +
    			formatCode(" ") + formatShortLongRight(stmtName, 
    			s.lines[0].macroExtendedName == "" ? "" : ("|" + s.lines[0].macroExtendedName.substring(1)), 
    			"_mcs", "_mcl", 16) + " ";
        	
        	if (s.symbol == null || s == lastStatement)
        		stmtListing+= formatCode(DVHtmlListing.getSpaces(lineOffset));
        	else {
        		if (s.opCodeProcessor != null) {
        			if (s.opCodeProcessor.getValueInParm() && ! s.opCodeProcessor.getNeedSection()) {
	        			stmtListing+= formatCode("           ");
		        		if (s.symbol.resultValue == null)
		        			stmtListing+= formatShortLong(stmtName, "*** UNRESOLVED ***", "_ets", "_etl", maxHexCodeLength);
		        		else if (s.symbol.resultValue.type == DVExpression.TokenType.STRING)
		        			stmtListing+= formatShortLong(stmtName, "STRING", "_ets", "_etl", 3) +
		        				formatShortLong(stmtName, " \"" + DVUtil.escapeString(s.symbol.resultValue.stringConstant) + 
		        				"\"", "_evs", "_evl", maxHexCodeLength-3);
		        		else if (s.symbol.resultValue.type == DVExpression.TokenType.FLOAT)
		        			stmtListing+= formatShortLong(stmtName, "FLOAT", "_ets", "_etl", 3) + formatShortLong(stmtName,
		        				" " + s.symbol.resultValue.floatConstant.round(DVHtmlListing.precision).toString(),
		        				"_evs", "_evl", maxHexCodeLength-3);
		        		else if (s.symbol.resultValue.type == DVExpression.TokenType.EXTERNAL_VALUE ||
		        			s.symbol.resultValue.type == DVExpression.TokenType.EXTERNAL_VALUE)
		        			stmtListing+= formatShortLong(stmtName, s.symbol.resultValue.type.name(),
		        				"_ets", "_etl", 3) + formatShortLong(stmtName, " " + DVUtil.formatHex(s.symbol.resultValue.intConstant, 8),
					        	"_evs", "_evl", maxHexCodeLength-3);
		        		else {
		        			String type;
		        			if (s.symbol.resultValue.type == DVExpression.TokenType.OFFSET)
		        				type= "OFFSET [" + s.symbol.resultValue.getOffsetSection().name.image + "]";
		        			else
		        				type= s.symbol.resultValue.type.name();
		        			stmtListing+= formatShortLong(stmtName, type, "_ets", "_etl", 3) + formatShortLong(stmtName,
			        			" " + DVUtil.formatHex(s.symbol.resultValue.intConstant, 8),
			        			"_evs", "_evl", maxHexCodeLength-3);
		        		}
		        		stmtListing+= formatCode("   ");
        			}
	        		else {
	        			stmtListing+= s.symbol.resultValue == null ? formatCode("           ") :
	        				formatCode("  " + DVUtil.formatHex(s.symbol.resultValue.intConstant, 6) + "   ");
		        		if (s.genCode != null && s.genCode.hexCode != null)
		        			stmtListing+= formatCode(s.genCode.hexCode + getSpaces(maxHexCodeLength-s.genCode.hexCode.length()) + "   ");
		        		else
		            		stmtListing+= formatCode(DVHtmlListing.getSpaces(maxHexCodeLength) + "   ");
	        		}
        		}
        		else
        			stmtListing+= formatCode("            " + lineOffsetSpaces);
        	}

        	//
        	//  Add statement details
        	//
        	if (s.genCode == null || s.genCode.details == null)
    			stmtListing+= formatCode(new String(s.lines[0].line));
        	else {
                int         x;
                String 		d= s.genCode.details;

                stmtListing+= "<code id=\"" + stmtName + "_detParent\" class=\"" + 
                	this.classPrefix + "detParent\" onclick=\"pullUpDown('" + stmtName + "_detParent', '" + stmtName + "_detail')\"";
                if (macroToggleFlag)
                	stmtListing+= " oncontextmenu= \"toggleMacro('" + macroName + "'); return false;\"";
                stmtListing+= ">" + new String(s.lines[0].line) + "</code>";
                
                stmtListing+= "<code id=\"" + stmtName + "_detail\" class=\"detail\" style=\"display: none\">\n";
                if (d.charAt(d.length()-1) == '\n')
                	d= d.substring(0, d.length()-1);
                while(d.length() > 0) {
                    x= d.indexOf('\n');
                    if (x == -1) {
                        stmtListing+= detailOffsetSpaces + d;
                        d= "";
                    }
                    else {
                    	stmtListing+= detailOffsetSpaces + d.substring(0, x+1);
                    	d= d.substring(x+1);
                    }
                }
        		stmtListing+= "</code>";
        	}
        		
        	for (int lineNo= 1; lineNo < s.lines.length; lineNo++)
        		stmtListing+= formatCode("\n    ") + formatShortLong(stmtName, s.lines[lineNo].lineNo, "_lns", "_lnl", 12) +
        			formatCode(" ") + formatShortLong(stmtName, s.lines[lineNo].macroExtendedName == "" ? "" :
    			    ("|" + s.lines[lineNo].macroExtendedName.substring(1)), "_mcs", "_mcl", 16) +
        			formatCode(DVHtmlListing.getSpaces(lineOffset) + 
        			new String(s.lines[lineNo].line));
    	
        	//
        	//	Add messages
        	//
        	s.firstPhaseMessages.addAll(s.secondPhaseMessages);
            if (! s.firstPhaseMessages.isEmpty()) {
            	char oldC= ' ';
                for (String m : s.firstPhaseMessages) {
                	char c= m.charAt(0);
                	if (c == ' ')
                		c= oldC;
                	else
                		oldC= c;
                	
                	if (c == 'E')
                		stmtListing+= msgOffsetSpaces + "<code class='" + this.classPrefix + "emsg'>" +
            		        escapeCode(m) +"</code>";
                	else if (c == 'W')
                		stmtListing+= msgOffsetSpaces + "<code class='" + this.classPrefix + "wmsg'>" +
            		        escapeCode(m) +"</code>";
                	else
                		stmtListing+= msgOffsetSpaces + formatCode(m);
                }
            }
            eolFlag= false;
        	
        	listing+= stmtListing;
        	stmtNo++;
        }
        
        for (int i= 0; i < this.classPrefix.length(); i++)
            listing+= "</pre></div><pre>";
        this.classPrefix= "";
        
        listing+= "<code class='field', id='stmtEnd'>\n</code>";
        
        //
        //	Add section list
        //
        listing+= "</pre><div class='title' id='sectHeader'><pre><code class='title'>\n    List of Sections" +
            "\n    Name------------  Type---  Align  Size----  External-Name---   ElfType---  ElfAttr-" +
        	"</code></pre></div><pre>";
        
        int n= 0;
        for (Map.Entry<String, DVSections.Section> entry : statements.sections.sectionMap.entrySet()) {
        	DVSections.Section section= entry.getValue();
        	
        	String id= String.format("sec_%d", n);
        	
        	listing+= formatCode("    ") + formatShortLong(id, section.name.image,
        		"_tns", "_tnl", 16) + formatCode("  ") + 
        		formatShortLong(id, section.type.name(), "_tts", "_ttl", 7) +
        		formatCode("  " + DVUtil.formatHex(section.alignValue, 5) + "  " +
        		DVUtil.formatHex(BigInteger.valueOf(section.size), 8));
        	
        	if (section.type == DVSections.SectionType.MMAP) {
        		listing+= formatCode("\n");
        		continue;
        	}
        	
        	String type;
        	if (section.typeValue == null)
        		type= "UNRESOLVED";
        	else if (section.typeValue.equals(DVUtil.sectionTypeProgbits))
        		type= "PROGBITS  ";
        	else if (section.typeValue.equals(DVUtil.sectionTypeNote))
        		type= "NOTE      ";
        	else if (section.typeValue.equals(DVUtil.sectionTypeNobits))
    		type= "NOBITS    ";
        	else
        		type= DVUtil.formatHex(section.typeValue, 8) + "  ";
        	
        	String attr= "";
        	if (section.attributeValue == null)
        		attr= "UNRESOLVED";
        	else {
        		if (! section.attributeValue.and(DVUtil.sectionAttributeAlloc).equals(BigInteger.ZERO))
	        		attr+= "ALLOC+";
	        	if (! section.attributeValue.and(DVUtil.sectionAttributeExec).equals(BigInteger.ZERO))
	        		attr+= "EXECUTE+";
	        	if (! section.attributeValue.and(DVUtil.sectionAttributeWrite).equals(BigInteger.ZERO))
	        		attr+= "WRITE+";
	        	
	        	if (attr.endsWith("+"))
	        		attr= attr.substring(0, attr.length()-1);
	        	else
	        		attr= DVUtil.formatHex(section.attributeValue, 8);
        	}
        	
        	listing+= formatCode("  ") + formatShortLong(id,
        		(section.externalName == null) ? "" : section.externalName, "_txs", "_txl", 16) +
            	formatCode(" ") + formatCode("  " + type + "  " + attr + "\n");
        	
        	n++;
        }
        listing+= "<code class='field', id='sectEnd'>\n</code>";
        
        //
        //	Add symbol list
        //
        listing+=  "</pre><div class='title' id='symbHeader'><pre><code class='title'>\n    List of Symbols" +
        	"\n    Name--------------------  External-Name-----------  " +
            "ExpType----  XBind-----   Type------------------------  " +
        	"Align Len-- Repl-  Size--    Value-or-Relocation-AddEnd---></code></pre></div><pre>";
        
        n= 0;
        for (Map.Entry<String, DVSymbols.Symbol> entry : statements.symbols.symbolMap.entrySet()) {
           	DVSymbols.Symbol symbol= entry.getValue();
           	
        	if (symbol.name.startsWith("#"))
        		continue;
        	
        	String id= String.format("sym_%d", n);
       		
    		String line= "<code id='" + id + "_mxclk'" +
    			" class='mxclk' onclick=\"toggleMacroExpand('" + id + "')\">[+]</code>" +
    			"<code id='" + id + "_mcclk'" +
    			" class='mcclk' style='display: none' onclick=\"toggleMacroCollapse('" + id + "')\">[-]</code>";
        	line+= formatCode(" ") + formatShortLong(id, symbol.name, "_sns", "_snl", 24) +
        		formatCode("  ");
        	
        	String xname= "";
        	if (symbol.isExternal || symbol.isCommon)
        		xname= symbol.externalName;
        	else if (symbol.isExported)
        		xname= symbol.exportName;
        	line+= formatShortLong(id, (xname == null) ? "" : xname, "_xns", "_xnl", 24);
        	
    		String type= "          ";
    		if (symbol.isExported) {
    			if (symbol.exportType == null)
    				type= "UNRESOLVED";
    			else {
	    			if (symbol.exportType.equals(DVUtil.symbolTypeObject))
	    				type= "OBJECT    ";
	    			else if(symbol.exportType.equals(DVUtil.symbolTypeFunc))
	    				type= "FUNCTION  ";
	    			else if (symbol.exportType.equals(DVUtil.symbolTypeFile))
	    				type= "FILE      ";
	    			else
	    				type= DVUtil.formatHex(symbol.exportType, 2) + "        ";
    			}
    		}
    		line+= formatCode("  " + type);
    		
    		String bind= "          ";
    		if (symbol.isExported) {
    			if (symbol.exportBind == null)
    				bind= "UNRESOLVED";
    			else {
	    			if (symbol.exportBind.equals(DVUtil.symbolBindGlobal))
	    				bind= "GLOBAL    ";
	    			else if (symbol.isLocalExported)
	    				bind= "LOCAL     ";
	    			else
	    				bind= DVUtil.formatHex(symbol.exportBind, 2) + "        ";
    			}
    		}
    		else if (symbol.isExternal) {
    			if (symbol.externalBind == null)
    				bind= "UNRESOLVED";
    			else {
	    			if (symbol.externalBind.equals(DVUtil.symbolBindGlobal))
	    				bind= "GLOBAL    ";
	    			else if (symbol.externalBind.equals(DVUtil.symbolBindWeak))
	    				bind= "WEAK      ";
	    			else
	    				bind= DVUtil.formatHex(symbol.externalBind, 2) + "        ";
    			}
    		}
    		line+= formatCode("   " + bind);
    		
    		if (symbol.isCommon)
    			type= "COMMON";
    		else if(symbol.isExternal)
    			type= "EXTERNAL";
    		else if (symbol.owner == null)
    			type= "UDENFINED";
    		else 
    			type= symbol.resultValue == null ? "UNRESOLVED" : 
    				(symbol.resultValue.type != DVExpression.TokenType.OFFSET ? symbol.resultValue.type.name() :
    				"OFFSET [" + symbol.resultValue.getOffsetSection().name.image + "]");
    		
			line+= formatCode("   ") + formatShortLong(id, type, "_sts", "_stl", 28) +
				formatCode("  " + DVUtil.formatHex(symbol.align, 5)) +
				formatCode(" " + DVUtil.formatHex(symbol.length, 5) + " ") +
				formatShortLong(id, DVUtil.formatHex(symbol.resultRepl == null ? null : symbol.resultRepl.intConstant, 5),
					"_rns", "_rnl", 5);
			
			String size= "";
			if (symbol.isCommon)
				size= DVUtil.formatHex(symbol.commonSize, 6);
			else if (! symbol.isExternal)
				size= (symbol.resultRepl == null) ? "UNRESOLVED" :
					DVUtil.formatHex(symbol.resultRepl.intConstant.multiply(symbol.length), 6);
			line+= formatCode("  ") + formatShortLong(id, size, "_sss", "_ssl", 6);
			
			String value= "";
    		if (symbol.resultValue == null) {
    			if (symbol.isExternal || symbol.isCommon)
    				value= "";
    			else
    				value= "UNRESOLVED";
    		}
    		else if (symbol.resultValue.type == DVExpression.TokenType.STRING)
    			value= "\"" + DVUtil.escapeString(symbol.resultValue.stringConstant) + "\"";
    		else if (symbol.resultValue.type == DVExpression.TokenType.FLOAT) 
    			value= symbol.resultValue.floatConstant.round(DVHtmlListing.precision).toString();
    		else 
        		value= DVUtil.formatHex(symbol.resultValue.intConstant, 8);

    		line+= formatCode("    ") + formatShortLong(id, value, "_szs", "_szl", 30);
    		
    		//
    		//	Print symbol cross references
    		//
    		this.classPrefix= "x";
    		line+= "</pre><div id='" + id + "_mdiv' style='display: none'><pre>";
    		line+= formatCode("           Defined    in Statement: " + (symbol.owner == null ? "   N/A" : 
    			symbol.owner.lines[0].lineNo));
    		for (Map.Entry<String, DVStatements.Statement> stmtEntry : symbol.referenceMap.entrySet()) {
    			line+= formatCode("\n           Referenced in Statement: " + stmtEntry.getKey());
    		}
    		line+= "</pre></div><pre>";
    		this.classPrefix= "";
			
        	n++;
        	listing+= line;
        }
        listing+= "<code class='field', id='symbEnd'></code>";
        
        //
        //	Add relocation
        //
        listing+= "</pre><div class='title' id='relcHeader'><pre><code class='title'>\n    List of Relocations" +
        	"\n    Section---------  Offset--  Symbol-Name-------------  " +
        	"Symbol-External-Name----  Relocation-ID-----  AddEnd----------</code></pre></div><pre>";
        
        n= 0;
        for (Map.Entry<String, DVSections.Section> entry : statements.sections.sectionMap.entrySet()) {
        	DVSections.Section section= entry.getValue();
        	
        	if (section.type == DVSections.SectionType.MMAP)
        		continue;
        	
        	for (DVSections.Section.Relocation relocation : section.relocationList) {
        		String id= String.format("rel_%d", n);
        		
        		listing+= formatCode("    ") +
        			formatShortLong(id, section.name.image, "_rts", "_rtl", 16) +
        			formatCode("  " + DVUtil.formatHex(relocation.offset, 8) + "  " ) +
        			formatShortLong(id, relocation.symbol.name, "_rns", "_rnl", 24) + formatCode("  ") +
        			formatShortLong(id, (relocation.symbol.externalName == null) ? "UNDEFINED" :
        			relocation.symbol.externalName, "_rns", "_rnl", 24) + formatCode("  ") +
        			formatShortLong(id, relocation.relocationID.nameID, "_ris", "_ril", 18) + 
        			formatCode("  " + DVUtil.formatHex(relocation.addEnd, 16) + "\n");
        		n++;
        	}
        }
        
        listing+= "<code class='field', id='relcEnd'>\n</code>" + 
        	formatCode("\n    ----- End of DVASM listing -----\n\n" +
    		"    CopyRight Roberti & Parau Enterprises, Inc.  2021\n\n" +
        	"    This work is licensed under the Creative Commons Attribution-NoDerivatives 4.0 International License.\n" +
        	"    To view a copy of this license, visit ") +
        	"<a class='title', href=\"http://creativecommons.org/licenses/by-nd/4.0/\"" +
        	", target= \"_blank\">http://creativecommons.org/licenses/by-nd/4.0</a>" +
        	formatCode("\n" +
        	"    or send a letter to Creative Commons, PO Box 1866, Mountain View, CA 94042, USA.\n\n" +
			"    DVASM&#x2122 is a trademark of Roberti & Parau Enterprises, Inc.\n\n") +
        	DVHtmlListing.htmlTrailer_1 +
        	expandAllList.substring(0, expandAllList.length()-1) + "];\n" ; 
        
        //
        //	Add macro expansions for macro with warnnings or errors
        //
        for (String s : macroExpansionList)
        	listing+= "  toggleMacroExpand('" + s + "');\n";
        
        //
        //	Return the whole HTML listing file
        //
		return listing + DVHtmlListing.htmlTrailer_2;
	}
	
	//
	//	Macro enry for nested macro stack
	//
	class	MacroEntry {
		
		private		MacroEntry(String name, boolean warnErrFlag) {
			this.name= name;
			this.warnErrFlag= warnErrFlag;
		}
		
		private		String		name;
		private		boolean		warnErrFlag;
	}
	
	//
	//	Utility methods
	//
	private		static	String	formatLog(String logEntry) {
    	
		String logPrint= "";
    	
    	int x;
    	while((x= logEntry.indexOf('\n')) >= 0) {
    		if (logEntry.length() == 1)
    			return logPrint + "\n";
    		logPrint+= "    " + logEntry.substring(0, x+1);
    		logEntry= logEntry.substring(x+1);
    	}
    	
    	if (logPrint.toUpperCase().indexOf("WARNING") >= 0)
    		logPrint= "</code><code class='xwmsg'>" + logPrint + "</code><code class='field'>";
    	else if (logPrint.toUpperCase().indexOf("ERROR") >= 0)
    		logPrint= "</code><code class='xemsg'>" + logPrint + "</code><code class='field'>";
    	return logPrint;
    }
    	
	private		static	String	getSpaces(int noSpace) {
		
		String pad= "";
		for (int i= 0; i < noSpace; i++)
			pad+= " ";
		return pad;
	}
	
	private				String	formatCode(String field) {
		return "<code class='" + this.classPrefix + "field'>" + 
	        escapeCode(field) + "</code>";
	}
	
	private				String	formatShortLong(String stmtName, String field, String shortPostfix,
										String longPostfix, int maxLength) {
		
		if (field.length() > maxLength)
			return "<code id='" + stmtName + shortPostfix +
				"' class='" + this.classPrefix + "short' onclick=\"toggleAlternate('" + stmtName + shortPostfix + "', '" +
				stmtName + longPostfix + "')\">" + escapeCode(field.substring(0, maxLength)) + "</code><code id='" +
				stmtName + longPostfix + "' class='long' style=\"display: none\" onclick=\"toggleAlternate('" + 
				stmtName + shortPostfix + "', '" + stmtName + longPostfix + "')\">" + escapeCode(field) + "</code>";

		return "<code class=\"" + this.classPrefix + "field\">" + escapeCode(field) +
	        getSpaces(maxLength-field.length()) + "</code>";
		
	}
	
	private				String	formatShortLongRight(String stmtName, String field, String shortPostfix,
										String longPostfix, int maxLength) {
		
		if (field.length() > maxLength)
			return "<code id='" + stmtName + shortPostfix +
				"' class='" + this.classPrefix + "short' onclick=\"toggleAlternate('" + stmtName + shortPostfix + "', '" +
				stmtName + longPostfix + "')\">" + escapeCode(field.substring(field.length()-maxLength)) + "</code><code id='" +
				stmtName + longPostfix + "' class='long' style=\"display: none\" onclick=\"toggleAlternate('" + 
				stmtName + shortPostfix + "', '" + stmtName + longPostfix + "')\">" + escapeCode(field) + "</code>";

		return "<code class=\"" + this.classPrefix + "field\">" + escapeCode(field) +
	        getSpaces(maxLength-field.length()) + "</code>";
		
	}
	
    private    	String  escapeCode(String source) {
        return source.replaceAll("<", "&lt;").replaceAll(">", "&gt;");
    }
	
	//
	//	Class fields
	//
	private					String		classPrefix= "";
	
	private		static		MathContext	precision= new MathContext(42);
	
	private		static	final	String	htmlHeader_1=			
		"<!DOCTYPE html>\n" + 
		" <html>\n" +
		"  <head>\n" +
		"   <meta charset=\"UTF-8\">" + 
		"   <title>";
	private		static	final	String	htmlHeader_2=
		"</title>\n" +
		"   <script>\n" +
        "   function setColorTheme(ct) {\n" +
        "    eval(\"document.getElementById('listing').style.backgroundColor= \" + ct + \"Background\");\n" +
        "    eval(\"document.getElementsByTagName('STYLE')[1].innerHTML= \" + ct + \"Style;\");\n" +
        "    localStorage.DVASMColorTheme= ct;\n" +
        "   }\n" +
        
        "   function setListingHeight() {\n" +
        "    document.getElementById('listing').style.height=\n" +
        "     ((window.innerHeight * window.devicePixelRatio - document.getElementById(\"header\").clientHeight)) / +\n" +
        "     window.devicePixelRatio - 40 + \"px\";\n" +
        "   }\n" +		
        
        "   function toggleAlternate(fld1, fld2) {\n" +
        "    var t= document.getElementById(fld1).style.display;\n" +
        "    document.getElementById(fld1).style.display= document.getElementById(fld2).style.display;\n" +
        "    document.getElementById(fld2).style.display= t;\n" +
        "   }\n" +	
        
        "   function pullUpDown(parent, detail) {\n" +
        "    var e= document.getElementById(detail).style;\n" +
        "    if (e.display === \"inline\") {\n" +
        "     e.display= \"none\";\n" +
        "	  document.getElementById(parent).style.cursor= 's-resize';\n" +
        "    }\n" +
        "    else {\n" +
        "     e.display= \"inline\";\n" +
        "	  document.getElementById(parent).style.cursor= 'n-resize';\n" +
        "    }\n" +
        "    updateTopValues();\n" +
        "   }\n" +
        
        "   function updateTopValues() {\n" +
        "    stmtEndTop= stmtEnd.offsetTop;\n" +
        "    sectHeaderTop= sectHeader.offsetTop;\n" +
        "    sectEndTop= sectEnd.offsetTop;\n" +
        "    symbHeaderTop= symbHeader.offsetTop;\n" +
        "    symbEndTop= symbEnd.offsetTop;\n" +
        "    relcHeaderTop= relcHeader.offsetTop;\n" +
        "    relcEndTop= relcEnd.offsetTop;\n" +
        "    scrollHeaders();\n" +
        "   }\n" +
        
        "   function scrollHeaders() {\n" +
        "    var delta;\n" +
        "    var top;\n" +
        "    var listScroll= listing.scrollTop+headerHeight;" +

        "    stmtHeader.style.position= 'static';\n" +
        "	 stmtHeaderTop= stmtHeader.offsetTop;\n" +
        "    stmtEndTop= stmtEnd.offsetTop;\n" +
        "    delta= Math.min(listScroll-stmtHeaderTop, Math.max(stmtEndTop-stmtHeaderTop-300, 0));\n" +
        "    if (delta > 0) {\n" +
        "     stmtHeader.style.position= 'relative';\n" +
        "     stmtHeader.style.top= (delta-10) + 'px';\n" +
        "    }\n" +

        "    sectHeader.style.position= 'static';\n" +
        "	 sectHeaderTop= sectHeader.offsetTop;\n" +
        "    sectEndTop= sectEnd.offsetTop;\n" +
        "    delta= Math.min(listScroll-sectHeaderTop, Math.max(sectEndTop-sectHeaderTop-300, 0));\n" +
        "    if (delta <= 0)\n" +
        "     sectHeader.style.position= 'static';\n" +
        "    else {\n"+
        "     sectHeader.style.position= 'relative';\n" +
        "     sectHeader.style.top= (delta-10) + 'px';\n" +
        "    }\n" +

        "    symbHeader.style.position= 'static';\n" +
        "	 symbHeaderTop= symbHeader.offsetTop;\n" +
        "    symbEndTop= symbEnd.offsetTop;\n" +
        "    delta= Math.min(listScroll-symbHeaderTop, Math.max(symbEndTop-symbHeaderTop-300, 0));\n" +
        "    if (delta > 0) {\n" +
        "     symbHeader.style.position= 'relative';\n" +
        "     symbHeader.style.top= (delta-10) + 'px';\n" +
        "    }\n" +

        "    relcHeader.style.position= 'static';\n" +
        "	 relcbHeaderTop= relcHeader.offsetTop;\n" +
        "    relcEndTop= relcEnd.offsetTop;\n" +
        "    delta= Math.min(listScroll-relcHeaderTop, Math.max(relcEndTop-relcHeaderTop-300, 0));\n" +
        "    if (delta > 0) {\n" +
        "     relcHeader.style.position= 'relative';\n" +
        "     relcHeader.style.top= (delta-10) + 'px';\n" +
        "    }\n" +
        "   }\n" +
        
        "   function expandAll() {\n" +
        "    for (var i= 0; i < expandAllList.length; i++)\n" +
        "     toggleMacroExpand(expandAllList[i]);\n" +
        "   }\n" +
        
        "   function toggleMacro(prefix) {\n" +
        "    if (document.getElementById(prefix + '_mxclk').style.display === 'none')\n" +
        "      toggleMacroCollapse(prefix);\n" +
        "    else\n" +
        "      toggleMacroExpand(prefix);\n" +
        "   }\n" +
        
        "   function toggleMacroExpand(prefix) {\n" +
        "    document.getElementById(prefix + '_mxclk').style.display= 'none';\n" +
        "    document.getElementById(prefix + '_mcclk').style.display= 'inline';\n" +
        "    document.getElementById(prefix + '_mdiv').style.display= 'inline';\n" +
        "    updateTopValues();\n" +
        "   }\n" +

        "   function toggleMacroCollapse(prefix) {\n" +
        "    document.getElementById(prefix + '_mxclk').style.display= 'inline';\n" +
        "    document.getElementById(prefix + '_mcclk').style.display= 'none';\n" +
        "    document.getElementById(prefix + '_mdiv').style.display= 'none';\n" +
        "    updateTopValues();\n" +
        "   }\n" +

        "   function stmtListing() {\n" +
        "    stmtHeader.style.position= 'static';\n" +
        "    stmtHeader.scrollIntoView();\n" +
        "   }\n" +
        "   function sectListing() {\n" +
        "    sectHeader.style.position= 'static';\n" +
        "    sectHeader.scrollIntoView();\n" +
        "   }\n" +	
        "   function symListing() {\n" +
        "    symbHeader.style.position= 'static';\n" +
        "    symbHeader.scrollIntoView();\n" +
        "   }\n" +						
        "   function relListing() {\n" +
        "    relcHeader.style.position= 'static';\n" +
        "    relcHeader.scrollIntoView();\n" +
        "   }\n" +						
        "   function getManuals() {\n" +
        "    window.open('https://dvasm.com/downloads', '_blank');\n" +
        "   }\n" +

        "   function printListing() {\n" + 
        "    stmtHeader.style.position= 'static';\n" +
        "    sectHeader.style.position= 'static';\n" +
        "    symbHeader.style.position= 'static';\n" +
        "    relcHeader.style.position= 'static';\n" +
		"	 var currentStyle= document.getElementsByTagName('STYLE')[1].innerHTML;\n" +
        "    var currentBackground= listing.style.backgroundColor;\n" +
        "    listing.style.backgroundColor= printBackground;\n" +
        "    document.getElementsByTagName('STYLE')[1].innerHTML= printStyle;\n" +
		"	 var printHtml= '<html><head><title></title></head><body><div>' + " +
		"     document.all.item('listing').innerHTML + '</div></body></html>';\n" +
		"	 var printHtml= '<div>' + document.all.item('listing').innerHTML;\n" +
        "    listing.style.backgroundColor= currentBackground;\n" +
        "    document.getElementsByTagName('STYLE')[1].innerHTML= currentStyle;\n" +
        "    updateTopValues();\n" +
        
        "    var printWindow= window.open('','','width=1920,height=1080,toolbar=yes');\n" +
        "    printWindow.document.body.innerHTML= printHtml;\n" +
		"	 printWindow.print();\n" +
        "    printWindow.close();\n" +
        "   }\n" +
		
        "  </script>\n" +
        "  <style>\n" +
        "   body { background-color: lightgrey; white-space: nowrap;\n" + 
        "         font-size: 1px; font-family: \"Courier 10 Pitch\", monospace; line-height: 1.2; }\n" +
        "   #liscont { background-color: #101010; padding: 15px; border-style: outset; }\n" +
        "   #listing { background-color: #101010; padding: 0px; border-style: none; }\n" +
        "   div.title { padding: 20px 0px 0px 0px; margin: 0px 0px 0px 0px; border-width: 0px; z-index: 1; }\n" +
        "   code { font-size: 18px; font-family: \"Courier 10 Pitch\", monospace; line-height: 1.2; position: relative; }\n" +
        "   a { font-size: 18px; font-family: \"Courier 10 Pitch\", monospace; line-height: 1.1; position: relative; }\n" +
        "   button { font-size: 16px; border-radius: 0%; font-family: \"Courier 10 Pitch\", monospace;\n" +
        "    margin: 15px; margin-top: 7px; }\n" +
        "  </style>\n" +
        
        "  <style>\n" +
	    "   .title    			{ color: Gold; background: #101010; }\n" +
	    "   .mxclk       		{ color: Gold; }\n" +
	    "   .mxclk:hover 		{ color: Magenta; cursor: s-resize; }\n" +
	    "   .mcclk 				{ color: Gold; }\n" +
	    "   .mcclk:hover 		{ color: Magenta; cursor: n-resize; }\n" +
	    "   .field 				{ color: Lime; }\n" +
        "   .xfield             { color: #D0D0D0; }\n" +
        "   .xxfield            { color: #909090; }\n" +
	    "   .wmsg  				{ color: Yellow; }\n" +
	    "   .xwmsg  			{ color: Yellow; }\n" +
        "   .xxwmsg             { color: Yellow; }\n" +
	    "   .emsg  				{ color: Orange; }\n" +
	    "   .xemsg  			{ color: Orange }\n" +
        "   .xxemsg             { color: Orange }\n" +
	    "   .short 				{ color: Lime; }\n" +
	    "	.short:hover 		{ color: Magenta; cursor: e-resize; }\n" +
        "   .xshort             { color: #D0D0D0; }\n" +
	    " 	.xshort:hover 		{ color: Magenta; cursor: e-resize; }\n" +
        "   .xxshort            { color: #909090; }\n" +
        "   .xxshort:hover      { color: Magenta; cursor: e-resize; }\n" +
	    "   .long 				{ color: Turquoise; }\n" +
	    "   .long:hover 		{ color: Magenta; cursor: w-resize; }\n" +
	    "   .detail 			{ color: Turquoise; float: left; }\n" +
	    " 	.detParent 			{ color: Lime; float: left; }\n" +
	    "   .detParent:hover 	{ color: Magenta; cursor: s-resize; float: left; }\n" +
        "   .xdetParent         { color: #D0D0D0; float: left; }\n" +
	    "   .xdetParent:hover	{ color: Magenta; cursor: s-resize; }\n" +
        "   .xxdetParent        { color: #909090; float: left; }\n" +
        "   .xxdetParent:hover  { color: Magenta; cursor: s-resize; }\n" +
        "  </style>\n" +
        
        "  </head>\n" +
        "  <body style=\"overflow: hidden\" onresize=\"setListingHeight()\">\n" +
        "   <div id=\"header\" style=\"margin: 0; padding: 0\">\n" +
        "    <button style=\"margin-left: 0; border-width: thin\" onclick=\"location.reload()\">Reload</button>\n" +
        "    <button style=\"border-width: thin\" onclick=\"expandAll()\">Expand All</button>\n" +
        "    <button style=\"border-width: thin\" onclick=\"stmtListing()\">Statement Listing</button>\n" +
        "    <button style=\"border-width: thin\" onclick=\"sectListing()\">Section Listing</button>\n" +
        "    <button style=\"border-width: thin\" onclick=\"symListing()\">Symbol Listing</button>\n" +
        "    <button style=\"border-width: thin\" onclick=\"relListing()\">Relocation Listing</button>\n" +
        "    <button style=\"border-width: thin\" onclick=\"getManuals()\">DVASM Manuals</button>\n" +
        "    <button style=\"border-width: thin; background-color: #101010\" onclick=\"setColorTheme('dark')\">&nbsp</button>\n" +
        "    <button style=\"border-width: thin; background-color: #F8F8F8\" onclick=\"setColorTheme('light')\">&nbsp</button>\n" +
        "    <button style=\"border-width: thin\" onclick=\"printListing()\">Print</button>\n" +
        "    </div>\n" + 
        "  <div id=\"listcont\" style=\"max-height: 100%; max-width: 100%\">" +
        "  <div id=\"listing\" style=\"overflow: auto\" onscroll='scrollHeaders()'><pre>";
	
	private		static	final	String	htmlTrailer_1=		
	    "  </pre></div></div>\n" +
	    "  <script>\n" +
	    "   darkBackground= \"#101010\";\n" +
	    "   darkStyle= \n" +
	    "    \".title    			{ color: Gold; background: #101010; }\" + \n" +
	    "    \".mxclk       		{ color: Gold; }\" + \n" +
	    "    \".mxclk:hover 		{ color: Magenta; cursor: s-resize; }\" + \n" +
	    "    \".mcclk 				{ color: Gold; }\" + \n" +
	    "    \".mcclk:hover 		{ color: Magenta; cursor: n-resize; }\" + \n" +
	    "    \".field 				{ color: Lime; }\" + \n" +
	    "    \".xfield 				{ color: #D0D0D0; }\" + \n" +
        "    \".xxfield             { color: #909090; }\" + \n" +
	    "    \".wmsg  				{ color: Gold; }\" + \n" +
	    "    \".xwmsg  				{ color: Gold; }\" + \n" +
        "    \".xxwmsg              { color: Gold; }\" + \n" +
	    "    \".emsg  				{ color: OrangeRed; }\" + \n" +
	    "    \".xemsg  				{ color: OrangeRed }\" + \n" +
        "    \".xxemsg              { color: OrangeRed }\" + \n" +
	    "    \".short 				{ color: Lime; }\" + \n" +
	    "	 \".short:hover 		{ color: Magenta; cursor: e-resize; }\" + \n" +
	    "    \".xshort 				{ color: #D0D0D0; }\" + \n" +
	    " 	 \".xshort:hover 		{ color: Magenta; cursor: e-resize; }\" + \n" +
        "    \".xxshort             { color: #909090; }\" + \n" +
        "    \".xxshort:hover       { color: Magenta; cursor: e-resize; }\" + \n" +
	    "    \".long 				{ color: Turquoise; }\" + \n" +
	    "    \".long:hover 			{ color: Magenta; cursor: w-resize; }\" +\n" +
	    "    \".detail 				{ color: Turquoise; }\" + \n" +
	    " 	 \".detParent 			{ color: Lime; }\" + \n" +
	    "    \".detParent:hover 	{ color: Magenta; cursor: s-resize; }\" + \n" +
	    "	 \".xdetParent 			{ color: #D0D0D0; }\" + \n" +
	    "    \".xdetParent:hover	{ color: Magenta; cursor: s-resize; }\" + \n" +
        "    \".xxdetParent         { color: #909090; }\" + \n" +
        "    \".xxdetParent:hover   { color: Magenta; cursor: s-resize; }\";\n" +
	    
	    "  lightBackground= \"#F8F8F8\";\n" +
	    "  lightStyle= \n" +
	    "    \".title    			{ color: DarkGreen; background: #F8F8F8; }\" + \n" +
	    "    \".mxclk 				{ color: DarkGreen; }\" + \n" +
	    "    \".mxclk:hover 		{ color: Magenta; font-weight: bold; cursor: s-resize; }\" + \n" +
	    "    \".mcclk 				{ color: DarkGreen; }\" + \n" +
	    "    \".mcclk:hover 		{ color: Magenta; font-weight: bold; cursor: n-resize; }\" + \n" +
	    "    \".field 				{ color: Maroon; }\" + \n" +
	    "    \".xfield 				{ color: Black; }\" + \n" +
        "    \".xxfield             { color: Black; }\" + \n" +
	    "    \".wmsg  				{ color: DarkGreen; font-weight: bold; }\" + \n" +
	    "    \".xwmsg  				{ color: DarkGreen; font-weight: bold; }\" + \n" +
        "    \".xxwmsg              { color: DarkGreen; font-weight: bold; }\" + \n" +
	    "    \".emsg  				{ color: DarkViolet; font-weight: bold; }\" + \n" +
	    "    \".xemsg  				{ color: DarkViolet; font-weight: bold; }\" + \n" +
        "    \".xxemsg              { color: DarkViolet; font-weight: bold; }\" + \n" +
	    "    \".short 				{ color: Brown; }\" + \n" +
	    "    \".short:hover 		{ color: Magenta; font-weight: bold; cursor: e-resize; }\" + \n" +
	    "    \".xshort 				{ color: DarkBrown; }\" + \n" +
	    "    \".xshort:hover 		{ color: Magenta; font-weight: bold; cursor: e-resize; }\" + \n" +
        "    \".xxshort             { color: DarkBrown; }\" + \n" +
        "    \".xxshort:hover       { color: Magenta; font-weight: bold; cursor: e-resize; }\" + \n" +
	    "    \".long 				{ color: Blue; }\" + \n" +
	    "    \".long:hover 			{ color: Magenta; font-weight: bold; cursor: w-resize; }\" + \n" +
	    "    \".detail 				{ color: Blue; }\" + \n" +
	    "    \".detParent 			{ color: Brown; }\" + \n" +
	    "    \".detParent:hover 	{ color: Magenta; font-weight: bold; cursor: s-resize; }\" + \n" +
	    "    \".xdetParent 			{ color: Black; }\" + \n" +
	    "    \".xdetParent:hover 	{ color: Magenta; font-weight: bold; cursor: s-resize; }\" +\n" +
        "    \".xxdetParent         { color: Black; }\" + \n" +
        "    \".xxdetParent:hover   { color: Magenta; font-weight: bold; cursor: s-resize; }\";\n" +
	    
	    "   printBackground= 'White';\n" +
	    "   printStyle= \n" +
	    "    \".title, .mxclk, .mcclk, .field, .xfield, .xxfield, .wmsg, .xwmsg, .xxwmsg, .emsg, .xemsg, .xxemsg," +
	    "   .short, .xshort, .xxshort, .long, \" + \n" +
	    "    \".detail, .detParent, .xdetParent, .xxdetParent { color: Black; backgroundColor: White; }\";\n" +
	    
        "  var headerHeight= document.getElementById('header').getBoundingClientRect().height;\n" +
        "  var listing= document.getElementById('listing');\n" +
        
        "  var stmtHeader= document.getElementById('stmtHeader');\n" +
        "  var stmtHeaderTop= stmtHeader.offsetTop;\n" +
        "  var stmtEnd= document.getElementById('stmtEnd');\n" +
        "  var stmtEndTop= stmtEnd.offsetTop;\n" +
        "  var sectHeader= document.getElementById('sectHeader');\n" +
        "  var sectHeaderTop= sectHeader.offsetTop;\n" +
        "  var sectEnd= document.getElementById('sectEnd');\n" +
        "  var sectEndTop= sectEnd.offsetTop;\n" +
        "  var symbHeader= document.getElementById('symbHeader');\n" +
        "  var symbHeaderTop= symbHeader.offsetTop;\n" +
        "  var symbEnd= document.getElementById('symbEnd');\n" +
        "  var symbEndTop= symbEnd.offsetTop;\n" +
        "  var relcHeader= document.getElementById('relcHeader');\n" +
        "  var relcHeaderTop= relcHeader.offsetTop;\n" +
        "  var relcEnd= document.getElementById('relcEnd');\n" +
        "  var relcEndTop= relcEnd.offsetTop;\n" +
        
	    "  var ct= localStorage.DVASMColorTheme;\n" +
	    "  if (ct != 'dark' && ct != 'light')\n" +
	    "   ct= 'dark';\n" +
	    "   setColorTheme(ct);\n" +
	    "  setListingHeight();\n";	

	private		static	final	String	htmlTrailer_2=
	    "  </script>\n" +
	    " </body>\n" +
	    "</html>\n";
}