Annotation-System/cinera/cinera_config.c

#if 0
ctime -begin ${0%.*}.ctm
gcc -g -Wall -fsanitize=address -std=c99 $0 -o ${0%.*}
#clang -g -fsanitize=address -std=c99 $0 -o ${0%.*}
ctime -end ${0%.*}.ctm
exit
#endif

// config
//
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <stdarg.h>

#define ArgCountPointer(...) (sizeof((void *[]){__VA_ARGS__})/sizeof(void *))

#define DigitsInInt(I) DigitsInInt_(I, sizeof(*I))
uint8_t
DigitsInInt_(void *Int, uint8_t WidthInBytes)
{
    uint8_t Result = 0;
    switch(WidthInBytes)
    {
        case 1:
            {
                int8_t This = *(int8_t *)Int;
                if(This <= 0) { This = ~This; ++Result; if(This == 0) { ++Result; return Result; } }
                for(; This > 0; This /= 10) { ++Result; }
            } break;
        case 2:
            {
                int16_t This = *(int16_t *)Int;
                if(This <= 0) { This = ~This; ++Result; if(This == 0) { ++Result; return Result; } }
                for(; This > 0; This /= 10) { ++Result; }
            } break;
        case 4:
            {
                int32_t This = *(int32_t *)Int;
                if(This <= 0) { This = ~This; ++Result; if(This == 0) { ++Result; return Result; } }
                for(; This > 0; This /= 10) { ++Result; }
            } break;
        case 8:
            {
                int64_t This = *(int64_t *)Int;
                if(This <= 0) { This = ~This; ++Result; if(This == 0) { ++Result; return Result; } }
                for(; This > 0; This /= 10) { ++Result; }
            } break;
        default:
            {
                Assert(0);
            }
    }
    return Result;
}

#define DigitsInUint(I) DigitsInUint_(I, sizeof(*I))
uint8_t
DigitsInUint_(void *Uint, uint8_t WidthInBytes)
{
    uint32_t Result = 0;
    switch(WidthInBytes)
    {
        case 1:
            {
                uint8_t This = *(uint8_t *)Uint;
                if(This == 0) { ++Result; return Result; }
                for(; This > 0; This /= 10) { ++Result; }
            } break;
        case 2:
            {
                uint16_t This = *(uint16_t *)Uint;
                if(This == 0) { ++Result; return Result; }
                for(; This > 0; This /= 10) { ++Result; }
            } break;
        case 4:
            {
                uint32_t This = *(uint32_t *)Uint;
                if(This == 0) { ++Result; return Result; }
                for(; This > 0; This /= 10) { ++Result; }
            } break;
        case 8:
            {
                uint64_t This = *(uint64_t *)Uint;
                if(This == 0) { ++Result; return Result; }
                for(; This > 0; This /= 10) { ++Result; }
            } break;
        default:
            {
                Assert(0);
            }
    }
    return Result;
}


#define MakeString(Format, ...) MakeString_(__FILE__, __LINE__, Format, ArgCountPointer(__VA_ARGS__), __VA_ARGS__)
string
MakeString_(char *Filename, int LineNumber, char *Format, int ArgCount, ...)
{
    // NOTE(matt):  Be sure to free built strings when you're finished with them
    //
    // Usage:
    //
    //      Similar to printf and friends, MakeString() takes a format string as its first argument.
    //      While printf has many format specifiers - e.g. %s, %d, %c - MakeString() has two: s, l
    //          s: Null-terminated string, i.e. char *
    //          l: Length-string, i.e. string *
    //      We allocate memory, null-terminate and return the char *
    //
    //      Examples:
    //          1.  char *BuiltString = MakeString("ss", "First", "Second");
    //          2.  char *Input = "First";
    //              char *BuiltString = MakeString("ss", Input, "Second");
    //          3.  string Input = { .Base = "Second", .Length = StringLength("Second") };
    //              char *BuiltString = MakeString("sl", "First", &Input);

    int FormatLength = StringLength(Format);
    if(FormatLength != ArgCount)
    {
        Colourise(CS_FAILURE); fprintf(stderr, "%s:%d MakeString()", Filename, LineNumber); Colourise(CS_END);
        fprintf(stderr,
                "\n"
                "    MakeString() has been passed a format string containing ");

        Colourise(CS_BLUE_BOLD); fprintf(stderr, "%d specifier%s", FormatLength, FormatLength == 1 ? "" : "s"); Colourise(CS_END);

        fprintf(stderr,
                ",\n"
                "    and ");

        Colourise(CS_BLUE_BOLD); fprintf(stderr, "%d argument%s", ArgCount, ArgCount == 1 ? "" : "s"); Colourise(CS_END);

        fprintf(stderr, ", but these numbers should be equal.\n");
        __asm__("int3");
    }

    // TODO(matt):  Type-checking, if possible?
    va_list Args;
    va_start(Args, ArgCount);
    string Result = {};
    for(int i = 0; i < FormatLength; ++i)
    {
        switch(Format[i])
        {
            case 's':
                {
                    char *Next = va_arg(Args, char *);
                    int NextLength = StringLength(Next);
                    Result.Base = realloc(Result.Base, Result.Length + NextLength);
                    char *Ptr = Result.Base + Result.Length;
                    while(*Next) { *Ptr++ = *Next++; }
                    Result.Length += NextLength;
                } break;
            case 'l':
                {
                    string *Next = va_arg(Args, string *);
                    Result.Base = realloc(Result.Base, Result.Length + Next->Length);
                    char *Ptr = Result.Base + Result.Length;
                    int j;
                    for(j = 0; j < Next->Length && Next->Base[j]; ++j)
                    {
                        *Ptr++ = Next->Base[j];
                    }
                    Result.Length += j;
                } break;
            default:
                {
                    Colourise(CS_FAILURE); fprintf(stderr, "%s:%d", Filename, LineNumber); Colourise(CS_END);
                    fprintf(stderr, "\n"
                            "    MakeString() has been passed an unsupported format specifier: %c\n", Format[i]);
                    __asm__("int3");
                } break;
        }
    }

    va_end(Args);
    return Result;
}

#define MakeString0(Format, ...) MakeString0_(__FILE__, __LINE__, Format, ArgCountPointer(__VA_ARGS__), __VA_ARGS__)
char *
MakeString0_(char *Filename, int LineNumber, char *Format, int ArgCount, ...)
{
    // NOTE(matt):  Be sure to free built strings when you're finished with them
    //
    // Usage:
    //
    //      Similar to printf and friends, MakeString() takes a format string as its first argument.
    //      While printf has many format specifiers - e.g. %s, %d, %c - MakeString() has two: s, l
    //          s: Null-terminated string, i.e. char *
    //          l: Length-string, i.e. string *
    //      We allocate memory, null-terminate and return the char *
    //
    //      Examples:
    //          1.  char *BuiltString = MakeString("ss", "First", "Second");
    //          2.  char *Input = "First";
    //              char *BuiltString = MakeString("ss", Input, "Second");
    //          3.  string Input = { .Base = "Second", .Length = StringLength("Second") };
    //              char *BuiltString = MakeString("sl", "First", &Input);

    int FormatLength = StringLength(Format);
    if(FormatLength != ArgCount)
    {
        Colourise(CS_FAILURE); fprintf(stderr, "%s:%d MakeString0()", Filename, LineNumber); Colourise(CS_END);
        fprintf(stderr,
                "\n"
                "    MakeString0() has been passed a format string containing ");

        Colourise(CS_BLUE_BOLD); fprintf(stderr, "%d specifier%s", FormatLength, FormatLength == 1 ? "" : "s"); Colourise(CS_END);

        fprintf(stderr,
                ",\n"
                "    and ");

        Colourise(CS_BLUE_BOLD); fprintf(stderr, "%d argument%s", ArgCount, ArgCount == 1 ? "" : "s"); Colourise(CS_END);

        fprintf(stderr, ", but these numbers should be equal.\n");
        __asm__("int3");
    }

    // TODO(matt):  Type-checking, if possible?
    va_list Args;
    va_start(Args, ArgCount);
    char *Result = 0;
    int RequiredSpace = 0;
    for(int i = 0; i < FormatLength; ++i)
    {
        switch(Format[i])
        {
            case 's':
                {
                    char *Next = va_arg(Args, char *);
                    int NextLength = StringLength(Next);
                    Result = realloc(Result, RequiredSpace + NextLength);
                    char *Ptr = Result + RequiredSpace;
                    while(*Next) { *Ptr++ = *Next++; }
                    RequiredSpace += NextLength;
                } break;
            case 'l':
                {
                    string *Next = va_arg(Args, string *);
                    Result = realloc(Result, RequiredSpace + Next->Length);
                    char *Ptr = Result + RequiredSpace;
                    int j;
                    for(j = 0; j < Next->Length && Next->Base[j]; ++j)
                    {
                        *Ptr++ = Next->Base[j];
                    }
                    RequiredSpace += j;
                } break;
            case 'd':
                {
                    int32_t Next = *va_arg(Args, int32_t *);
                    int NextLength = DigitsInInt(&Next);
                    Result = realloc(Result, RequiredSpace + NextLength);
                    char *Ptr = Result + RequiredSpace;
                    sprintf(Ptr, "%d", Next);
                    RequiredSpace += NextLength;
                } break;
            case 'u':
                {
                    uint32_t Next = *va_arg(Args, uint32_t *);
                    int NextLength = DigitsInUint(&Next);
                    Result = realloc(Result, RequiredSpace + NextLength);
                    char *Ptr = Result + RequiredSpace;
                    sprintf(Ptr, "%u", Next);
                    RequiredSpace += NextLength;
                } break;
            default:
                {
                    Colourise(CS_FAILURE); fprintf(stderr, "%s:%d", Filename, LineNumber); Colourise(CS_END);
                    fprintf(stderr, "\n"
                            "    MakeString0() has been passed an unsupported format specifier: %c\n", Format[i]);
                    __asm__("int3");
                } break;
        }
    }

    va_end(Args);
    ++RequiredSpace;
    Result = realloc(Result, RequiredSpace);
    Result[RequiredSpace - 1] = '\0';
    return Result;
}

file
InitFile(string *Directory, string *Filename, extension_id Extension)
{
    file Result = {};
    if(Directory)
    {
        ExtendString0(&Result.Path, *Directory);
        ExtendString0(&Result.Path, Wrap0("/"));
    }

    ExtendString0(&Result.Path, *Filename);

    if(Extension != EXT_NULL)
    {
        ExtendString0(&Result.Path, ExtensionStrings[Extension]);
    }
    return Result;
}

void
ReadFileIntoBuffer(file *F)
{
    if(F->Path)
    {
        if((F->Handle = fopen(F->Path, "r")))
        {
            fseek(F->Handle, 0, SEEK_END);
            F->Buffer.Size = ftell(F->Handle);
            F->Buffer.Location = malloc(F->Buffer.Size);
            F->Buffer.Ptr = F->Buffer.Location;
            fseek(F->Handle, 0, SEEK_SET);
            fread(F->Buffer.Location, F->Buffer.Size, 1, F->Handle);
            fclose(F->Handle);
            F->Handle = 0;
        }
        else
        {
            perror(F->Path);
        }
    }
}

void
PushToken(tokens *Set, token *Token)
{
    // NOTE(matt):  We don't bother to push comments or newlines on to the token list
    //PrintFunctionName("PushToken()");
    if(!(Token->Type == TOKEN_NULL || Token->Type == TOKEN_COMMENT || Token->Type == TOKEN_NEWLINE))
    {
        Set->Token = Fit(Set->Token, sizeof(*Set->Token), Set->Count, 16, TRUE);
        Set->Token[Set->Count].Type = Token->Type;
        Set->Token[Set->Count].LineNumber = Set->CurrentLine;

        if(Token->Type == TOKEN_NUMBER)
        {
            Set->Token[Set->Count].int64_t = StringToInt(Token->Content);
        }
        else
        {
            Set->Token[Set->Count].Content = Token->Content;
        }
        ++Set->Count;
    }
}

void
PrintToken(token *T, uint64_t Index)
{
        fprintf(stderr, "[%lu, %s] ", Index, TokenTypeStrings[T->Type]);
        if(T->Type == TOKEN_NUMBER)
        {
            Colourise(CS_BLUE_BOLD);
            fprintf(stderr, "%li", T->int64_t);
            Colourise(CS_END);

        }
        else if(T->Type == TOKEN_COMMENT)
        {
            PrintStringC(CS_BLACK_BOLD, T->Content);
        }
        else
        {
            PrintString(T->Content);
        }
        fprintf(stderr, "\n");
}

void
PrintTokens(tokens *T)
{
    //PrintFunctionName("PrintTokens()");
    for(int i = 0; i < T->Count; ++i)
    {
        PrintToken(&T->Token[i], i);
    }
}

tokens *
PushTokens(tokens_list *S)
{
    S->Tokens = Fit(S->Tokens, sizeof(*S->Tokens), S->Count, 4, TRUE);
    S->Tokens[S->Count].CurrentLine = 1;
    ++S->Count;
    return &S->Tokens[S->Count - 1];
}

void
FreeTokensList(tokens_list *T)
{
    for(int i = 0; i < T->Count; ++i)
    {
        T->Tokens[i].CurrentIndex = 0;
        T->Tokens[i].CurrentLine = 0;
        FreeAndResetCount(T->Tokens[i].Token, T->Tokens[i].Count);
        FreeFile(&T->Tokens[i].File);
    }
    T->Count = 0;
}

void
SkipWhitespace(tokens *T, buffer *B)
{
    while(B->Ptr - B->Location < B->Size &&
            (*B->Ptr == ' ' ||
            //*B->Ptr == '\n' ||
            *B->Ptr == '\t'))
    {
        ++B->Ptr;
    }
}

void
Advance(buffer *B, uint64_t Distance)
{
    if(B->Ptr + Distance - B->Location <= B->Size)
    {
        B->Ptr += Distance;
    }
}

string
GetUTF8Character(char *Ptr, uint64_t BytesRemaining)
{
    string Result = {};
    if((uint8_t)(Ptr[0] & 0b11111000) == 0b11110000)
    {
        ++Result.Length;
        if(BytesRemaining >= 3)
        {
            if((uint8_t)(Ptr[1] & 0b11000000) == 0b10000000 &&
                    (uint8_t)(Ptr[2] & 0b11000000) == 0b10000000 &&
                    (uint8_t)(Ptr[3] & 0b11000000) == 0b10000000)
            {
                Result.Length = 4;
                Result.Base = Ptr;
                return Result;
            }
        }
    }
    else if((uint8_t)(Ptr[0] & 0b11110000) == 0b11100000)
    {
        ++Result.Length;
        if(BytesRemaining >= 2)
        {
            if((uint8_t)(Ptr[1] & 0b11000000) == 0b10000000 &&
                    (uint8_t)(Ptr[2] & 0b11000000) == 0b10000000)
            {
                Result.Length = 3;
                Result.Base = Ptr;
                return Result;
            }
        }
    }
    else if((uint8_t)(Ptr[0] & 0b11100000) == 0b11000000)
    {
        ++Result.Length;
        if(BytesRemaining >= 1)
        {
            if((uint8_t)(Ptr[1] & 0b11000000) == 0b10000000)
            {
                Result.Length = 2;
                Result.Base = Ptr;
                return Result;
            }
        }
    }
    else if((uint8_t)(Ptr[0] & 0b10000000) == 0b00000000)
    {
        ++Result.Length;
        Result.Base = Ptr;
        return Result;
    }

    for(; BytesRemaining >= Result.Length; ++Result.Length)
    {
        if(((uint8_t)(Ptr[Result.Length] & 0b11111000) == 0b11110000) ||
        ((uint8_t)(Ptr[Result.Length] & 0b11110000) == 0b11100000) ||
        ((uint8_t)(Ptr[Result.Length] & 0b11100000) == 0b11000000) ||
        ((uint8_t)(Ptr[Result.Length] & 0b10000000) == 0b00000000))
        {
            break;
        }
    }
    return Result;
}

typedef struct
{
    string ID;
    string Icon;
    string IconNormal;
    string IconFocused;
    icon_type IconType;
    uint64_t IconVariants;
    asset *IconAsset;
    string URL;
} support;

typedef struct
{
    string ID;
    string Icon;
    string IconNormal;
    string IconDisabled;
    string IconFocused;
    icon_type IconType;
    uint64_t IconVariants;
    asset *IconAsset;

    string Name;
    bool Hidden;
} medium;

typedef struct
{
    string ID;
    string Name;
    string Homepage;
    support *Support;
    uint8_t SupportCount;
} person;

typedef struct project
{
    string ID;
    string Lineage;

    string Title;
    string HTMLTitle;
    string Unit;
    string HMMLDir;
    string TemplatesDir;
    string SearchTemplatePath;
    string PlayerTemplatePath;

    string BaseDir;
    string BaseURL;
    string SearchLocation;
    string PlayerLocation;
    string Theme;

    string Art;
    uint64_t ArtVariants;
    asset *ArtAsset;

    string Icon;
    string IconNormal;
    string IconDisabled;
    string IconFocused;
    icon_type IconType;
    uint64_t IconVariants;
    asset *IconAsset;

    string StreamUsername;
    string VODPlatform;

    bool SingleBrowserTab;
    bool IgnorePrivacy;

    person *Owner;
    person **Indexer;
    person **Guest;
    person **CoHost;

    medium *Medium; // Multiple
    medium *DefaultMedium; // Pointer to Medium

    struct project *Child; // Multiple
    struct project *Parent; // Pointer to single parent

    genre Genre;
    numbering_scheme NumberingScheme;

    uint8_t IndexerCount;
    uint8_t GuestCount;
    uint8_t CoHostCount;

    uint8_t MediumCount;

    uint8_t ChildCount;

    db_project_index Index;
    template PlayerTemplate;
    template SearchTemplate;

    buffer NavDropdownPre;
    buffer NavHorizontalPre;
    buffer NavPlainPre;
    buffer NavGeneric;
    buffer NavDropdownPost;
} project;

typedef struct
{
    string DatabaseLocation;
    string CacheDir;

    string GlobalTemplatesDir;
    string GlobalSearchTemplatePath;
    string GlobalSearchDir;
    string GlobalSearchURL;
    string GlobalTheme;
    template SearchTemplate;

    buffer NavDropdownPre;
    buffer NavHorizontalPre;
    buffer NavPlainPre;
    buffer NavGeneric;
    buffer NavDropdownPost;

    string AssetsRootDir;
    string AssetsRootURL;
    string CSSDir;
    string ImagesDir;
    string JSDir;
    string QueryString;

    bool   RespectingPrivacy;
    time_t PrivacyCheckInterval;
    uint8_t LogLevel;

    person *Person;
    project *Project;
    uint8_t ProjectCount;
    uint8_t PersonCount;
    memory_book ResolvedVariables;
} config;

char *ExpandPath(string Path, string *RelativeToFile); // NOTE(matt): Forward declared. Consider reorganising the code?
void PushWatchHandle(string Path, extension_id Extension, watch_type Type, project *Project, asset *Asset); // NOTE(matt): Forward declared. Consider reorganising the code?

tokens *
Tokenise(tokens_list *TokensList, string Path)
{
    tokens *Result = 0;
    char *Path0 = MakeString0("l", &Path);
    FILE *Handle = 0;
    PushWatchHandle(Path, EXT_NULL, WT_CONFIG, 0, 0);
    if((Handle = fopen(Path0, "r")))
    {
        fclose(Handle);
        Result = PushTokens(TokensList);
        Result->File = InitFile(0, &Path, EXT_NULL);
        ReadFileIntoBuffer(&Result->File);
        buffer *B = &Result->File.Buffer;
        SkipWhitespace(Result, B);
        while(B->Ptr - B->Location < B->Size)
        {
            token T = {};
            uint64_t Advancement = 0;

            if(!StringsDifferS(TokenStrings[TOKEN_COMMENT_SINGLE], B))
            {
                T.Type = TOKEN_COMMENT;
                B->Ptr += StringLength(TokenStrings[TOKEN_COMMENT_SINGLE]);
                SkipWhitespace(Result, B);
                T.Content.Base = B->Ptr;
                while(B->Ptr && *B->Ptr != '\n')
                {
                    ++T.Content.Length;
                    ++B->Ptr;
                }
                if(*B->Ptr == '\n')
                {
                    ++Result->CurrentLine;
                }
                Advancement = 1;
            }
            else if(!StringsDifferS(TokenStrings[TOKEN_COMMENT_MULTI_OPEN], B))
            {
                uint64_t CommentDepth = 1;
                T.Type = TOKEN_COMMENT;
                B->Ptr += StringLength(TokenStrings[TOKEN_COMMENT_MULTI_OPEN]);
                SkipWhitespace(Result, B);
                T.Content.Base = B->Ptr;
                while(B->Ptr - B->Location < B->Size && CommentDepth)
                {
                    if(!StringsDifferS(TokenStrings[TOKEN_COMMENT_MULTI_CLOSE], B))
                    {
                        --CommentDepth;
                        B->Ptr += StringLength(TokenStrings[TOKEN_COMMENT_MULTI_CLOSE]);
                    }
                    else if(B->Ptr - B->Location < B->Size && *B->Ptr == '\n')
                    {
                        ++Result->CurrentLine;
                        ++B->Ptr;
                    }
                    else if(!StringsDifferS(TokenStrings[TOKEN_COMMENT_MULTI_OPEN], B))
                    {
                        ++CommentDepth;
                        B->Ptr += StringLength(TokenStrings[TOKEN_COMMENT_MULTI_OPEN]);
                    }
                    else
                    {
                        ++B->Ptr;
                    }
                }
                T.Content.Length = B->Ptr - T.Content.Base;
                Advancement = 0;//StringLength(TokenStrings[TOKEN_COMMENT_MULTI_CLOSE]);
            }
            else if(!StringsDifferS(TokenStrings[TOKEN_COMMENT_MULTI_CLOSE], B))
            {
                Advancement = 2;
                T.Type = TOKEN_NULL;
                string Char = { .Base = B->Ptr, .Length = 2 };
                ConfigError(Result->File.Path, Result->CurrentLine, S_WARNING, "Mismatched closing multiline comment marker: ", &Char);
            }
            else if(!StringsDifferS(TokenStrings[TOKEN_DOUBLEQUOTE], B))
            {
                T.Type = TOKEN_STRING;
                ++B->Ptr;
                T.Content.Base = B->Ptr;
                while(B->Ptr - B->Location < B->Size && *B->Ptr != '"')
                {
                    if(*B->Ptr == '\\')
                    {
                        ++T.Content.Length;
                        ++B->Ptr;
                    }
                    ++T.Content.Length;
                    ++B->Ptr;
                }
                Advancement = 1;
            }
            else if(!StringsDifferS(TokenStrings[TOKEN_ASSIGN], B))
            {
                T.Type = TOKEN_ASSIGN;
                T.Content.Base = B->Ptr;
                ++T.Content.Length;
                Advancement = 1;
            }
            else if(!StringsDifferS(TokenStrings[TOKEN_OPEN_BRACE], B))
            {
                T.Type = TOKEN_OPEN_BRACE;
                T.Content.Base = B->Ptr;
                ++T.Content.Length;
                Advancement = 1;
            }
            else if(!StringsDifferS(TokenStrings[TOKEN_CLOSE_BRACE], B))
            {
                T.Type = TOKEN_CLOSE_BRACE;
                T.Content.Base = B->Ptr;
                ++T.Content.Length;
                Advancement = 1;
            }
            else if(!StringsDifferS(TokenStrings[TOKEN_SEMICOLON], B))
            {
                T.Type = TOKEN_SEMICOLON;
                T.Content.Base = B->Ptr;
                ++T.Content.Length;
                Advancement = 1;
            }
            else if(IsValidIdentifierCharacter(*B->Ptr))
            {
                T.Type = TOKEN_IDENTIFIER;
                T.Content.Base = B->Ptr;
                while(IsValidIdentifierCharacter(*B->Ptr))
                {
                    ++T.Content.Length;
                    ++B->Ptr;
                }
                Advancement = 0;
            }
            else if(IsNumber(*B->Ptr))
            {
                T.Type = TOKEN_NUMBER;
                T.Content.Base = B->Ptr;
                while(IsNumber(*B->Ptr))
                {
                    ++T.Content.Length;
                    ++B->Ptr;
                }
                Advancement = 0;
            }
            else if(*B->Ptr == '\n')
            {
                T.Type = TOKEN_NEWLINE;
                T.Content.Base = B->Ptr;
                T.Content.Length = 1;
                ++Result->CurrentLine;
                Advancement = 1;
            }
            else
            {
                T.Type = TOKEN_NULL;
                string Char = GetUTF8Character(B->Ptr, B->Size - (B->Ptr - B->Location));
                Advancement = Char.Length;
                if(Char.Base)
                {
                    ConfigError(Result->File.Path, Result->CurrentLine, S_WARNING, "Unhandled character (ignored): ", &Char);
                }
                else
                {
                    ConfigErrorInt(Result->File.Path, Result->CurrentLine, S_WARNING, "Malformed UTF-8 bytes encountered (skipped): ", Char.Length);
                }
            }

            PushToken(Result, &T);
            Advance(B, Advancement);
            SkipWhitespace(Result, B);
        }
        // TODO(matt):  PushConfigWatchHandle()
    }
    else
    {
        ConfigError(0, 0, S_WARNING, "Unable to open config file: ", &Path);
    }
    Free(Path0);
    return Result;
}

bool
TokenEquals(tokens *T, char *String)
{
    int i = 0;
    for(; i < T->Token[T->CurrentIndex].Content.Length && *String && T->Token[T->CurrentIndex].Content.Base[i] == String[i]; ++i)
    {
    }
    if(i == T->Token[T->CurrentIndex].Content.Length && !String[i])
    {
        return TRUE;
    }
    return FALSE;
}

bool
TokenIs(tokens *T, token_type Type)
{
    return(T->Token[T->CurrentIndex].Type == Type);
}

bool
ExpectToken(tokens *T, token_type Type, token *Dest)
{
    bool Result = FALSE;

    if(T->Token[T->CurrentIndex].Type == Type)
    {
        Result = TRUE;
        if(Dest)
        {
            *Dest = T->Token[T->CurrentIndex];
        }
    }
    else
    {
        Dest = 0;
        ConfigErrorExpectation(T, Type, 0);
    }
    ++T->CurrentIndex;
    return Result;
}

char *FieldTypeNames[] =
{
    "bare",
    "boolean",
    "number",
    "scope",
    "string",
};

typedef enum
{
    FT_BARE,
    FT_BOOLEAN,
    FT_NUMBER,
    FT_SCOPE,
    FT_STRING,
} config_field_type;

typedef struct
{
    config_identifier_id ID;
    config_field_type Type;
    bool Singleton;
    bool IsSetLocally;
} config_type_field;

typedef struct
{
    config_identifier_id ID;
    bool Permeable;
    uint64_t FieldCount;
    config_type_field *Field;
} config_type_spec;

typedef struct
{
    uint64_t Count;
    config_type_spec *Spec;
} config_type_specs;

config_type_spec *
PushTypeSpec(config_type_specs *S, config_identifier_id ID, bool IsPermeable)
{
    //PrintFunctionName("PushTypeSpec()");
    S->Spec = Fit(S->Spec, sizeof(*S->Spec), S->Count, 16, FALSE);
    config_type_spec *Result = S->Spec + S->Count;
    S->Spec[S->Count].ID = ID;
    S->Spec[S->Count].FieldCount = 0;
    S->Spec[S->Count].Field = 0;
    S->Spec[S->Count].Permeable = IsPermeable;
    ++S->Count;
    return Result;
}

void
PushTypeSpecField(config_type_spec *Spec, config_field_type Type, config_identifier_id ID, bool Singleton)
{
    //PrintFunctionName("PushTypeSpecField()");
    Spec->Field = Fit(Spec->Field, sizeof(*Spec->Field), Spec->FieldCount, 4, FALSE);
    Spec->Field[Spec->FieldCount].Type = Type;
    Spec->Field[Spec->FieldCount].ID = ID;
    Spec->Field[Spec->FieldCount].Singleton = Singleton;
    Spec->Field[Spec->FieldCount].IsSetLocally = FALSE;
    ++Spec->FieldCount;
}

config_type_specs
InitTypeSpecs(void)
{
    //PrintFunctionName("InitTypeSpecs()");
    config_type_specs Result = {};
    config_type_spec *Root = PushTypeSpec(&Result, IDENT_NULL, FALSE);
    PushTypeSpecField(Root, FT_STRING, IDENT_ASSETS_ROOT_DIR, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_ASSETS_ROOT_URL, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_BASE_DIR, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_BASE_URL, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_CACHE_DIR, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_COHOST, FALSE);
    PushTypeSpecField(Root, FT_STRING, IDENT_CSS_PATH, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_DB_LOCATION, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_DEFAULT_MEDIUM, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_GENRE, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_GLOBAL_SEARCH_DIR, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_GLOBAL_SEARCH_TEMPLATE, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_GLOBAL_SEARCH_URL, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_GLOBAL_TEMPLATES_DIR, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_GLOBAL_THEME, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_GUEST, FALSE);
    PushTypeSpecField(Root, FT_STRING, IDENT_HMML_DIR, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_IMAGES_PATH, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_INDEXER, FALSE);
    PushTypeSpecField(Root, FT_STRING, IDENT_JS_PATH, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_LOG_LEVEL, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_NUMBERING_SCHEME, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_OWNER, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_PLAYER_LOCATION, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_PLAYER_TEMPLATE, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_QUERY_STRING, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_SEARCH_LOCATION, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_SEARCH_TEMPLATE, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_TEMPLATES_DIR, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_STREAM_USERNAME, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_VOD_PLATFORM, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_THEME, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_TITLE, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_HTML_TITLE, TRUE);
    // TODO(matt): Sort out this title list stuff
    //
    PushTypeSpecField(Root, FT_STRING, IDENT_TITLE_LIST_DELIMITER, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_TITLE_LIST_PREFIX, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_TITLE_LIST_SUFFIX, TRUE);
    PushTypeSpecField(Root, FT_STRING, IDENT_TITLE_SUFFIX, TRUE);
    //
    ////
    PushTypeSpecField(Root, FT_STRING, IDENT_UNIT, TRUE);
    PushTypeSpecField(Root, FT_BARE, IDENT_TITLE_LIST_END, TRUE);
    PushTypeSpecField(Root, FT_BOOLEAN, IDENT_IGNORE_PRIVACY, TRUE);
    PushTypeSpecField(Root, FT_BOOLEAN, IDENT_SINGLE_BROWSER_TAB, TRUE);
    PushTypeSpecField(Root, FT_NUMBER, IDENT_PRIVACY_CHECK_INTERVAL, TRUE);
    PushTypeSpecField(Root, FT_SCOPE, IDENT_INCLUDE, FALSE);
    PushTypeSpecField(Root, FT_SCOPE, IDENT_MEDIUM, FALSE);
    PushTypeSpecField(Root, FT_SCOPE, IDENT_PERSON, FALSE);
    PushTypeSpecField(Root, FT_SCOPE, IDENT_PROJECT, FALSE);
    PushTypeSpecField(Root, FT_SCOPE, IDENT_SUPPORT, FALSE);

    config_type_spec *Support = PushTypeSpec(&Result, IDENT_SUPPORT, FALSE);
    PushTypeSpecField(Support, FT_STRING, IDENT_ICON, TRUE);
    PushTypeSpecField(Support, FT_STRING, IDENT_ICON_NORMAL, TRUE);
    PushTypeSpecField(Support, FT_STRING, IDENT_ICON_FOCUSED, TRUE);
    PushTypeSpecField(Support, FT_STRING, IDENT_ICON_TYPE, TRUE);
    PushTypeSpecField(Support, FT_STRING, IDENT_ICON_VARIANTS, TRUE);
    PushTypeSpecField(Support, FT_STRING, IDENT_URL, TRUE);

    config_type_spec *Include = PushTypeSpec(&Result, IDENT_INCLUDE, FALSE);
    PushTypeSpecField(Include, FT_STRING, IDENT_ALLOW, FALSE);
    PushTypeSpecField(Include, FT_STRING, IDENT_DENY, FALSE);

    config_type_spec *Person = PushTypeSpec(&Result, IDENT_PERSON, FALSE);
    PushTypeSpecField(Person, FT_STRING, IDENT_NAME, TRUE);
    PushTypeSpecField(Person, FT_STRING, IDENT_HOMEPAGE, TRUE);
    PushTypeSpecField(Person, FT_SCOPE, IDENT_SUPPORT, FALSE);

    config_type_spec *Medium = PushTypeSpec(&Result, IDENT_MEDIUM, FALSE);
    PushTypeSpecField(Medium, FT_STRING, IDENT_ICON, TRUE);
    PushTypeSpecField(Medium, FT_STRING, IDENT_ICON_NORMAL, TRUE);
    PushTypeSpecField(Medium, FT_STRING, IDENT_ICON_FOCUSED, TRUE);
    PushTypeSpecField(Medium, FT_STRING, IDENT_ICON_DISABLED, TRUE);
    PushTypeSpecField(Medium, FT_STRING, IDENT_ICON_TYPE, TRUE);
    PushTypeSpecField(Medium, FT_STRING, IDENT_ICON_VARIANTS, TRUE);
    PushTypeSpecField(Medium, FT_STRING, IDENT_NAME, TRUE);
    PushTypeSpecField(Medium, FT_BOOLEAN, IDENT_HIDDEN, TRUE);

    config_type_spec *Project = PushTypeSpec(&Result, IDENT_PROJECT, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_BASE_DIR, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_BASE_URL, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_COHOST, FALSE);
    PushTypeSpecField(Project, FT_STRING, IDENT_DEFAULT_MEDIUM, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_GENRE, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_GUEST, FALSE);
    PushTypeSpecField(Project, FT_STRING, IDENT_HMML_DIR, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_INDEXER, FALSE);
    PushTypeSpecField(Project, FT_STRING, IDENT_NUMBERING_SCHEME, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_OWNER, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_PLAYER_LOCATION, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_PLAYER_TEMPLATE, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_QUERY_STRING, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_SEARCH_LOCATION, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_SEARCH_TEMPLATE, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_TEMPLATES_DIR, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_STREAM_USERNAME, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_VOD_PLATFORM, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_THEME, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_TITLE, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_HTML_TITLE, TRUE);

    PushTypeSpecField(Project, FT_STRING, IDENT_ART, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_ART_VARIANTS, TRUE);

    PushTypeSpecField(Project, FT_STRING, IDENT_ICON, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_ICON_NORMAL, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_ICON_FOCUSED, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_ICON_DISABLED, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_ICON_TYPE, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_ICON_VARIANTS, TRUE);
    // TODO(matt): Sort out this title list stuff
    //
    PushTypeSpecField(Project, FT_STRING, IDENT_TITLE_LIST_DELIMITER, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_TITLE_LIST_PREFIX, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_TITLE_LIST_SUFFIX, TRUE);
    PushTypeSpecField(Project, FT_STRING, IDENT_TITLE_SUFFIX, TRUE);
    //
    ////
    PushTypeSpecField(Project, FT_STRING, IDENT_UNIT, TRUE);
    PushTypeSpecField(Project, FT_BARE, IDENT_TITLE_LIST_END, TRUE);

    // NOTE(matt):  Modes
    PushTypeSpecField(Project, FT_BOOLEAN, IDENT_IGNORE_PRIVACY, TRUE);
    PushTypeSpecField(Project, FT_BOOLEAN, IDENT_SINGLE_BROWSER_TAB, TRUE);
    //

    PushTypeSpecField(Project, FT_SCOPE, IDENT_INCLUDE, FALSE);
    PushTypeSpecField(Project, FT_SCOPE, IDENT_MEDIUM, FALSE);
    PushTypeSpecField(Project, FT_SCOPE, IDENT_PROJECT, FALSE);
    return Result;
}

void
PrintTypeField(config_type_field *F, config_identifier_id ParentScopeID, int IndentationLevel)
{
    IndentedCarriageReturn(IndentationLevel);
    PrintC(CS_YELLOW_BOLD, ConfigIdentifiers[F->ID].String);
    PrintC(CS_BLACK_BOLD, " [");
    if(F->Type == FT_NUMBER)
    {
        PrintC(CS_BLUE_BOLD, FieldTypeNames[F->Type]);
    }
    else if(F->Type == FT_BARE)
    {
        PrintC(CS_BLUE, FieldTypeNames[F->Type]);
    }
    else{
        Colourise(CS_GREEN_BOLD);
        fprintf(stderr, "\"%s\"", FieldTypeNames[F->Type]);
        Colourise(CS_END);
    }
    PrintC(CS_BLACK_BOLD, " • ");
    if(F->Singleton)
    {
        PrintC(CS_CYAN, "single");
    }
    else
    {
        PrintC(CS_MAGENTA, "multi");
    }
    PrintC(CS_BLACK_BOLD, "]");
    // TODO(matt):  Consider preventing the description from being written if it had already been
    //              written for a higher-level scope
    if(ConfigIdentifiers[F->ID].IdentifierDescription)
    {
        if((F->ID == IDENT_ICON || F->ID == IDENT_NAME) && ParentScopeID == IDENT_MEDIUM)
        {
            if(!ConfigIdentifiers[F->ID].IdentifierDescription_MediumDisplayed)
            {
                ++IndentationLevel;
                IndentedCarriageReturn(IndentationLevel);
                TypesetString(INDENT_WIDTH * IndentationLevel, Wrap0(ConfigIdentifiers[F->ID].IdentifierDescription_Medium));
                ConfigIdentifiers[F->ID].IdentifierDescription_MediumDisplayed = TRUE;
                --IndentationLevel;
            }
        }
        else
        {
            if(!ConfigIdentifiers[F->ID].IdentifierDescriptionDisplayed)
            {
                ++IndentationLevel;
                IndentedCarriageReturn(IndentationLevel);
                TypesetString(INDENT_WIDTH * IndentationLevel, Wrap0(ConfigIdentifiers[F->ID].IdentifierDescription));
                ConfigIdentifiers[F->ID].IdentifierDescriptionDisplayed = TRUE;
                --IndentationLevel;
            }
        }
    }
}

void
PrintTypeSpec(config_type_spec *S, int IndentationLevel)
{
    if(S->ID != IDENT_NULL)
    {
        IndentedCarriageReturn(IndentationLevel);
        ++IndentationLevel;
        PrintStringC(CS_CYAN, Wrap0(ConfigIdentifiers[S->ID].String));
    }

    if(ConfigIdentifiers[S->ID].IdentifierDescription && !ConfigIdentifiers[S->ID].IdentifierDescriptionDisplayed)
    {
        IndentedCarriageReturn(IndentationLevel);
        TypesetString(INDENT_WIDTH * IndentationLevel, Wrap0(ConfigIdentifiers[S->ID].IdentifierDescription));
        ConfigIdentifiers[S->ID].IdentifierDescriptionDisplayed = TRUE;
    }

    for(int i = 0; i < S->FieldCount; ++i)
    {
        if(!(S->ID == IDENT_NULL && S->Field[i].Type == FT_SCOPE))
        {
            PrintTypeField(&S->Field[i], S->ID, IndentationLevel);
        }
    }

    if(S->ID != IDENT_NULL) { --IndentationLevel; }
}

void
PrintTypeSpecs(config_type_specs *S, int IndentationLevel)
{
    fprintf(stderr, "\n");
    // TODO(matt):  Document the fact that scopes within scopes are fully configurable, even though
    //              we only print out the "id" of scopes, omitting their containing fields
    for(int i = 0; i < S->Count; ++i)
    {
        PrintTypeSpec(&S->Spec[i], IndentationLevel);
    }
}

void
FreeTypeSpec(config_type_spec *S)
{
    FreeAndResetCount(S->Field, S->FieldCount);
}

void
FreeTypeSpecs(config_type_specs *S)
{
    for(int i = 0; i < S->Count; ++i)
    {
        FreeTypeSpec(&S->Spec[i]);
    }
    FreeAndResetCount(S->Spec, S->Count);
}

typedef struct
{
    char *Filename;
    uint64_t LineNumber;
} token_position;

typedef struct
{
    config_identifier_id Key;
    string Value;
    token_position Position;
} config_pair;

typedef struct
{
    config_identifier_id Key;
    uint64_t Value;
    token_position Position;
} config_int_pair;

typedef struct
{
    config_identifier_id Key;
    bool Value;
    token_position Position;
} config_bool_pair;

typedef struct scope_tree
{
    config_pair ID;
    uint64_t TreeCount;
    struct scope_tree *Trees;
    uint64_t PairCount;
    config_pair *Pairs;
    uint64_t IntPairCount;
    config_int_pair *IntPairs;
    uint64_t BoolPairCount;
    config_bool_pair *BoolPairs;
    struct scope_tree *Parent;
    config_type_spec TypeSpec;
    //token_position Position; // NOTE(matt): We chose not to make ScopeTokens() set this value
} scope_tree;

config_type_spec *
GetTypeSpec(config_type_specs *S, config_identifier_id ID)
{
    for(int i = 0; i < S->Count; ++i)
    {
        if(S->Spec[i].ID == ID)
        {
            return &S->Spec[i];
        }
    }
    return 0;
}

void
SetTypeSpec(scope_tree *Type, config_type_specs *TypeSpecs)
{
    config_type_spec *Spec = GetTypeSpec(TypeSpecs, Type->ID.Key);
    //PrintTypeSpec(Spec);
    Type->TypeSpec.ID = Spec->ID;
    Type->TypeSpec.Permeable = Spec->Permeable;
    Type->TypeSpec.FieldCount = Spec->FieldCount;
    Type->TypeSpec.Field = malloc(Type->TypeSpec.FieldCount * sizeof(config_type_field));
    for(int i = 0; i < Type->TypeSpec.FieldCount; ++i)
    {
        Type->TypeSpec.Field[i].Type = Spec->Field[i].Type;
        Type->TypeSpec.Field[i].ID = Spec->Field[i].ID;
        Type->TypeSpec.Field[i].Singleton = Spec->Field[i].Singleton;
        Type->TypeSpec.Field[i].IsSetLocally = Spec->Field[i].IsSetLocally;
    }
}

config_type_field *
CurrentFieldIsInSpec(config_type_spec *Spec, tokens *T)
{

    if(Spec)
    {
        for(int i = 0; i < Spec->FieldCount; ++i)
        {
            if(!StringsDifferLv0(T->Token[T->CurrentIndex].Content, ConfigIdentifiers[Spec->Field[i].ID].String))
            {
                return &Spec->Field[i];
            }
        }
    }
    return 0;
}

typedef struct
{
    uint64_t Count;
    string *String;
} string_list;

typedef struct
{
    string Filename;
    string_list Allow;
    string_list Deny;
} config_include;

void
PushString(string_list *Dest, string *Src)
{
    Dest->String = Fit(Dest->String, sizeof(*Dest->String), Dest->Count, 4, FALSE);
    Dest->String[Dest->Count] = *Src;
    ++Dest->Count;
}

bool
ParseMultiStringAssignment(tokens *T, string_list *Dest, config_type_field *Field)
{
    ++T->CurrentIndex;
    token Token = {};
    if(!ExpectToken(T, TOKEN_ASSIGN, &Token))
    {
        return FALSE;
    }
    if(!ExpectToken(T, TOKEN_STRING, &Token))
    {
        return FALSE;
    }

    PushString(Dest, &Token.Content);

    Field->IsSetLocally = TRUE;

    if(!ExpectToken(T, TOKEN_SEMICOLON, &Token))
    {
        return FALSE;
    }
    return TRUE;
}

void
PrintCurrentToken(colour_code C, tokens *T)
{
    Colourise(C);
    PrintToken(&T->Token[T->CurrentIndex], T->CurrentIndex);
    Colourise(CS_END);
}

bool
DepartAssignment(tokens *T)
{
    uint64_t ScopeLevel = 0;
    do {
        if(TokenIs(T, TOKEN_IDENTIFIER))
        {
            ++T->CurrentIndex;
            if(!ExpectToken(T, TOKEN_ASSIGN, 0))
            {
                return FALSE;
            }
            if(TokenIs(T, TOKEN_STRING) || TokenIs(T, TOKEN_NUMBER))
            {
                ++T->CurrentIndex;
            }
            else
            {
                ConfigErrorExpectation(T, TOKEN_STRING, TOKEN_NUMBER);
                return FALSE;
            }

            if(TokenIs(T, TOKEN_SEMICOLON))
            {
                ++T->CurrentIndex;
            }
            else if(TokenIs(T, TOKEN_OPEN_BRACE))
            {
                ++ScopeLevel;
                ++T->CurrentIndex;
            }
            else
            {
                ConfigErrorExpectation(T, TOKEN_SEMICOLON, TOKEN_OPEN_BRACE);
                return FALSE;
            }
        }
        else if(TokenIs(T, TOKEN_CLOSE_BRACE))
        {
            --ScopeLevel;
            ++T->CurrentIndex;
        }
        else
        {
            ConfigErrorExpectation(T, TOKEN_IDENTIFIER, TOKEN_CLOSE_BRACE);
            return FALSE;
        }
    } while(ScopeLevel > 0);
    return TRUE;
}

bool
DepartIncludeAssignment(tokens *T, uint64_t IncludeIdentifierTokenIndex)
{
    T->CurrentIndex = IncludeIdentifierTokenIndex;
    return(DepartAssignment(T));
}

void
FreeString(string *S)
{
    Free(S->Base);
    S->Length = 0;
}

void
FreeStringList(string_list *S)
{
    FreeAndResetCount(S->String, S->Count);
}

void
FreeInclude(config_include *I)
{
    FreeStringList(&I->Allow);
    FreeStringList(&I->Deny);
    free(I);
    I = 0;
}

bool
IsStringEmpty(string *S)
{
    return S ? S->Length == 0 : TRUE;
}

// TODO(matt):  This never gets called. Probably remove
void
PrintInclude(config_include *I)
{
    PrintStringC(CS_YELLOW_BOLD, I->Filename);
    fprintf(stderr, "\n AllowCount: %lu", I->Allow.Count);
    fprintf(stderr, "\n DenyCount: %lu", I->Deny.Count);
#if 1
    for(int i = 0; i < I->Allow.Count; ++i)
    {
        fprintf(stderr, "\n Allow: ");
        PrintStringC(CS_GREEN, I->Allow.String[i]);
    }
    for(int i = 0; i < I->Deny.Count; ++i)
    {
        fprintf(stderr, "\n Deny: ");
        PrintStringC(CS_GREEN, I->Deny.String[i]);
    }
#endif
    fprintf(stderr, "\n");
}

void
FreeScopeTreeRecursively(scope_tree *T)
{
    FreeAndResetCount(T->Pairs, T->PairCount);
    FreeAndResetCount(T->IntPairs, T->IntPairCount);
    FreeAndResetCount(T->BoolPairs, T->BoolPairCount);
    Free(T->TypeSpec.Field);
    //Free(T->Position.Filename);
    for(int i = 0; i < T->TreeCount; ++i)
    {
        FreeScopeTreeRecursively(&T->Trees[i]);
    }
    FreeAndResetCount(T->Trees, T->TreeCount);
}

void
FreeScopeTree(scope_tree *T)
{
    FreeAndResetCount(T->Pairs, T->PairCount);
    FreeAndResetCount(T->IntPairs, T->IntPairCount);
    FreeAndResetCount(T->BoolPairs, T->BoolPairCount);
    Free(T->TypeSpec.Field);
    //Free(T->Position.Filename);
    for(int i = 0; i < T->TreeCount; ++i)
    {
        FreeScopeTreeRecursively(&T->Trees[i]);
    }
    FreeAndResetCount(T->Trees, T->TreeCount);
    Free(T);
}

void
PrintPair(config_pair *P, char *Delimiter, bool FillSyntax, uint64_t Indentation, bool PrependNewline, bool AppendNewline)
{
    if(PrependNewline) { fprintf(stderr, "\n"); }
    Indent(Indentation);
    PrintC(CS_YELLOW_BOLD, ConfigIdentifiers[P->Key].String);
    fprintf(stderr, "%s", Delimiter);
    if(P->Value.Length)
    {
        Colourise(CS_GREEN_BOLD);
        if(FillSyntax) { fprintf(stderr, "\""); }
        PrintString(P->Value);
        if(FillSyntax) { fprintf(stderr, "\""); }
        Colourise(CS_END);
        if(FillSyntax) { fprintf(stderr, ";"); }
    }
    else
    {
        PrintC(CS_YELLOW, "[unset]");
    }
    if(AppendNewline) { fprintf(stderr, "\n"); }
}

void
PrintScopeID(config_pair *P, char *Delimiter, uint64_t Indentation)
{
    fprintf(stderr, "\n");
    Indent(Indentation);
    PrintC(CS_YELLOW_BOLD, ConfigIdentifiers[P->Key].String);
    fprintf(stderr, "%s", Delimiter);
    if(P->Value.Length)
    {
        Colourise(CS_GREEN_BOLD);
        fprintf(stderr, "\"");
        PrintString(P->Value);
        fprintf(stderr, "\"");
        Colourise(CS_END);
        IndentedCarriageReturn(Indentation);
        fprintf(stderr, "{");
    }
    else
    {
        PrintC(CS_YELLOW, "[unset]");
    }
    //fprintf(stderr, "\n");
}

void
PrintIntPair(config_int_pair *P, char *Delimiter, bool FillSyntax, uint64_t Indentation, bool PrependNewline, bool AppendNewline)
{
    if(PrependNewline) { fprintf(stderr, "\n"); }
    Indent(Indentation);
    PrintC(CS_YELLOW_BOLD, ConfigIdentifiers[P->Key].String);
    fprintf(stderr, "%s", Delimiter);
    switch(P->Key)
    {
        case IDENT_GENRE:
            {
                Colourise(CS_GREEN_BOLD);
                if(FillSyntax) { fprintf(stderr, "\""); }
                fprintf(stderr, "%s", GenreStrings[P->Value]);
                if(FillSyntax) { fprintf(stderr, "\""); }
            } break;
        case IDENT_LOG_LEVEL:
            {
                Colourise(CS_GREEN_BOLD);
                if(FillSyntax) { fprintf(stderr, "\""); }
                fprintf(stderr, "%s", LogLevelStrings[P->Value]);
                if(FillSyntax) { fprintf(stderr, "\""); }
            } break;
        case IDENT_NUMBERING_SCHEME:
            {
                Colourise(CS_GREEN_BOLD);
                if(FillSyntax) { fprintf(stderr, "\""); }
                fprintf(stderr, "%s", NumberingSchemeStrings[P->Value]);
                if(FillSyntax) { fprintf(stderr, "\""); }
            } break;
        default:
            {
                Colourise(CS_BLUE_BOLD);
                fprintf(stderr, "%lu", P->Value);
            } break;
    }
    Colourise(CS_END);
    if(FillSyntax) { fprintf(stderr, ";"); }
    if(AppendNewline) { fprintf(stderr, "\n"); }
}

void
PrintBool(char *Title, bool Bool, char *Delimiter, bool FillSyntax, uint64_t Indentation, bool PrependNewline, bool AppendNewline)
{
    if(PrependNewline) { fprintf(stderr, "\n"); }
    Indent(Indentation);
    PrintC(CS_YELLOW_BOLD, Title);
    fprintf(stderr, "%s", Delimiter);
    if(Bool == TRUE)
    {
        Colourise(CS_GREEN);
        if(FillSyntax) { fprintf(stderr, "\""); }
        fprintf(stderr, "true");
        if(FillSyntax) { fprintf(stderr, "\""); }
    }
    else
    {
        Colourise(CS_RED);
        if(FillSyntax) { fprintf(stderr, "\""); }
        fprintf(stderr, "false");
        if(FillSyntax) { fprintf(stderr, "\""); }
    }
    Colourise(CS_END);
    if(FillSyntax) { fprintf(stderr, ";"); }
    if(AppendNewline) { fprintf(stderr, "\n"); }
}

void
PrintBoolPair(config_bool_pair *P, char *Delimiter, bool FillSyntax, uint64_t Indentation, bool PrependNewline, bool AppendNewline)
{
    PrintBool(ConfigIdentifiers[P->Key].String, P->Value, Delimiter, FillSyntax, Indentation, PrependNewline, AppendNewline);
}

void PrintScopeTree(scope_tree *T, int IndentationLevel);
void
PrintScopeTree(scope_tree *T, int IndentationLevel)
{
    if(T)
    {
        if(T->ID.Key != IDENT_NULL)
        {
            PrintScopeID(&T->ID, " = ", IndentationLevel);
            ++IndentationLevel;
        }
        bool ShouldPrependNewline = TRUE;
        bool ShouldFillSyntax = TRUE;
        for(int i = 0; i < T->PairCount; ++i)
        {
            PrintPair(&T->Pairs[i], " = ", ShouldFillSyntax, IndentationLevel, ShouldPrependNewline, FALSE);
        }
        for(int i = 0; i < T->IntPairCount; ++i)
        {
            PrintIntPair(&T->IntPairs[i], " = ", ShouldFillSyntax, IndentationLevel, ShouldPrependNewline, FALSE);
        }
        for(int i = 0; i < T->BoolPairCount; ++i)
        {
            PrintBoolPair(&T->BoolPairs[i], " = ", ShouldFillSyntax, IndentationLevel, ShouldPrependNewline, FALSE);
        }
        for(int i = 0; i < T->TreeCount; ++i)
        {
            PrintScopeTree(&T->Trees[i], IndentationLevel);
        }
        if(T->ID.Key != IDENT_NULL)
        {
            --IndentationLevel;
            IndentedCarriageReturn(IndentationLevel);
            fprintf(stderr, "}");
        }
    }
}

void
PushPair(scope_tree *Parent, config_pair *P)
{
    Parent->Pairs = Fit(Parent->Pairs, sizeof(*Parent->Pairs), Parent->PairCount, 4, FALSE);
    Parent->Pairs[Parent->PairCount] = *P;
    ++Parent->PairCount;
}

void
PushIntPair(scope_tree *Parent, config_int_pair *I)
{
    Parent->IntPairs = Fit(Parent->IntPairs, sizeof(*Parent->IntPairs), Parent->IntPairCount, 4, FALSE);
    Parent->IntPairs[Parent->IntPairCount] = *I;
    ++Parent->IntPairCount;
}

void
PushBoolPair(scope_tree *Parent, config_bool_pair *B)
{
    Parent->BoolPairs = Fit(Parent->BoolPairs, sizeof(*Parent->BoolPairs), Parent->BoolPairCount, 4, FALSE);
    Parent->BoolPairs[Parent->BoolPairCount] = *B;
    ++Parent->BoolPairCount;
}

scope_tree *
PushScope(config_type_specs *TypeSpecs, scope_tree *Parent, config_pair *ID)
{
    // TODO(matt):  I reckon what's going on here is that a scope_tree's Parent pointer gets invalidated when that scope_tree's
    //              Grandparent needs to reallocate its Trees pointer.
    //
    //              So to fix it we have two options:
    //                  1. When realloc'ing, loop over the Trees, offsetting the Trees->Parent pointer of each Tree's child
    //                  2. Store this whole stuff in a memory_book-type of thing, so that pointers never get invalidated
    //
    //              We did Option 1, but think we probably ought to use Option 2 instead. Doing so will save us having to
    //              remember if anything points into our memory, and to offset those pointers if so
    scope_tree *Current = Parent->Trees;
    Parent->Trees = Fit(Parent->Trees, sizeof(*Parent->Trees), Parent->TreeCount, 4, TRUE);
    int64_t Diff = Parent->Trees - Current;
    if(Diff)
    {
        for(int i = 0; i < Parent->TreeCount; ++i)
        {
            scope_tree *Child = Parent->Trees + i;
            for(int j = 0; j < Child->TreeCount; ++j)
            {
                Child->Trees[j].Parent += Diff;
            }
        }
    }

    Parent->Trees[Parent->TreeCount].ID = *ID;
    SetTypeSpec(&Parent->Trees[Parent->TreeCount], TypeSpecs);
    Parent->Trees[Parent->TreeCount].Parent = Parent;
    ++Parent->TreeCount;
    return(&Parent->Trees[Parent->TreeCount - 1]);
}

config_identifier_id
GetConfigIdentifierFromToken(token *T)
{
    for(config_identifier_id i = 0; i < IDENT_COUNT; ++i)
    {
        if(!StringsDifferLv0(T->Content, ConfigIdentifiers[i].String))
        {
            return i;
        }
    }
    return IDENT_NULL;
}

config_identifier_id
GetConfigIdentifierFromString(string S)
{
    for(config_identifier_id i = 0; i < IDENT_COUNT; ++i)
    {
        if(!StringsDifferLv0(S, ConfigIdentifiers[i].String))
        {
            return i;
        }
    }
    return IDENT_NULL;
}

config_type_field *
FieldIsInSpec(config_type_spec *Spec, config_identifier_id ID)
{
    for(int i = 0; i < Spec->FieldCount; ++i)
    {
        if(Spec->Field[i].ID == ID)
        {
            return &Spec->Field[i];
        }
    }
    return 0;
}

bool
PairsMatch(config_pair *A, config_pair *B)
{
    return A->Key == B->Key && StringsMatch(A->Value, B->Value);
}

scope_tree *
GetScope(scope_tree *T, config_pair *ID, bool Singleton)
{
    for(int i = 0; i < T->TreeCount; ++i)
    {
        if(Singleton)
        {
            if(T->Trees[i].ID.Key == ID->Key)
            {
                return &T->Trees[i];
            }
        }
        else
        {
            if(PairsMatch(&T->Trees[i].ID, ID))
            {
                return &T->Trees[i];
            }
        }
    }
    return 0;
}

config_pair *
GetAssignment(scope_tree *T, config_pair *Assignment, bool Singleton)
{
    for(int i = 0; i < T->PairCount; ++i)
    {
        if(Singleton)
        {
            if(T->Pairs[i].Key == Assignment->Key)
            {
                return &T->Pairs[i];
            }
        }
        else
        {
            if(PairsMatch(&T->Pairs[i], Assignment))
            {
                return &T->Pairs[i];
            }
        }
    }
    return 0;
}

config_int_pair *
GetIntAssignment(scope_tree *T, config_int_pair *Assignment, bool Singleton)
{
    for(int i = 0; i < T->IntPairCount; ++i)
    {
        if(T->IntPairs[i].Key == Assignment->Key)
        {
            if(Singleton || T->IntPairs[i].Value == Assignment->Value)
            {
                return &T->IntPairs[i];
            }
        }
    }
    return 0;
}

config_bool_pair *
GetBoolAssignment(scope_tree *T, config_bool_pair *Assignment, bool Singleton)
{
    for(int i = 0; i < T->BoolPairCount; ++i)
    {
        if(T->BoolPairs[i].Key == Assignment->Key)
        {
            if(Singleton || T->BoolPairs[i].Value == Assignment->Value)
            {
                return &T->BoolPairs[i];
            }
        }
    }
    return 0;
}

scope_tree *CopyScope(config_type_specs *TypeSpecs, scope_tree *Dest, scope_tree *Src);
void
CopyScopeContents(config_type_specs *TypeSpecs, scope_tree *Dest, scope_tree *Src)
{
    for(int i = 0; i < Src->PairCount; ++i)
    {
        PushPair(Dest, &Src->Pairs[i]);
    }
    for(int i = 0; i < Src->IntPairCount; ++i)
    {
        PushIntPair(Dest, &Src->IntPairs[i]);
    }
    for(int i = 0; i < Src->BoolPairCount; ++i)
    {
        PushBoolPair(Dest, &Src->BoolPairs[i]);
    }
    for(int i = 0; i < Src->TreeCount; ++i)
    {
        CopyScope(TypeSpecs, Dest, &Src->Trees[i]);
    }
}

scope_tree *
CopyScope(config_type_specs *TypeSpecs, scope_tree *Dest, scope_tree *Src)
{
    Dest = PushScope(TypeSpecs, Dest, &Src->ID);
    CopyScopeContents(TypeSpecs, Dest, Src);
    return Dest;
}

void
MergeScopes(config_type_specs *TypeSpecs, scope_tree *Dest, scope_tree *Src, bool Intergenerational)
{
    if(!Intergenerational || Dest->TypeSpec.Permeable)
    {
        for(int i = 0; i < Src->PairCount; ++i)
        {
            config_type_field *Field = FieldIsInSpec(&Dest->TypeSpec, Src->Pairs[i].Key);
            if(Field)
            {
                config_pair *ThisAssignment = GetAssignment(Dest, &Src->Pairs[i], Field->Singleton);
                if(!ThisAssignment) { PushPair(Dest, &Src->Pairs[i]); }
            }
        }
        for(int i = 0; i < Src->IntPairCount; ++i)
        {
            config_type_field *Field = FieldIsInSpec(&Dest->TypeSpec, Src->IntPairs[i].Key);
            if(Field)
            {
                config_int_pair *ThisAssignment = GetIntAssignment(Dest, &Src->IntPairs[i], Field->Singleton);
                if(!ThisAssignment) { PushIntPair(Dest, &Src->IntPairs[i]); }
            }
        }
        for(int i = 0; i < Src->BoolPairCount; ++i)
        {
            config_type_field *Field = FieldIsInSpec(&Dest->TypeSpec, Src->BoolPairs[i].Key);
            if(Field)
            {
                config_bool_pair *ThisAssignment = GetBoolAssignment(Dest, &Src->BoolPairs[i], Field->Singleton);
                if(!ThisAssignment) { PushBoolPair(Dest, &Src->BoolPairs[i]); }
            }
        }
        for(int i = 0; i < Src->TreeCount; ++i)
        {
            config_type_field *Field = FieldIsInSpec(&Dest->TypeSpec, Src->Trees[i].ID.Key);
            if(Field && !(Intergenerational && Src->Trees[i].ID.Key == Dest->ID.Key))
            {
                scope_tree *ThisAssignment = GetScope(Dest, &Src->Trees[i].ID, Field->Singleton);
                if(!ThisAssignment) { CopyScope(TypeSpecs, Dest, &Src->Trees[i]); }
            }
        }
    }
}

typedef enum
{
    CRT_NULL,
    CRT_ALLOW,
    CRT_DENY,
} config_rule_type;

typedef struct
{
    config_rule_type Scheme;
    uint64_t Count;
    config_identifier_id *ID;
} config_include_rules;

void
PushRule(config_include_rules *R, config_identifier_id ID)
{
    for(int i = 0; i < R->Count; ++i)
    {
        if(ID == R->ID[i])
        {
            return;
        }
    }
    R->ID = Fit(R->ID, sizeof(*R->ID), R->Count, 8, FALSE);
    R->ID[R->Count] = ID;
    ++R->Count;
}

void
FreeRules(config_include_rules *R)
{
    FreeAndResetCount(R->ID, R->Count);
}

void
ParseRuleString(char *Filename, config_type_specs *TypeSpecs, config_type_spec *ParentTypeSpec, config_include_rules *Rules, token *RuleString)
{
    int i = SkipWhitespaceS(&RuleString->Content, 0);
    config_type_field *Field = 0;
    for(; i < RuleString->Content.Length; i = SkipWhitespaceS(&RuleString->Content, i))
    {
        if(IsValidIdentifierCharacter(RuleString->Content.Base[i]))
        {
            string S = {};
            S.Base = RuleString->Content.Base + i;
            for(; i < RuleString->Content.Length && IsValidIdentifierCharacter(RuleString->Content.Base[i]); ++i)
            {
                ++S.Length;
            }
            config_identifier_id ID;
            if((ID = GetConfigIdentifierFromString(S)) != IDENT_NULL)
            {
                if((Field = FieldIsInSpec(ParentTypeSpec, ID)))
                {
                    PushRule(Rules, ID);
                    if(i == RuleString->Content.Length && (ParentTypeSpec = GetTypeSpec(TypeSpecs, Field->ID)))
                    {
                        for(int j = 0; j < ParentTypeSpec->FieldCount; ++j)
                        {
                            PushRule(Rules, ParentTypeSpec->Field[j].ID);
                            config_type_spec *ThisTypeSpec = GetTypeSpec(TypeSpecs, ParentTypeSpec->Field[j].ID);
                            if(ThisTypeSpec)
                            {
                                for(int k = 0; k < ThisTypeSpec->FieldCount; ++k)
                                {
                                    PushRule(Rules, ThisTypeSpec->Field[k].ID);
                                }
                            }
                        }
                    }
                }
                else
                {
                    ConfigError(Filename, RuleString->LineNumber, S_WARNING, "Field not in spec: ", &S);
                    PrintTypeSpec(ParentTypeSpec, 0);
                    return;
                }
            }
            else
            {
                ConfigError(Filename, RuleString->LineNumber, S_WARNING, "Unknown identifier: ", &S);
                return;
            }
        }
        else if(RuleString->Content.Base[i] == '.')
        {
            if(Field)
            {
                ParentTypeSpec = GetTypeSpec(TypeSpecs, Field->ID);
                ++i;
                if(!ParentTypeSpec)
                {
                    string This = Wrap0(ConfigIdentifiers[Field->ID].String);
                    ConfigError(Filename, RuleString->LineNumber, S_WARNING, "Invalid permission, type has no members: ", &This);
                }
            }
            else
            {
                ConfigError(Filename, RuleString->LineNumber, S_WARNING, "Malformed rule string. \".\" must be preceded by a valid type", 0);
                return;
            }
        }
        else
        {
            string Char = GetUTF8Character(RuleString->Content.Base + i, RuleString->Content.Length - i);
            ConfigError(Filename, RuleString->LineNumber, S_WARNING, "Invalid character in include rule: ", &Char);
            return;
        }
    }
}

rc
ParseIncludeRules(config_type_specs *TypeSpecs, config_type_spec *ParentTypeSpec, tokens *T, config_include_rules *Rules)
{
    uint64_t IncludeIdentifierTokenIndex = T->CurrentIndex - 3;
    if(TokenIs(T, TOKEN_SEMICOLON))
    {
        ++T->CurrentIndex;
        return RC_SUCCESS;
    }
    else if(TokenIs(T, TOKEN_OPEN_BRACE))
    {
        ++T->CurrentIndex;
        for(; T->CurrentIndex < T->Count;)
        {
            if(TokenIs(T, TOKEN_IDENTIFIER))
            {
                if(TokenEquals(T, "allow"))
                {
                    if(Rules->Scheme == CRT_DENY)
                    {
                        FreeRules(Rules);
                        ConfigError(T->File.Path, T->Token[T->CurrentIndex].LineNumber, S_WARNING, "Mixture of allow and deny identifiers in \"include\" scope", 0);
                        return DepartIncludeAssignment(T, IncludeIdentifierTokenIndex) ? RC_SCHEME_MIXTURE : RC_SYNTAX_ERROR;
                    }
                    Rules->Scheme = CRT_ALLOW;
                }
                else if(TokenEquals(T, "deny"))
                {
                    if(Rules->Scheme == CRT_ALLOW)
                    {
                        FreeRules(Rules);
                        ConfigError(T->File.Path, T->Token[T->CurrentIndex].LineNumber, S_WARNING, "Mixture of allow and deny identifiers in \"include\" scope", 0);
                        return DepartIncludeAssignment(T, IncludeIdentifierTokenIndex) ? RC_SCHEME_MIXTURE : RC_SYNTAX_ERROR;
                    }
                    Rules->Scheme = CRT_DENY;
                }
                else
                {
                    ConfigError(T->File.Path, T->Token[T->CurrentIndex].LineNumber, S_WARNING, "Invalid identifier in \"include\" scope: ", &T->Token[T->CurrentIndex].Content);
                    fprintf(stderr,
                            "    Valid identifiers:\n"
                            "     allow\n"
                            "     deny\n");
                    FreeRules(Rules);
                    return DepartIncludeAssignment(T, IncludeIdentifierTokenIndex) ? RC_INVALID_IDENTIFIER : RC_SYNTAX_ERROR;
                }
                ++T->CurrentIndex;
                if(!ExpectToken(T, TOKEN_ASSIGN, 0)) { FreeRules(Rules); return RC_SYNTAX_ERROR; }
                token RuleString = {};
                if(!ExpectToken(T, TOKEN_STRING, &RuleString)) { FreeRules(Rules); return RC_SYNTAX_ERROR; }
                ParseRuleString(T->File.Path, TypeSpecs, ParentTypeSpec, Rules, &RuleString);
                if(!ExpectToken(T, TOKEN_SEMICOLON, 0)) { FreeRules(Rules); return RC_SYNTAX_ERROR; }
            }
            else if(TokenIs(T, TOKEN_CLOSE_BRACE))
            {
                ++T->CurrentIndex;
                return RC_SUCCESS;
            }
            else
            {
                FreeRules(Rules);
                return RC_SYNTAX_ERROR;
            }
        }
    }
    else
    {
        FreeRules(Rules);
        ConfigErrorExpectation(T, TOKEN_SEMICOLON, TOKEN_OPEN_BRACE);
        return RC_SYNTAX_ERROR;
    }
    return RC_SUCCESS;
}

bool
FieldIsPermitted(config_include_rules *Rules, config_type_field *Field)
{
    for(int i = 0; i < Rules->Count; ++i)
    {
        if(Field->ID == Rules->ID[i])
        {
            return Rules->Scheme == CRT_ALLOW ? TRUE : FALSE;
        }
    }
    return Rules->Scheme == CRT_ALLOW ? FALSE : TRUE;
}

void
ResetFields(config_type_spec *S)
{
    for(int i = 0; i < S->FieldCount; ++i)
    {
        S->Field[i].IsSetLocally = FALSE;
    }
}

scope_tree *
PushDefaultScope(config_type_specs *TypeSpecs, scope_tree *Parent, config_identifier_id Key, string Value)
{
    config_pair ID = { .Key = Key, .Value = Value };
    return PushScope(TypeSpecs, Parent, &ID);
}

void
PushDefaultPair(scope_tree *Parent, config_identifier_id Key, string Value)
{
    config_pair Pair = { .Key = Key, .Value = Value };
    return PushPair(Parent, &Pair);
}

void
PushDefaultIntPair(scope_tree *Parent, config_identifier_id Key, uint64_t Value)
{
    config_int_pair IntPair = { .Key = Key, .Value = Value };
    return PushIntPair(Parent, &IntPair);
}

#define DEFAULT_PRIVACY_CHECK_INTERVAL 60 * 4
void
SetDefaults(scope_tree *Root, config_type_specs *TypeSpecs)
{
    scope_tree *SupportPatreon = PushDefaultScope(TypeSpecs, Root, IDENT_SUPPORT, Wrap0("patreon"));
    PushDefaultPair(SupportPatreon, IDENT_ICON, Wrap0("cinera_sprite_patreon.png"));
    PushDefaultIntPair(SupportPatreon, IDENT_ICON_TYPE, IT_GRAPHICAL);
    PushDefaultIntPair(SupportPatreon, IDENT_ICON_VARIANTS, GetArtVariantFromString(Wrap0("normal")));
    PushDefaultPair(SupportPatreon, IDENT_URL, Wrap0("https://patreon.com/$person"));

    scope_tree *SupportSendOwl = PushDefaultScope(TypeSpecs, Root, IDENT_SUPPORT, Wrap0("sendowl"));
    PushDefaultPair(SupportSendOwl, IDENT_ICON, Wrap0("cinera_sprite_sendowl.png"));

    scope_tree *MediumAuthored = PushDefaultScope(TypeSpecs, Root, IDENT_MEDIUM, Wrap0("authored"));
    PushDefaultPair(MediumAuthored, IDENT_ICON, Wrap0("&#128490;"));
    PushDefaultPair(MediumAuthored, IDENT_NAME, Wrap0("Chat Comment"));

    PushDefaultPair(Root, IDENT_QUERY_STRING, Wrap0("r"));
    PushDefaultPair(Root, IDENT_THEME, Wrap0("$origin"));
    PushDefaultPair(Root, IDENT_CACHE_DIR, Wrap0("$XDG_CACHE_HOME/cinera"));
    PushDefaultPair(Root, IDENT_DB_LOCATION, Wrap0("$XDG_CONFIG_HOME/cinera/cinera.db"));

    // TODO(matt):  Consider where the genre setting should apply, project vs entry level
    PushDefaultIntPair(Root, IDENT_GENRE, GENRE_VIDEO);
    PushDefaultIntPair(Root, IDENT_NUMBERING_SCHEME, NS_LINEAR);
    PushDefaultIntPair(Root, IDENT_PRIVACY_CHECK_INTERVAL, DEFAULT_PRIVACY_CHECK_INTERVAL);
    PushDefaultIntPair(Root, IDENT_LOG_LEVEL, LOG_ERROR);
}

scope_tree *
ScopeTokens(scope_tree *Tree, tokens_list *TokensList, tokens *T, config_type_specs *TypeSpecs, config_include_rules *Rules)
{
    scope_tree *Parent = Tree;
    for(T->CurrentIndex = 0; T->CurrentIndex < T->Count;)
    {
        if(TokenIs(T, TOKEN_IDENTIFIER))
        {
            config_type_field *Field = CurrentFieldIsInSpec(&Parent->TypeSpec, T);
            if(Field)
            {
                if(!Rules || FieldIsPermitted(Rules, Field))
                {
                    if(Field->IsSetLocally && Field->Singleton)
                    {
                        ConfigError(T->File.Path, T->Token[T->CurrentIndex].LineNumber, S_WARNING, "Field already set: ", &T->Token[T->CurrentIndex].Content);
                    }
                    // NOTE(matt):  If we get rid of FT_BARE, then the ++T->CurrentIndex that all cases perform could happen
                    //              right here
                    config_pair Pair = {};
                    config_int_pair IntPair = {};
                    config_bool_pair BoolPair = {};

                    Pair.Key = IntPair.Key = BoolPair.Key = Field->ID;
                    Pair.Position.Filename = IntPair.Position.Filename = BoolPair.Position.Filename = T->File.Path;

                    switch(Field->Type)
                    {
                        case FT_BARE:
                            {
                                token Value = T->Token[T->CurrentIndex];
                                Pair.Position.LineNumber = Value.LineNumber;

                                ++T->CurrentIndex;
                                if(!ExpectToken(T, TOKEN_SEMICOLON, 0)) { FreeScopeTree(Tree); return 0; }
                                config_pair *Assignment = 0;
                                if(!(Assignment = GetAssignment(Parent, &Pair, Field->Singleton)))
                                {
                                    PushPair(Parent, &Pair);
                                }
                            } break;
                        case FT_BOOLEAN:
                            {
                                ++T->CurrentIndex;
                                if(!ExpectToken(T, TOKEN_ASSIGN, 0)) { FreeScopeTree(Tree); return 0; }

                                token Value = {};
                                if(!ExpectToken(T, TOKEN_STRING, &Value)) { FreeScopeTree(Tree); return 0; }
                                BoolPair.Position.LineNumber = Value.LineNumber;

                                if(!ExpectToken(T, TOKEN_SEMICOLON, 0)) { FreeScopeTree(Tree); return 0; }
                                bool Bool = GetBoolFromString(T->File.Path, &Value);
                                if(Bool != -1)
                                {
                                    BoolPair.Value = Bool;
                                    config_bool_pair *Assignment = 0;
                                    if((Assignment = GetBoolAssignment(Parent, &BoolPair, Field->Singleton)))
                                    {
                                        Assignment->Value = BoolPair.Value;
                                    }
                                    else
                                    {
                                        PushBoolPair(Parent, &BoolPair);
                                    }
                                }
                                else { FreeScopeTree(Tree); return 0; }
                            } break;
                        case FT_STRING:
                            {
                                ++T->CurrentIndex;
                                if(!ExpectToken(T, TOKEN_ASSIGN, 0)) { FreeScopeTree(Tree); return 0; }

                                token Value = {};
                                if(!ExpectToken(T, TOKEN_STRING, &Value)) { FreeScopeTree(Tree); return 0; }
                                Pair.Position.LineNumber = Value.LineNumber;
                                IntPair.Position.LineNumber = Value.LineNumber;

                                if(!ExpectToken(T, TOKEN_SEMICOLON, 0)) { FreeScopeTree(Tree); return 0; }

                                if(Field->ID == IDENT_NUMBERING_SCHEME)
                                {
                                    numbering_scheme NumberingScheme = GetNumberingSchemeFromString(T->File.Path, &Value);
                                    if(NumberingScheme != NS_COUNT)
                                    {
                                        IntPair.Value = NumberingScheme;
                                        config_int_pair *Assignment = 0;
                                        if((Assignment = GetIntAssignment(Parent, &IntPair, Field->Singleton)))
                                        {
                                            Assignment->Value = IntPair.Value;
                                        }
                                        else
                                        {
                                            PushIntPair(Parent, &IntPair);
                                        }
                                    }
                                    else { FreeScopeTree(Tree); return 0; }
                                }
                                else if(Field->ID == IDENT_LOG_LEVEL)
                                {
                                    log_level LogLevel = GetLogLevelFromString(T->File.Path, &Value);
                                    if(LogLevel != LOG_COUNT)
                                    {
                                        IntPair.Value = LogLevel;
                                        config_int_pair *Assignment = 0;
                                        if((Assignment = GetIntAssignment(Parent, &IntPair, Field->Singleton)))
                                        {
                                            Assignment->Value = IntPair.Value;
                                        }
                                        else
                                        {
                                            PushIntPair(Parent, &IntPair);
                                        }
                                    }
                                    else { FreeScopeTree(Tree); return 0; }
                                }
                                else if(Field->ID == IDENT_GENRE)
                                {
                                    genre Genre = GetGenreFromString(T->File.Path, &Value);
                                    if(Genre != GENRE_COUNT)
                                    {
                                        IntPair.Value = Genre;
                                        config_int_pair *Assignment = 0;
                                        if((Assignment = GetIntAssignment(Parent, &IntPair, Field->Singleton)))
                                        {
                                            Assignment->Value = IntPair.Value;
                                        }
                                        else
                                        {
                                            PushIntPair(Parent, &IntPair);
                                        }
                                    }
                                    else { FreeScopeTree(Tree); return 0; }
                                }
                                else if(Field->ID == IDENT_ICON_TYPE)
                                {
                                    icon_type IconType = GetIconTypeFromString(T->File.Path, &Value);
                                    if(IconType != IT_COUNT)
                                    {
                                        IntPair.Value = IconType;
                                        config_int_pair *Assignment = 0;
                                        if((Assignment = GetIntAssignment(Parent, &IntPair, Field->Singleton)))
                                        {
                                            Assignment->Value = IntPair.Value;
                                        }
                                        else
                                        {
                                            PushIntPair(Parent, &IntPair);
                                        }
                                    }
                                    else { FreeScopeTree(Tree); return 0; }
                                }
                                else if(Field->ID == IDENT_ART_VARIANTS || Field->ID == IDENT_ICON_VARIANTS)
                                {
                                    int64_t ArtVariants = ParseArtVariantsString(T->File.Path, &Value);
                                    if(ArtVariants != -1)
                                    {
                                        IntPair.Value = ArtVariants;
                                        config_int_pair *Assignment = 0;
                                        if((Assignment = GetIntAssignment(Parent, &IntPair, Field->Singleton)))
                                        {
                                            Assignment->Value = IntPair.Value;
                                        }
                                        else
                                        {
                                            PushIntPair(Parent, &IntPair);
                                        }
                                    }
                                    else { FreeScopeTree(Tree); return 0; }
                                }
                                else
                                {
                                    Pair.Value = Value.Content;
                                    config_pair *Assignment = 0;

                                    if((Assignment = GetAssignment(Parent, &Pair, Field->Singleton)))
                                    {
                                        Assignment->Value = Pair.Value;
                                        Assignment->Position.LineNumber = Pair.Position.LineNumber;
                                        Assignment->Position.Filename = Pair.Position.Filename;
                                    }
                                    else
                                    {
                                        PushPair(Parent, &Pair);
                                    }
                                }
                            } break;
                        case FT_NUMBER:
                            {
                                ++T->CurrentIndex;
                                if(!ExpectToken(T, TOKEN_ASSIGN, 0)) { FreeScopeTree(Tree); return 0; }

                                token Value = {};
                                if(!ExpectToken(T, TOKEN_NUMBER, &Value)) { FreeScopeTree(Tree); return 0; }
                                IntPair.Value = Value.int64_t;

                                if(!ExpectToken(T, TOKEN_SEMICOLON, 0)) { FreeScopeTree(Tree); return 0; }

                                config_int_pair *Assignment = 0;
                                if((Assignment = GetIntAssignment(Parent, &IntPair, Field->Singleton)))
                                {
                                    Assignment->Value = IntPair.Value;
                                }
                                else
                                {
                                    PushIntPair(Parent, &IntPair);
                                }
                            } break;
                        case FT_SCOPE:
                            {
                                ++T->CurrentIndex;
                                if(!ExpectToken(T, TOKEN_ASSIGN, 0)) { FreeScopeTree(Tree); return 0; }

                                token Value = {};
                                if(!ExpectToken(T, TOKEN_STRING, &Value)) { FreeScopeTree(Tree); return 0; }
                                Pair.Value = Value.Content;
                                Pair.Position.LineNumber = Value.LineNumber;

                                if(Field->ID == IDENT_INCLUDE)
                                {
                                    int IncludePathTokenIndex = T->CurrentIndex - 1;
                                    config_include_rules Rules = {};
                                    switch(ParseIncludeRules(TypeSpecs, &Parent->TypeSpec, T, &Rules))
                                    {
                                        case RC_SUCCESS:
                                            {
                                                string IncluderFilePath = Wrap0(T->File.Path);
                                                char *IncludePath = ExpandPath(Pair.Value, &IncluderFilePath);
                                                string IncludePathL = Wrap0(IncludePath);

                                                tokens *I = 0;
                                                for(int i = 0; i < TokensList->Count; ++i)
                                                {
                                                    if(!StringsDifferLv0(Value.Content, TokensList->Tokens[i].File.Path))
                                                    {
                                                        I = TokensList->Tokens + i;
                                                        I->CurrentIndex = 0;
                                                        I->CurrentLine = 0;
                                                    }
                                                }
                                                if(!I)
                                                {
                                                    I = Tokenise(TokensList, IncludePathL);
                                                }
                                                if(I)
                                                {
                                                    Parent = ScopeTokens(Parent, TokensList, I, TypeSpecs, &Rules);
                                                    FreeRules(&Rules);
                                                    if(!Parent)
                                                    {
                                                        return 0;
                                                    }
                                                }
                                                else
                                                {
                                                    ConfigFileIncludeError(T->File.Path, T->Token[IncludePathTokenIndex].LineNumber, Wrap0(IncludePath));
                                                }
                                                Free(IncludePath);
                                            } break;
                                        case RC_SCHEME_MIXTURE:
                                            {
                                            } break;
                                        case RC_SYNTAX_ERROR:
                                            {
                                                FreeScopeTree(Tree); return 0;
                                            } break;
                                        case RC_INVALID_IDENTIFIER:
                                            {
                                            } break;
                                        default: break;
                                    }
                                }
                                else
                                {
                                    scope_tree *Search = 0;
                                    if(Field->ID == IDENT_SUPPORT)
                                    {
                                        scope_tree *ParentP = Parent;
                                        Search = GetScope(ParentP, &Pair, Field->Singleton);
                                        while(!Search && ParentP->Parent)
                                        {
                                            ParentP = ParentP->Parent;
                                            Search = GetScope(ParentP, &Pair, Field->Singleton);
                                        }
                                    }
                                    else
                                    {
                                        Search = GetScope(Parent, &Pair, Field->Singleton);
                                    }


                                    if(Search)
                                    {
                                        if(Field->ID == IDENT_SUPPORT)
                                        {
                                            Parent = CopyScope(TypeSpecs, Parent, Search);
                                        }
                                        else
                                        {
                                            Parent = Search;
                                            MergeScopes(TypeSpecs, Parent, Parent->Parent, TRUE);
                                        }
                                    }
                                    else
                                    {
                                        Parent = PushScope(TypeSpecs, Parent, &Pair);
                                        if(Parent->ID.Key == IDENT_MEDIUM)
                                        {
                                            config_bool_pair Hidden = {};
                                            Hidden.Key = IDENT_HIDDEN;
                                            Hidden.Value = FALSE;
                                            PushBoolPair(Parent, &Hidden);
                                        }
                                        MergeScopes(TypeSpecs, Parent, Parent->Parent, TRUE);
                                    }

                                    ResetFields(&Parent->TypeSpec);

                                    if(TokenIs(T, TOKEN_SEMICOLON))
                                    {
                                        Parent = Parent->Parent;
                                    }
                                    else if(TokenIs(T, TOKEN_OPEN_BRACE))
                                    {
                                    }
                                    else
                                    {
                                        ConfigErrorExpectation(T, TOKEN_SEMICOLON, TOKEN_OPEN_BRACE);
                                        FreeScopeTree(Tree); return 0;
                                    }
                                    ++T->CurrentIndex;
                                }
                            } break;
                    }
                    // NOTE(matt):  This may not be appropriate for the IDENT_INCLUDE...
                    Field->IsSetLocally = TRUE;
                }
                else
                {
                    ConfigError(T->File.Path, T->Token[T->CurrentIndex].LineNumber, S_WARNING, "Field not allowed: ", &T->Token[T->CurrentIndex].Content);
                    DepartAssignment(T);
                }
            }
            else
            {
                ConfigError(T->File.Path, T->Token[T->CurrentIndex].LineNumber, S_WARNING, "Invalid field: ", &T->Token[T->CurrentIndex].Content);
                if(!DepartAssignment(T))
                {
                    FreeScopeTree(Tree);
                    return 0;
                }
            }
        }
        else if(TokenIs(T, TOKEN_CLOSE_BRACE))
        {
            if(!Parent->Parent)
            {
                ConfigError(T->File.Path, T->Token[T->CurrentIndex].LineNumber, S_ERROR, "Syntax error: Unpaired closing brace", 0);
                FreeScopeTree(Tree);
                return 0;
            }
            Parent = Parent->Parent;
            ++T->CurrentIndex;
        }
        else
        {
            ConfigErrorExpectation(T, TOKEN_IDENTIFIER, TOKEN_CLOSE_BRACE);
            FreeScopeTree(Tree);
            return 0;
        }
    }
    return Tree;
}

// TODO(matt):  Fully nail down the title list stuff. Perhaps, make the title_list_end; identifier somehow indicate to child
//              scopes that they should not absorb any title_list stuff...

typedef struct
{
    token_position Position;
    config_identifier_id Variable;
} resolution_error;

typedef struct
{
    uint64_t ErrorCount;
    resolution_error *Errors;
    uint64_t WarningCount;
    resolution_error *Warnings;
} resolution_errors;

void
PushError(resolution_errors *E, severity Severity, token_position *Position, config_identifier_id Variable)
{
    if(Severity == S_WARNING)
    {
        E->Warnings = Fit(E->Warnings, sizeof(*E->Warnings), E->WarningCount, 16, TRUE);
        if(Position)
        {
            E->Warnings[E->WarningCount].Position = *Position;
        }
        E->Warnings[E->WarningCount].Variable = Variable;
        ++E->WarningCount;
    }
    else
    {
        E->Errors = Fit(E->Errors, sizeof(*E->Errors), E->ErrorCount, 16, TRUE);
        if(Position)
        {
            E->Errors[E->ErrorCount].Position = *Position;
        }
        E->Errors[E->ErrorCount].Variable = Variable;
        ++E->ErrorCount;
    }
}

resolution_error *
GetError(resolution_errors *E, severity Severity, token_position *Position, config_identifier_id Variable)
{
    if(Severity == S_WARNING)
    {
        for(int i = 0; i < E->WarningCount; ++i)
        {
            if(E->Warnings[i].Position.Filename == Position->Filename &&
                    E->Warnings[i].Position.LineNumber == Position->LineNumber &&
                    E->Warnings[i].Variable == Variable)
            {
                return &E->Warnings[i];
            }
        }
    }
    else
    {
        for(int i = 0; i < E->ErrorCount; ++i)
        {
            if(E->Errors[i].Position.Filename == Position->Filename &&
                    E->Errors[i].Position.LineNumber == Position->LineNumber &&
                    E->Errors[i].Variable == Variable)
            {
                return &E->Errors[i];
            }
        }
    }
    return 0;
}

void
FreeErrors(resolution_errors *E)
{
    FreeAndResetCount(E->Errors, E->ErrorCount);
    FreeAndResetCount(E->Warnings, E->WarningCount);
}

string
ResolveEnvironmentVariable(memory_book *M, string Variable)
{
    string Result = {};
    int DollarCharacterBytes = 1;
    int NullTerminationBytes = 1;
    // NOTE(matt): Stack-string
    char Variable0[DollarCharacterBytes + Variable.Length + NullTerminationBytes];
    char *Ptr = Variable0;
    if(!StringsMatch(Variable, Wrap0("~")))
    {
        *Ptr++ = '$';
    }
    for(int i = 0; i < Variable.Length; ++i)
    {
        *Ptr++ = Variable.Base[i];
    }
    *Ptr = '\0';
    int Flags = WRDE_NOCMD | WRDE_UNDEF | WRDE_APPEND;
    wordexp_t Expansions = {};
    wordexp(Variable0, &Expansions, Flags);
    if(Expansions.we_wordc > 0)
    {
        Result = ExtendStringInBook(M, Wrap0(Expansions.we_wordv[0]));
    }
    wordfree(&Expansions);
    return Result;
}

person *
GetPerson(config *C, resolution_errors *E, config_pair *PersonID)
{
    for(int i = 0; i < C->PersonCount; ++i)
    {
        if(!StringsDifferCaseInsensitive(C->Person[i].ID, PersonID->Value))
        {
            return &C->Person[i];
        }
    }

    if(!GetError(E, S_WARNING, &PersonID->Position, IDENT_PERSON))
    {
        ConfigError(PersonID->Position.Filename, PersonID->Position.LineNumber, S_WARNING, "Could not find person: ", &PersonID->Value);
        PushError(E, S_WARNING, &PersonID->Position, IDENT_PERSON);
    }
    return 0;
}

string
DeriveLineageOfProject(config *C, scope_tree *Project)
{
    string Result = {};
    string_list StringList = {};
    if(Project)
    {
        PushString(&StringList, &Project->ID.Value);
        Project = Project->Parent;
    }
    while(Project && Project->ID.Key == IDENT_PROJECT)
    {
        string Slash = Wrap0("/");
        PushString(&StringList, &Slash);
        PushString(&StringList, &Project->ID.Value);
        Project = Project->Parent;
    }

    for(int i = StringList.Count - 1; i >= 0; --i)
    {
        Result = ExtendStringInBook(&C->ResolvedVariables, StringList.String[i]);
    }
    FreeStringList(&StringList);
    return Result;
}

string
EmptyString(void)
{
    string Result = {};
    return Result;
}

string
DeriveLineageWithoutOriginOfProject(config *C, scope_tree *Project)
{
    string Result = {};
    string_list StringList = {};
    if(Project->Parent && Project->Parent->ID.Key == IDENT_PROJECT)
    {
        PushString(&StringList, &Project->ID.Value);
        Project = Project->Parent;
    }
    while(Project->Parent && Project->Parent->ID.Key == IDENT_PROJECT)
    {
        string Slash = Wrap0("/");
        PushString(&StringList, &Slash);
        PushString(&StringList, &Project->ID.Value);
        Project = Project->Parent;
    }

    if(StringList.Count > 0)
    {
        for(int i = StringList.Count - 1; i >= 0; --i)
        {
            Result = ExtendStringInBook(&C->ResolvedVariables, StringList.String[i]);
        }
        FreeStringList(&StringList);
    }
    else
    {
        Result = ExtendStringInBook(&C->ResolvedVariables, EmptyString());
    }
    return Result;
}

string
ResolveLocalVariable(config *C, resolution_errors *E, scope_tree *Scope, config_identifier_id Variable, token_position *Position)
{
    string Result = {};
    switch(Variable)
    {
        case IDENT_LINEAGE:
            {
                if(Scope->ID.Key == IDENT_PROJECT)
                {
                    Result = DeriveLineageOfProject(C, Scope);
                }
                else
                {
                    string This = Wrap0(ConfigIdentifiers[Variable].String);
                    if(!GetError(E, S_WARNING, Position, Variable))
                    {
                        ConfigError(Position->Filename, Position->LineNumber, S_WARNING, "Variable could not be resolved: ", &This);
                        PushError(E, S_WARNING, Position, Variable);
                    }
                }
            } break;
        case IDENT_LINEAGE_WITHOUT_ORIGIN:
            {
                if(Scope->ID.Key == IDENT_PROJECT)
                {
                    Result = DeriveLineageWithoutOriginOfProject(C, Scope);
                }
                else
                {
                    string This = Wrap0(ConfigIdentifiers[Variable].String);
                    if(!GetError(E, S_WARNING, Position, Variable))
                    {
                        ConfigError(Position->Filename, Position->LineNumber, S_WARNING, "Variable could not be resolved: ", &This);
                        PushError(E, S_WARNING, Position, Variable);
                    }
                }
            } break;
        case IDENT_ORIGIN:
            {
                if(Scope->ID.Key == IDENT_PROJECT)
                {
                    while(Scope->Parent && Scope->Parent->ID.Key == IDENT_PROJECT)
                    {
                        Scope = Scope->Parent;
                    }
                    Result = ExtendStringInBook(&C->ResolvedVariables, Scope->ID.Value);
                }
                else
                {
                    string This = Wrap0(ConfigIdentifiers[Variable].String);
                    if(!GetError(E, S_WARNING, Position, Variable))
                    {
                        ConfigError(Position->Filename, Position->LineNumber, S_WARNING, "Variable could not be resolved: ", &This);
                        PushError(E, S_WARNING, Position, Variable);
                    }
                }
            } break;
        case IDENT_OWNER:
            {
                bool Processed = FALSE;
                for(int i = 0; i < Scope->PairCount; ++i)
                {
                    if(Scope->Pairs[i].Key == Variable)
                    {
                        if(GetPerson(C, E, &Scope->Pairs[i]))
                        {
                            Result = ExtendStringInBook(&C->ResolvedVariables, Scope->Pairs[i].Value);
                            Processed = TRUE;
                            break;
                        }
                        else
                        {
                            if(!GetError(E, S_WARNING, Position, Variable))
                            {
                                ConfigError(Position->Filename, Position->LineNumber, S_WARNING, "Owner set, but the person does not exist: ", &Scope->Pairs[i].Value);
                                PushError(E, S_WARNING, Position, Variable);
                            }
                            Processed = TRUE;
                        }
                    }
                }
                if(!Processed)
                {
                    if(!GetError(E, S_WARNING, Position, Variable))
                    {
                        ConfigError(Position->Filename, Position->LineNumber, S_WARNING, "No owner set", 0);
                        PushError(E, S_WARNING, Position, Variable);
                    }
                }
            } break;
        case IDENT_PERSON:
            {
                if(Scope->ID.Key != Variable)
                {
                    Scope = Scope->Parent;
                }
            } // NOTE(matt): Intentional fall-through
        case IDENT_PROJECT:
        case IDENT_SUPPORT:
            {
                if(Scope && Scope->ID.Key == Variable)
                {
                    Result = ExtendStringInBook(&C->ResolvedVariables, Scope->ID.Value);
                }
                else
                {
                    string This = Wrap0(ConfigIdentifiers[Variable].String);
                    if(!GetError(E, S_WARNING, Position, Variable))
                    {
                        ConfigError(Position->Filename, Position->LineNumber, S_WARNING, "Variable could not be resolved: ", &This);
                        PushError(E, S_WARNING, Position, Variable);
                    }
                }
            } break;
        default:
            {
                if(!GetError(E, S_WARNING, Position, Variable))
                {
                    string This = Wrap0(ConfigIdentifiers[Variable].String);
                    ConfigError(Position->Filename, Position->LineNumber, S_WARNING, "Unhandled local variable: ", &This);
                    PushError(E, S_WARNING, Position, Variable);
                }
            } break;
    };

    return Result;
}

string
ResolveString(config *C, resolution_errors *E, scope_tree *Parent, config_pair *S, bool AbsoluteFilePath)
{
    //PrintFunctionName("ResolveString()");
    string Result = {};
    ResetPen(&C->ResolvedVariables);
    for(int i = 0; i < S->Value.Length;)
    {
        switch(S->Value.Base[i])
        {
            case '$':
                       {
                           string Test = {};
                           ++i;
                           if(i < S->Value.Length && S->Value.Base[i] == '{')
                           {
                               ++i;
                               Test.Base = S->Value.Base + i;
                               while(i < S->Value.Length && S->Value.Base[i] != '}')
                               {
                                   ++Test.Length;
                                   ++i;
                               }
                           }
                           else
                           {
                               Test.Base = S->Value.Base + i;
                               while(i < S->Value.Length && IsValidIdentifierCharacter(S->Value.Base[i]))
                               {
                                   ++Test.Length;
                                   ++i;
                               }
                               if(i > 0) { --i; }
                           }

                           config_identifier_id ID = GetConfigIdentifierFromString(Test);
                           if(ID != IDENT_NULL)
                           {
                               Result = ResolveLocalVariable(C, E, Parent, ID, &S->Position);
                           }
                           else
                           {
                               Result = ResolveEnvironmentVariable(&C->ResolvedVariables, Test);
                           }
                       } break;
            case '~':
                       {
                           string Char = { .Base = S->Value.Base + i, .Length = 1 };
                           if(AbsoluteFilePath && i == 0)
                           {
                               Result = ResolveEnvironmentVariable(&C->ResolvedVariables, Char);
                           }
                           else
                           {
                               Result = ExtendStringInBook(&C->ResolvedVariables, Char);
                           }
                       } break;
            case '\\': { ++i; }; // NOTE(matt): Intentional fall-through
            default:
                       {
                           string Char = { .Base = S->Value.Base + i, .Length = 1 };
                           Result = ExtendStringInBook(&C->ResolvedVariables, Char);
                       } break;

        }
        ++i;
    }
    return Result;
}

typedef enum
{
    P_ABS,
    P_REL,
} path_relativity;

string
StripSlashes(string Path, path_relativity Relativity)
{
    string Result = Path;
    if(Relativity == P_REL)
    {
        while(*Result.Base == '/')
        {
            ++Result.Base;
            --Result.Length;
        }
    }

    while(Result.Base[Result.Length - 1] == '/')
    {
        --Result.Length;
    }
    return Result;
}

bool
HasImageFileExtension(string Path)
{
    return ExtensionMatches(Path, EXT_GIF) ||
        ExtensionMatches(Path, EXT_JPEG) ||
        ExtensionMatches(Path, EXT_JPG) ||
        ExtensionMatches(Path, EXT_PNG);
}

typedef struct
{
    string Path;
    uint64_t *Variants;
    uint64_t VariantsCount;
} variant_string;

typedef struct
{
    variant_string *Variants;
    uint64_t Count;
} variant_strings;

void
PushVariantUniquely(resolution_errors *E, variant_strings *VS, string Path, uint64_t Variants, config_identifier_id Identifier)
{
    if(Path.Length > 0)
    {
        bool FoundPath = FALSE;
        for(int i = 0; i < VS->Count; ++i)
        {
            variant_string *This = VS->Variants + i;
            if(StringsMatch(This->Path, Path))
            {
                FoundPath = TRUE;
/*
Incoming Variants: 4
List:
    16
    2

Incoming Variants: 4
List:
    16
    2
    4

Incoming Variants: 2
List:
    16
    2
    4
*/
                bool FoundVariantsMatch = FALSE;
                for(int VariantsIndex = 0; VariantsIndex < This->VariantsCount; ++VariantsIndex)
                {
                    uint64_t *Test = This->Variants + VariantsIndex;
                    if(*Test == Variants)
                    {
                        FoundVariantsMatch = TRUE;
                    }
                }

                if(!FoundVariantsMatch)
                {
                    This->Variants = Fit(This->Variants, sizeof(*This->Variants), This->VariantsCount, 4, TRUE);
                    This->Variants[This->VariantsCount] = Variants;
                    ++This->VariantsCount;
                    PushError(E, S_ERROR, 0, Identifier);
                }
            }
        }

        if(!FoundPath)
        {
            VS->Variants = Fit(VS->Variants, sizeof(*VS->Variants), VS->Count, 8, TRUE);
            variant_string *New = VS->Variants + VS->Count;
            New->Path = Path;
            New->Variants = Fit(New->Variants, sizeof(*New->Variants), New->VariantsCount, 4, TRUE);
            New->Variants[New->VariantsCount] = Variants;
            ++New->VariantsCount;

            ++VS->Count;
        }
    }
}

typedef struct
{
    project *Alloc;
    project *Project;
} project_and_alloc;

typedef struct
{
    string String;
    project_and_alloc *Projects;
    uint64_t ProjectCount;
} config_string_association;

typedef struct
{
    config_string_association *Associations;
    config_identifier_id ID;
    uint64_t Count;
} config_string_associations;

typedef struct
{
    variant_strings VariantStrings;
    config_string_associations HMMLDirs;
} config_verifiers;

void
PushMedium(config *C, resolution_errors *E, config_verifiers *V, project *P, scope_tree *MediumTree)
{
    // TODO(matt):  Do we need to warn about incomplete medium information?
    P->Medium = Fit(P->Medium, sizeof(*P->Medium), P->MediumCount, 8, TRUE);

    medium *Medium = P->Medium + P->MediumCount;
    Medium->ID = ResolveString(C, E, MediumTree, &MediumTree->ID, FALSE);
    for(int i = 0; i < MediumTree->PairCount; ++i)
    {
        config_pair *This = MediumTree->Pairs + i;
        switch(This->Key)
        {
            case IDENT_ICON: { Medium->Icon = ResolveString(C, E, MediumTree, This, FALSE); } break;
            case IDENT_ICON_NORMAL: { Medium->IconNormal = ResolveString(C, E, MediumTree, This, FALSE); } break;
            case IDENT_ICON_FOCUSED: { Medium->IconFocused = ResolveString(C, E, MediumTree, This, FALSE); } break;
            case IDENT_ICON_DISABLED: { Medium->IconDisabled = ResolveString(C, E, MediumTree, This, FALSE); } break;
            case IDENT_NAME: { Medium->Name = ResolveString(C, E, MediumTree, This, FALSE); } break;
            default: break;
        }
    }

    for(int i = 0; i < MediumTree->IntPairCount; ++i)
    {
        config_int_pair *This = MediumTree->IntPairs + i;
        switch(This->Key)
        {
            case IDENT_ICON_TYPE: { Medium->IconType = This->Value; } break;
            case IDENT_ICON_VARIANTS: { Medium->IconVariants = This->Value; } break;
            default: break;
        }
    }

    for(int i = 0; i < MediumTree->BoolPairCount; ++i)
    {
        config_bool_pair *This = MediumTree->BoolPairs + i;
        switch(This->Key)
        {
            case IDENT_HIDDEN: { Medium->Hidden = This->Value; } break;
            default: break;
        }
    }

    if(Medium->Icon.Length > 0)
    {
        if(Medium->IconType == IT_DEFAULT_UNSET)
        {
            if(HasImageFileExtension(Medium->Icon))
            {
                Medium->IconType = IT_GRAPHICAL;
            }
            else
            {
                Medium->IconType = IT_TEXTUAL;
            }
        }

        switch(Medium->IconType)
        {
            case IT_GRAPHICAL:
                {
                    PushVariantUniquely(E, &V->VariantStrings, Medium->Icon, Medium->IconVariants, IDENT_ICON);
                } break;
            case IT_TEXTUAL:
                {
                    if(Medium->IconNormal.Length == 0) { Medium->IconNormal = Medium->Icon; }
                    if(Medium->IconFocused.Length == 0) { Medium->IconFocused = Medium->Icon; }
                    if(Medium->IconDisabled.Length == 0) { Medium->IconDisabled = Medium->Icon; }
                } break;
            default: break;
        }
    }

    ++P->MediumCount;
}

medium *
GetMediumFromProject(project *P, string ID)
{
    medium *Result = 0;
    for(int i = 0; i < P->MediumCount; ++i)
    {
        medium *This = P->Medium + i;
        if(StringsMatch(ID, This->ID))
        {
            Result = This;
            break;
        }
    }
    return Result;
}

void
PushSupport(config *C, resolution_errors *E, config_verifiers *V, person *P, scope_tree *SupportTree)
{
    P->Support = Fit(P->Support, sizeof(*P->Support), P->SupportCount, 2, TRUE);
    support *Support = P->Support + P->SupportCount;
    Support->ID = ResolveString(C, E, SupportTree, &SupportTree->ID, FALSE);
    for(int i = 0; i < SupportTree->PairCount; ++i)
    {
        config_pair *This = SupportTree->Pairs + i;
        switch(This->Key)
        {
            case IDENT_ICON: { Support->Icon = StripSlashes(ResolveString(C, E, SupportTree, This, FALSE), P_REL); } break;
            case IDENT_ICON_NORMAL: { Support->IconNormal = ResolveString(C, E, SupportTree, This, FALSE); } break;
            case IDENT_ICON_FOCUSED: { Support->IconFocused = ResolveString(C, E, SupportTree, This, FALSE); } break;
            case IDENT_URL: { Support->URL = ResolveString(C, E, SupportTree, This, FALSE); } break;
            default: break;
        }
    }

    for(int i = 0; i < SupportTree->IntPairCount; ++i)
    {
        config_int_pair *This = SupportTree->IntPairs + i;
        switch(This->Key)
        {
            case IDENT_ICON_TYPE: { Support->IconType = This->Value; } break;
            case IDENT_ICON_VARIANTS: { Support->IconVariants = This->Value; } break;
            default: break;
        }
    }

    if(Support->Icon.Length > 0)
    {
        if(Support->IconType == IT_DEFAULT_UNSET)
        {
            if(HasImageFileExtension(Support->Icon))
            {
                Support->IconType = IT_GRAPHICAL;
            }
            else
            {
                Support->IconType = IT_TEXTUAL;
            }
        }

        switch(Support->IconType)
        {
            case IT_GRAPHICAL:
                {
                    PushVariantUniquely(E, &V->VariantStrings, Support->Icon, Support->IconVariants, IDENT_ICON);
                } break;
            case IT_TEXTUAL:
                {
                    if(Support->IconNormal.Length == 0) { Support->IconNormal = Support->Icon; }
                    if(Support->IconFocused.Length == 0) { Support->IconFocused = Support->Icon; }
                } break;
            default: break;
        }
    }

    ++P->SupportCount;
}

void
PushPersonOntoConfig(config *C, resolution_errors *E, config_verifiers *V, scope_tree *PersonTree)
{
    //PrintFunctionName("PushPersonOntoConfig()");
    //PrintScopeTree(PersonTree);
    C->Person = Fit(C->Person, sizeof(*C->Person), C->PersonCount, 8, TRUE);
    C->Person[C->PersonCount].ID = ResolveString(C, E, PersonTree, &PersonTree->ID, FALSE);
    for(int i = 0; i < PersonTree->PairCount; ++i)
    {
        if(PersonTree->Pairs[i].Key == IDENT_NAME)
        {
            C->Person[C->PersonCount].Name = ResolveString(C, E, PersonTree, &PersonTree->Pairs[i], FALSE);
        }
        else if(PersonTree->Pairs[i].Key == IDENT_HOMEPAGE)
        {
            C->Person[C->PersonCount].Homepage = ResolveString(C, E, PersonTree, &PersonTree->Pairs[i], FALSE);
        }
    }

    for(int i = 0; i < PersonTree->TreeCount; ++i)
    {
        PushSupport(C, E, V, &C->Person[C->PersonCount], &PersonTree->Trees[i]);
    }

    ++C->PersonCount;
}

void
PushPersonOntoProject(config *C, resolution_errors *E, project *P, config_pair *Actor)
{
    person *Person = GetPerson(C, E, Actor);
    if(Person)
    {
        switch(Actor->Key)
        {
            case IDENT_INDEXER:
                {
                    P->Indexer = Fit(P->Indexer, sizeof(*P->Indexer), P->IndexerCount, 4, FALSE);
                    P->Indexer[P->IndexerCount] = Person;
                    ++P->IndexerCount;
                } break;
            case IDENT_COHOST:
                {
                    P->CoHost = Fit(P->CoHost, sizeof(*P->CoHost), P->CoHostCount, 4, FALSE);
                    P->CoHost[P->CoHostCount] = Person;
                    ++P->CoHostCount;
                } break;
            case IDENT_GUEST:
                {
                    P->Guest = Fit(P->Guest, sizeof(*P->Guest), P->GuestCount, 4, FALSE);
                    P->Guest[P->GuestCount] = Person;
                    ++P->GuestCount;
                } break;
            default:;
        }
    }
}

void PushProjectOntoProject(config *C, resolution_errors *E, config_verifiers *Verifiers, project *Parent, scope_tree *ProjectTree);

void
AddProjectToAssociation(config_string_association *A, project *Alloc, project *P)
{
    A->Projects = Fit(A->Projects, sizeof(*A->Projects), A->ProjectCount, 4, TRUE);
    A->Projects[A->ProjectCount].Alloc = Alloc;
    A->Projects[A->ProjectCount].Project = P;
    ++A->ProjectCount;
}

void
PushHMMLDirAssociation(config_string_associations *HMMLDirs, string *S, project *Alloc, project *P)
{
    HMMLDirs->Associations = Fit(HMMLDirs->Associations, sizeof(*HMMLDirs->Associations), HMMLDirs->Count, 8, TRUE);
    HMMLDirs->Associations[HMMLDirs->Count].String = *S;
    AddProjectToAssociation(&HMMLDirs->Associations[HMMLDirs->Count], Alloc, P);
    ++HMMLDirs->Count;
}

void
SetUniqueHMMLDir(config *C, resolution_errors *E, config_string_associations *HMMLDirs, project *Alloc, project *P, scope_tree *ProjectTree, config_pair *HMMLDir)
{
    string Result = StripSlashes(ResolveString(C, E, ProjectTree, HMMLDir, TRUE), P_ABS);
    bool Clashed = FALSE;
    for(int i = 0; i < HMMLDirs->Count; ++i)
    {
        if(StringsMatch(HMMLDirs->Associations[i].String, Result))
        {
            AddProjectToAssociation(&HMMLDirs->Associations[i], Alloc, P);
            PushError(E, S_ERROR, &HMMLDir->Position, IDENT_HMML_DIR);
            Clashed = TRUE;
            break;
        }
    }

    if(!Clashed)
    {
        PushHMMLDirAssociation(HMMLDirs, &Result, Alloc, P);
    }
    P->HMMLDir = Result;
}

void
PushProject(config *C, resolution_errors *E, config_verifiers *V, project *Alloc, project *P, scope_tree *ProjectTree)
{
    config_string_associations *HMMLDirs = &V->HMMLDirs;
    P->ID = ResolveString(C, E, ProjectTree, &ProjectTree->ID, FALSE);
    if(P->ID.Length > MAX_PROJECT_ID_LENGTH)
    {
        ConfigErrorSizing(ProjectTree->ID.Position.Filename, ProjectTree->ID.Position.LineNumber, IDENT_PROJECT, &P->ID, MAX_PROJECT_ID_LENGTH);
        PushError(E, S_ERROR, 0, IDENT_PROJECT);
    }

    ResetPen(&C->ResolvedVariables);
    P->Lineage = DeriveLineageOfProject(C, ProjectTree);

    for(int i = 0; i < ProjectTree->TreeCount; ++i)
    {
        if(ProjectTree->Trees[i].ID.Key == IDENT_MEDIUM)
        {
            PushMedium(C, E, V, P, &ProjectTree->Trees[i]);
        }
    }

    for(int i = 0; i < ProjectTree->PairCount; ++i)
    {
        config_pair *This = ProjectTree->Pairs + i;
        switch(This->Key)
        {
            case IDENT_DEFAULT_MEDIUM:
                { P->DefaultMedium = GetMediumFromProject(P, This->Value); } break;
            case IDENT_HMML_DIR:
                { SetUniqueHMMLDir(C, E, HMMLDirs, Alloc, P, ProjectTree, This); } break;
            case IDENT_INDEXER:
            case IDENT_COHOST:
            case IDENT_GUEST:
                { PushPersonOntoProject(C, E, P, This); } break;
            case IDENT_OWNER:
                {
                    // TODO(matt):     Do we need to fail completely if owner cannot be found?
                    P->Owner = GetPerson(C, E, This);
                } break;
            case IDENT_PLAYER_TEMPLATE:
                { P->PlayerTemplatePath = StripSlashes(ResolveString(C, E, ProjectTree, This, FALSE), P_REL); } break;
            case IDENT_THEME:
                { P->Theme = ResolveString(C, E, ProjectTree, This, FALSE);
                    if(P->Theme.Length > MAX_THEME_LENGTH)
                    {
                        ConfigErrorSizing(This->Position.Filename, This->Position.LineNumber, This->Key,
                                &P->Theme, MAX_THEME_LENGTH);
                        PushError(E, S_ERROR, 0, This->Key);
                    }
                } break;
            case IDENT_TITLE:
                {
                    P->Title = ResolveString(C, E, ProjectTree, This, FALSE);
                    if(P->Title.Length > MAX_PROJECT_NAME_LENGTH)
                    {
                        ConfigErrorSizing(This->Position.Filename, This->Position.LineNumber, This->Key,
                                &P->Title, MAX_PROJECT_NAME_LENGTH);
                        PushError(E, S_ERROR, 0, This->Key);
                    }
                } break;
            case IDENT_HTML_TITLE: { P->HTMLTitle = ResolveString(C, E, ProjectTree, This, FALSE); } break;
            // TODO(matt): Sort out this title list stuff
            //case IDENT_TITLE_LIST_DELIMITER: { C->Project[C->ProjectCount].HMMLDir = ResolveString(This); } break;
            //case IDENT_TITLE_LIST_PREFIX: { C->Project[C->ProjectCount].HMMLDir = ResolveString(This); } break;
            //case IDENT_TITLE_LIST_SUFFIX: { C->Project[C->ProjectCount].HMMLDir = ResolveString(This); } break;
            //case IDENT_TITLE_SUFFIX: { C->Project[C->ProjectCount].HMMLDir = ResolveString(This); } break;
            case IDENT_UNIT: { P->Unit = ResolveString(C, E, ProjectTree, This, FALSE); } break;
            case IDENT_BASE_DIR:
                {
                    P->BaseDir = StripSlashes(ResolveString(C, E, ProjectTree, This, TRUE), P_ABS);
                    if(P->BaseDir.Length > MAX_BASE_DIR_LENGTH)
                    {
                        ConfigErrorSizing(This->Position.Filename, This->Position.LineNumber, This->Key,
                                &P->BaseDir, MAX_BASE_DIR_LENGTH);
                        PushError(E, S_ERROR, 0, This->Key);
                    }
                } break;
            case IDENT_BASE_URL:
                {
                    P->BaseURL = ResolveString(C, E, ProjectTree, This, FALSE);
                    if(P->BaseURL.Length > MAX_BASE_URL_LENGTH)
                    {
                        ConfigErrorSizing(This->Position.Filename, This->Position.LineNumber, This->Key,
                                &P->BaseURL, MAX_BASE_URL_LENGTH);
                        PushError(E, S_ERROR, 0, This->Key);
                    }
                } break;
            case IDENT_PLAYER_LOCATION:
                {
                    P->PlayerLocation = StripSlashes(ResolveString(C, E, ProjectTree, This, FALSE), P_REL);
                    if(P->PlayerLocation.Length > MAX_RELATIVE_PAGE_LOCATION_LENGTH)
                    {
                        ConfigErrorSizing(This->Position.Filename, This->Position.LineNumber, This->Key,
                                &P->PlayerLocation, MAX_RELATIVE_PAGE_LOCATION_LENGTH);
                        PushError(E, S_ERROR, 0, This->Key);
                    }
                } break;
            case IDENT_SEARCH_LOCATION:
                {
                    P->SearchLocation = StripSlashes(ResolveString(C, E, ProjectTree, This, FALSE), P_REL);
                    if(P->SearchLocation.Length > MAX_RELATIVE_PAGE_LOCATION_LENGTH)
                    {
                        ConfigErrorSizing(This->Position.Filename, This->Position.LineNumber, This->Key,
                                &P->SearchLocation, MAX_RELATIVE_PAGE_LOCATION_LENGTH);
                        PushError(E, S_ERROR, 0, This->Key);
                    }
                } break;
            case IDENT_SEARCH_TEMPLATE:
                { P->SearchTemplatePath = StripSlashes(ResolveString(C, E, ProjectTree, This, FALSE), P_REL); } break;
            case IDENT_TEMPLATES_DIR:
                { P->TemplatesDir = StripSlashes(ResolveString(C, E, ProjectTree, This, TRUE), P_ABS); } break;
            case IDENT_STREAM_USERNAME:
                { P->StreamUsername = ResolveString(C, E, ProjectTree, This, FALSE); } break;
            case IDENT_VOD_PLATFORM:
                { P->VODPlatform = ResolveString(C, E, ProjectTree, This, FALSE); } break;

            case IDENT_ART: { P->Art = StripSlashes(ResolveString(C, E, ProjectTree, This, FALSE), P_REL); } break;
            case IDENT_ICON: { P->Icon = StripSlashes(ResolveString(C, E, ProjectTree, This, FALSE), P_REL); } break;
            case IDENT_ICON_NORMAL: { P->IconNormal = ResolveString(C, E, ProjectTree, This, FALSE); } break;
            case IDENT_ICON_FOCUSED: { P->IconFocused = ResolveString(C, E, ProjectTree, This, FALSE); } break;
            case IDENT_ICON_DISABLED: { P->IconDisabled = ResolveString(C, E, ProjectTree, This, FALSE); } break;

            default: break;
        }
    }

    for(int i = 0; i < ProjectTree->IntPairCount; ++i)
    {
        config_int_pair *This = ProjectTree->IntPairs + i;
        switch(This->Key)
        {
            case IDENT_GENRE: { P->Genre = This->Value; } break;
            case IDENT_ART_VARIANTS: { P->ArtVariants = This->Value; } break;
            case IDENT_ICON_TYPE: { P->IconType = This->Value; } break;
            case IDENT_ICON_VARIANTS: { P->IconVariants = This->Value; } break;
            case IDENT_NUMBERING_SCHEME: { P->NumberingScheme = This->Value; } break;
            default: break;
        }
    }

    for(int i = 0; i < ProjectTree->BoolPairCount; ++i)
    {
        config_bool_pair *This = ProjectTree->BoolPairs + i;
        switch(This->Key)
        {
            case IDENT_IGNORE_PRIVACY:
                { P->IgnorePrivacy = This->Value; } break;
            case IDENT_SINGLE_BROWSER_TAB:
                { P->SingleBrowserTab = This->Value; } break;
            default: break;
        }
    }

    for(int i = 0; i < ProjectTree->TreeCount; ++i)
    {
        scope_tree *This = ProjectTree->Trees + i;
        if(This->ID.Key == IDENT_PROJECT)
        {
            PushProjectOntoProject(C, E, V, P, This);
        }
    }

    if(!P->DefaultMedium)
    {
        ResetPen(&C->ResolvedVariables);
        ConfigError(0, 0, S_WARNING, "Unset default_medium for project: ", &P->Lineage);
        PushError(E, S_WARNING, 0, IDENT_DEFAULT_MEDIUM);
    }

    if(P->Art.Length > 0)
    {
        PushVariantUniquely(E, &V->VariantStrings, P->Art, P->ArtVariants, IDENT_ART);
    }

    if(P->Icon.Length > 0)
    {
        if(P->IconType == IT_DEFAULT_UNSET)
        {
            if(HasImageFileExtension(P->Icon))
            {
                P->IconType = IT_GRAPHICAL;
            }
            else
            {
                P->IconType = IT_TEXTUAL;
            }
        }

        switch(P->IconType)
        {
            case IT_GRAPHICAL:
                {
                    PushVariantUniquely(E, &V->VariantStrings, P->Icon, P->IconVariants, IDENT_ICON);
                } break;
            case IT_TEXTUAL:
                {
                    if(P->IconNormal.Length == 0) { P->IconNormal = P->Icon; }
                    if(P->IconFocused.Length == 0) { P->IconFocused = P->Icon; }
                    if(P->IconDisabled.Length == 0) { P->IconDisabled = P->Icon; }
                } break;
            default: break;
        }
    }

    C->RespectingPrivacy |= !P->IgnorePrivacy;
}

void
OffsetAssociationProjectPointers(config_string_associations *HMMLDirs, project *Alloc, int64_t Diff)
{
    for(int i = 0; i < HMMLDirs->Count; ++i)
    {
        config_string_association *A = HMMLDirs->Associations + i;
        for(int j = 0; j < A->ProjectCount; ++j)
        {
            if(A->Projects[j].Alloc == Alloc)
            {
                A->Projects[j].Alloc += Diff;
                A->Projects[j].Project += Diff;
            }
        }
    }
}

void
OffsetProjectPointers_TopLevel(config_string_associations *HMMLDirs, config *Parent, project *Alloc, int64_t Diff)
{
    OffsetAssociationProjectPointers(HMMLDirs, Alloc, Diff);
    for(int i = 0; i < Parent->ProjectCount; ++i)
    {
        project *Child = Parent->Project + i;
        for(int j = 0; j < Child->ChildCount; ++j)
        {
            project *Grandchild = Child->Child + j;
            Grandchild->Parent += Diff;
        }
    }
}

void
OffsetProjectPointers(config_string_associations *HMMLDirs, project *Parent, project *Alloc, int64_t Diff)
{
    OffsetAssociationProjectPointers(HMMLDirs, Alloc, Diff);
    for(int i = 0; i < Parent->ChildCount; ++i)
    {
        project *Child = Parent->Child + i;
        for(int j = 0; j < Child->ChildCount; ++j)
        {
            project *Grandchild = Child->Child + j;
            Grandchild->Parent += Diff;
        }
    }
}

void
PushProjectOntoProject(config *C, resolution_errors *E, config_verifiers *Verifiers, project *Parent, scope_tree *ProjectTree)
{
    config_string_associations *HMMLDirs = &Verifiers->HMMLDirs;
    project *Current = Parent->Child;
    Parent->Child = Fit(Parent->Child, sizeof(*Parent->Child), Parent->ChildCount, 8, TRUE);
    int64_t Diff = Parent->Child - Current;
    if(Diff)
    {
        OffsetProjectPointers(HMMLDirs, Parent, Current, Diff);
    }

    project *P = Parent->Child + Parent->ChildCount;

    PushProject(C, E, Verifiers, Parent->Child, P, ProjectTree);
    P->Parent = Parent;

    ++Parent->ChildCount;
}

project *
GetProjectFromProject(project *Parent, string ID)
{
    if(Parent)
    {
        for(int i = 0; i < Parent->ChildCount; ++i)
        {
            if(StringsMatch(Parent->Child[i].ID, ID))
            {
                return &Parent->Child[i];
            }
        }
    }
    return 0;
}

void
PushProjectOntoConfig(config *C, resolution_errors *E, config_verifiers *Verifiers, scope_tree *ProjectTree)
{
    config_string_associations *HMMLDirs = &Verifiers->HMMLDirs;
    project *Current = C->Project;
    C->Project = Fit(C->Project, sizeof(*C->Project), C->ProjectCount, 8, TRUE);
    int64_t Diff = C->Project - Current;
    if(Diff)
    {
        OffsetProjectPointers_TopLevel(HMMLDirs, C, Current, Diff);
    }
    project *P = C->Project + C->ProjectCount;

    PushProject(C, E, Verifiers, C->Project, P, ProjectTree);

    ++C->ProjectCount;
}

project *
GetProjectFromConfig(config *C, string ID)
{
    if(C)
    {
        for(int i = 0; i < C->ProjectCount; ++i)
        {
            if(StringsMatch(C->Project[i].ID, ID))
            {
                return &C->Project[i];
            }
        }
    }
    return 0;
}

void
PrintAssociationClashes(config_string_associations *A)
{
    for(int i = 0; i < A->Count; ++i)
    {
        config_string_association *Association = A->Associations + i;
        if(Association->ProjectCount > 1)
        {
            string ID = Wrap0(ConfigIdentifiers[A->ID].String);
            ConfigError(0, 0, S_ERROR, "Multiple projects share the same ", &ID);
            fprintf(stderr, "    ");
            PrintStringC(CS_MAGENTA_BOLD, Association->String);
            fprintf(stderr, "\n");
            for(int j = 0; j < Association->ProjectCount; ++j)
            {
                project *P = Association->Projects[j].Project;
                fprintf(stderr, "        ");
                PrintStringC(CS_CYAN, P->Lineage);
                fprintf(stderr, "\n");
            }
        }
    }
}

void
PrintVariants(uint64_t V, colour_code ColourCode, string Margin)
{
    int TermCols = GetTerminalColumns();
    int AvailableColumnsForValue = TermCols - Margin.Length;
    int RunningAvailableColumns = TermCols - Margin.Length;
    PrintString(Margin);
    bool NeedsSpacing = FALSE;
    if(V)
    {
        for(int VariantShifterIndex = 0; VariantShifterIndex < AVS_COUNT; ++VariantShifterIndex)
        {
            if(V & (1 << VariantShifterIndex))
            {
                char *String = ArtVariantStrings[VariantShifterIndex];
                int Length = StringLength(String);
                if(RunningAvailableColumns - Length >= 0)
                {
                    fprintf(stderr, "%s", NeedsSpacing ? " " : "");
                }
                else
                {
                    fprintf(stderr, "\n");
                    PrintString(Margin);
                    NeedsSpacing = FALSE;
                    RunningAvailableColumns = AvailableColumnsForValue;
                }
                PrintC(ColourCode, String);
                RunningAvailableColumns -= Length + NeedsSpacing;
                NeedsSpacing = TRUE;
            }
        }
    }
    else
    {
        PrintC(CS_YELLOW, "[unset]");
    }
}

void
PrintVariantInconsistencies(variant_strings *V)
{
    for(int i = 0; i < V->Count; ++i)
    {
        variant_string *This = V->Variants + i;
        if(This->VariantsCount > 1)
        {
            ConfigError(0, 0, S_ERROR, "Sprite has inconsistently set variants ", &This->Path);
            for(int j = 0; j < This->VariantsCount; ++j)
            {
                string Margin = Wrap0("    ");
                uint64_t V = This->Variants[j];
                PrintVariants(V, j % 2 ? CS_CYAN_BOLD : CS_YELLOW_BOLD, Margin);
                fprintf(stderr, "\n");
            }
        }
    }
}

void
FreeAssociations(config_string_associations *A)
{
    for(int i = 0; i < A->Count; ++i)
    {
        FreeAndResetCount(A->Associations[i].Projects, A->Associations[i].ProjectCount);
    }
    FreeAndResetCount(A->Associations, A->Count);
}

void
FreeVariants(variant_strings *V)
{
    for(int i = 0; i < V->Count; ++i)
    {
        FreeAndResetCount(V->Variants[i].Variants, V->Variants[i].VariantsCount);
    }
    FreeAndResetCount(V->Variants, V->Count);
}

void
FreeVerifiers(config_verifiers *Verifiers)
{
    FreeAssociations(&Verifiers->HMMLDirs);
    FreeVariants(&Verifiers->VariantStrings);
}

config *
ResolveVariables(scope_tree *S)
{
    Assert(LOG_COUNT == ArrayCount(LogLevelStrings));
    config *Result = calloc(1, sizeof(config));
    InitBook(&Result->ResolvedVariables, 1, Kilobytes(1), MBT_STRING);
    resolution_errors Errors = {};
    config_verifiers Verifiers = {};
    Verifiers.HMMLDirs.ID = IDENT_HMML_DIR;

    for(int i = 0; i < S->PairCount; ++i)
    {
        switch(S->Pairs[i].Key)
        {
            case IDENT_DB_LOCATION:
                { Result->DatabaseLocation = StripSlashes(ResolveString(Result, &Errors, S, &S->Pairs[i], TRUE), P_ABS); } break;
            case IDENT_GLOBAL_SEARCH_DIR:
                {
                    Result->GlobalSearchDir = StripSlashes(ResolveString(Result, &Errors, S, &S->Pairs[i], TRUE), P_ABS);
                    if(Result->GlobalSearchDir.Length > MAX_BASE_DIR_LENGTH)
                    {
                        ConfigErrorSizing(S->Pairs[i].Position.Filename, S->Pairs[i].Position.LineNumber, S->Pairs[i].Key,
                                &Result->GlobalSearchDir, MAX_BASE_DIR_LENGTH);
                        PushError(&Errors, S_ERROR, 0, S->Pairs[i].Key);
                    }
                } break;
            case IDENT_GLOBAL_SEARCH_URL:
                {
                    Result->GlobalSearchURL = StripSlashes(ResolveString(Result, &Errors, S, &S->Pairs[i], TRUE), P_ABS);
                    if(Result->GlobalSearchURL.Length > MAX_BASE_URL_LENGTH)
                    {
                        ConfigErrorSizing(S->Pairs[i].Position.Filename, S->Pairs[i].Position.LineNumber, S->Pairs[i].Key,
                                &Result->GlobalSearchURL, MAX_BASE_URL_LENGTH);
                        PushError(&Errors, S_ERROR, 0, S->Pairs[i].Key);
                    }
                } break;
            case IDENT_GLOBAL_TEMPLATES_DIR:
                { Result->GlobalTemplatesDir = StripSlashes(ResolveString(Result, &Errors, S, &S->Pairs[i], TRUE), P_ABS); } break;
            case IDENT_GLOBAL_SEARCH_TEMPLATE:
                { Result->GlobalSearchTemplatePath = StripSlashes(ResolveString(Result, &Errors, S, &S->Pairs[i], FALSE), P_REL); } break;
            case IDENT_GLOBAL_THEME:
                {
                    Result->GlobalTheme = ResolveString(Result, &Errors, S, &S->Pairs[i], FALSE);
                    if(Result->GlobalTheme.Length > MAX_THEME_LENGTH)
                    {
                        ConfigErrorSizing(S->Pairs[i].Position.Filename, S->Pairs[i].Position.LineNumber, S->Pairs[i].Key,
                                &Result->GlobalTheme, MAX_THEME_LENGTH);
                        PushError(&Errors, S_ERROR, 0, S->Pairs[i].Key);
                    }
                } break;
            case IDENT_ASSETS_ROOT_DIR:
                {
                    Result->AssetsRootDir = StripSlashes(ResolveString(Result, &Errors, S, &S->Pairs[i], TRUE), P_ABS);
                    if(Result->AssetsRootDir.Length > MAX_ROOT_DIR_LENGTH)
                    {
                        ConfigErrorSizing(S->Pairs[i].Position.Filename, S->Pairs[i].Position.LineNumber, S->Pairs[i].Key,
                                &Result->AssetsRootDir, MAX_ROOT_DIR_LENGTH);
                        PushError(&Errors, S_ERROR, 0, S->Pairs[i].Key);
                    }
                } break;
            case IDENT_ASSETS_ROOT_URL:
                {
                    Result->AssetsRootURL = StripSlashes(ResolveString(Result, &Errors, S, &S->Pairs[i], TRUE), P_ABS);
                    if(Result->AssetsRootURL.Length > MAX_ROOT_URL_LENGTH)
                    {
                        ConfigErrorSizing(S->Pairs[i].Position.Filename, S->Pairs[i].Position.LineNumber, S->Pairs[i].Key,
                                &Result->AssetsRootURL, MAX_ROOT_URL_LENGTH);
                        PushError(&Errors, S_ERROR, 0, S->Pairs[i].Key);
                    }
                } break;
            case IDENT_CSS_PATH:
                {
                    Result->CSSDir = StripSlashes(ResolveString(Result, &Errors, S, &S->Pairs[i], FALSE), P_REL);
                    if(Result->CSSDir.Length > MAX_RELATIVE_ASSET_LOCATION_LENGTH)
                    {
                        ConfigErrorSizing(S->Pairs[i].Position.Filename, S->Pairs[i].Position.LineNumber, S->Pairs[i].Key,
                                &Result->CSSDir, MAX_RELATIVE_ASSET_LOCATION_LENGTH);
                        PushError(&Errors, S_ERROR, 0, S->Pairs[i].Key);
                    }
                } break;
            case IDENT_IMAGES_PATH:
                {
                    Result->ImagesDir = StripSlashes(ResolveString(Result, &Errors, S, &S->Pairs[i], FALSE), P_REL);
                    if(Result->ImagesDir.Length > MAX_RELATIVE_ASSET_LOCATION_LENGTH)
                    {
                        ConfigErrorSizing(S->Pairs[i].Position.Filename, S->Pairs[i].Position.LineNumber, S->Pairs[i].Key,
                                &Result->ImagesDir, MAX_RELATIVE_ASSET_LOCATION_LENGTH);
                        PushError(&Errors, S_ERROR, 0, S->Pairs[i].Key);
                    }
                } break;
            case IDENT_JS_PATH:
                {
                    Result->JSDir = StripSlashes(ResolveString(Result, &Errors, S, &S->Pairs[i], FALSE), P_REL);
                    if(Result->JSDir.Length > MAX_RELATIVE_ASSET_LOCATION_LENGTH)
                    {
                        ConfigErrorSizing(S->Pairs[i].Position.Filename, S->Pairs[i].Position.LineNumber, S->Pairs[i].Key,
                                &Result->JSDir, MAX_RELATIVE_ASSET_LOCATION_LENGTH);
                        PushError(&Errors, S_ERROR, 0, S->Pairs[i].Key);
                    }
                } break;
            case IDENT_QUERY_STRING:
                { Result->QueryString = ResolveString(Result, &Errors, S, &S->Pairs[i], FALSE); } break;
            case IDENT_CACHE_DIR:
                { Result->CacheDir = StripSlashes(ResolveString(Result, &Errors, S, &S->Pairs[i], TRUE), P_ABS); } break;
            default: break;
        }
    }

    int SecondsPerMinute = 60;
    for(int i = 0; i < S->IntPairCount; ++i)
    {
        switch(S->IntPairs[i].Key)
        {
            case IDENT_PRIVACY_CHECK_INTERVAL:
                { Result->PrivacyCheckInterval = SecondsPerMinute * S->IntPairs[i].Value; } break;
            case IDENT_LOG_LEVEL:
                { Result->LogLevel = S->IntPairs[i].Value; } break;
            default: break;
        }
    }

    for(int i = 0; i < S->TreeCount; ++i)
    {
        if(S->Trees[i].ID.Key == IDENT_PERSON)
        {
            PushPersonOntoConfig(Result, &Errors, &Verifiers, &S->Trees[i]);
        }
    }

    for(int i = 0; i < S->TreeCount; ++i)
    {
        if(S->Trees[i].ID.Key == IDENT_PROJECT)
        {
            PushProjectOntoConfig(Result, &Errors, &Verifiers, &S->Trees[i]);
        }
    }

    // TODO(matt):  Mandate that, if a GlobalSearchDir or GlobalSearchURL is set, then both must be set
    if(!Result->GlobalTheme.Length)
    {
        ConfigErrorUnset(IDENT_GLOBAL_THEME);
        PushError(&Errors, S_ERROR, 0, IDENT_GLOBAL_THEME);
    }

    if(Errors.ErrorCount > 0)
    {
        PrintAssociationClashes(&Verifiers.HMMLDirs);
        PrintVariantInconsistencies(&Verifiers.VariantStrings);
        Free(Result);
    }

    FreeVerifiers(&Verifiers);
    FreeErrors(&Errors);

    return Result;
}

void
PrintLogLevel(char *Title, log_level Level, char *Delimiter, uint64_t Indentation, bool AppendNewline)
{
    Indent(Indentation);
    PrintC(CS_YELLOW_BOLD, ConfigIdentifiers[IDENT_LOG_LEVEL].String);
    fprintf(stderr, "%s", Delimiter);
    PrintC(CS_GREEN_BOLD, LogLevelStrings[Level]);
    if(AppendNewline) { fprintf(stderr, "\n"); }
}

typedef struct
{
    char *UpperLeftCorner;
    char *UpperLeft;
    char *Horizontal;
    char *UpperRight;
    char *Vertical;
    char *LowerLeftCorner;
    char *LowerLeft;
    char *Margin;
    char *Delimiter;
    char *Separator;
} typography;

void
PrintVerticals(typography *T, int Count)
{
    for(int i = 0; i < Count; ++i)
    {
        fprintf(stderr, "%s", T->Vertical);
    }
}

void
CarriageReturn(typography *T, int VerticalsRequired)
{
    fprintf(stderr, "\n");
    PrintVerticals(T, VerticalsRequired);
}

uint64_t
TypesetIconType(typography *T, uint8_t Generation, icon_type Type, bool PrependNewline, bool AppendNewline)
{
    uint64_t Result = 0;

    // TODO(matt): Implement me, please!

    //CarriageReturn(T, Generation);
    //fprintf(stderr, "%s", T.Margin);
#if 0
    PrintC(CS_YELLOW_BOLD, ConfigIdentifiers[IDENT_ICON_TYPE].String);
    fprintf(stderr, "%s", T.Delimiter);
    PrintC(CS_GREEN_BOLD, IconTypeStrings[Type]);
    fprintf(stderr, "\n");
#endif






    if(PrependNewline)
    {
        CarriageReturn(T, Generation);
        ++Result;
    }

    fprintf(stderr, "%s", T->Margin);
    config_identifier_id Key = IDENT_ICON_TYPE;
    PrintC(CS_YELLOW_BOLD, ConfigIdentifiers[Key].String);
    fprintf(stderr, "%s", T->Delimiter);
    if(Type == IT_DEFAULT_UNSET)
    {
        PrintC(CS_YELLOW, "[unset]");
    }
    else
    {
        PrintStringC(CS_GREEN_BOLD, Wrap0(IconTypeStrings[Type]));
    }

    if(AppendNewline)
    {
        CarriageReturn(T, Generation);
        ++Result;
    }

    return Result;
}

void
TypesetVariants(typography *T, uint8_t Generation, config_identifier_id Key, uint64_t Value, int AvailableColumns, uint8_t *RowsRequired, bool PrependNewline, bool AppendNewline)
{
    // NOTE(matt): RowsRequired is a value passed only by PrintSupport().
    if(PrependNewline)
    {
        CarriageReturn(T, Generation);
        if(RowsRequired) { --*RowsRequired; }
    }

    if(RowsRequired)
    {
        fprintf(stderr, "%s%s ", *RowsRequired == 1 ? T->LowerLeft : T->Vertical, T->Margin);
    }

    fprintf(stderr, "%s", T->Margin);

    int CharactersInKeyPlusDelimiter = StringLength(ConfigIdentifiers[Key].String) + StringLength(T->Delimiter);
    int AvailableColumnsForValue = AvailableColumns - CharactersInKeyPlusDelimiter;
    int RunningAvailableColumns = AvailableColumnsForValue;

    PrintC(CS_YELLOW_BOLD, ConfigIdentifiers[Key].String);
    fprintf(stderr, "%s", T->Delimiter);

    bool NeedsSpacing = FALSE;
    if(Value)
    {
        for(int VariantShifterIndex = 0; VariantShifterIndex < AVS_COUNT; ++VariantShifterIndex)
        {
            if(Value & (1 << VariantShifterIndex))
            {
                char *String = ArtVariantStrings[VariantShifterIndex];
                int Length = StringLength(String);
                if(RunningAvailableColumns - Length >= 0)
                {
                    fprintf(stderr, "%s", NeedsSpacing ? " " : "");
                }
                else
                {
                    CarriageReturn(T, Generation);
                    if(RowsRequired)
                    {
                        --*RowsRequired;
                        fprintf(stderr, "%s%s ", *RowsRequired == 1 ? T->LowerLeft : T->Vertical, T->Margin);
                    }
                    fprintf(stderr, "%s", T->Margin);
                    for(int i = 0; i < CharactersInKeyPlusDelimiter; ++i)
                    {
                        fprintf(stderr, "%s", T->Margin);
                    }
                    NeedsSpacing = FALSE;
                    RunningAvailableColumns = AvailableColumnsForValue;
                }
                PrintC(CS_GREEN_BOLD, String);
                RunningAvailableColumns -= Length + NeedsSpacing;
                NeedsSpacing = TRUE;
            }
        }
    }
    else
    {
        PrintC(CS_YELLOW, "[unset]");
    }

    if(AppendNewline)
    {
        CarriageReturn(T, Generation);
    }
}

void
PrintMedium(typography *T, medium *M, char *Delimiter, uint64_t Indentation, bool AppendNewline)
{
    // TODO(matt): Print Me!
    PrintStringC(CS_BLUE_BOLD, M->ID);
    if(M->Hidden)
    {
        PrintC(CS_BLACK_BOLD, " [hidden]");
    }
    fprintf(stderr, "%s", Delimiter);
    PrintStringC(CS_MAGENTA, M->Name);
    fprintf(stderr, " (");
    if(M->Icon.Length > 0)
    {
        PrintStringI(M->Icon, Indentation);
    }
    if(M->IconNormal.Length > 0)
    {
        PrintStringI(M->IconNormal, Indentation);
    }
    if(M->IconFocused.Length > 0)
    {
        PrintStringI(M->IconFocused, Indentation);
    }
    TypesetIconType(T, Indentation, M->IconType, FALSE, AppendNewline);
    TypesetVariants(T, Indentation, IDENT_ICON_VARIANTS, M->IconVariants, 0, 0, FALSE, AppendNewline);
    fprintf(stderr, ")");
    if(AppendNewline)
    {
        fprintf(stderr, "\n");
    }
}

void
PrintSupport(support *S, typography *Typography, int IndentationLevel, uint8_t *RowsRequired)
{
    bool ShouldFillSyntax = FALSE;
    config_pair ID = { .Key = IDENT_SUPPORT, .Value = S->ID };
    fprintf(stderr, "%s%s", *RowsRequired == 1 ? Typography->LowerLeft : Typography->Vertical, Typography->Margin);
    PrintPair(&ID, Typography->Delimiter, ShouldFillSyntax, IndentationLevel, FALSE, TRUE);
    --*RowsRequired;
    if(S->URL.Length > 0)
    {
        config_pair URL = { .Key = IDENT_URL, .Value = S->URL };
        fprintf(stderr, "%s%s  ", *RowsRequired == 1 ? Typography->LowerLeft : Typography->Vertical, Typography->Margin);
        PrintPair(&URL, Typography->Delimiter, ShouldFillSyntax, IndentationLevel, FALSE, TRUE);
        --*RowsRequired;
    }

    if(S->Icon.Length > 0)
    {
        config_pair Icon = { .Key = IDENT_ICON, .Value = S->Icon };
        fprintf(stderr, "%s%s  ", *RowsRequired == 1 ? Typography->LowerLeft : Typography->Vertical, Typography->Margin);
        PrintPair(&Icon, Typography->Delimiter, ShouldFillSyntax, IndentationLevel, FALSE, TRUE);
        --*RowsRequired;
    }
    if(S->IconNormal.Length > 0)
    {
        config_pair IconNormal = { .Key = IDENT_ICON_NORMAL, .Value = S->IconNormal };
        fprintf(stderr, "%s%s  ", *RowsRequired == 1 ? Typography->LowerLeft : Typography->Vertical, Typography->Margin);
        PrintPair(&IconNormal, Typography->Delimiter, ShouldFillSyntax, IndentationLevel, FALSE, TRUE);
        --*RowsRequired;
    }
    if(S->IconFocused.Length > 0)
    {
        config_pair IconFocused = { .Key = IDENT_ICON_FOCUSED, .Value = S->IconFocused };
        fprintf(stderr, "%s%s  ", *RowsRequired == 1 ? Typography->LowerLeft : Typography->Vertical, Typography->Margin);
        PrintPair(&IconFocused, Typography->Delimiter, ShouldFillSyntax, IndentationLevel, FALSE, TRUE);
        --*RowsRequired;
    }

#if 1
    // TODO(matt): FIX ME
    fprintf(stderr, "%s%s ", *RowsRequired == 1 ? Typography->LowerLeft : Typography->Vertical, Typography->Margin);
    *RowsRequired -= TypesetIconType(Typography, IndentationLevel, S->IconType, FALSE, TRUE);
    uint8_t StartingColumn = 4;
    uint64_t AvailableColumns = GetTerminalColumns() - StartingColumn;
    TypesetVariants(Typography, IndentationLevel, IDENT_ICON_VARIANTS, S->IconVariants, AvailableColumns, RowsRequired, FALSE, TRUE);
#endif
}

uint8_t
GetRowsRequiredForVariants(typography *T, config_identifier_id Key, uint64_t Value, int AvailableColumns)
{
    int CharactersInKeyPlusDelimiter = StringLength(ConfigIdentifiers[Key].String) + StringLength(T->Delimiter);
    int AvailableColumnsForValue = AvailableColumns - CharactersInKeyPlusDelimiter;
    int RunningAvailableColumns = AvailableColumnsForValue;

    uint8_t Result = 1;
    bool NeedsSpacing = FALSE;
    for(int VariantShifterIndex = 0; VariantShifterIndex < AVS_COUNT; ++VariantShifterIndex)
    {
        if(Value & (1 << VariantShifterIndex))
        {
            char *String = ArtVariantStrings[VariantShifterIndex];
            int Length = StringLength(String);
            if(!(RunningAvailableColumns - Length >= 0))
            {
                ++Result;
                NeedsSpacing = FALSE;
                RunningAvailableColumns = AvailableColumnsForValue;
            }
            RunningAvailableColumns -= Length + NeedsSpacing;
            NeedsSpacing = TRUE;
        }
    }
    return Result;
}

uint8_t
GetRowsRequiredForPersonInfo(typography *T, person *P)
{
    uint8_t RowsRequired = 0;

    if(P->Name.Length > 0) { ++RowsRequired; }
    if(P->Homepage.Length > 0) { ++RowsRequired; }
    for(int i = 0; i < P->SupportCount; ++i)
    {
        ++RowsRequired;
        support *This = P->Support + i;
        if(This->URL.Length > 0) { ++RowsRequired; }
        if(This->Icon.Length > 0) { ++RowsRequired; }
        if(This->IconNormal.Length > 0) { ++RowsRequired; }
        if(This->IconFocused.Length > 0) { ++RowsRequired; }
        ++RowsRequired; // NOTE(matt): For TypesetIconType()
        int StartingColumn = 4;
        RowsRequired += GetRowsRequiredForVariants(T, IDENT_ICON_VARIANTS, This->IconVariants, GetTerminalColumns() - StartingColumn);
    }
    return RowsRequired;
}

void
PrintPerson(person *P, config_identifier_id Role, typography *Typography)
{
    bool HaveInfo = P->Name.Length > 0 || P->Homepage.Length > 0 || P->SupportCount > 0;
    fprintf(stderr, "\n"
            "%s%s%s%s%s ", HaveInfo ? Typography->UpperLeftCorner : Typography->UpperLeft,
            Typography->Horizontal, Typography->Horizontal, Typography->Horizontal, Typography->UpperRight);
    PrintStringC(CS_GREEN_BOLD, P->ID);
    fprintf(stderr, "\n");

    uint8_t RowsRequired = GetRowsRequiredForPersonInfo(Typography, P);

    int IndentationLevel = 0;
    bool ShouldFillSyntax = FALSE;
    if(P->Name.Length > 0)
    {
        fprintf(stderr, "%s ", RowsRequired == 1 ? Typography->LowerLeft : Typography->Vertical);
        config_pair Name = { .Key = IDENT_NAME, .Value = P->Name }; PrintPair(&Name, Typography->Delimiter, ShouldFillSyntax, IndentationLevel, FALSE, TRUE);
        --RowsRequired;
    }

    if(P->Homepage.Length > 0)
    {
        fprintf(stderr, "%s ", RowsRequired == 1 ? Typography->LowerLeft : Typography->Vertical);
        config_pair Homepage = { .Key = IDENT_HOMEPAGE, .Value = P->Homepage }; PrintPair(&Homepage, Typography->Delimiter, ShouldFillSyntax, IndentationLevel, FALSE, TRUE);
        --RowsRequired;
    }

    for(int i = 0; i < P->SupportCount; ++i)
    {
        PrintSupport(&P->Support[i], Typography, IndentationLevel, &RowsRequired);
    }
}

void
PrintLineage(string Lineage, bool AppendNewline)
{
    string Parent = StripComponentFromPath(Lineage);
    PrintStringC(CS_BLACK_BOLD, Parent);
    if(Parent.Length > 0)
    {
        PrintC(CS_BLACK_BOLD, "/");
    }
    string Us = GetFinalComponent(Lineage);
    PrintStringC(CS_BLUE_BOLD, Us);
    if(AppendNewline) { fprintf(stderr, "\n"); }
}

uint8_t
GetColumnsRequiredForMedium(medium *M, typography *T)
{
    uint8_t Result = M->ID.Length + StringLength(T->Delimiter) + M->Name.Length + StringLength(" (") + M->Icon.Length + StringLength(")");
    if(M->Hidden) { Result += StringLength(" [hidden]"); }
    return Result;
}

void
PrintTitle(char *Text, int AvailableColumns)
{
    char *LeftmostChar = "╾";
    char *InnerChar = "─";
    char *RightmostChar = "╼";

    int LeftmostCharLength = 1;
    int SpacesRequired = 2;
    int RightmostCharLength = 1;
    int InnerCharsRequired = AvailableColumns - LeftmostCharLength - StringLength(Text) - RightmostCharLength - SpacesRequired;
    int LeftCharsRequired = 4;
    int RightCharsRequired = InnerCharsRequired - LeftCharsRequired;
    fprintf(stderr, "%s", LeftmostChar);
    for(int i = 0; i < LeftCharsRequired; ++i)
    {
        fprintf(stderr, "%s", InnerChar);
    }
    fprintf(stderr, " %s ", Text);
    for(int i = 0; i < RightCharsRequired; ++i)
    {
        fprintf(stderr, "%s", InnerChar);
    }
    fprintf(stderr, "%s", RightmostChar);
}

void
PrintMedia(project *P, typography *T, uint8_t Generation, int AvailableColumns)
{
    int IndentationLevel = 0;
    CarriageReturn(T, Generation);
    fprintf(stderr, "%s", T->Margin);
    PrintTitle("Media", AvailableColumns);
    CarriageReturn(T, Generation);
    fprintf(stderr, "%s", T->Margin);
    //AvailableColumns -= Generation + 1;
    int RunningAvailableColumns = AvailableColumns;
    int ColumnsRequired = GetColumnsRequiredForMedium(&P->Medium[0], T);
    if(ColumnsRequired <= RunningAvailableColumns)
    {
        PrintMedium(T, &P->Medium[0], T->Delimiter, IndentationLevel, FALSE);
    }
    RunningAvailableColumns -= ColumnsRequired;
    int StringLengthOfSpacePlusSeparator = 2;
    for(int i = 1; i < P->MediumCount; ++i)
    {
        medium *This = P->Medium + i;
        ColumnsRequired = GetColumnsRequiredForMedium(This, T);
        if(RunningAvailableColumns >= StringLengthOfSpacePlusSeparator)
        {
            fprintf(stderr, " %s", T->Separator);
            RunningAvailableColumns -= StringLengthOfSpacePlusSeparator;

            if(ColumnsRequired + 1 <= RunningAvailableColumns)
            {
                fprintf(stderr, " ");
                --RunningAvailableColumns;
                PrintMedium(T, This, T->Delimiter, IndentationLevel, FALSE);
            }
            else
            {
                CarriageReturn(T, Generation);
                fprintf(stderr, "%s", T->Margin);
                RunningAvailableColumns = AvailableColumns;
                PrintMedium(T, This, T->Delimiter, IndentationLevel, FALSE);
            }
        }
        else
        {
            CarriageReturn(T, Generation);
            fprintf(stderr, "%s", T->Margin);
            RunningAvailableColumns = AvailableColumns;
            fprintf(stderr, "%s ", T->Separator);
            RunningAvailableColumns -= StringLengthOfSpacePlusSeparator;
            PrintMedium(T, This, T->Delimiter, IndentationLevel, FALSE);
        }
        RunningAvailableColumns -= ColumnsRequired;
    }
}

void
TypesetPair(typography *T, uint8_t Generation, config_identifier_id Key, string Value, int AvailableColumns)
{
    CarriageReturn(T, Generation);
    fprintf(stderr, "%s", T->Margin);

    int CharactersInKeyPlusDelimiter = StringLength(ConfigIdentifiers[Key].String) + StringLength(T->Delimiter);
    int AvailableColumnsForValue = AvailableColumns - CharactersInKeyPlusDelimiter;

    PrintC(CS_YELLOW_BOLD, ConfigIdentifiers[Key].String);
    fprintf(stderr, "%s", T->Delimiter);

    int CharactersToWrite = Value.Length;
    if(Value.Length > 0)
    {
        string Pen = { .Base = Value.Base + Value.Length - CharactersToWrite,
            .Length = MIN(Value.Length, AvailableColumnsForValue) };
        PrintStringC(CS_GREEN_BOLD, Pen);
        CharactersToWrite -= Pen.Length;
        while(CharactersToWrite > 0)
        {
            CarriageReturn(T, Generation);
            fprintf(stderr, "%s", T->Margin);
            for(int i = 0; i < CharactersInKeyPlusDelimiter; ++i)
            {
                fprintf(stderr, "%s", T->Margin);
            }

            string Pen = { .Base = Value.Base + Value.Length - CharactersToWrite,
                .Length = MIN(CharactersToWrite, AvailableColumnsForValue) };
            PrintStringC(CS_GREEN_BOLD, Pen);
            CharactersToWrite -= Pen.Length;
        }
    }
    else
    {
        PrintC(CS_YELLOW, "[unset]");
    }
}

void
TypesetBool(typography *T, uint8_t Generation, config_identifier_id Key, bool Value)
{
    CarriageReturn(T, Generation);
    fprintf(stderr, "%s", T->Margin);
    config_bool_pair Pair = { .Key = Key, .Value = Value };
    bool ShouldFillSyntax = FALSE;
    PrintBoolPair(&Pair, T->Delimiter, ShouldFillSyntax, 0, FALSE, FALSE);
}

void
TypesetGenre(typography *T, uint8_t Generation, genre G)
{
    CarriageReturn(T, Generation);
    fprintf(stderr, "%s", T->Margin);
    PrintC(CS_YELLOW_BOLD, ConfigIdentifiers[IDENT_GENRE].String);
    fprintf(stderr, "%s", T->Delimiter);
    PrintC(CS_GREEN_BOLD, GenreStrings[G]);
}

void
TypesetNumberingScheme(typography *T, uint8_t Generation, numbering_scheme N)
{
    CarriageReturn(T, Generation);
    fprintf(stderr, "%s", T->Margin);
    PrintC(CS_YELLOW_BOLD, ConfigIdentifiers[IDENT_NUMBERING_SCHEME].String);
    fprintf(stderr, "%s", T-> Delimiter);
    PrintC(CS_GREEN_BOLD, NumberingSchemeStrings[N]);
}

void
PrintProject(project *P, typography *T, int Ancestors, int IndentationLevel, int TerminalColumns)
{
    int Generation = Ancestors + 1;
    CarriageReturn(T, Ancestors);

    fprintf(stderr, "%s%s%s%s%s ", T->UpperLeftCorner,
            T->Horizontal, T->Horizontal, T->Horizontal, T->UpperRight);
    PrintLineage(P->Lineage, FALSE);

    int CharactersInMargin = 1;
    int AvailableColumns = TerminalColumns - (Generation + CharactersInMargin);
    if(P->MediumCount > 0)
    {
        PrintMedia(P, T, Generation, AvailableColumns);
    }

    CarriageReturn(T, Generation);
    CarriageReturn(T, Generation);
    fprintf(stderr, "%s", T->Margin);
    PrintTitle("Settings", AvailableColumns);

    TypesetPair(T, Generation, IDENT_TITLE, P->Title, AvailableColumns);
    TypesetPair(T, Generation, IDENT_HTML_TITLE, P->HTMLTitle, AvailableColumns);
    TypesetPair(T, Generation, IDENT_DEFAULT_MEDIUM, P->DefaultMedium ? P->DefaultMedium->ID : EmptyString(), AvailableColumns);

    TypesetPair(T, Generation, IDENT_UNIT, P->Unit, AvailableColumns);
    TypesetPair(T, Generation, IDENT_HMML_DIR, P->HMMLDir, AvailableColumns);
    TypesetPair(T, Generation, IDENT_TEMPLATES_DIR, P->TemplatesDir, AvailableColumns);
    TypesetPair(T, Generation, IDENT_SEARCH_TEMPLATE, P->SearchTemplatePath, AvailableColumns);
    TypesetPair(T, Generation, IDENT_PLAYER_TEMPLATE, P->PlayerTemplatePath, AvailableColumns);

    CarriageReturn(T, Generation);
    TypesetPair(T, Generation, IDENT_BASE_DIR, P->BaseDir, AvailableColumns);
    TypesetPair(T, Generation, IDENT_BASE_URL, P->BaseURL, AvailableColumns);
    TypesetPair(T, Generation, IDENT_SEARCH_LOCATION, P->SearchLocation, AvailableColumns);
    TypesetPair(T, Generation, IDENT_PLAYER_LOCATION, P->PlayerLocation, AvailableColumns);
    TypesetPair(T, Generation, IDENT_STREAM_USERNAME, P->StreamUsername, AvailableColumns);
    TypesetPair(T, Generation, IDENT_VOD_PLATFORM, P->VODPlatform, AvailableColumns);
    TypesetPair(T, Generation, IDENT_THEME, P->Theme, AvailableColumns);

    CarriageReturn(T, Generation);
    TypesetPair(T, Generation, IDENT_ART, P->Art, AvailableColumns);
    TypesetVariants(T, Generation, IDENT_ART_VARIANTS, P->ArtVariants, AvailableColumns, 0, TRUE, FALSE);
    TypesetPair(T, Generation, IDENT_ICON, P->Icon, AvailableColumns);
    TypesetPair(T, Generation, IDENT_ICON_NORMAL, P->IconNormal, AvailableColumns);
    TypesetPair(T, Generation, IDENT_ICON_FOCUSED, P->IconFocused, AvailableColumns);
    TypesetPair(T, Generation, IDENT_ICON_DISABLED, P->IconDisabled, AvailableColumns);
    TypesetIconType(T, Generation, P->IconType, TRUE, FALSE);
    TypesetVariants(T, Generation, IDENT_ICON_VARIANTS, P->IconVariants, AvailableColumns, 0, TRUE, FALSE);

    CarriageReturn(T, Generation);
    TypesetGenre(T, Generation, P->Genre);
    TypesetNumberingScheme(T, Generation, P->NumberingScheme);
    TypesetBool(T, Generation, IDENT_IGNORE_PRIVACY, P->IgnorePrivacy);
    TypesetBool(T, Generation, IDENT_SINGLE_BROWSER_TAB, P->SingleBrowserTab);

    if(P->Owner)
    {
        TypesetPair(T, Generation, IDENT_OWNER, P->Owner->ID, AvailableColumns);
    }

    for(int i = 0; i < P->IndexerCount; ++i)
    {  TypesetPair(T, Generation, IDENT_INDEXER, P->Indexer[i]->ID, AvailableColumns); }
    for(int i = 0; i < P->CoHostCount; ++i)
    {  TypesetPair(T, Generation, IDENT_COHOST, P->CoHost[i]->ID, AvailableColumns); }
    for(int i = 0; i < P->GuestCount; ++i)
    {  TypesetPair(T, Generation, IDENT_GUEST, P->Guest[i]->ID, AvailableColumns); }

    if(P->ChildCount)
    {
        CarriageReturn(T, Generation);
        CarriageReturn(T, Generation);
        fprintf(stderr, "%s", T->Margin);
        PrintTitle("Children", AvailableColumns);
        ++Ancestors;
        for(int i = 0; i < P->ChildCount; ++i)
        {
            PrintProject(&P->Child[i], T, Ancestors, IndentationLevel, TerminalColumns);
        }
        --Ancestors;
    }
    CarriageReturn(T, Ancestors);
    fprintf(stderr, "%s%s%s%s%s ", T->LowerLeftCorner,
            T->Horizontal, T->Horizontal, T->Horizontal, T->UpperRight);
    PrintLineage(P->Lineage, FALSE);
}

void
PrintConfig(config *C, bool ShouldClearTerminal)
{
    if(C)
    {
        int TermCols = GetTerminalColumns();
        if(ShouldClearTerminal) { ClearTerminal(); }
        typography Typography =
        {
            .UpperLeftCorner = "┌",
            .UpperLeft = "╾",
            .Horizontal = "─",
            .UpperRight = "╼",
            .Vertical = "│",
            .LowerLeftCorner = "└",
            .LowerLeft = "╽",
            .Margin = " ",
            .Delimiter = ": ",
            .Separator = "•",
        };

        // separate
        fprintf(stderr, "\n");
        PrintTitle("Global Settings", TermCols);
        int IndentationLevel = 0;

        int AvailableColumns = TermCols - StringLength(Typography.Margin);
        TypesetPair(&Typography, 0, IDENT_DB_LOCATION, C->DatabaseLocation, AvailableColumns);
        TypesetPair(&Typography, 0, IDENT_CACHE_DIR, C->CacheDir, AvailableColumns);

        fprintf(stderr, "\n");
        TypesetPair(&Typography, 0, IDENT_GLOBAL_TEMPLATES_DIR, C->GlobalTemplatesDir, AvailableColumns);
        TypesetPair(&Typography, 0, IDENT_GLOBAL_SEARCH_TEMPLATE, C->GlobalSearchTemplatePath, AvailableColumns);
        TypesetPair(&Typography, 0, IDENT_GLOBAL_SEARCH_DIR, C->GlobalSearchDir, AvailableColumns);
        TypesetPair(&Typography, 0, IDENT_GLOBAL_SEARCH_URL, C->GlobalSearchURL, AvailableColumns);
        TypesetPair(&Typography, 0, IDENT_GLOBAL_THEME, C->GlobalTheme, AvailableColumns);

        fprintf(stderr, "\n");
        TypesetPair(&Typography, 0, IDENT_ASSETS_ROOT_DIR, C->AssetsRootDir, AvailableColumns);
        TypesetPair(&Typography, 0, IDENT_ASSETS_ROOT_URL, C->AssetsRootURL, AvailableColumns);
        TypesetPair(&Typography, 0, IDENT_CSS_PATH, C->CSSDir, AvailableColumns);
        TypesetPair(&Typography, 0, IDENT_IMAGES_PATH, C->ImagesDir, AvailableColumns);
        TypesetPair(&Typography, 0, IDENT_JS_PATH, C->JSDir, AvailableColumns);
        TypesetPair(&Typography, 0, IDENT_QUERY_STRING, C->QueryString, AvailableColumns);

        fprintf(stderr, "\n"
                "\n"
                "%s", Typography.Margin);
        bool ShouldFillSyntax = FALSE;
        PrintBool("Respecting Privacy (derived from projects)", C->RespectingPrivacy, Typography.Delimiter, ShouldFillSyntax, IndentationLevel, FALSE, TRUE);
        fprintf(stderr, "%s", Typography.Margin);
        int SecondsPerMinute = 60;
        config_int_pair PrivacyCheckInterval = { .Key = IDENT_PRIVACY_CHECK_INTERVAL, .Value = C->PrivacyCheckInterval / SecondsPerMinute }; PrintIntPair(&PrivacyCheckInterval, Typography.Delimiter, ShouldFillSyntax, IndentationLevel, FALSE, TRUE);
        fprintf(stderr, "%s", Typography.Margin);
        PrintLogLevel(ConfigIdentifiers[IDENT_LOG_LEVEL].String, C->LogLevel, Typography.Delimiter, IndentationLevel, TRUE);

        fprintf(stderr, "\n");
        PrintTitle("People", TermCols);
        for(int i = 0; i < C->PersonCount; ++i)
        {
            PrintPerson(&C->Person[i], IDENT_NULL, &Typography);
        }

        fprintf(stderr, "\n");
        PrintTitle("Projects", TermCols);
        for(int i = 0; i < C->ProjectCount; ++i)
        {
            PrintProject(&C->Project[i], &Typography, 0, IndentationLevel, TermCols);
        }
    }
}

void
FreePerson(person *P)
{
    FreeAndResetCount(P->Support, P->SupportCount);
}

void
FreeProject(project *P)
{
    FreeAndResetCount(P->Medium, P->MediumCount);

    FreeAndResetCount(P->Indexer, P->IndexerCount);
    FreeAndResetCount(P->Guest, P->GuestCount);
    FreeAndResetCount(P->CoHost, P->CoHostCount);
    for(int i = 0; i < P->ChildCount; ++i)
    {
        FreeProject(&P->Child[i]);
    }
    FreeAndResetCount(P->Child, P->ChildCount);
    FreeTemplate(&P->SearchTemplate);
    FreeTemplate(&P->PlayerTemplate);

    FreeBuffer(&P->NavGeneric);
    FreeBuffer(&P->NavDropdownPre);
    FreeBuffer(&P->NavDropdownPost);
    FreeBuffer(&P->NavHorizontalPre);
    FreeBuffer(&P->NavPlainPre);
}

void
FreeConfig(config *C)
{
    if(C)
    {
        for(int i = 0; i < C->PersonCount; ++i)
        {
            FreePerson(&C->Person[i]);
        }
        FreeAndResetCount(C->Person, C->PersonCount);
        for(int i = 0; i < C->ProjectCount; ++i)
        {
            FreeProject(&C->Project[i]);
        }
        FreeAndResetCount(C->Project, C->ProjectCount);
        FreeBook(&C->ResolvedVariables);
        FreeTemplate(&C->SearchTemplate);

        FreeBuffer(&C->NavGeneric);
        FreeBuffer(&C->NavDropdownPre);
        FreeBuffer(&C->NavDropdownPost);
        FreeBuffer(&C->NavHorizontalPre);
        FreeBuffer(&C->NavPlainPre);

        Free(C);
    }
}

config *
ParseConfig(string Path, tokens_list *TokensList)
{
    //PrintFunctionName("ParseConfig()");
    config_type_specs TypeSpecs = InitTypeSpecs();
    config *Result = 0;
    tokens *T = Tokenise(TokensList, Path);

#if 0
        MEM_LOOP_PRE_FREE("Tokenise")
        FreeTokensList(&TokensList);
        //FreeAndResetCount(WatchHandles.Handle, WatchHandles.Count);
        MEM_LOOP_PRE_WORK()
        T = Tokenise(&TokensList, Path);
        MEM_LOOP_POST("Tokenise")
#endif

    if(T)
    {
        scope_tree *ScopeTree = calloc(1, sizeof(scope_tree));
        SetTypeSpec(ScopeTree, &TypeSpecs);
        SetDefaults(ScopeTree, &TypeSpecs);
        ScopeTree = ScopeTokens(ScopeTree, TokensList, T, &TypeSpecs, 0);

        // TODO(matt): Mem testing
        //
#if 0
        MEM_LOOP_PRE_FREE("ScopeTree")
        FreeScopeTree(ScopeTree);
        FreeTokensList(&TokensList);
        MEM_LOOP_PRE_WORK()
        T = Tokenise(&TokensList, Path);
        ScopeTree = calloc(1, sizeof(scope_tree));
        SetTypeSpec(ScopeTree, &TypeSpecs);
        SetDefaults(ScopeTree, &TypeSpecs);
        ScopeTree = ScopeTokens(ScopeTree, &TokensList, T, &TypeSpecs, 0);
        MEM_LOOP_POST("ScopeTree")
#endif
        //
        ////

        //PrintScopeTree(ScopeTree);
        if(ScopeTree)
        {
            //PrintC(CS_GREEN, "Resolving scope tree\n");
            Result = ResolveVariables(ScopeTree);

#if 0
            MEM_LOOP_PRE_FREE("ResolveVariables")
            FreeConfig(Result);
            MEM_LOOP_PRE_WORK()
            Result = ResolveVariables(ScopeTree);
            MEM_LOOP_POST("ResolveVariables")
#endif

            FreeScopeTree(ScopeTree);
        }
        FreeTokensList(TokensList);
    }
    FreeTypeSpecs(&TypeSpecs);
    return Result;
}
//
// config

#if 0
int
main(int ArgC, char **Args)
{
    //fprintf(stderr, "%s\n", ConfigFile.Buffer.Location);
    config_type_specs TypeSpecs = InitTypeSpecs();

    config *Config = ParseConfig(&TypeSpecs, Wrap0("cinera.conf"));
    if(Config)
    {
        //PrintConfig(Config);
        FreeConfig(Config);
    }

    FreeTypeSpecs(&TypeSpecs);
    _exit(0);
}
#endif