(translation to Java)
* @version 1.0, 1999/05/22
* @version 1.0.1, 1999/05/29
* @version 1.1, 1999/06/18 Java Bean
* @version 1.2, 1999/07/10 Tidy Release 7 Jul 1999
* @version 1.3, 1999/07/30 Tidy Release 26 Jul 1999
* @version 1.4, 1999/09/04 DOM support
* @version 1.5, 1999/10/23 Tidy Release 27 Sep 1999
* @version 1.6, 1999/11/01 Tidy Release 22 Oct 1999
* @version 1.7, 1999/12/06 Tidy Release 30 Nov 1999
* @version 1.8, 2000/01/22 Tidy Release 13 Jan 2000
* @version 1.9, 2000/06/03 Tidy Release 30 Apr 2000
* @version 1.10, 2000/07/22 Tidy Release 8 Jul 2000
* @version 1.11, 2000/08/16 Tidy Release 4 Aug 2000
*/
/*
Given a file stream fp it returns a sequence of tokens.
GetToken(fp) gets the next token
UngetToken(fp) provides one level undo
The tags include an attribute list:
- linked list of attribute/value nodes
- each node has 2 null-terminated strings.
- entities are replaced in attribute values
white space is compacted if not in preformatted mode
If not in preformatted mode then leading white space
is discarded and subsequent white space sequences
compacted to single space chars.
If XmlTags is no then Tag names are folded to upper
case and attribute names to lower case.
Not yet done:
- Doctype subset and marked sections
*/
import java.io.PrintWriter;
import java.util.Stack;
import java.util.Vector;
import org.eclipse.core.resources.IFile;
public class Lexer {
private IFile iFile;
public StreamIn in; /* file stream */
public PrintWriter errout; /* error output stream */
public short badAccess; /* for accessibility errors */
public short badLayout; /* for bad style errors */
public short badChars; /* for bad char encodings */
public short badForm; /* for mismatched/mispositioned form tags */
public short warnings; /* count of warnings in this document */
public short errors; /* count of errors */
public int lines; /* lines seen */
public int columns; /* at start of current token */
public boolean waswhite; /* used to collapse contiguous white space */
public boolean pushed; /* true after token has been pushed back */
public boolean insertspace; /* when space is moved after end tag */
public boolean excludeBlocks; /* Netscape compatibility */
public boolean exiled; /* true if moved out of table */
public boolean isvoyager; /* true if xmlns attribute on html element */
public short versions; /* bit vector of HTML versions */
public int doctype; /* version as given by doctype (if any) */
public boolean badDoctype; /* e.g. if html or PUBLIC is missing */
public int txtstart; /* start of current node */
public int txtend; /* end of current node */
public short state; /* state of lexer's finite state machine */
public Node token;
/*
lexer character buffer
parse tree nodes span onto this buffer
which contains the concatenated text
contents of all of the elements.
lexsize must be reset for each file.
*/
public byte[] lexbuf; /* byte buffer of UTF-8 chars */
public int lexlength; /* allocated */
public int lexsize; /* used */
/* Inline stack for compatibility with Mosaic */
public Node inode; /* for deferring text node */
public int insert; /* for inferring inline tags */
public Stack istack;
public int istackbase; /* start of frame */
public Style styles; /* used for cleaning up presentation markup */
public Configuration configuration;
protected int seenBodyEndTag; /* used by parser */
private Vector nodeList;
public Lexer(IFile iFile, StreamIn in, Configuration configuration)
{
this.iFile = iFile;
this.in = in;
this.lines = 1;
this.columns = 1;
this.state = LEX_CONTENT;
this.badAccess = 0;
this.badLayout = 0;
this.badChars = 0;
this.badForm = 0;
this.warnings = 0;
this.errors = 0;
this.waswhite = false;
this.pushed = false;
this.insertspace = false;
this.exiled = false;
this.isvoyager = false;
this.versions = Dict.VERS_EVERYTHING;
this.doctype = Dict.VERS_UNKNOWN;
this.badDoctype = false;
this.txtstart = 0;
this.txtend = 0;
this.token = null;
this.lexbuf = null;
this.lexlength = 0;
this.lexsize = 0;
this.inode = null;
this.insert = -1;
this.istack = new Stack();
this.istackbase = 0;
this.styles = null;
this.configuration = configuration;
this.seenBodyEndTag = 0;
this.nodeList = new Vector();
}
public IFile getIFile() {
return iFile;
}
public Node newNode()
{
Node node = new Node();
nodeList.addElement(node);
return node;
}
public Node newNode(short type, byte[] textarray, int start, int end)
{
Node node = new Node(type, textarray, start, end);
nodeList.addElement(node);
return node;
}
public Node newNode(short type, byte[] textarray, int start, int end, String element)
{
Node node = new Node(type, textarray, start, end, element, configuration.tt);
nodeList.addElement(node);
return node;
}
public Node cloneNode(Node node)
{
Node cnode = (Node)node.clone();
nodeList.addElement(cnode);
for (AttVal att = cnode.attributes; att != null; att = att.next) {
if (att.asp != null)
nodeList.addElement(att.asp);
if (att.php != null)
nodeList.addElement(att.php);
}
return cnode;
}
public AttVal cloneAttributes(AttVal attrs)
{
AttVal cattrs = (AttVal)attrs.clone();
for (AttVal att = cattrs; att != null; att = att.next) {
if (att.asp != null)
nodeList.addElement(att.asp);
if (att.php != null)
nodeList.addElement(att.php);
}
return cattrs;
}
protected void updateNodeTextArrays(byte[] oldtextarray, byte[] newtextarray)
{
Node node;
for (int i = 0; i < nodeList.size(); i++) {
node = (Node)(nodeList.elementAt(i));
if (node.textarray == oldtextarray)
node.textarray = newtextarray;
}
}
/* used for creating preformatted text from Word2000 */
public Node newLineNode()
{
Node node = newNode();
node.textarray = this.lexbuf;
node.start = this.lexsize;
addCharToLexer((int)'\n');
node.end = this.lexsize;
return node;
}
// Should always be able convert to/from UTF-8, so encoding exceptions are
// converted to an Error to avoid adding throws declarations in
// lots of methods.
public static byte[] getBytes(String str) {
try {
return str.getBytes("UTF8");
} catch (java.io.UnsupportedEncodingException e) {
throw new Error("string to UTF-8 conversion failed: " + e.getMessage());
}
}
public static String getString(byte[] bytes, int offset, int length) {
try {
return new String(bytes, offset, length, "UTF8");
} catch (java.io.UnsupportedEncodingException e) {
throw new Error("UTF-8 to string conversion failed: " + e.getMessage());
}
}
public boolean endOfInput()
{
return this.in.isEndOfStream();
}
public void addByte(int c)
{
if (this.lexsize + 1 >= this.lexlength)
{
while (this.lexsize + 1 >= this.lexlength)
{
if (this.lexlength == 0)
this.lexlength = 8192;
else
this.lexlength = this.lexlength * 2;
}
byte[] temp = this.lexbuf;
this.lexbuf = new byte[ this.lexlength ];
if (temp != null)
{
System.arraycopy( temp, 0, this.lexbuf, 0, temp.length );
updateNodeTextArrays(temp, this.lexbuf);
}
}
this.lexbuf[this.lexsize++] = (byte)c;
this.lexbuf[this.lexsize] = (byte)'\0'; /* debug */
}
public void changeChar(byte c)
{
if (this.lexsize > 0)
{
this.lexbuf[this.lexsize-1] = c;
}
}
/* store char c as UTF-8 encoded byte stream */
public void addCharToLexer(int c)
{
if (c < 128)
addByte(c);
else if (c <= 0x7FF)
{
addByte(0xC0 | (c >> 6));
addByte(0x80 | (c & 0x3F));
}
else if (c <= 0xFFFF)
{
addByte(0xE0 | (c >> 12));
addByte(0x80 | ((c >> 6) & 0x3F));
addByte(0x80 | (c & 0x3F));
}
else if (c <= 0x1FFFFF)
{
addByte(0xF0 | (c >> 18));
addByte(0x80 | ((c >> 12) & 0x3F));
addByte(0x80 | ((c >> 6) & 0x3F));
addByte(0x80 | (c & 0x3F));
}
else
{
addByte(0xF8 | (c >> 24));
addByte(0x80 | ((c >> 18) & 0x3F));
addByte(0x80 | ((c >> 12) & 0x3F));
addByte(0x80 | ((c >> 6) & 0x3F));
addByte(0x80 | (c & 0x3F));
}
}
public void addStringToLexer(String str)
{
for ( int i = 0; i < str.length(); i++ ) {
addCharToLexer( (int)str.charAt(i) );
}
}
/*
No longer attempts to insert missing ';' for unknown
enitities unless one was present already, since this
gives unexpected results.
For example:
was tidied to:
rather than:
My thanks for Maurice Buxton for spotting this.
*/
public void parseEntity(short mode)
{
short map;
int start;
boolean first = true;
boolean semicolon = false;
boolean numeric = false;
int c, ch, startcol;
String str;
start = this.lexsize - 1; /* to start at "&" */
startcol = this.in.curcol - 1;
while (true)
{
c = this.in.readChar();
if (c == StreamIn.EndOfStream) break;
if (c == ';')
{
semicolon = true;
break;
}
if (first && c == '#')
{
addCharToLexer(c);
first = false;
numeric = true;
continue;
}
first = false;
map = MAP((char)c);
/* AQ: Added flag for numeric entities so that numeric entities
with missing semi-colons are recognized.
Eg. "rep..." is recognized as "rep"
*/
if (numeric && ((c == 'x') || ((map & DIGIT) != 0)))
{
addCharToLexer(c);
continue;
}
if (!numeric && ((map & NAMECHAR) != 0))
{
addCharToLexer(c);
continue;
}
/* otherwise put it back */
this.in.ungetChar(c);
break;
}
str = getString( this.lexbuf, start, this.lexsize - start );
ch = EntityTable.getDefaultEntityTable().entityCode( str );
/* deal with unrecognized entities */
if (ch <= 0)
{
/* set error position just before offending chararcter */
this.lines = this.in.curline;
this.columns = startcol;
if (this.lexsize > start +1 )
{
Report.entityError(this, Report.UNKNOWN_ENTITY, str, ch);
if (semicolon)
addCharToLexer(';');
}
else /* naked & */
{
Report.entityError(this, Report.UNESCAPED_AMPERSAND, str, ch);
}
}
else
{
if (c != ';') /* issue warning if not terminated by ';' */
{
/* set error position just before offending chararcter */
this.lines = this.in.curline;
this.columns = startcol;
Report.entityError(this, Report.MISSING_SEMICOLON, str, c);
}
this.lexsize = start;
if (ch == 160 && (mode & Preformatted) != 0)
ch = ' ';
addCharToLexer(ch);
if (ch == '&' && !this.configuration.QuoteAmpersand)
{
addCharToLexer('a');
addCharToLexer('m');
addCharToLexer('p');
addCharToLexer(';');
}
}
}
public char parseTagName()
{
short map;
int c;
/* fold case of first char in buffer */
c = this.lexbuf[this.txtstart];
map = MAP((char)c);
if (!this.configuration.XmlTags && (map & UPPERCASE) != 0)
{
c += (int)((int)'a' - (int)'A');
this.lexbuf[this.txtstart] = (byte)c;
}
while (true)
{
c = this.in.readChar();
if (c == StreamIn.EndOfStream) break;
map = MAP((char)c);
if ((map & NAMECHAR) == 0)
break;
/* fold case of subsequent chars */
if (!this.configuration.XmlTags && (map & UPPERCASE) != 0)
c += (int)((int)'a' - (int)'A');
addCharToLexer(c);
}
this.txtend = this.lexsize;
return (char)c;
}
public void addStringLiteral(String str)
{
for ( int i = 0; i < str.length(); i++ ) {
addCharToLexer( (int)str.charAt(i) );
}
}
/* choose what version to use for new doctype */
public short HTMLVersion()
{
short versions;
versions = this.versions;
if ((versions & Dict.VERS_HTML20) != 0)
return Dict.VERS_HTML20;
if ((versions & Dict.VERS_HTML32) != 0)
return Dict.VERS_HTML32;
if ((versions & Dict.VERS_HTML40_STRICT) != 0)
return Dict.VERS_HTML40_STRICT;
if ((versions & Dict.VERS_HTML40_LOOSE) != 0)
return Dict.VERS_HTML40_LOOSE;
if ((versions & Dict.VERS_FRAMES) != 0)
return Dict.VERS_FRAMES;
return Dict.VERS_UNKNOWN;
}
public String HTMLVersionName()
{
short guessed;
int j;
guessed = apparentVersion();
for (j = 0; j < W3CVersion.length; ++j)
{
if (guessed == W3CVersion[j].code)
{
if (this.isvoyager)
return W3CVersion[j].voyagerName;
return W3CVersion[j].name;
}
}
return null;
}
/* add meta element for Tidy */
public boolean addGenerator(Node root)
{
AttVal attval;
Node node;
Node head = root.findHEAD(configuration.tt);
if (head != null)
{
for (node = head.content; node != null; node = node.next)
{
if (node.tag == configuration.tt.tagMeta)
{
attval = node.getAttrByName("name");
if (attval != null && attval.value != null &&
Lexer.wstrcasecmp(attval.value, "generator") == 0)
{
attval = node.getAttrByName("content");
if (attval != null && attval.value != null &&
attval.value.length() >= 9 &&
Lexer.wstrcasecmp(attval.value.substring(0, 9), "HTML Tidy") == 0)
{
return false;
}
}
}
}
node = this.inferredTag("meta");
node.addAttribute("content", "HTML Tidy, see www.w3.org");
node.addAttribute("name", "generator");
Node.insertNodeAtStart(head, node);
return true;
}
return false;
}
/* return true if substring s is in p and isn't all in upper case */
/* this is used to check the case of SYSTEM, PUBLIC, DTD and EN */
/* len is how many chars to check in p */
private static boolean findBadSubString(String s, String p, int len)
{
int n = s.length();
int i = 0;
String ps;
while (n < len)
{
ps = p.substring(i, i + n);
if (wstrcasecmp(s, ps) == 0)
return (!ps.equals(s.substring(0, n)));
++i;
--len;
}
return false;
}
public boolean checkDocTypeKeyWords(Node doctype)
{
int len = doctype.end - doctype.start;
String s = getString(this.lexbuf, doctype.start, len);
return !(
findBadSubString("SYSTEM", s, len) ||
findBadSubString("PUBLIC", s, len) ||
findBadSubString("//DTD", s, len) ||
findBadSubString("//W3C", s, len) ||
findBadSubString("//EN", s, len)
);
}
/* examine to identify version */
public short findGivenVersion(Node doctype)
{
String p, s;
int i, j;
int len;
String str1;
String str2;
/* if root tag for doctype isn't html give up now */
str1 = getString(this.lexbuf, doctype.start, 5);
if (wstrcasecmp(str1, "html ") != 0)
return 0;
if (!checkDocTypeKeyWords(doctype))
Report.warning(this, doctype, null, Report.DTYPE_NOT_UPPER_CASE);
/* give up if all we are given is the system id for the doctype */
str1 = getString(this.lexbuf, doctype.start + 5, 7);
if (wstrcasecmp(str1, "SYSTEM ") == 0)
{
/* but at least ensure the case is correct */
if (!str1.substring(0, 6).equals("SYSTEM"))
System.arraycopy( getBytes("SYSTEM"), 0,
this.lexbuf, doctype.start + 5, 6 );
return 0; /* unrecognized */
}
if (wstrcasecmp(str1, "PUBLIC ") == 0)
{
if (!str1.substring(0, 6).equals("PUBLIC"))
System.arraycopy( getBytes("PUBLIC "), 0,
this.lexbuf, doctype.start + 5, 6 );
}
else
this.badDoctype = true;
for (i = doctype.start; i < doctype.end; ++i)
{
if (this.lexbuf[i] == (byte)'"')
{
str1 = getString( this.lexbuf, i + 1, 12 );
str2 = getString( this.lexbuf, i + 1, 13 );
if (str1.equals("-//W3C//DTD "))
{
/* compute length of identifier e.g. "HTML 4.0 Transitional" */
for (j = i + 13; j < doctype.end && this.lexbuf[j] != (byte)'/'; ++j);
len = j - i - 13;
p = getString( this.lexbuf, i + 13, len );
for (j = 1; j < W3CVersion.length; ++j)
{
s = W3CVersion[j].name;
if (len == s.length() && s.equals(p))
return W3CVersion[j].code;
}
/* else unrecognized version */
}
else if (str2.equals("-//IETF//DTD "))
{
/* compute length of identifier e.g. "HTML 2.0" */
for (j = i + 14; j < doctype.end && this.lexbuf[j] != (byte)'/'; ++j);
len = j - i - 14;
p = getString( this.lexbuf, i + 14, len );
s = W3CVersion[0].name;
if (len == s.length() && s.equals(p))
return W3CVersion[0].code;
/* else unrecognized version */
}
break;
}
}
return 0;
}
public void fixHTMLNameSpace(Node root, String profile)
{
Node node;
AttVal prev, attr;
for (node = root.content;
node != null && node.tag != configuration.tt.tagHtml; node = node.next);
if (node != null)
{
prev = null;
for (attr = node.attributes; attr != null; attr = attr.next)
{
if (attr.attribute.equals("xmlns"))
break;
prev = attr;
}
if (attr != null)
{
if (!attr.value.equals(profile))
{
Report.warning(this, node, null, Report.INCONSISTENT_NAMESPACE);
attr.value = profile;
}
}
else
{
attr = new AttVal( node.attributes, null, (int)'"',
"xmlns", profile );
attr.dict =
AttributeTable.getDefaultAttributeTable().findAttribute( attr );
node.attributes = attr;
}
}
}
public boolean setXHTMLDocType(Node root)
{
String fpi = " ";
String sysid = "";
String namespace = XHTML_NAMESPACE;
Node doctype;
doctype = root.findDocType();
if (configuration.docTypeMode == Configuration.DOCTYPE_OMIT)
{
if (doctype != null)
Node.discardElement(doctype);
return true;
}
if (configuration.docTypeMode == Configuration.DOCTYPE_AUTO)
{
/* see what flavor of XHTML this document matches */
if ((this.versions & Dict.VERS_HTML40_STRICT) != 0)
{ /* use XHTML strict */
fpi = "-//W3C//DTD XHTML 1.0 Strict//EN";
sysid = voyager_strict;
}
else if ((this.versions & Dict.VERS_LOOSE) != 0)
{
fpi = "-//W3C//DTD XHTML 1.0 Transitional//EN";
sysid = voyager_loose;
}
else if ((this.versions & Dict.VERS_FRAMES) != 0)
{ /* use XHTML frames */
fpi = "-//W3C//DTD XHTML 1.0 Frameset//EN";
sysid = voyager_frameset;
}
else /* lets assume XHTML transitional */
{
fpi = "-//W3C//DTD XHTML 1.0 Transitional//EN";
sysid = voyager_loose;
}
}
else if (configuration.docTypeMode == Configuration.DOCTYPE_STRICT)
{
fpi = "-//W3C//DTD XHTML 1.0 Strict//EN";
sysid = voyager_strict;
}
else if (configuration.docTypeMode == Configuration.DOCTYPE_LOOSE)
{
fpi = "-//W3C//DTD XHTML 1.0 Transitional//EN";
sysid = voyager_loose;
}
fixHTMLNameSpace(root, namespace);
if (doctype == null)
{
doctype = newNode(Node.DocTypeTag, this.lexbuf, 0, 0);
doctype.next = root.content;
doctype.parent = root;
doctype.prev = null;
root.content = doctype;
}
if (configuration.docTypeMode == Configuration.DOCTYPE_USER &&
configuration.docTypeStr != null)
{
fpi = configuration.docTypeStr;
sysid = "";
}
this.txtstart = this.lexsize;
this.txtend = this.lexsize;
/* add public identifier */
addStringLiteral("html PUBLIC ");
/* check if the fpi is quoted or not */
if (fpi.charAt(0) == '"')
addStringLiteral(fpi);
else
{
addStringLiteral("\"");
addStringLiteral(fpi);
addStringLiteral("\"");
}
if (sysid.length() + 6 >= this.configuration.wraplen)
addStringLiteral("\n\"");
else
addStringLiteral("\n \"");
/* add system identifier */
addStringLiteral(sysid);
addStringLiteral("\"");
this.txtend = this.lexsize;
doctype.start = this.txtstart;
doctype.end = this.txtend;
return false;
}
public short apparentVersion()
{
switch (this.doctype)
{
case Dict.VERS_UNKNOWN:
return HTMLVersion();
case Dict.VERS_HTML20:
if ((this.versions & Dict.VERS_HTML20) != 0)
return Dict.VERS_HTML20;
break;
case Dict.VERS_HTML32:
if ((this.versions & Dict.VERS_HTML32) != 0)
return Dict.VERS_HTML32;
break; /* to replace old version by new */
case Dict.VERS_HTML40_STRICT:
if ((this.versions & Dict.VERS_HTML40_STRICT) != 0)
return Dict.VERS_HTML40_STRICT;
break;
case Dict.VERS_HTML40_LOOSE:
if ((this.versions & Dict.VERS_HTML40_LOOSE) != 0)
return Dict.VERS_HTML40_LOOSE;
break; /* to replace old version by new */
case Dict.VERS_FRAMES:
if ((this.versions & Dict.VERS_FRAMES) != 0)
return Dict.VERS_FRAMES;
break;
}
Report.warning(this, null, null, Report.INCONSISTENT_VERSION);
return this.HTMLVersion();
}
/* fixup doctype if missing */
public boolean fixDocType(Node root)
{
Node doctype;
int guessed = Dict.VERS_HTML40_STRICT, i;
if (this.badDoctype)
Report.warning(this, null, null, Report.MALFORMED_DOCTYPE);
if (configuration.XmlOut)
return true;
doctype = root.findDocType();
if (configuration.docTypeMode == Configuration.DOCTYPE_OMIT)
{
if (doctype != null)
Node.discardElement(doctype);
return true;
}
if (configuration.docTypeMode == Configuration.DOCTYPE_STRICT)
{
Node.discardElement(doctype);
doctype = null;
guessed = Dict.VERS_HTML40_STRICT;
}
else if (configuration.docTypeMode == Configuration.DOCTYPE_LOOSE)
{
Node.discardElement(doctype);
doctype = null;
guessed = Dict.VERS_HTML40_LOOSE;
}
else if (configuration.docTypeMode == Configuration.DOCTYPE_AUTO)
{
if (doctype != null)
{
if (this.doctype == Dict.VERS_UNKNOWN)
return false;
switch (this.doctype)
{
case Dict.VERS_UNKNOWN:
return false;
case Dict.VERS_HTML20:
if ((this.versions & Dict.VERS_HTML20) != 0)
return true;
break; /* to replace old version by new */
case Dict.VERS_HTML32:
if ((this.versions & Dict.VERS_HTML32) != 0)
return true;
break; /* to replace old version by new */
case Dict.VERS_HTML40_STRICT:
if ((this.versions & Dict.VERS_HTML40_STRICT) != 0)
return true;
break; /* to replace old version by new */
case Dict.VERS_HTML40_LOOSE:
if ((this.versions & Dict.VERS_HTML40_LOOSE) != 0)
return true;
break; /* to replace old version by new */
case Dict.VERS_FRAMES:
if ((this.versions & Dict.VERS_FRAMES) != 0)
return true;
break; /* to replace old version by new */
}
/* INCONSISTENT_VERSION warning is now issued by ApparentVersion() */
}
/* choose new doctype */
guessed = HTMLVersion();
}
if (guessed == Dict.VERS_UNKNOWN)
return false;
/* for XML use the Voyager system identifier */
if (this.configuration.XmlOut || this.configuration.XmlTags || this.isvoyager)
{
if (doctype != null)
Node.discardElement(doctype);
for (i = 0; i < W3CVersion.length; ++i)
{
if (guessed == W3CVersion[i].code)
{
fixHTMLNameSpace(root, W3CVersion[i].profile);
break;
}
}
return true;
}
if (doctype == null)
{
doctype = newNode(Node.DocTypeTag, this.lexbuf, 0, 0);
doctype.next = root.content;
doctype.parent = root;
doctype.prev = null;
root.content = doctype;
}
this.txtstart = this.lexsize;
this.txtend = this.lexsize;
/* use the appropriate public identifier */
addStringLiteral("html PUBLIC ");
if (configuration.docTypeMode == Configuration.DOCTYPE_USER &&
configuration.docTypeStr != null)
addStringLiteral(configuration.docTypeStr);
else if (guessed == Dict.VERS_HTML20)
addStringLiteral("\"-//IETF//DTD HTML 2.0//EN\"");
else
{
addStringLiteral("\"-//W3C//DTD ");
for (i = 0; i < W3CVersion.length; ++i)
{
if (guessed == W3CVersion[i].code)
{
addStringLiteral(W3CVersion[i].name);
break;
}
}
addStringLiteral("//EN\"");
}
this.txtend = this.lexsize;
doctype.start = this.txtstart;
doctype.end = this.txtend;
return true;
}
/* ensure XML document starts with */
public boolean fixXMLPI(Node root)
{
Node xml;
int s;
if( root.content != null && root.content.type == Node.ProcInsTag)
{
s = root.content.start;
if (this.lexbuf[s] == (byte)'x' &&
this.lexbuf[s+1] == (byte)'m' &&
this.lexbuf[s+2] == (byte)'l')
return true;
}
xml = newNode(Node.ProcInsTag, this.lexbuf, 0, 0);
xml.next = root.content;
if (root.content != null)
{
root.content.prev = xml;
xml.next = root.content;
}
root.content = xml;
this.txtstart = this.lexsize;
this.txtend = this.lexsize;
addStringLiteral("xml version=\"1.0\"");
if (this.configuration.CharEncoding == Configuration.LATIN1)
addStringLiteral(" encoding=\"ISO-8859-1\"");
this.txtend = this.lexsize;
xml.start = this.txtstart;
xml.end = this.txtend;
return false;
}
public Node inferredTag(String name)
{
Node node;
node = newNode(Node.StartTag,
this.lexbuf,
this.txtstart,
this.txtend,
name);
node.implicit = true;
return node;
}
public static boolean expectsContent(Node node)
{
if (node.type != Node.StartTag)
return false;
/* unknown element? */
if (node.tag == null)
return true;
if ((node.tag.model & Dict.CM_EMPTY) != 0)
return false;
return true;
}
/*
create a text node for the contents of
a CDATA element like style or script
which ends with for some foo.
*/
public Node getCDATA(Node container)
{
int c, lastc, start, len, i;
String str;
boolean endtag = false;
this.lines = this.in.curline;
this.columns = this.in.curcol;
this.waswhite = false;
this.txtstart = this.lexsize;
this.txtend = this.lexsize;
lastc = (int)'\0';
start = -1;
while (true)
{
c = this.in.readChar();
if (c == StreamIn.EndOfStream) break;
/* treat \r\n as \n and \r as \n */
if (c == (int)'/' && lastc == (int)'<')
{
if (endtag)
{
this.lines = this.in.curline;
this.columns = this.in.curcol - 3;
Report.warning(this, null, null, Report.BAD_CDATA_CONTENT);
}
start = this.lexsize + 1; /* to first letter */
endtag = true;
}
else if (c == (int)'>' && start >= 0)
{
len = this.lexsize - start;
if (len == container.element.length())
{
str = getString( this.lexbuf, start, len );
if (Lexer.wstrcasecmp(str, container.element) == 0)
{
this.txtend = start - 2;
break;
}
}
this.lines = this.in.curline;
this.columns = this.in.curcol - 3;
Report.warning(this, null, null, Report.BAD_CDATA_CONTENT);
/* if javascript insert backslash before / */
if (ParserImpl.isJavaScript(container))
{
for (i = this.lexsize; i > start-1; --i)
this.lexbuf[i] = this.lexbuf[i-1];
this.lexbuf[start-1] = (byte)'\\';
this.lexsize++;
}
start = -1;
}
else if (c == (int)'\r')
{
c = this.in.readChar();
if (c != (int)'\n')
this.in.ungetChar(c);
c = (int)'\n';
}
addCharToLexer((int)c);
this.txtend = this.lexsize;
lastc = c;
}
if (c == StreamIn.EndOfStream)
Report.warning(this, container, null, Report.MISSING_ENDTAG_FOR);
if (this.txtend > this.txtstart)
{
this.token = newNode(Node.TextNode,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
}
return null;
}
public void ungetToken()
{
this.pushed = true;
}
public static final short IgnoreWhitespace = 0;
public static final short MixedContent = 1;
public static final short Preformatted = 2;
public static final short IgnoreMarkup = 3;
/*
modes for GetToken()
MixedContent -- for elements which don't accept PCDATA
Preformatted -- white space preserved as is
IgnoreMarkup -- for CDATA elements such as script, style
*/
public Node getToken(short mode)
{
short map;
int c = 0;
int lastc;
int badcomment = 0;
MutableBoolean isempty = new MutableBoolean();
AttVal attributes;
if (this.pushed)
{
/* duplicate inlines in preference to pushed text nodes when appropriate */
if (this.token.type != Node.TextNode ||
(this.insert == -1 && this.inode == null))
{
this.pushed = false;
return this.token;
}
}
/* at start of block elements, unclosed inline
elements are inserted into the token stream */
if (this.insert != -1 || this.inode != null)
return insertedToken();
this.lines = this.in.curline;
this.columns = this.in.curcol;
this.waswhite = false;
this.txtstart = this.lexsize;
this.txtend = this.lexsize;
while (true)
{
c = this.in.readChar();
if (c == StreamIn.EndOfStream) break;
if (this.insertspace && mode != IgnoreWhitespace)
{
addCharToLexer(' ');
this.waswhite = true;
this.insertspace = false;
}
/* treat \r\n as \n and \r as \n */
if (c == '\r')
{
c = this.in.readChar();
if (c != '\n')
this.in.ungetChar(c);
c = '\n';
}
addCharToLexer(c);
switch (this.state)
{
case LEX_CONTENT: /* element content */
map = MAP((char)c);
/*
Discard white space if appropriate. Its cheaper
to do this here rather than in parser methods
for elements that don't have mixed content.
*/
if (((map & WHITE) != 0) && (mode == IgnoreWhitespace)
&& this.lexsize == this.txtstart + 1)
{
--this.lexsize;
this.waswhite = false;
this.lines = this.in.curline;
this.columns = this.in.curcol;
continue;
}
if (c == '<')
{
this.state = LEX_GT;
continue;
}
if ((map & WHITE) != 0)
{
/* was previous char white? */
if (this.waswhite)
{
if (mode != Preformatted && mode != IgnoreMarkup)
{
--this.lexsize;
this.lines = this.in.curline;
this.columns = this.in.curcol;
}
}
else /* prev char wasn't white */
{
this.waswhite = true;
lastc = c;
if (mode != Preformatted && mode != IgnoreMarkup && c != ' ')
changeChar((byte)' ');
}
continue;
}
else if (c == '&' && mode != IgnoreMarkup)
parseEntity(mode);
/* this is needed to avoid trimming trailing whitespace */
if (mode == IgnoreWhitespace)
mode = MixedContent;
this.waswhite = false;
continue;
case LEX_GT: /* < */
/* check for endtag */
if (c == '/')
{
c = this.in.readChar();
if (c == StreamIn.EndOfStream)
{
this.in.ungetChar(c);
continue;
}
addCharToLexer(c);
map = MAP((char)c);
if ((map & LETTER) != 0)
{
this.lexsize -= 3;
this.txtend = this.lexsize;
this.in.ungetChar(c);
this.state = LEX_ENDTAG;
this.lexbuf[this.lexsize] = (byte)'\0'; /* debug */
this.in.curcol -= 2;
/* if some text before the this.txtstart)
{
/* trim space char before end tag */
if (mode == IgnoreWhitespace && this.lexbuf[this.lexsize - 1] == (byte)' ')
{
this.lexsize -= 1;
this.txtend = this.lexsize;
}
this.token = newNode(Node.TextNode,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
}
continue; /* no text so keep going */
}
/* otherwise treat as CDATA */
this.waswhite = false;
this.state = LEX_CONTENT;
continue;
}
if (mode == IgnoreMarkup)
{
/* otherwise treat as CDATA */
this.waswhite = false;
this.state = LEX_CONTENT;
continue;
}
/*
look out for comments, doctype or marked sections
this isn't quite right, but its getting there ...
*/
if (c == '!')
{
c = this.in.readChar();
if (c == '-')
{
c = this.in.readChar();
if (c == '-')
{
this.state = LEX_COMMENT; /* comment */
this.lexsize -= 2;
this.txtend = this.lexsize;
/* if some text before < return it now */
if (this.txtend > this.txtstart)
{
this.token = newNode(Node.TextNode,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
}
this.txtstart = this.lexsize;
continue;
}
Report.warning(this, null, null, Report.MALFORMED_COMMENT);
}
else if (c == 'd' || c == 'D')
{
this.state = LEX_DOCTYPE; /* doctype */
this.lexsize -= 2;
this.txtend = this.lexsize;
mode = IgnoreWhitespace;
/* skip until white space or '>' */
for (;;)
{
c = this.in.readChar();
if (c == StreamIn.EndOfStream || c == '>')
{
this.in.ungetChar(c);
break;
}
map = MAP((char)c);
if ((map & WHITE) == 0)
continue;
/* and skip to end of whitespace */
for (;;)
{
c = this.in.readChar();
if (c == StreamIn.EndOfStream || c == '>')
{
this.in.ungetChar(c);
break;
}
map = MAP((char)c);
if ((map & WHITE) != 0)
continue;
this.in.ungetChar(c);
break;
}
break;
}
/* if some text before < return it now */
if (this.txtend > this.txtstart)
{
this.token = newNode(Node.TextNode,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
}
this.txtstart = this.lexsize;
continue;
}
else if (c == '[')
{
/* Word 2000 embeds ... sequences */
this.lexsize -= 2;
this.state = LEX_SECTION;
this.txtend = this.lexsize;
/* if some text before < return it now */
if (this.txtend > this.txtstart)
{
this.token = newNode(Node.TextNode,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
}
this.txtstart = this.lexsize;
continue;
}
/* otherwise swallow chars up to and including next '>' */
while (true)
{
c = this.in.readChar();
if (c == '>') break;
if (c == -1)
{
this.in.ungetChar(c);
break;
}
}
this.lexsize -= 2;
this.lexbuf[this.lexsize] = (byte)'\0';
this.state = LEX_CONTENT;
continue;
}
/*
processing instructions
*/
if (c == '?')
{
this.lexsize -= 2;
this.state = LEX_PROCINSTR;
this.txtend = this.lexsize;
/* if some text before < return it now */
if (this.txtend > this.txtstart)
{
this.token = newNode(Node.TextNode,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
}
this.txtstart = this.lexsize;
continue;
}
/* Microsoft ASP's e.g. <% ... server-code ... %> */
if (c == '%')
{
this.lexsize -= 2;
this.state = LEX_ASP;
this.txtend = this.lexsize;
/* if some text before < return it now */
if (this.txtend > this.txtstart)
{
this.token = newNode(Node.TextNode,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
}
this.txtstart = this.lexsize;
continue;
}
/* Netscapes JSTE e.g. <# ... server-code ... #> */
if (c == '#')
{
this.lexsize -= 2;
this.state = LEX_JSTE;
this.txtend = this.lexsize;
/* if some text before < return it now */
if (this.txtend > this.txtstart)
{
this.token = newNode(Node.TextNode,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
}
this.txtstart = this.lexsize;
continue;
}
map = MAP((char)c);
/* check for start tag */
if ((map & LETTER) != 0)
{
this.in.ungetChar(c); /* push back letter */
this.lexsize -= 2; /* discard "<" + letter */
this.txtend = this.lexsize;
this.state = LEX_STARTTAG; /* ready to read tag name */
/* if some text before < return it now */
if (this.txtend > this.txtstart)
{
this.token = newNode(Node.TextNode,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
}
continue; /* no text so keep going */
}
/* otherwise treat as CDATA */
this.state = LEX_CONTENT;
this.waswhite = false;
continue;
case LEX_ENDTAG: /* ' */
while (c != '>')
{
c = this.in.readChar();
if (c == StreamIn.EndOfStream)
break;
}
if (c == StreamIn.EndOfStream)
{
this.in.ungetChar(c);
continue;
}
this.state = LEX_CONTENT;
this.waswhite = false;
return this.token; /* the endtag token */
case LEX_STARTTAG: /* first letter of tagname */
this.txtstart = this.lexsize - 1; /* set txtstart to first letter */
c = parseTagName();
isempty.value = false;
attributes = null;
this.token = newNode((isempty.value ? Node.StartEndTag : Node.StartTag),
this.lexbuf,
this.txtstart,
this.txtend,
getString(this.lexbuf,
this.txtstart,
this.txtend - this.txtstart));
/* parse attributes, consuming closing ">" */
if (c != '>')
{
if (c == '/')
this.in.ungetChar(c);
attributes = parseAttrs(isempty);
}
if (isempty.value)
this.token.type = Node.StartEndTag;
this.token.attributes = attributes;
this.lexsize = this.txtstart;
this.txtend = this.txtstart;
/* swallow newline following start tag */
/* special check needed for CRLF sequence */
/* this doesn't apply to empty elements */
if (expectsContent(this.token) ||
this.token.tag == configuration.tt.tagBr)
{
c = this.in.readChar();
if (c == '\r')
{
c = this.in.readChar();
if (c != '\n')
this.in.ungetChar(c);
}
else if (c != '\n' && c != '\f')
this.in.ungetChar(c);
this.waswhite = true; /* to swallow leading whitespace */
}
else
this.waswhite = false;
this.state = LEX_CONTENT;
if (this.token.tag == null)
Report.error(this, null, this.token, Report.UNKNOWN_ELEMENT);
else if (!this.configuration.XmlTags)
{
this.versions &= this.token.tag.versions;
if ((this.token.tag.versions & Dict.VERS_PROPRIETARY) != 0)
{
if (!this.configuration.MakeClean && (this.token.tag == configuration.tt.tagNobr ||
this.token.tag == configuration.tt.tagWbr))
Report.warning(this, null, this.token, Report.PROPRIETARY_ELEMENT);
}
if (this.token.tag.chkattrs != null)
{
this.token.checkUniqueAttributes(this);
this.token.tag.chkattrs.check(this, this.token);
}
else
this.token.checkAttributes(this);
}
return this.token; /* return start tag */
case LEX_COMMENT: /* seen */
if (c != '-')
continue;
c = this.in.readChar();
addCharToLexer(c);
if (c != '-')
continue;
end_comment: while (true) {
c = this.in.readChar();
if (c == '>')
{
if (badcomment != 0)
Report.warning(this, null, null, Report.MALFORMED_COMMENT);
this.txtend = this.lexsize - 2; // AQ 8Jul2000
this.lexbuf[this.lexsize] = (byte)'\0';
this.state = LEX_CONTENT;
this.waswhite = false;
this.token = newNode(Node.CommentTag,
this.lexbuf,
this.txtstart,
this.txtend);
/* now look for a line break */
c = this.in.readChar();
if (c == '\r')
{
c = this.in.readChar();
if (c != '\n')
this.token.linebreak = true;
}
if (c == '\n')
this.token.linebreak = true;
else
this.in.ungetChar(c);
return this.token;
}
/* note position of first such error in the comment */
if (badcomment == 0)
{
this.lines = this.in.curline;
this.columns = this.in.curcol - 3;
}
badcomment++;
if (this.configuration.FixComments)
this.lexbuf[this.lexsize - 2] = (byte)'=';
addCharToLexer(c);
/* if '-' then look for '>' to end the comment */
if (c != '-')
break end_comment;
}
/* otherwise continue to look for --> */
this.lexbuf[this.lexsize - 2] = (byte)'=';
continue;
case LEX_DOCTYPE: /* seen ' munging whitespace */
map = MAP((char)c);
if ((map & WHITE) != 0)
{
if (this.waswhite)
this.lexsize -= 1;
this.waswhite = true;
}
else
this.waswhite = false;
if (c != '>')
continue;
this.lexsize -= 1;
this.txtend = this.lexsize;
this.lexbuf[this.lexsize] = (byte)'\0';
this.state = LEX_CONTENT;
this.waswhite = false;
this.token = newNode(Node.DocTypeTag,
this.lexbuf,
this.txtstart,
this.txtend);
/* make a note of the version named by the doctype */
this.doctype = findGivenVersion(this.token);
return this.token;
case LEX_PROCINSTR: /* seen ' */
/* check for PHP preprocessor instructions */
if (this.lexsize - this.txtstart == 3)
{
if ((getString(this.lexbuf, this.txtstart, 3)).equals("php"))
{
this.state = LEX_PHP;
continue;
}
}
if (this.configuration.XmlPIs) /* insist on ?> as terminator */
{
if (c != '?')
continue;
/* now look for '>' */
c = this.in.readChar();
if (c == StreamIn.EndOfStream)
{
Report.warning(this, null, null, Report.UNEXPECTED_END_OF_FILE);
this.in.ungetChar(c);
continue;
}
addCharToLexer(c);
}
if (c != '>')
continue;
this.lexsize -= 1;
this.txtend = this.lexsize;
this.lexbuf[this.lexsize] = (byte)'\0';
this.state = LEX_CONTENT;
this.waswhite = false;
this.token = newNode(Node.ProcInsTag,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
case LEX_ASP: /* seen <% so look for "%>" */
if (c != '%')
continue;
/* now look for '>' */
c = this.in.readChar();
if (c != '>')
{
this.in.ungetChar(c);
continue;
}
this.lexsize -= 1;
this.txtend = this.lexsize;
this.lexbuf[this.lexsize] = (byte)'\0';
this.state = LEX_CONTENT;
this.waswhite = false;
this.token = newNode(Node.AspTag,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
case LEX_JSTE: /* seen <# so look for "#>" */
if (c != '#')
continue;
/* now look for '>' */
c = this.in.readChar();
if (c != '>')
{
this.in.ungetChar(c);
continue;
}
this.lexsize -= 1;
this.txtend = this.lexsize;
this.lexbuf[this.lexsize] = (byte)'\0';
this.state = LEX_CONTENT;
this.waswhite = false;
this.token = newNode(Node.JsteTag,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
case LEX_PHP: /* seen "" */
if (c != '?')
continue;
/* now look for '>' */
c = this.in.readChar();
if (c != '>')
{
this.in.ungetChar(c);
continue;
}
this.lexsize -= 1;
this.txtend = this.lexsize;
this.lexbuf[this.lexsize] = (byte)'\0';
this.state = LEX_CONTENT;
this.waswhite = false;
this.token = newNode(Node.PhpTag,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
case LEX_SECTION: /* seen "" */
if (c == '[')
{
if (this.lexsize == (this.txtstart + 6) &&
(getString(this.lexbuf, this.txtstart, 6)).equals("CDATA["))
{
this.state = LEX_CDATA;
this.lexsize -= 6;
continue;
}
}
if (c != ']')
continue;
/* now look for '>' */
c = this.in.readChar();
if (c != '>')
{
this.in.ungetChar(c);
continue;
}
this.lexsize -= 1;
this.txtend = this.lexsize;
this.lexbuf[this.lexsize] = (byte)'\0';
this.state = LEX_CONTENT;
this.waswhite = false;
this.token = newNode(Node.SectionTag,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
case LEX_CDATA: /* seen "" */
if (c != ']')
continue;
/* now look for ']' */
c = this.in.readChar();
if (c != ']')
{
this.in.ungetChar(c);
continue;
}
/* now look for '>' */
c = this.in.readChar();
if (c != '>')
{
this.in.ungetChar(c);
continue;
}
this.lexsize -= 1;
this.txtend = this.lexsize;
this.lexbuf[this.lexsize] = (byte)'\0';
this.state = LEX_CONTENT;
this.waswhite = false;
this.token = newNode(Node.CDATATag,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
}
}
if (this.state == LEX_CONTENT) /* text string */
{
this.txtend = this.lexsize;
if (this.txtend > this.txtstart)
{
this.in.ungetChar(c);
if (this.lexbuf[this.lexsize - 1] == (byte)' ')
{
this.lexsize -= 1;
this.txtend = this.lexsize;
}
this.token = newNode(Node.TextNode,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
}
}
else if (this.state == LEX_COMMENT) /* comment */
{
if (c == StreamIn.EndOfStream)
Report.warning(this, null, null, Report.MALFORMED_COMMENT);
this.txtend = this.lexsize;
this.lexbuf[this.lexsize] = (byte)'\0';
this.state = LEX_CONTENT;
this.waswhite = false;
this.token = newNode(Node.CommentTag,
this.lexbuf,
this.txtstart,
this.txtend);
return this.token;
}
return null;
}
/*
parser for ASP within start tags
Some people use ASP for to customize attributes
Tidy isn't really well suited to dealing with ASP
This is a workaround for attributes, but won't
deal with the case where the ASP is used to tailor
the attribute value. Here is an example of a work
around for using ASP in attribute values:
href="<%=rsSchool.Fields("ID").Value%>"
where the ASP that generates the attribute value
is masked from Tidy by the quotemarks.
*/
public Node parseAsp()
{
int c;
Node asp = null;
this.txtstart = this.lexsize;
for (;;)
{
c = this.in.readChar();
addCharToLexer(c);
if (c != '%')
continue;
c = this.in.readChar();
addCharToLexer(c);
if (c == '>')
break;
}
this.lexsize -= 2;
this.txtend = this.lexsize;
if (this.txtend > this.txtstart)
asp = newNode(Node.AspTag,
this.lexbuf,
this.txtstart,
this.txtend);
this.txtstart = this.txtend;
return asp;
}
/*
PHP is like ASP but is based upon XML
processing instructions, e.g.
*/
public Node parsePhp()
{
int c;
Node php = null;
this.txtstart = this.lexsize;
for (;;)
{
c = this.in.readChar();
addCharToLexer(c);
if (c != '?')
continue;
c = this.in.readChar();
addCharToLexer(c);
if (c == '>')
break;
}
this.lexsize -= 2;
this.txtend = this.lexsize;
if (this.txtend > this.txtstart)
php = newNode(Node.PhpTag,
this.lexbuf,
this.txtstart,
this.txtend);
this.txtstart = this.txtend;
return php;
}
/* consumes the '>' terminating start tags */
public String parseAttribute(MutableBoolean isempty, MutableObject asp,
MutableObject php)
{
int start = 0;
// int len = 0; Removed by BUGFIX for 126265
short map;
String attr;
int c = 0;
asp.setObject(null); /* clear asp pointer */
php.setObject(null); /* clear php pointer */
/* skip white space before the attribute */
for (;;)
{
c = this.in.readChar();
if (c == '/')
{
c = this.in.readChar();
if (c == '>')
{
isempty.value = true;
return null;
}
this.in.ungetChar(c);
c = '/';
break;
}
if (c == '>')
return null;
if (c =='<')
{
c = this.in.readChar();
if (c == '%')
{
asp.setObject(parseAsp());
return null;
}
else if (c == '?')
{
php.setObject(parsePhp());
return null;
}
this.in.ungetChar(c);
Report.attrError(this, this.token, null, Report.UNEXPECTED_GT);
return null;
}
if (c == '"' || c == '\'')
{
Report.attrError(this, this.token, null, Report.UNEXPECTED_QUOTEMARK);
continue;
}
if (c == StreamIn.EndOfStream)
{
Report.attrError(this, this.token, null, Report.UNEXPECTED_END_OF_FILE);
this.in.ungetChar(c);
return null;
}
map = MAP((char)c);
if ((map & WHITE) == 0)
break;
}
start = this.lexsize;
for (;;)
{
/* but push back '=' for parseValue() */
if (c == '=' || c == '>')
{
this.in.ungetChar(c);
break;
}
if (c == '<' || c == StreamIn.EndOfStream)
{
this.in.ungetChar(c);
break;
}
map = MAP((char)c);
if ((map & WHITE) != 0)
break;
/* what should be done about non-namechar characters? */
/* currently these are incorporated into the attr name */
if (!this.configuration.XmlTags && (map & UPPERCASE) != 0)
c += (int)('a' - 'A');
// ++len; Removed by BUGFIX for 126265
addCharToLexer(c);
c = this.in.readChar();
}
// Following line added by GLP to fix BUG 126265. This is a temporary comment
// and should be removed when Tidy is fixed.
int len = this.lexsize - start;
attr = (len > 0 ? getString(this.lexbuf, start, len) : null);
this.lexsize = start;
return attr;
}
/*
invoked when < is seen in place of attribute value
but terminates on whitespace if not ASP, PHP or Tango
this routine recognizes ' and " quoted strings
*/
public int parseServerInstruction()
{
int c, map, delim = '"';
boolean isrule = false;
c = this.in.readChar();
addCharToLexer(c);
/* check for ASP, PHP or Tango */
if (c == '%' || c == '?' || c == '@')
isrule = true;
for (;;)
{
c = this.in.readChar();
if (c == StreamIn.EndOfStream)
break;
if (c == '>')
{
if (isrule)
addCharToLexer(c);
else
this.in.ungetChar(c);
break;
}
/* if not recognized as ASP, PHP or Tango */
/* then also finish value on whitespace */
if (!isrule)
{
map = MAP((char)c);
if ((map & WHITE) != 0)
break;
}
addCharToLexer(c);
if (c == '"')
{
do
{
c = this.in.readChar();
addCharToLexer(c);
}
while (c != '"');
delim = '\'';
continue;
}
if (c == '\'')
{
do
{
c = this.in.readChar();
addCharToLexer(c);
}
while (c != '\'');
}
}
return delim;
}
/* values start with "=" or " = " etc. */
/* doesn't consume the ">" at end of start tag */
public String parseValue(String name, boolean foldCase,
MutableBoolean isempty, MutableInteger pdelim)
{
int len = 0;
int start;
short map;
boolean seen_gt = false;
boolean munge = true;
int c = 0;
int lastc, delim, quotewarning;
String value;
delim = 0;
pdelim.value = (int)'"';
/*
Henry Zrepa reports that some folk are using the
embed element with script attributes where newlines
are significant and must be preserved
*/
if (configuration.LiteralAttribs)
munge = false;
/* skip white space before the '=' */
for (;;)
{
c = this.in.readChar();
if (c == StreamIn.EndOfStream)
{
this.in.ungetChar(c);
break;
}
map = MAP((char)c);
if ((map & WHITE) == 0)
break;
}
/*
c should be '=' if there is a value
other legal possibilities are white
space, '/' and '>'
*/
if (c != '=')
{
this.in.ungetChar(c);
return null;
}
/* skip white space after '=' */
for (;;)
{
c = this.in.readChar();
if (c == StreamIn.EndOfStream)
{
this.in.ungetChar(c);
break;
}
map = MAP((char)c);
if ((map & WHITE) == 0)
break;
}
/* check for quote marks */
if (c == '"' || c == '\'')
delim = c;
else if (c == '<')
{
start = this.lexsize;
addCharToLexer(c);
pdelim.value = parseServerInstruction();
len = this.lexsize - start;
this.lexsize = start;
return (len > 0 ? getString(this.lexbuf, start, len) : null);
}
else
this.in.ungetChar(c);
/*
and read the value string
check for quote mark if needed
*/
quotewarning = 0;
start = this.lexsize;
c = '\0';
for (;;)
{
lastc = c; /* track last character */
c = this.in.readChar();
if (c == StreamIn.EndOfStream)
{
Report.attrError(this, this.token, null, Report.UNEXPECTED_END_OF_FILE);
this.in.ungetChar(c);
break;
}
if (delim == (char)0)
{
if (c == '>')
{
this.in.ungetChar(c);
break;
}
if (c == '"' || c == '\'')
{
Report.attrError(this, this.token, null, Report.UNEXPECTED_QUOTEMARK);
break;
}
if (c == '<')
{
/* this.in.ungetChar(c); */
Report.attrError(this, this.token, null, Report.UNEXPECTED_GT);
/* break; */
}
/*
For cases like
need to avoid treating /> as
part of the attribute value, however care is needed to avoid
so treating in this way, which
would map the tag to
*/
if (c == '/')
{
/* peek ahead in case of /> */
c = this.in.readChar();
if (c == '>' &&
!AttributeTable.getDefaultAttributeTable().isUrl(name))
{
isempty.value = true;
this.in.ungetChar(c);
break;
}
/* unget peeked char */
this.in.ungetChar(c);
c = '/';
}
}
else /* delim is '\'' or '"' */
{
if (c == delim)
break;
/* treat CRLF, CR and LF as single line break */
if (c == '\r')
{
c = this.in.readChar();
if (c != '\n')
this.in.ungetChar(c);
c = '\n';
}
if (c == '\n' || c == '<' || c == '>')
++quotewarning;
if (c == '>')
seen_gt = true;
}
if (c == '&')
{
addCharToLexer(c);
parseEntity((short)0);
continue;
}
/*
kludge for JavaScript attribute values
with line continuations in string literals
*/
if (c == '\\')
{
c = this.in.readChar();
if (c != '\n')
{
this.in.ungetChar(c);
c = '\\';
}
}
map = MAP((char)c);
if ((map & WHITE) != 0)
{
if (delim == (char)0)
break;
if (munge)
{
c = ' ';
if (lastc == ' ')
continue;
}
}
else if (foldCase && (map & UPPERCASE) != 0)
c += (int)('a' - 'A');
addCharToLexer(c);
}
if (quotewarning > 10 && seen_gt && munge)
{
/*
there is almost certainly a missing trailling quote mark
as we have see too many newlines, < or > characters.
an exception is made for Javascript attributes and the
javascript URL scheme which may legitimately include < and >
*/
if (!AttributeTable.getDefaultAttributeTable().isScript(name) &&
!(AttributeTable.getDefaultAttributeTable().isUrl(name) &&
(getString(this.lexbuf, start, 11)).equals("javascript:")))
Report.error(this, null, null, Report.SUSPECTED_MISSING_QUOTE);
}
len = this.lexsize - start;
this.lexsize = start;
if (len > 0 || delim != 0)
value = getString(this.lexbuf, start, len);
else
value = null;
/* note delimiter if given */
if (delim != 0)
pdelim.value = delim;
else
pdelim.value = (int)'"';
return value;
}
/* attr must be non-null */
public static boolean isValidAttrName(String attr)
{
short map;
char c;
int i;
/* first character should be a letter */
c = attr.charAt(0);
map = MAP(c);
if (!((map & LETTER) != 0))
return false;
/* remaining characters should be namechars */
for( i = 1; i < attr.length(); i++)
{
c = attr.charAt(i);
map = MAP(c);
if((map & NAMECHAR) != 0)
continue;
return false;
}
return true;
}
/* swallows closing '>' */
public AttVal parseAttrs(MutableBoolean isempty)
{
AttVal av, list;
String attribute, value;
MutableInteger delim = new MutableInteger();
MutableObject asp = new MutableObject();
MutableObject php = new MutableObject();
list = null;
for (; !endOfInput();)
{
attribute = parseAttribute(isempty, asp, php);
if (attribute == null)
{
/* check if attributes are created by ASP markup */
if (asp.getObject() != null)
{
av = new AttVal(list, null, (Node)asp.getObject(), null,
'\0', null, null );
list = av;
continue;
}
/* check if attributes are created by PHP markup */
if (php.getObject() != null)
{
av = new AttVal(list, null, null, (Node)php.getObject(),
'\0', null, null );
list = av;
continue;
}
break;
}
value = parseValue(attribute, false, isempty, delim);
if (attribute != null && isValidAttrName(attribute))
{
av = new AttVal( list, null, null, null,
delim.value, attribute, value );
av.dict =
AttributeTable.getDefaultAttributeTable().findAttribute(av);
list = av;
}
else
{
av = new AttVal( null, null, null, null,
0, attribute, value );
Report.attrError(this, this.token, value, Report.BAD_ATTRIBUTE_VALUE);
}
}
return list;
}
/*
push a copy of an inline node onto stack
but don't push if implicit or OBJECT or APPLET
(implicit tags are ones generated from the istack)
One issue arises with pushing inlines when
the tag is already pushed. For instance:
text
more text
Shouldn't be mapped to
text
more text
*/
public void pushInline( Node node )
{
IStack is;
if (node.implicit)
return;
if (node.tag == null)
return;
if ((node.tag.model & Dict.CM_INLINE) == 0 )
return;
if ((node.tag.model & Dict.CM_OBJECT) != 0)
return;
if (node.tag != configuration.tt.tagFont && isPushed(node))
return;
// make sure there is enough space for the stack
is = new IStack();
is.tag = node.tag;
is.element = node.element;
if (node.attributes != null)
is.attributes = cloneAttributes(node.attributes);
this.istack.push( is );
}
/* pop inline stack */
public void popInline( Node node )
{
AttVal av;
IStack is;
if (node != null) {
if (node.tag == null)
return;
if ((node.tag.model & Dict.CM_INLINE) == 0)
return;
if ((node.tag.model & Dict.CM_OBJECT) != 0)
return;
// if node is then pop until we find an
if (node.tag == configuration.tt.tagA) {
while (this.istack.size() > 0) {
is = (IStack)this.istack.pop();
if (is.tag == configuration.tt.tagA) {
break;
}
}
if (this.insert >= this.istack.size())
this.insert = -1;
return;
}
}
if (this.istack.size() > 0) {
is = (IStack)this.istack.pop();
if (this.insert >= this.istack.size())
this.insert = -1;
}
}
public boolean isPushed( Node node )
{
int i;
IStack is;
for (i = this.istack.size() - 1; i >= 0; --i) {
is = (IStack)this.istack.elementAt(i);
if (is.tag == node.tag)
return true;
}
return false;
}
/*
This has the effect of inserting "missing" inline
elements around the contents of blocklevel elements
such as P, TD, TH, DIV, PRE etc. This procedure is
called at the start of ParseBlock. when the inline
stack is not empty, as will be the case in:
italic heading
which is then treated as equivalent to
italic heading
This is implemented by setting the lexer into a mode
where it gets tokens from the inline stack rather than
from the input stream.
*/
public int inlineDup( Node node )
{
int n;
n = this.istack.size() - this.istackbase;
if ( n > 0 ) {
this.insert = this.istackbase;
this.inode = node;
}
return n;
}
public Node insertedToken()
{
Node node;
IStack is;
int n;
// this will only be null if inode != null
if (this.insert == -1) {
node = this.inode;
this.inode = null;
return node;
}
// is this is the "latest" node then update
// the position, otherwise use current values
if (this.inode == null) {
this.lines = this.in.curline;
this.columns = this.in.curcol;
}
node = newNode(Node.StartTag,
this.lexbuf,
this.txtstart,
this.txtend); // GLP: Bugfix 126261. Remove when this change
// is fixed in istack.c in the original Tidy
node.implicit = true;
is = (IStack)this.istack.elementAt( this.insert );
node.element = is.element;
node.tag = is.tag;
if (is.attributes != null)
node.attributes = cloneAttributes(is.attributes);
// advance lexer to next item on the stack
n = this.insert;
// and recover state if we have reached the end
if (++n < this.istack.size() ) {
this.insert = n;
} else {
this.insert = -1;
}
return node;
}
/* AQ: Try this for speed optimization */
public static int wstrcasecmp(String s1, String s2)
{
return (s1.equalsIgnoreCase(s2) ? 0 : 1);
}
public static int wstrcaselexcmp(String s1, String s2)
{
char c;
int i = 0;
while ( i < s1.length() && i < s2.length() ) {
c = s1.charAt(i);
if ( toLower(c) != toLower( s2.charAt(i) ) ) {
break;
}
i += 1;
}
if ( i == s1.length() && i == s2.length() ) {
return 0;
} else if ( i == s1.length() ) {
return -1;
} else if ( i == s2.length() ) {
return 1;
} else {
return ( s1.charAt(i) > s2.charAt(i) ? 1 : -1 );
}
}
public static boolean wsubstr(String s1, String s2)
{
int i;
int len1 = s1.length();
int len2 = s2.length();
for (i = 0; i <= len1 - len2; ++i)
{
if (s2.equalsIgnoreCase(s1.substring(i)))
return true;
}
return false;
}
public boolean canPrune(Node element)
{
if (element.type == Node.TextNode)
return true;
if (element.content != null)
return false;
if (element.tag == configuration.tt.tagA && element.attributes != null)
return false;
if (element.tag == configuration.tt.tagP && !this.configuration.DropEmptyParas)
return false;
if (element.tag == null)
return false;
if ((element.tag.model & Dict.CM_ROW) != 0)
return false;
if (element.tag == configuration.tt.tagApplet)
return false;
if (element.tag == configuration.tt.tagObject)
return false;
if (element.attributes != null &&
(element.getAttrByName("id") != null ||
element.getAttrByName("name") != null) )
return false;
return true;
}
/* duplicate name attribute as an id */
public void fixId(Node node)
{
AttVal name = node.getAttrByName("name");
AttVal id = node.getAttrByName("id");
if (name != null)
{
if (id != null)
{
if (!id.value.equals(name.value))
Report.attrError(this, node, "name", Report.ID_NAME_MISMATCH);
}
else if (this.configuration.XmlOut)
node.addAttribute("id", name.value);
}
}
/*
defer duplicates when entering a table or other
element where the inlines shouldn't be duplicated
*/
public void deferDup()
{
this.insert = -1;
this.inode = null;
}
/* Private methods and fields */
/* lexer char types */
private static final short DIGIT = 1;
private static final short LETTER = 2;
private static final short NAMECHAR = 4;
private static final short WHITE = 8;
private static final short NEWLINE = 16;
private static final short LOWERCASE = 32;
private static final short UPPERCASE = 64;
/* lexer GetToken states */
private static final short LEX_CONTENT = 0;
private static final short LEX_GT = 1;
private static final short LEX_ENDTAG = 2;
private static final short LEX_STARTTAG = 3;
private static final short LEX_COMMENT = 4;
private static final short LEX_DOCTYPE = 5;
private static final short LEX_PROCINSTR = 6;
private static final short LEX_ENDCOMMENT = 7;
private static final short LEX_CDATA = 8;
private static final short LEX_SECTION = 9;
private static final short LEX_ASP = 10;
private static final short LEX_JSTE = 11;
private static final short LEX_PHP = 12;
/* used to classify chars for lexical purposes */
private static short[] lexmap = new short[128];
private static void mapStr(String str, short code)
{
int j;
for ( int i = 0; i < str.length(); i++ ) {
j = (int)str.charAt(i);
lexmap[j] |= code;
}
}
static {
mapStr("\r\n\f", (short)(NEWLINE|WHITE));
mapStr(" \t", WHITE);
mapStr("-.:_", NAMECHAR);
mapStr("0123456789", (short)(DIGIT|NAMECHAR));
mapStr("abcdefghijklmnopqrstuvwxyz", (short)(LOWERCASE|LETTER|NAMECHAR));
mapStr("ABCDEFGHIJKLMNOPQRSTUVWXYZ", (short)(UPPERCASE|LETTER|NAMECHAR));
}
private static short MAP( char c )
{
return ((int)c < 128 ? lexmap[(int)c] : 0);
}
private static boolean isWhite(char c)
{
short m = MAP(c);
return (m & WHITE) != 0;
}
private static boolean isDigit(char c)
{
short m;
m = MAP(c);
return (m & DIGIT) != 0;
}
private static boolean isLetter(char c)
{
short m;
m = MAP(c);
return (m & LETTER) != 0;
}
private static char toLower(char c)
{
short m = MAP(c);
if ((m & UPPERCASE) != 0)
c = (char)( (int)c + (int)'a' - (int)'A' );
return c;
}
private static char toUpper(char c)
{
short m = MAP(c);
if ((m & LOWERCASE) != 0)
c = (char)( (int)c + (int)'A' - (int)'a' );
return c;
}
public static char foldCase(char c, boolean tocaps, boolean xmlTags)
{
short m;
if (!xmlTags)
{
m = MAP(c);
if (tocaps)
{
if ((m & LOWERCASE) != 0)
c = (char)( (int)c + (int)'A' - (int)'a' );
}
else /* force to lower case */
{
if ((m & UPPERCASE) != 0)
c = (char)( (int)c + (int)'a' - (int)'A' );
}
}
return c;
}
private static class W3CVersionInfo
{
String name;
String voyagerName;
String profile;
short code;
public W3CVersionInfo( String name,
String voyagerName,
String profile,
short code )
{
this.name = name;
this.voyagerName = voyagerName;
this.profile = profile;
this.code = code;
}
}
/* the 3 URIs for the XHTML 1.0 DTDs */
private static final String voyager_loose = "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";
private static final String voyager_strict = "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd";
private static final String voyager_frameset = "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd";
private static final String XHTML_NAMESPACE = "http://www.w3.org/1999/xhtml";
private static Lexer.W3CVersionInfo[] W3CVersion =
{
new W3CVersionInfo("HTML 4.01",
"XHTML 1.0 Strict",
voyager_strict,
Dict.VERS_HTML40_STRICT),
new W3CVersionInfo("HTML 4.01 Transitional",
"XHTML 1.0 Transitional",
voyager_loose,
Dict.VERS_HTML40_LOOSE),
new W3CVersionInfo("HTML 4.01 Frameset",
"XHTML 1.0 Frameset",
voyager_frameset,
Dict.VERS_FRAMES),
new W3CVersionInfo("HTML 4.0",
"XHTML 1.0 Strict",
voyager_strict,
Dict.VERS_HTML40_STRICT),
new W3CVersionInfo("HTML 4.0 Transitional",
"XHTML 1.0 Transitional",
voyager_loose,
Dict.VERS_HTML40_LOOSE),
new W3CVersionInfo("HTML 4.0 Frameset",
"XHTML 1.0 Frameset",
voyager_frameset,
Dict.VERS_FRAMES),
new W3CVersionInfo("HTML 3.2",
"XHTML 1.0 Transitional",
voyager_loose,
Dict.VERS_HTML32),
new W3CVersionInfo("HTML 2.0",
"XHTML 1.0 Strict",
voyager_strict,
Dict.VERS_HTML20)
};
}