Massive SemA/BC refactoring to support better type systems. Read on for more.

The previous compiler had a simple pipeline, best outlined as:
(1) Parsing and name binding -> AST
(2) Storage allocation -> AST
(3) Semantic Analysis (SemA) -> AST
(4) Bytecode Compilation (BC) -> Code

This pipeline, unfortunately, had two problems. First, name binding cannot be performed in one pass if we wish to have multi-file support in the form of modules. Name binding must be two-pass.

Second, because SemA was only capable of annotating AST nodes with a single type, most coercion work had to be duplicated in the BC phase, as coercion was not explicit in the SemA output. This made introducing new type rules extremely difficult, and all but precluded concepts like operator overloading (or overloading at all).

This patch rewrites most of Keima's backend. Of interest are the following changes:
(1) CompileContext has been refactored around future multi-file support.
(2) Parsing no longer performs any name binding.
(3) The grammar for type-and-name has been changed from:
(Label | Identifier)? Identifier
to:
Type? Identifier
where:
Type ::= OldType | NewType
OldType ::= Label
NewType ::= Identifier (. NewType)*


Although we do not implement the full production for Type yet, this
distinction is important. A type identifier is now affixed to the AST
as an Expression (right now, always a NameProxy), so it can fully
participate in name binding.

(4) Immediately after parsing, the AST goes through a NamePopulation phase.
This phase creates Scope objects for every scope which declares a name,
and if those names are declaring types or functions, a Symbol is created
and entered into the scope. Symbols entirely replace the old BoundName
classes.

(5) After NamePopulation comes NameBinding. This phase performs three steps:
(a) Links Scope objects together, to form a tree.
(b) Binds any free name to an existing name in the scope chain.
(c) Creates and registers any Symbols for names which have not yet been
added to the scope (for example, local variables).

In accordance, all "allocation" and "binding" concepts have been removed
from Scopes, which are now lightweight container classes.

(6) SemA now generates bytecode for each statement in the AST. Expression
compilation is performed via a separate mechanism called HIR (High-level
Intermediate Representation). To analyze an expression, SemA will walk
the AST, and produce a HIR object for each node. HIR is typed, and SemA
may insert coercion nodes, or even expand an AST node into multiple HIR
nodes. The result of evaluating an expression in SemA is therefore the
the root of a HIR tree, which SemA then sends to the HIRTranslator, which
performs bytecode generation.

As before, SemA still performs full semantic analysis. However, not it
also produces each function's bytecode.

This split allows us to decompose potentially complex semantics into
a more fine-grained, AST-like structure, which can have very simple
code-generation logic. For example, (1.0 + 5) might look like:

HAdd(HFloat(1.0), HConvert(HInteger(5), <Float>))

As part of this decomposition, many opcodes have been removed. Rather than
using typed jumps, we now expand jumps into longer tests. For example:
jge.f <label>
becomes:
ge.f
cvt.f2b
jt <label>

This simplifies the pipeline, and JITs should be able to melt the added
work away.

HIR is not used at a statement level, and HIR does not have any concept
of control-flow.

(7) The old BytecodeCompiler has been removed, as its work is now split
between SemA and HIRTranslator.


In addition, some minor refactorings have taken place:

(1) Opcodes.tbl no longer hardcodes numbers (aaah).
(2) Type has been split into smaller, typed structs.
(3) BytecodeEmitter no longer relies on Pools or RootScopes.
(4) SemA is now responsible for variable/storage allocation.
(5) Native table are now global, rather than per-module. As such, native
declarations now result in a Native object (which still requires a
CALLNATIVE opcode), which is an index into the global table. Natives
must be bound globally. This is in preparation for module support.
(6) Publics are no longer tracked, but rather registered via a global
callback upon module load. This callback can be set by embedders. This
is in preparation for multi-file support.
(7) The BytecodeEmitter now performs Symbol allocations itself, and it
also generates Code objects itself, which removes a good deal of
complexity.

Finally, a test harness has been added. This harness is a python script which finds *.test files, recursively, in the tests folder. For each file it runs the corresponding .sp. The contents of the .test file must match stdout+stderr.

/* vim: set ts=4 sw=4 tw=99 et:

 *

 * Copyright (C) 2012 David Anderson

 *

 * This file is part of SourcePawn.

 *

 * SourcePawn is free software: you can redistribute it and/or modify it under

 * the terms of the GNU General Public License as published by the Free

 * Software Foundation, either version 3 of the License, or (at your option)

 * any later version.

 * 

 * SourcePawn is distributed in the hope that it will be useful, but WITHOUT ANY

 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS

 * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License along with

 * SourcePawn. If not, see http://www.gnu.org/licenses/.

 */

#include <string.h>

#include "Structures.h"

#include "Zone.h"

#include "Types.h"

#include "Array.h"

#include "Spaces-inl.h"

#include "Heap-inl.h"

using namespace ke;

StructureBufferBuilder::StructureBufferBuilder()

  : size_(0)

{

}

bool

StructureBufferBuilder::add(Handle<Type> type, unsigned *offset)

{

    *offset = size_;

    if (!type->isTraceable()) {

        // For now, assume the size of primitives is 4-byte.

        assert(type->isInt32() || type->isFloat());

        size_ += 4;

        return true;

    }

    if (!offsets_.append(size_))

        return false;

    size_ += sizeof(Object *);

    return true;

}

Descriptor *

Descriptor::New(Zone *zone, Handle<String> name, Handle<Type> type)

{

    Local<Descriptor> desc(zone,

        Descriptor::cast(zone->allocate(MapKind_Descriptor, sizeof(Descriptor), Heap::Tenure_Old)));

    if (!desc)

        return NULL;

    desc->name_ = name;

    desc->type_ = type;

    desc->offset_ = unsigned(-1);

    return desc;

}

StructMap *

StructMap::New(Zone *zone, const StructureBufferBuilder &builder, Handle<StructType> type)

{

    Vector<unsigned> composedIndexes;

    for (size_t i = 0; i < type->fields()->length(); i++) {

        Descriptor *desc = Descriptor::cast(type->fields()->at(i));

        if (desc->type()->isArray() || desc->type()->isStruct()) {

            if (!composedIndexes.append(i))

                return NULL;

        }

    }

    Local<FixedArray> composed(zone, FixedArray::New(zone, composedIndexes.length(), Heap::Tenure_Old));

    if (!composed)

        return NULL;

    for (size_t i = 0; i < composedIndexes.length(); i++) {

        Descriptor *desc = Descriptor::cast(type->fields()->at(composedIndexes[i]));

        composed->set(zone, i, desc);

    }

    size_t bytesNeeded = sizeof(StructMap) +

                         (builder.traceableOffsetCount() * sizeof(unsigned));

    Local<StructMap> map(zone);

    map = StructMap::cast(zone->allocateMap(MapKind_Struct, bytesNeeded, MapKind_MetaStruct));

    if (!map)

        return NULL;

    map->structureSize_ = builder.structureSize();

    map->traceOffsetCount_ = builder.traceableOffsetCount();

    map->type_ = type;

    map->composed_ = composed;

    memcpy(const_cast<unsigned *>(map->traceOffsets()), builder.offsets(),

           sizeof(unsigned) * builder.traceableOffsetCount());

    return map;

}

Struct *

Struct::New(Zone *zone, Handle<StructMap> map, Heap::Tenure tenure)

{

    size_t bytesNeeded = sizeof(Struct) + map->structureSize();

    Local<Struct> obj(zone, Struct::cast(zone->allocate(map, bytesNeeded, tenure)));

    if (!obj)

        return NULL;

    memset((Struct *)obj + 1, 0, map->structureSize());

    // Initialize any sub-structures. Right now, this is performed as part of

    // struct allocation, rather than inlined in bytecode, for simplicity.

    if (map->composed()) {

        Local<Descriptor> desc(zone);

        Local<Object> child(zone);

        Local<StructMap> childStructMap(zone);

        Local<ArrayMap> childArrayMap(zone);

        for (unsigned i = 0; i < map->composed()->length(); i++) {

            desc = Descriptor::cast(map->composed()->at(i));

            if (desc->type()->isStruct()) {

                childStructMap = StructMap::cast(StructType::cast(desc->type())->newMap());

                child = Struct::New(zone, childStructMap, tenure);

            } else if (desc->type()->isArray()) {

                assert(false);

#if 0

                childArrayMap = ArrayMap::cast(desc->type()->newMap());

                if (desc->type()->isFixedLength())

                    child = Array::NewFixed(zone, childArrayMap, tenure);

                else

                    child = Array::NewEmpty(zone, childArrayMap, tenure);

#endif

            }

            if (!child)

                return NULL;

            obj->set(zone, desc, child);

        }

    }

    return obj;

}