C++ (Cpp) lily_tie_value Beispiele

Beispiel #1

Datei: lily_pkg_builtin.c Projekt: nobody1986/lily

static void builtin_var_loader(lily_parse_state *parser, lily_var *var)
{
    char *name = var->name;
    FILE *source;
    char mode;

    if (strcmp(name, "stdin") == 0) {
        source = stdin;
        mode = 'r';
    }
    else if (strcmp(name, "stdout") == 0) {
        source = stdout;
        mode = 'w';
    }
    else {
        source = stderr;
        mode = 'w';
    }

    lily_file_val *file_val = lily_new_file_val(source, mode);
    /* This prevents std* streams from being closed. */
    file_val->is_builtin = 1;

    lily_value v;
    v.flags = 0;
    v.value = (lily_raw_value)file_val;

    lily_tie_value(parser->symtab, var, &v);
}

Beispiel #2

Datei: lily_pkg_builtin.c Projekt: cgbystrom/scriptorium

static void builtin_var_loader(lily_parse_state *parser, lily_var *var)
{
    char *name = var->name;
    FILE *source;
    char mode;

    if (strcmp(name, "stdin") == 0) {
        source = stdin;
        mode = 'w';
    }
    else if (strcmp(name, "stdout") == 0) {
        source = stdout;
        mode = 'r';
    }
    else {
        source = stderr;
        mode = 'w';
    }

    lily_raw_value raw = {.file = lily_new_file_val(source, mode)};
    lily_value v;
    v.flags = 0;
    v.type = var->type;
    v.value = raw;

    lily_tie_value(parser->symtab, var, &v);
}

void lily_init_builtin_package(lily_symtab *symtab, lily_import_entry *builtin)
{
    symtab->integer_class    = lily_integer_init(symtab);
    symtab->double_class     = lily_double_init(symtab);
    symtab->string_class     = lily_string_init(symtab);
    symtab->bytestring_class = lily_bytestring_init(symtab);
    symtab->function_class   = lily_new_class_by_seed(symtab, &function_seed);
    symtab->any_class        = lily_new_class_by_seed(symtab, &any_seed);
    symtab->list_class       = lily_list_init(symtab);
    symtab->hash_class       = lily_hash_init(symtab);
    symtab->tuple_class      = lily_new_class_by_seed(symtab, &tuple_seed);
    symtab->optarg_class     = lily_new_class_by_seed(symtab, &optarg_seed);
    lily_file_init(symtab);
    symtab->generic_class    = lily_new_class_by_seed(symtab, &generic_seed);

    symtab->any_class->type->flags |= TYPE_MAYBE_CIRCULAR;
    /* This needs to be set because symtab's type finalize bubbles this
       unresolved flag upward. */
    symtab->generic_class->type->flags |= TYPE_IS_UNRESOLVED;
    symtab->generic_type_start = symtab->generic_class->type;
    symtab->next_class_id = 12;

    builtin->dynaload_table = &seed_stdin;
    builtin->var_load_fn = builtin_var_loader;
}