Interprete golfScript 0.1 - Dic/2022 - Candid Moe
Esta versión acepta el código en golfscript.com/golfscript/builtin.html
Operadores:  [+, ;, -, *, /, ?, ), (, ~, ., $, \, @, %, !, `, >, ^, &]
>{.}{*}+:square;2 square
[4]
>2 {2*} 5*
[4 64]
>

struct Value {
    enum ValueType {
        NONE,
        STRING,
        INTEGER,
        ARRAY,
        BLOCK,
        CFUNCTION
    };

import re

from tipos import Block, Var, Integer, String, List, colon
from operaciones import variables
import types
import typing

patron = re.compile(r"[a-zA-Z_][a-zA-Z0-9_]*|;|'(?:\\.|[^'])*'?|[~@\\%\.{};+]|-?[0-9]+|#[^\n\r]*|\S")
                    #|"(?:\\.|[^"])*"?|-?[0-9]+|)


def lexer(source):
    #   Divide el programa fuente en lexemas
    #   Funcion generadora; marca de fin es None
    for linea in source.split('\n'):
        for parte in patron.findall(linea):
            if parte[0] == "#":  # El resto es comentario

struct Token {
    enum TokenType {
        END_OF_FILE,
        ASSIGN,
        IDENTIFIER,
        STRING,
        INTEGER,
        ARRAY,
        BLOCK
    };

class Tokenizer {
public:
    virtual ~Tokenizer( );

    virtual Token nextToken( ) = 0;
};

class IstreamTokenizer : public Tokenizer {
public:
    IstreamTokenizer( std::istream &is ) :
        m_istream( is )
    {
    }

    Token nextToken( ) override;

private:
    std::istream &m_istream;
};

class ChildTokenizer : public Tokenizer {
public:
    ChildTokenizer( Tokenizer &parent, char end ) :
        m_parent( parent ),
        m_end( end )
    {
    }

    Token nextToken( ) override;

Interprete golfScript 0.1 - Dic/2022 - Candid Moe
Esta versión acepta el código en golfscript.com/golfscript/builtin.html
REPL sin historia ni editor. CTRL-C para terminar. help para ayuda
Operadores:  [+, ;, -, *, /, ?, ), (, ~, ., $, \, @, %, !, `, >, <, ^, &, if, do, while, until]
>debug
>1 2 3+*
[] 1
[1] 2
[1 2] 3
[1 2 3] +
[1 5] *
[5]
>

Token BlockTokenizer::nextToken( ) {
    if( m_index == m_storage.size( ) ) {
        return Token( Token::END_OF_FILE );
    }

    const auto &token = m_storage[m_index];
    ++m_index;

    return Token( token );
}

struct Token {
    enum TokenType {
        END_OF_FILE,
        ASSIGN,
        IDENTIFIER,
        STRING,
        INTEGER,
        ARRAY,
        BLOCK
    };

    Token( ) = default;
    Token( TokenType t ) :
        type( t )
    {
    }
    Token( const Token & ) = default;
    Token( Token && ) = default;

    TokenType type;

    std::string vstring;
    int vint;
    std::vector< Token > vsequence;
};