schreadr.cpp

Go to the documentation of this file.

// +-------------------------------------------------------------------------+
// |               I__n__t__e__L__i__b           0.6.10 development          |
// | Copyright (c) Andrey Vikt. Stolyarov <crocodil_AT_croco.net> 2000-2007. |
// |                                                                         |
// | This is free software. The library part is available under              |
// |                               GNU LESSER GENERAL PUBLIC LICENSE v.2.1.  |
// | GNU LGPL v2.1 is found in docs/gnu_gpl2.txt,  or at  http://www.gnu.org |
// |     Please see also docs/readme.txt and visit http://www.intelib.org    |
// |                                                                         |
// | !!! THERE IS NO WARRANTY OF ANY KIND, NEITHER EXPRESSED NOR IMPLIED !!! |
// +-------------------------------------------------------------------------+




#include "../sexpress/svector.hpp"
#include "../sexpress/shashtbl.hpp"
#include "scheme.hpp"
#include "schreadr.hpp"

// transformer

static SReference QuoteExpression(const SReference &ref)
{
    return ~(SchReference(ref));
}

static SReference InvalidLexem(const char *)
{
    static SLabel inv("#<UNREADABLE-TOKEN>");
    return inv;
}

// SchemeReader

SchemeReader::SchemeReader()
{
    AddStringLiteral("#<", '>', InvalidLexem);
    AddQuoter("'", QuoteExpression);
    add_vectors_to_reader(*this);
    add_hashtables_to_reader(*this);
    AddDelimiter("#T", *PTheSchemeBooleanTrue);
    AddDelimiter("#t", *PTheSchemeBooleanTrue);
    AddDelimiter("#F", *PTheSchemeBooleanFalse);
    AddDelimiter("#f", *PTheSchemeBooleanFalse);
}

---