|
|
|
<?php
|
|
|
|
/** @license MIT
|
|
|
|
* Copyright 2017 , Dustin Wilson, J. King et al.
|
|
|
|
* See LICENSE and AUTHORS files for details */
|
|
|
|
|
|
|
|
declare(strict_types=1);
|
|
|
|
namespace MensBeam\HTML\Parser;
|
|
|
|
|
|
|
|
use MensBeam\HTML\Parser;
|
|
|
|
use MensBeam\Intl\Encoding;
|
|
|
|
|
|
|
|
class Data {
|
|
|
|
use ParseErrorEmitter;
|
|
|
|
|
|
|
|
// Whether the encoding is certain or tentative; this is a feature of the specification, but not relevant for this implementation
|
|
|
|
public $encodingCertain = false;
|
|
|
|
// The canonical name of the encoding
|
|
|
|
public $encoding;
|
|
|
|
|
|
|
|
// Internal storage for the Intl data object.
|
|
|
|
protected $data;
|
|
|
|
// Used for error reporting to display line number.
|
|
|
|
protected $_line = 1;
|
|
|
|
// Used for error reporting to display column number.
|
|
|
|
protected $_column = 0;
|
|
|
|
// array of normalized CR+LF pairs, denoted by the character offset of the LF
|
|
|
|
protected $normalized = [];
|
|
|
|
// Holds the character position and column number of each newline
|
|
|
|
protected $newlines = [];
|
|
|
|
// Holds the character position of each supplementary plane character, which count as two columns when reporting errors
|
|
|
|
protected $astrals = [];
|
|
|
|
// The character position of the forward-most input stream error emitted
|
|
|
|
protected $lastError = 0;
|
|
|
|
// Whether the EOF imaginary character has been consumed
|
|
|
|
protected $eof = false;
|
|
|
|
// Whether to track positions for reporting parse errors
|
|
|
|
protected $track = true;
|
|
|
|
|
|
|
|
const ALPHA = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
|
|
|
|
const DIGIT = '0123456789';
|
|
|
|
const HEX = '0123456789ABCDEFabcdef';
|
|
|
|
const WHITESPACE = "\t\n\x0C\x0D ";
|
|
|
|
const WHITESPACE_REGEX = '/[\t\n\x0c\x0D ]+/';
|
|
|
|
const WHITESPACE_SAFE = "\t\x0C ";
|
|
|
|
|
|
|
|
|
|
|
|
public function __construct(string $data, ?string $encodingOrContentType, ?ParseError $errorHandler, ?string $fallbackEncoding) {
|
|
|
|
$this->errorHandler = $errorHandler;
|
|
|
|
$encodingOrContentType = (string) $encodingOrContentType;
|
|
|
|
$fallbackEncoding = (string) $fallbackEncoding;
|
|
|
|
// don't track the current line/column position if error reporting has been suppressed
|
|
|
|
$this->track = (bool) $this->errorHandler;
|
|
|
|
|
|
|
|
# 13.2.3.2 Determining the character encoding
|
|
|
|
# User agents must use the following algorithm, called the encoding
|
|
|
|
# sniffing algorithm, to determine the character encoding to use
|
|
|
|
# when decoding a document in the first pass. This algorithm takes
|
|
|
|
# as input any out-of-band metadata available to the user agent
|
|
|
|
# (e.g. the Content-Type metadata of the document) and all the bytes
|
|
|
|
# available so far, and returns a character encoding and a confidence
|
|
|
|
# that is either tentative or certain.
|
|
|
|
// NOTE: We implement steps 1, 2, 4, 5, and 9
|
|
|
|
if ($encoding = Charset::fromBOM($data)) {
|
|
|
|
# If the result of BOM sniffing is an encoding, return that
|
|
|
|
# encoding with confidence certain.
|
|
|
|
$this->encodingCertain = true;
|
|
|
|
} elseif ($encoding = Charset::fromCharset($encodingOrContentType)) {
|
|
|
|
# If the user has explicitly instructed the user agent to override
|
|
|
|
# the document's character encoding with a specific encoding,
|
|
|
|
# optionally return that encoding with the confidence certain.
|
|
|
|
$this->encodingCertain = true;
|
|
|
|
} elseif ($encoding = Charset::fromTransport($encodingOrContentType)) {
|
|
|
|
# If the transport layer specifies a character encoding, and it is
|
|
|
|
# supported, return that encoding with the confidence certain.
|
|
|
|
$this->encodingCertain = true;
|
|
|
|
} elseif ($encoding = Charset::fromPrescan($data)) {
|
|
|
|
# Optionally prescan the byte stream to determine its encoding.
|
|
|
|
# The aforementioned algorithm either aborts unsuccessfully or
|
|
|
|
# returns a character encoding. If it returns a character
|
|
|
|
# encoding, then return the same encoding, with confidence
|
|
|
|
# tentative.
|
|
|
|
$this->encodingCertain = false;
|
|
|
|
} else {
|
|
|
|
# Otherwise, return an implementation-defined or user-specified
|
|
|
|
# default character encoding, with the confidence tentative.
|
|
|
|
$encoding = Charset::fromCharset($fallbackEncoding) ?? "windows-1252";
|
|
|
|
$this->encodingCertain = false;
|
|
|
|
}
|
|
|
|
$this->encoding = $encoding;
|
|
|
|
$this->data = Encoding::createDecoder($encoding, $data, false, true);
|
|
|
|
}
|
|
|
|
|
|
|
|
public function consume(): string {
|
|
|
|
$char = $this->data->nextChar();
|
|
|
|
# Before the tokenization stage, the input stream must be
|
|
|
|
# preprocessed by normalizing newlines.
|
|
|
|
# Thus, newlines in HTML DOMs are represented by U+000A LF characters,
|
|
|
|
# and there are never any U+000D CR characters in the input to the tokenization stage.
|
|
|
|
if ($char === "\r") {
|
|
|
|
// if this is a CR+LF pair, skip the CR and note the normalization
|
|
|
|
if ($this->data->peekChar() === "\n") {
|
|
|
|
$char = $this->data->nextChar();
|
|
|
|
$this->normalized[$this->data->posChar()] = true;
|
|
|
|
}
|
|
|
|
// otherwise just silently change the character to LF;
|
|
|
|
// the bare CR will be trivial to process when seeking backwards
|
|
|
|
else {
|
|
|
|
$char = "\n";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
// unless we're peeking, track line and column position, and whether we've hit EOF
|
|
|
|
if ($this->track) {
|
|
|
|
if ($char === "\n") {
|
|
|
|
$this->newlines[$this->data->posChar()] = $this->_column;
|
|
|
|
$this->_column = 0;
|
|
|
|
$this->_line++;
|
|
|
|
} elseif ($char === '') {
|
|
|
|
$this->eof = true;
|
|
|
|
} else {
|
|
|
|
$this->_column++;
|
|
|
|
$len = strlen($char);
|
|
|
|
$here = $this->data->posChar();
|
|
|
|
if ($this->lastError < $here) {
|
|
|
|
// look for erroneous characters
|
|
|
|
if ($len === 1) {
|
|
|
|
$ord = ord($char);
|
|
|
|
if (($ord < 0x20 && !in_array($ord, [0x0, 0x9, 0xA, 0xC])) || $ord === 0x7F) {
|
|
|
|
$this->error(ParseError::CONTROL_CHARACTER_IN_INPUT_STREAM);
|
|
|
|
$this->lastError = $here;
|
|
|
|
}
|
|
|
|
} elseif ($len === 2) {
|
|
|
|
if (ord($char[0]) == 0xC2) {
|
|
|
|
$ord = ord($char[1]);
|
|
|
|
if ($ord >= 0x80 && $ord <= 0x9F) {
|
|
|
|
$this->error(ParseError::CONTROL_CHARACTER_IN_INPUT_STREAM);
|
|
|
|
$this->lastError = $here;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
} elseif ($len === 3) {
|
|
|
|
$head = ord($char[0]);
|
|
|
|
if ($head === 0xED) {
|
|
|
|
$tail = (ord($char[1]) << 8) + ord($char[2]);
|
|
|
|
if ($tail >= 0xA080 && $tail <= 0xBFBF) {
|
|
|
|
$this->error(ParseError::SURROGATE_IN_INPUT_STREAM);
|
|
|
|
$this->lastError = $here;
|
|
|
|
}
|
|
|
|
} elseif ($head === 0xEF) {
|
|
|
|
$tail = (ord($char[1]) << 8) + ord($char[2]);
|
|
|
|
if (($tail >= 0xB790 && $tail <= 0xB7AF) || $tail >= 0xBFBE) {
|
|
|
|
$this->error(ParseError::NONCHARACTER_IN_INPUT_STREAM);
|
|
|
|
$this->lastError = $here;
|
|
|
|
} elseif ($tail === 0xBFBD && $this->data->posErr === $here) {
|
|
|
|
$this->error(ParseError::NONCHARACTER_IN_INPUT_STREAM, $this->data->posByte);
|
|
|
|
$this->lastError = $here;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
} elseif ($len === 4) {
|
|
|
|
$tail = (ord($char[2]) << 8) + ord($char[3]);
|
|
|
|
if ($tail >= 0xBFBE) {
|
|
|
|
$this->error(ParseError::NONCHARACTER_IN_INPUT_STREAM);
|
|
|
|
$this->lastError = $here;
|
|
|
|
}
|
|
|
|
$this->astrals[$here] = true;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return $char;
|
|
|
|
}
|
|
|
|
|
|
|
|
public function unconsume(int $length = 1, bool $retreatPointer = true): void {
|
|
|
|
assert($length > 0, new Exception(Exception::DATA_INVALID_DATA_CONSUMPTION_LENGTH, $length));
|
|
|
|
|
|
|
|
if ($this->eof) {
|
|
|
|
$length--;
|
|
|
|
$this->eof = false;
|
|
|
|
}
|
|
|
|
while ($length-- > 0) {
|
|
|
|
$here = $this->data->posChar();
|
|
|
|
// if the previous character was a normalized CR+LF pair, we need to go back two
|
|
|
|
if (isset($this->normalized[$here])) {
|
|
|
|
$this->data->seek(-1);
|
|
|
|
}
|
|
|
|
// recalculate line and column positions, if requested
|
|
|
|
if ($retreatPointer && $this->track) {
|
|
|
|
$col = $this->newlines[$here] ?? 0;
|
|
|
|
if ($col) {
|
|
|
|
$this->_column = $col;
|
|
|
|
$this->_line--;
|
|
|
|
} else {
|
|
|
|
$this->_column--;
|
|
|
|
if ($this->astrals[$here] ?? false) {
|
|
|
|
$this->_column--;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
$this->data->seek(-1);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
public function consumeWhile(string $match, int $limit = null): string {
|
|
|
|
$start = $this->data->posChar();
|
|
|
|
$out = $this->data->asciiSpan($match, $limit);
|
|
|
|
if ($this->track) {
|
|
|
|
$this->_column += ($this->data->posChar() - $start);
|
|
|
|
}
|
|
|
|
return $out;
|
|
|
|
}
|
|
|
|
|
|
|
|
public function consumeUntil(string $match, int $limit = null): string {
|
|
|
|
$start = $this->data->posChar();
|
|
|
|
if ($this->track) {
|
|
|
|
// control characters produce parse errors
|
|
|
|
$match .= "\x01\x02\x03\x04\x05\x06\x07\x08\x0B\x0D\x0E\x0F\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1A\x1B\x1C\x1D\x1E\x1F\x7F";
|
|
|
|
$out = $this->data->asciiSpanNot($match."\r\n", $limit);
|
|
|
|
$this->_column += ($this->data->posChar() - $start);
|
|
|
|
return $out;
|
|
|
|
} else {
|
|
|
|
return $this->data->asciiSpanNot($match."\r\n", $limit);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
public function peek(int $length = 1): string {
|
|
|
|
assert($length > 0, new Exception(Exception::DATA_INVALID_DATA_CONSUMPTION_LENGTH, $length));
|
|
|
|
return $this->data->peekChar($length);
|
|
|
|
}
|
|
|
|
|
|
|
|
/** Returns an indexed array with the line and column positions of the requested offset from the current position */
|
|
|
|
public function whereIs(int $relativePos): array {
|
|
|
|
if ($this->track) {
|
|
|
|
if ($this->eof) {
|
|
|
|
$relativePos++;
|
|
|
|
if ($this->astrals[$this->data->posChar()] ?? false) {
|
|
|
|
$relativePos++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if ($relativePos === 0) {
|
|
|
|
if (!$this->_column && $this->_line > 1) {
|
|
|
|
return [$this->_line - 1, $this->newlines[$this->data->posChar()] + 1];
|
|
|
|
} else {
|
|
|
|
return [$this->_line, $this->_column];
|
|
|
|
}
|
|
|
|
} elseif ($relativePos < 0) {
|
|
|
|
$pos = $this->data->posChar();
|
|
|
|
$line = $this->_line;
|
|
|
|
$col = $this->_column;
|
|
|
|
do {
|
|
|
|
// If the current position is the start of a line,
|
|
|
|
// get the column position of the end of the previous line
|
|
|
|
if (isset($this->newlines[$pos])) {
|
|
|
|
$line--;
|
|
|
|
$col = $this->newlines[$pos];
|
|
|
|
// If the newline was a normalized CR+LF pair,
|
|
|
|
// go back one extra character
|
|
|
|
if (isset($this->normalized[$pos])) {
|
|
|
|
$pos--;
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
$col--;
|
|
|
|
// supplementary plane characters count as two
|
|
|
|
if ($this->astrals[$pos] ?? false) {
|
|
|
|
$this->_column--;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
$pos--;
|
|
|
|
} while (++$relativePos < 0);
|
|
|
|
return [$line, $col];
|
|
|
|
} else {
|
|
|
|
return [$this->_line, $this->_column + $relativePos];
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
return [0, 0];
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
public function __get($property) {
|
|
|
|
switch ($property) {
|
|
|
|
case 'column': return $this->_column;
|
|
|
|
break;
|
|
|
|
case 'line': return $this->_line;
|
|
|
|
break;
|
|
|
|
case 'pointer': return $this->data->posChar();
|
|
|
|
break;
|
|
|
|
default: return null;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|