NAME ^

src/pmc/namespace.pmc - NameSpace PMC

DESCRIPTION ^

These are the vtable functions for the namespace PMC.

Data ^

  PMC_struct_val       ... the hash, bucket->value is either a
                           var/sub or a namespace, of a FixedPMCarray
                           of 2 PMCs (namespace, sub/var) slots
  PMC_pmc_val          ... parent namespace
  PMC_data             ... Namespace information struct (name, class/role)

Functions ^

void init()

Initialize a NameSpace PMC by calling Hash.init and clearing other fields.

void mark()

Marks the namespace as live.

void destroy()

Frees the namespace info struct.

void set_pmc_keyed_str(STRING *key, PMC *value)

Sets *value as the namespace item for *key. This is part of the raw interface. If the PMC value is exactly a NameSpace, SELF will be set as the parent of that namespace and the name key of value is stored too.

void set_pmc_keyed(PMC *key, PMC *value)

If key is a simple key, it works like above. If key is an array of strings or a chained key, add all components to the namespace.

PMC *get_pmc_keyed(PMC *key)

Return the given namespace or PMCNULL. key is either an array of strings, or a possibly nested key.

PMC *get_pmc_keyed_str(PMC *key)

Return the given namespace item or PMCNULL. If the named item is either a NameSpace or a var, the NameSpace is returned.

void *get_pointer_keyed_str(STRING *key)

void *get_pointer_keyed(PMC *key)

Return the given namespace item or PMCNULL. If the named item is either a NameSpace or a var, the var is returned.

TOTAL KLUDGE. ON THE CHOPPING BLOCK.

STRING *get_string()

Return the name of this namespace part.

Methods ^

METHOD void PMC *add_namespace(STRING *name, PMC *namespace)

Stores the given namespace under this namespace, with the given name. Throws an invalid type exception if namespace is not a NameSpace PMC or subclass.

*/

    METHOD void add_namespace(STRING *name, PMC *_namespace) {
        STRING *s_ns = CONST_STRING(INTERP, "NameSpace");
        if (!VTABLE_isa(INTERP, _namespace, s_ns))
            real_exception(INTERP, NULL, E_TypeError,
                "Invalid type %d in add_namespace()",
                _namespace->vtable->base_type);

        VTABLE_set_pmc_keyed_str(INTERP, SELF, name, _namespace);
        return;
    }
/*

/*

METHOD void PMC *add_sub(STRING *name, PMC *sub)

Stores the given sub under this namespace, with the given name. Throws an invalid type exception if sub is not a Sub PMC or subclass.

*/

    METHOD void add_sub(STRING *name, PMC *sub) {
        STRING *s_sub = CONST_STRING(INTERP, "Sub");
        if (!VTABLE_isa(INTERP, sub, s_sub))
            real_exception(INTERP, NULL, E_TypeError,
                "Invalid type %d in add_sub()", sub->vtable->base_type);

        VTABLE_set_pmc_keyed_str(INTERP, SELF, name, sub);
        return;
    }
/*

/*

METHOD void PMC *add_var(STRING *name, PMC *var)

Stores the given sub under this namespace, with the given name.

*/

    METHOD void add_var(STRING *name, PMC *var) {
        VTABLE_set_pmc_keyed_str(INTERP, SELF, name, var);
        return;
    }
/*

METHOD PMC *get_name()

Returns the name of the namespace as an array of strings.

  $P2 = $P3.'get_name'()
  $S0 = join '::', $P2            # '::Foo::Bar'
METHOD PMC *find_namespace(STRING *name)

Return the namespace with the given name.

METHOD PMC *find_sub(STRING *name)

Return the Sub PMC with the given name.

METHOD PMC *find_var(STRING *name)

Return the PMC with the given name.

METHOD PMC *del_namespace(STRING *name)

Deletes the contained NameSpace PMC with the given name. Throws an invalid type exception if the item to delete is not a NameSpace PMC or subclass, and does not delete the PMC.

METHOD PMC *del_sub(STRING *name)

Deletes the contained Sub PMC with the given name. Throws an invalid type exception if the item to delete is not a Sub PMC or subclass, and does not delete the PMC.

METHOD PMC *del_var(STRING *name)

Deletes the contained variable-like PMC with the given name.

METHOD PMC *get_sym(STRING *name)

Return the symbol (var or sub) with the given name. This can be used to retrieve symbols, if a NameSpace with the same name exists.

METHOD void export_to(PMC *dest, PMC *what)

Export items from this NameSpace into the dest NameSpace. The items to export are named in what, which may be an array of strings, a hash, or null. If what is an array of strings, interpretation of items in an array follows the conventions of the source (exporting) namespace. If what is a hash, the keys correspond to the names in the source namespace, and the values correspond to the names in the destination namespace. if a hash value is null or an empty string, the name in the hash key is used. A null what requests the 'default' set of items. Any other type passed in what throws an exception.

NOTE: exporting 'default' set of items is not yet implemented.

METHOD PMC *get_parent()

Return the parent NameSpace or PMCNULL, if none.

PCCMETHOD PMC *get_class()

Returns the class or role PMC that is associated with this namespace.

PCCMETHOD void set_class(PMC *class_or_role)

Sets the class or role PMC that is associated with this namespace.

SEE ALSO ^

docs/pdds/pdd21_namespaces.pod


parrot