1
Fork 0
mirror of https://github.com/RGBCube/serenity synced 2025-05-14 12:05:00 +00:00
serenity/Userland/Libraries/LibPDF/Parser.cpp
Julian Offenhäuser 4887aacec7 LibPDF: Move document-specific parsing functionality into its own class
The Parser class is now a generic PDF object parser, of which the new
DocumentParser class derives. DocumentParser now takes over all
functions relating to linearization, pages, xref and trailer handling.

This allows the use of multiple parsers in the same document's
context, which will be needed in order to handle PDF object streams.
2022-09-17 10:07:14 +01:00

537 lines
15 KiB
C++

/*
* Copyright (c) 2021-2022, Matthew Olsson <mattco@serenityos.org>
*
* SPDX-License-Identifier: BSD-2-Clause
*/
#include <AK/ScopeGuard.h>
#include <LibPDF/CommonNames.h>
#include <LibPDF/Document.h>
#include <LibPDF/Filter.h>
#include <LibPDF/Parser.h>
#include <LibTextCodec/Decoder.h>
#include <ctype.h>
namespace PDF {
PDFErrorOr<Vector<Operator>> Parser::parse_operators(Document* document, ReadonlyBytes bytes)
{
Parser parser(document, bytes);
parser.m_disable_encryption = true;
return parser.parse_operators();
}
Parser::Parser(Document* document, ReadonlyBytes bytes)
: m_reader(bytes)
, m_document(document)
{
}
Parser::Parser(ReadonlyBytes bytes)
: m_reader(bytes)
{
}
void Parser::set_document(WeakPtr<Document> const& document)
{
m_document = document;
}
String Parser::parse_comment()
{
if (!m_reader.matches('%'))
return {};
m_reader.consume();
auto comment_start_offset = m_reader.offset();
m_reader.move_until([&](auto) {
return m_reader.matches_eol();
});
String str = StringView(m_reader.bytes().slice(comment_start_offset, m_reader.offset() - comment_start_offset));
m_reader.consume_eol();
m_reader.consume_whitespace();
return str;
}
PDFErrorOr<Value> Parser::parse_value()
{
parse_comment();
if (m_reader.matches("null")) {
m_reader.move_by(4);
m_reader.consume_whitespace();
return Value(nullptr);
}
if (m_reader.matches("true")) {
m_reader.move_by(4);
m_reader.consume_whitespace();
return Value(true);
}
if (m_reader.matches("false")) {
m_reader.move_by(5);
m_reader.consume_whitespace();
return Value(false);
}
if (m_reader.matches_number())
return parse_possible_indirect_value_or_ref();
if (m_reader.matches('/'))
return MUST(parse_name());
if (m_reader.matches("<<")) {
auto dict = TRY(parse_dict());
if (m_reader.matches("stream"))
return TRY(parse_stream(dict));
return dict;
}
if (m_reader.matches_any('(', '<'))
return parse_string();
if (m_reader.matches('['))
return TRY(parse_array());
return error(String::formatted("Unexpected char \"{}\"", m_reader.peek()));
}
PDFErrorOr<Value> Parser::parse_possible_indirect_value_or_ref()
{
auto first_number = TRY(parse_number());
if (!m_reader.matches_number())
return first_number;
m_reader.save();
auto second_number = parse_number();
if (second_number.is_error()) {
m_reader.load();
return first_number;
}
if (m_reader.matches('R')) {
m_reader.discard();
m_reader.consume();
m_reader.consume_whitespace();
return Value(Reference(first_number.get<int>(), second_number.value().get<int>()));
}
if (m_reader.matches("obj")) {
m_reader.discard();
auto index = first_number.get<int>();
auto generation = second_number.value().get<int>();
VERIFY(index >= 0);
VERIFY(generation >= 0);
return TRY(parse_indirect_value(index, generation));
}
m_reader.load();
return first_number;
}
PDFErrorOr<NonnullRefPtr<IndirectValue>> Parser::parse_indirect_value(u32 index, u32 generation)
{
if (!m_reader.matches("obj"))
return error("Expected \"obj\" at beginning of indirect value");
m_reader.move_by(3);
if (m_reader.matches_eol())
m_reader.consume_eol();
push_reference({ index, generation });
auto value = TRY(parse_value());
if (!m_reader.matches("endobj"))
return error("Expected \"endobj\" at end of indirect value");
m_reader.consume(6);
m_reader.consume_whitespace();
pop_reference();
return make_object<IndirectValue>(index, generation, value);
}
PDFErrorOr<NonnullRefPtr<IndirectValue>> Parser::parse_indirect_value()
{
auto first_number = TRY(parse_number());
auto second_number = TRY(parse_number());
auto index = first_number.get<int>();
auto generation = second_number.get<int>();
VERIFY(index >= 0);
VERIFY(generation >= 0);
return parse_indirect_value(index, generation);
}
PDFErrorOr<Value> Parser::parse_number()
{
size_t start_offset = m_reader.offset();
bool is_float = false;
bool consumed_digit = false;
if (m_reader.matches('+') || m_reader.matches('-'))
m_reader.consume();
while (!m_reader.done()) {
if (m_reader.matches('.')) {
if (is_float)
break;
is_float = true;
m_reader.consume();
} else if (isdigit(m_reader.peek())) {
m_reader.consume();
consumed_digit = true;
} else {
break;
}
}
if (!consumed_digit)
return error("Invalid number");
m_reader.consume_whitespace();
auto string = String(m_reader.bytes().slice(start_offset, m_reader.offset() - start_offset));
float f = strtof(string.characters(), nullptr);
if (is_float)
return Value(f);
VERIFY(floorf(f) == f);
return Value(static_cast<int>(f));
}
PDFErrorOr<NonnullRefPtr<NameObject>> Parser::parse_name()
{
if (!m_reader.consume('/'))
return error("Expected Name object to start with \"/\"");
StringBuilder builder;
while (true) {
if (!m_reader.matches_regular_character())
break;
if (m_reader.matches('#')) {
int hex_value = 0;
for (int i = 0; i < 2; i++) {
auto ch = m_reader.consume();
VERIFY(isxdigit(ch));
hex_value *= 16;
if (ch <= '9') {
hex_value += ch - '0';
} else {
hex_value += ch - 'A' + 10;
}
}
builder.append(static_cast<char>(hex_value));
continue;
}
builder.append(m_reader.consume());
}
m_reader.consume_whitespace();
return make_object<NameObject>(builder.to_string());
}
NonnullRefPtr<StringObject> Parser::parse_string()
{
ScopeGuard guard([&] { m_reader.consume_whitespace(); });
String string;
bool is_binary_string;
if (m_reader.matches('(')) {
string = parse_literal_string();
is_binary_string = false;
} else {
string = parse_hex_string();
is_binary_string = true;
}
VERIFY(!string.is_null());
auto string_object = make_object<StringObject>(string, is_binary_string);
if (m_document->security_handler() && !m_disable_encryption)
m_document->security_handler()->decrypt(string_object, m_current_reference_stack.last());
auto unencrypted_string = string_object->string();
if (unencrypted_string.bytes().starts_with(Array<u8, 2> { 0xfe, 0xff })) {
// The string is encoded in UTF16-BE
string_object->set_string(TextCodec::decoder_for("utf-16be")->to_utf8(unencrypted_string));
} else if (unencrypted_string.bytes().starts_with(Array<u8, 3> { 239, 187, 191 })) {
// The string is encoded in UTF-8. This is the default anyways, but if these bytes
// are explicitly included, we have to trim them
string_object->set_string(unencrypted_string.substring(3));
}
return string_object;
}
String Parser::parse_literal_string()
{
VERIFY(m_reader.consume('('));
StringBuilder builder;
auto opened_parens = 0;
while (true) {
if (m_reader.matches('(')) {
opened_parens++;
builder.append(m_reader.consume());
} else if (m_reader.matches(')')) {
m_reader.consume();
if (opened_parens == 0)
break;
opened_parens--;
builder.append(')');
} else if (m_reader.matches('\\')) {
m_reader.consume();
if (m_reader.matches_eol()) {
m_reader.consume_eol();
continue;
}
if (m_reader.done())
return {};
auto ch = m_reader.consume();
switch (ch) {
case 'n':
builder.append('\n');
break;
case 'r':
builder.append('\r');
break;
case 't':
builder.append('\t');
break;
case 'b':
builder.append('\b');
break;
case 'f':
builder.append('\f');
break;
case '(':
builder.append('(');
break;
case ')':
builder.append(')');
break;
case '\\':
builder.append('\\');
break;
default: {
if (ch >= '0' && ch <= '7') {
int octal_value = ch - '0';
for (int i = 0; i < 2; i++) {
auto octal_ch = m_reader.consume();
if (octal_ch < '0' || octal_ch > '7')
break;
octal_value = octal_value * 8 + (octal_ch - '0');
}
builder.append(static_cast<char>(octal_value));
} else {
builder.append(ch);
}
}
}
} else if (m_reader.matches_eol()) {
m_reader.consume_eol();
builder.append('\n');
} else {
builder.append(m_reader.consume());
}
}
return builder.to_string();
}
String Parser::parse_hex_string()
{
VERIFY(m_reader.consume('<'));
StringBuilder builder;
while (true) {
if (m_reader.matches('>')) {
m_reader.consume();
return builder.to_string();
} else {
int hex_value = 0;
for (int i = 0; i < 2; i++) {
auto ch = m_reader.consume();
if (ch == '>') {
// The hex string contains an odd number of characters, and the last character
// is assumed to be '0'
m_reader.consume();
hex_value *= 16;
builder.append(static_cast<char>(hex_value));
return builder.to_string();
}
VERIFY(isxdigit(ch));
hex_value *= 16;
if (ch <= '9') {
hex_value += ch - '0';
} else if (ch >= 'A' && ch <= 'F') {
hex_value += ch - 'A' + 10;
} else {
hex_value += ch - 'a' + 10;
}
}
builder.append(static_cast<char>(hex_value));
}
}
}
PDFErrorOr<NonnullRefPtr<ArrayObject>> Parser::parse_array()
{
if (!m_reader.consume('['))
return error("Expected array to start with \"[\"");
m_reader.consume_whitespace();
Vector<Value> values;
while (!m_reader.matches(']'))
values.append(TRY(parse_value()));
VERIFY(m_reader.consume(']'));
m_reader.consume_whitespace();
return make_object<ArrayObject>(values);
}
PDFErrorOr<NonnullRefPtr<DictObject>> Parser::parse_dict()
{
if (!m_reader.consume('<') || !m_reader.consume('<'))
return error("Expected dict to start with \"<<\"");
m_reader.consume_whitespace();
HashMap<FlyString, Value> map;
while (!m_reader.done()) {
if (m_reader.matches(">>"))
break;
auto name = TRY(parse_name())->name();
auto value = TRY(parse_value());
map.set(name, value);
}
if (!m_reader.consume('>') || !m_reader.consume('>'))
return error("Expected dict to end with \">>\"");
m_reader.consume_whitespace();
return make_object<DictObject>(map);
}
PDFErrorOr<NonnullRefPtr<StreamObject>> Parser::parse_stream(NonnullRefPtr<DictObject> dict)
{
if (!m_reader.matches("stream"))
return error("Expected stream to start with \"stream\"");
m_reader.move_by(6);
if (!m_reader.consume_eol())
return error("Expected \"stream\" to be followed by a newline");
ReadonlyBytes bytes;
auto maybe_length = dict->get(CommonNames::Length);
if (maybe_length.has_value() && (!maybe_length->has<Reference>())) {
// The PDF writer has kindly provided us with the direct length of the stream
m_reader.save();
auto length = TRY(m_document->resolve_to<int>(maybe_length.value()));
m_reader.load();
bytes = m_reader.bytes().slice(m_reader.offset(), length);
m_reader.move_by(length);
m_reader.consume_whitespace();
} else {
// We have to look for the endstream keyword
auto stream_start = m_reader.offset();
while (true) {
m_reader.move_until([&](auto) { return m_reader.matches_eol(); });
auto potential_stream_end = m_reader.offset();
m_reader.consume_eol();
if (!m_reader.matches("endstream"))
continue;
bytes = m_reader.bytes().slice(stream_start, potential_stream_end - stream_start);
break;
}
}
m_reader.move_by(9);
m_reader.consume_whitespace();
auto stream_object = make_object<StreamObject>(dict, MUST(ByteBuffer::copy(bytes)));
if (m_document->security_handler() && !m_disable_encryption)
m_document->security_handler()->decrypt(stream_object, m_current_reference_stack.last());
if (dict->contains(CommonNames::Filter)) {
auto filter_type = MUST(dict->get_name(m_document, CommonNames::Filter))->name();
auto maybe_bytes = Filter::decode(stream_object->bytes(), filter_type);
if (maybe_bytes.is_error()) {
warnln("Failed to decode filter: {}", maybe_bytes.error().string_literal());
return error(String::formatted("Failed to decode filter {}", maybe_bytes.error().string_literal()));
}
stream_object->buffer() = maybe_bytes.release_value();
}
return stream_object;
}
PDFErrorOr<Vector<Operator>> Parser::parse_operators()
{
Vector<Operator> operators;
Vector<Value> operator_args;
constexpr static auto is_operator_char = [](char ch) {
return isalpha(ch) || ch == '*' || ch == '\'';
};
while (!m_reader.done()) {
auto ch = m_reader.peek();
if (is_operator_char(ch)) {
auto operator_start = m_reader.offset();
while (is_operator_char(ch)) {
m_reader.consume();
if (m_reader.done())
break;
ch = m_reader.peek();
}
auto operator_string = StringView(m_reader.bytes().slice(operator_start, m_reader.offset() - operator_start));
auto operator_type = Operator::operator_type_from_symbol(operator_string);
operators.append(Operator(operator_type, move(operator_args)));
operator_args = Vector<Value>();
m_reader.consume_whitespace();
continue;
}
operator_args.append(TRY(parse_value()));
}
return operators;
}
Error Parser::error(
String const& message
#ifdef PDF_DEBUG
,
SourceLocation loc
#endif
) const
{
#ifdef PDF_DEBUG
dbgln("\033[31m{} Parser error at offset {}: {}\033[0m", loc, m_reader.offset(), message);
#endif
return Error { Error::Type::Parse, message };
}
}