You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2014/04/27 01:11:51 UTC
[lucy-commits] [21/54] [abbrv] Remove bundled Clownfish.
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC.xs
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC.xs b/clownfish/compiler/perl/lib/Clownfish/CFC.xs
deleted file mode 100644
index 410658d..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC.xs
+++ /dev/null
@@ -1,2556 +0,0 @@
-/* Licensed to the Apache Software Foundation (ASF) under one or more
- * contributor license agreements. See the NOTICE file distributed with
- * this work for additional information regarding copyright ownership.
- * The ASF licenses this file to You under the Apache License, Version 2.0
- * (the "License"); you may not use this file except in compliance with
- * the License. You may obtain a copy of the License at
- *
- * http://www.apache.org/licenses/LICENSE-2.0
- *
- * Unless required by applicable law or agreed to in writing, software
- * distributed under the License is distributed on an "AS IS" BASIS,
- * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
- * See the License for the specific language governing permissions and
- * limitations under the License.
- */
-
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-#include "CFC.h"
-
-/* Rather than provide an XSUB for each accessor, we can use one multipath
- * accessor function per class, with several Perl-space aliases. All set
- * functions have odd-numbered aliases, and all get functions have
- * even-numbered aliases. These two macros serve as bookends for the switch
- * function.
- */
-#define START_SET_OR_GET_SWITCH \
- SV *retval = &PL_sv_undef; \
- /* If called as a setter, make sure the extra arg is there. */ \
- if (ix % 2 == 1) { \
- if (items != 2) { croak("usage: $object->set_xxxxxx($val)"); } \
- } \
- else { \
- if (items != 1) { croak("usage: $object->get_xxxxx()"); } \
- } \
- switch (ix) {
-
-#define END_SET_OR_GET_SWITCH \
- default: croak("Internal error. ix: %d", (int)ix); \
- } \
- if (ix % 2 == 0) { \
- XPUSHs(sv_2mortal(retval)); \
- XSRETURN(1); \
- } \
- else { \
- XSRETURN(0); \
- }
-
-static SV*
-S_cfcbase_to_perlref(void *thing) {
- SV *ref = newSV(0);
- if (thing) {
- const char *klass = CFCBase_get_cfc_class((CFCBase*)thing);
- CFCBase_incref((CFCBase*)thing);
- sv_setref_pv(ref, klass, (void*)thing);
- }
- return ref;
-}
-
-// Transform a NULL-terminated array of char* into a Perl arrayref.
-static SV*
-S_string_array_to_av(const char **strings) {
- AV *av = newAV();
- for (size_t i = 0; strings[i] != NULL; i++) {
- SV *val = newSVpvn(strings[i], strlen(strings[i]));
- av_store(av, i, val);
- }
- SV *retval = newRV_noinc((SV*)av);
- return retval;
-}
-
-// Transform a NULL-terminated array of CFCBase* into a Perl arrayref.
-static SV*
-S_array_of_cfcbase_to_av(CFCBase **things) {
- AV *av = newAV();
- for (size_t i = 0; things[i] != NULL; i++) {
- SV *val = S_cfcbase_to_perlref(things[i]);
- av_store(av, i, val);
- }
- SV *retval = newRV((SV*)av);
- SvREFCNT_dec(av);
- return retval;
-}
-
-// Transform a Perl arrayref into a NULL-terminated array of CFCBase*.
-static CFCBase**
-S_av_to_array_of_cfcbase(SV *ref, const char *class_name) {
- if (!SvROK(ref)) { croak("Not an arrayref"); }
- SV *sv = SvRV(ref);
- if (SvTYPE(sv) != SVt_PVAV) { croak("Not an arrayref"); }
- AV *av = (AV*)sv;
- size_t size = av_len(av) + 1;
- CFCBase **retval = (CFCBase**)CALLOCATE(size + 1, sizeof(CFCBase*));
- for (size_t i = 0; i < size; i++) {
- SV **elem = av_fetch(av, i, 0);
- if (!*elem || !sv_derived_from(*elem, class_name)) {
- croak("Array element not of type %s", class_name);
- }
- IV objint = SvIV((SV*)SvRV(*elem));
- retval[i] = INT2PTR(CFCBase*, objint);
- }
- return retval;
-}
-
-static SV*
-S_sv_eat_c_string(char *string) {
- if (string) {
- SV *sv = newSVpvn(string, strlen(string));
- FREEMEM(string);
- return sv;
- }
- else {
- return newSV(0);
- }
-}
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Base
-
-void
-DESTROY(self)
- CFCBase *self;
-PPCODE:
- CFCBase_decref((CFCBase*)self);
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::CBlock
-
-SV*
-_new(contents)
- const char *contents;
-CODE:
- CFCCBlock *self = CFCCBlock_new(contents);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-void
-_set_or_get(self, ...)
- CFCCBlock *self;
-ALIAS:
- get_contents = 2
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2: {
- const char *contents = CFCCBlock_get_contents(self);
- retval = newSVpvn(contents, strlen(contents));
- }
- break;
- END_SET_OR_GET_SWITCH
-}
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::Class
-
-SV*
-_create(parcel, exposure_sv, class_name_sv, cnick_sv, micro_sym_sv, docucomment, file_spec, parent_class_name_sv, is_final, is_inert)
- CFCParcel *parcel;
- SV *exposure_sv;
- SV *class_name_sv;
- SV *cnick_sv;
- SV *micro_sym_sv;
- CFCDocuComment *docucomment;
- CFCFileSpec *file_spec;
- SV *parent_class_name_sv;
- bool is_final;
- bool is_inert;
-CODE:
- const char *exposure =
- SvOK(exposure_sv) ? SvPV_nolen(exposure_sv) : NULL;
- const char *class_name =
- SvOK(class_name_sv) ? SvPV_nolen(class_name_sv) : NULL;
- const char *cnick =
- SvOK(cnick_sv) ? SvPV_nolen(cnick_sv) : NULL;
- const char *micro_sym =
- SvOK(micro_sym_sv) ? SvPV_nolen(micro_sym_sv) : NULL;
- const char *parent_class_name =
- SvOK(parent_class_name_sv) ? SvPV_nolen(parent_class_name_sv) : NULL;
- CFCClass *self = CFCClass_create(parcel, exposure, class_name, cnick,
- micro_sym, docucomment, file_spec,
- parent_class_name, is_final, is_inert);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-_fetch_singleton(parcel, class_name)
- CFCParcel *parcel;
- const char *class_name;
-CODE:
- CFCClass *klass = CFCClass_fetch_singleton(parcel, class_name);
- RETVAL = S_cfcbase_to_perlref(klass);
-OUTPUT: RETVAL
-
-void
-_clear_registry(...)
-PPCODE:
- CHY_UNUSED_VAR(items);
- CFCClass_clear_registry();
-
-void
-add_child(self, child)
- CFCClass *self;
- CFCClass *child;
-PPCODE:
- CFCClass_add_child(self, child);
-
-void
-add_member_var(self, var)
- CFCClass *self;
- CFCVariable *var;
-PPCODE:
- CFCClass_add_member_var(self, var);
-
-void
-add_function(self, func)
- CFCClass *self;
- CFCFunction *func;
-PPCODE:
- CFCClass_add_function(self, func);
-
-void
-add_method(self, method)
- CFCClass *self;
- CFCMethod *method;
-PPCODE:
- CFCClass_add_method(self, method);
-
-void
-grow_tree(self)
- CFCClass *self;
-PPCODE:
- CFCClass_grow_tree(self);
-
-void
-add_inert_var(self, var)
- CFCClass *self;
- CFCVariable *var;
-PPCODE:
- CFCClass_add_inert_var(self, var);
-
-SV*
-function(self, sym)
- CFCClass *self;
- const char *sym;
-CODE:
- CFCFunction *func = CFCClass_function(self, sym);
- RETVAL = S_cfcbase_to_perlref(func);
-OUTPUT: RETVAL
-
-SV*
-method(self, sym)
- CFCClass *self;
- const char *sym;
-CODE:
- CFCMethod *method = CFCClass_method(self, sym);
- RETVAL = S_cfcbase_to_perlref(method);
-OUTPUT: RETVAL
-
-SV*
-fresh_method(self, sym)
- CFCClass *self;
- const char *sym;
-CODE:
- CFCMethod *method = CFCClass_fresh_method(self, sym);
- RETVAL = S_cfcbase_to_perlref(method);
-OUTPUT: RETVAL
-
-void
-resolve_types(self, classes_sv)
- CFCClass *self;
- SV *classes_sv;
-PPCODE:
- CFCClass **classes
- = (CFCClass**)S_av_to_array_of_cfcbase(classes_sv,
- "Clownfish::CFC::Model::Class");
- CFCClass_resolve_types(self, classes);
- FREEMEM(classes);
-
-void
-_set_or_get(self, ...)
- CFCClass *self;
-ALIAS:
- get_cnick = 2
- set_parent = 5
- get_parent = 6
- get_path_part = 10
- get_parent_class_name = 12
- final = 14
- inert = 16
- get_struct_sym = 18
- full_struct_sym = 20
- short_vtable_var = 22
- full_vtable_var = 24
- include_h = 28
- get_docucomment = 30
- children = 32
- functions = 34
- methods = 36
- member_vars = 38
- inert_vars = 40
- tree_to_ladder = 42
- fresh_methods = 44
- fresh_member_vars = 46
- privacy_symbol = 48
- included = 50
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2: {
- const char *value = CFCClass_get_cnick(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- case 5: {
- CFCClass *parent = NULL;
- if (SvOK(ST(1))
- && sv_derived_from(ST(1), "Clownfish::CFC::Model::Class")
- ) {
- IV objint = SvIV((SV*)SvRV(ST(1)));
- parent = INT2PTR(CFCClass*, objint);
- }
- CFCClass_set_parent(self, parent);
- break;
- }
- case 6: {
- CFCClass *parent = CFCClass_get_parent(self);
- retval = S_cfcbase_to_perlref(parent);
- break;
- }
- case 10: {
- const char *value = CFCClass_get_path_part(self);
- retval = value ? newSVpvn(value, strlen(value)) : newSV(0);
- }
- break;
- case 12: {
- const char *value = CFCClass_get_parent_class_name(self);
- retval = value ? newSVpvn(value, strlen(value)) : newSV(0);
- }
- break;
- case 14:
- retval = newSViv(CFCClass_final(self));
- break;
- case 16:
- retval = newSViv(CFCClass_inert(self));
- break;
- case 18: {
- const char *value = CFCClass_get_struct_sym(self);
- retval = value ? newSVpvn(value, strlen(value)) : newSV(0);
- }
- break;
- case 20: {
- const char *value = CFCClass_full_struct_sym(self);
- retval = value ? newSVpvn(value, strlen(value)) : newSV(0);
- }
- break;
- case 22: {
- const char *value = CFCClass_short_vtable_var(self);
- retval = value ? newSVpvn(value, strlen(value)) : newSV(0);
- }
- break;
- case 24: {
- const char *value = CFCClass_full_vtable_var(self);
- retval = value ? newSVpvn(value, strlen(value)) : newSV(0);
- }
- break;
- case 28: {
- const char *value = CFCClass_include_h(self);
- retval = value ? newSVpvn(value, strlen(value)) : newSV(0);
- }
- break;
- case 30: {
- CFCDocuComment *docucomment = CFCClass_get_docucomment(self);
- retval = S_cfcbase_to_perlref(docucomment);
- }
- break;
- case 32:
- retval = S_array_of_cfcbase_to_av(
- (CFCBase**)CFCClass_children(self));
- break;
- case 34:
- retval = S_array_of_cfcbase_to_av((CFCBase**)CFCClass_functions(self));
- break;
- case 36:
- retval = S_array_of_cfcbase_to_av((CFCBase**)CFCClass_methods(self));
- break;
- case 38:
- retval = S_array_of_cfcbase_to_av((CFCBase**)CFCClass_member_vars(self));
- break;
- case 40:
- retval = S_array_of_cfcbase_to_av((CFCBase**)CFCClass_inert_vars(self));
- break;
- case 42: {
- CFCClass **ladder = CFCClass_tree_to_ladder(self);
- retval = S_array_of_cfcbase_to_av((CFCBase**)ladder);
- FREEMEM(ladder);
- break;
- }
- case 44: {
- CFCMethod **fresh = CFCClass_fresh_methods(self);
- retval = S_array_of_cfcbase_to_av((CFCBase**)fresh);
- FREEMEM(fresh);
- break;
- }
- case 46: {
- CFCVariable **fresh = CFCClass_fresh_member_vars(self);
- retval = S_array_of_cfcbase_to_av((CFCBase**)fresh);
- FREEMEM(fresh);
- break;
- }
- case 48: {
- const char *value = CFCClass_privacy_symbol(self);
- retval = value ? newSVpvn(value, strlen(value)) : newSV(0);
- }
- break;
- case 50:
- retval = newSViv(CFCClass_included(self));
- break;
- END_SET_OR_GET_SWITCH
-}
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::DocuComment
-
-SV*
-parse(klass, text)
- const char *klass;
- const char *text;
-CODE:
- if (strcmp(klass, "Clownfish::CFC::Model::DocuComment")) {
- croak("No subclassing allowed");
- }
- CFCDocuComment *self = CFCDocuComment_parse(text);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-void
-_set_or_get(self, ...)
- CFCDocuComment *self;
-ALIAS:
- get_description = 2
- get_brief = 4
- get_long = 6
- get_param_names = 8
- get_param_docs = 10
- get_retval = 12
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2: {
- const char *description = CFCDocuComment_get_description(self);
- retval = newSVpvn(description, strlen(description));
- }
- break;
- case 4: {
- const char *brief = CFCDocuComment_get_brief(self);
- retval = newSVpvn(brief, strlen(brief));
- }
- break;
- case 6: {
- const char *long_description = CFCDocuComment_get_long(self);
- retval = newSVpvn(long_description, strlen(long_description));
- }
- break;
- case 8: {
- const char **names = CFCDocuComment_get_param_names(self);
- retval = S_string_array_to_av(names);
- }
- break;
- case 10: {
- const char **docs = CFCDocuComment_get_param_docs(self);
- retval = S_string_array_to_av(docs);
- }
- break;
- case 12: {
- const char *rv = CFCDocuComment_get_retval(self);
- retval = rv ? newSVpvn(rv, strlen(rv)) : newSV(0);
- }
- break;
- END_SET_OR_GET_SWITCH
-}
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::File
-
-SV*
-_new(spec)
- CFCFileSpec *spec;
-CODE:
- CFCFile *self = CFCFile_new(spec);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-void
-add_block(self, block)
- CFCFile *self;
- CFCBase *block;
-PPCODE:
- CFCFile_add_block(self, block);
-
-void
-_set_or_get(self, ...)
- CFCFile *self;
-ALIAS:
- set_modified = 1
- get_modified = 2
- get_path_part = 4
- guard_name = 6
- guard_start = 8
- guard_close = 10
- blocks = 12
- classes = 14
- get_source_dir = 16
- included = 18
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 1:
- CFCFile_set_modified(self, !!SvTRUE(ST(1)));
- break;
- case 2:
- retval = newSViv(CFCFile_get_modified(self));
- break;
- case 4: {
- const char *value = CFCFile_get_path_part(self);
- retval = newSVpv(value, strlen(value));
- }
- break;
- case 6: {
- const char *value = CFCFile_guard_name(self);
- retval = newSVpv(value, strlen(value));
- }
- break;
- case 8: {
- const char *value = CFCFile_guard_start(self);
- retval = newSVpv(value, strlen(value));
- }
- break;
- case 10: {
- const char *value = CFCFile_guard_close(self);
- retval = newSVpv(value, strlen(value));
- }
- break;
- case 12:
- retval = S_array_of_cfcbase_to_av(CFCFile_blocks(self));
- break;
- case 14:
- retval = S_array_of_cfcbase_to_av(
- (CFCBase**)CFCFile_classes(self));
- break;
- case 16: {
- const char *value = CFCFile_get_source_dir(self);
- retval = newSVpv(value, strlen(value));
- }
- break;
- case 18:
- retval = newSViv(CFCFile_included(self));
- break;
- END_SET_OR_GET_SWITCH
-}
-
-SV*
-_gen_path(self, base_dir = NULL)
- CFCFile *self;
- const char *base_dir;
-ALIAS:
- c_path = 1
- h_path = 2
- cfh_path = 3
-CODE:
-{
- char *buf;
- switch (ix) {
- case 1:
- buf = CFCFile_c_path(self, base_dir);
- break;
- case 2:
- buf = CFCFile_h_path(self, base_dir);
- break;
- case 3:
- buf = CFCFile_cfh_path(self, base_dir);
- break;
- default:
- croak("unexpected ix value: %d", (int)ix);
- }
- RETVAL = newSVpvn(buf, strlen(buf));
- FREEMEM(buf);
-}
-OUTPUT: RETVAL
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::FileSpec
-
-SV*
-_new(source_dir, path_part, is_included)
- const char *source_dir;
- const char *path_part;
- bool is_included;
-CODE:
- CFCFileSpec *self = CFCFileSpec_new(source_dir, path_part, is_included);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-void
-_set_or_get(self, ...)
- CFCFileSpec *self;
-ALIAS:
- get_source_dir = 2
- get_path_part = 4
- included = 6
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2: {
- const char *value = CFCFileSpec_get_source_dir(self);
- retval = newSVpv(value, strlen(value));
- }
- break;
- case 4: {
- const char *value = CFCFileSpec_get_path_part(self);
- retval = newSVpv(value, strlen(value));
- }
- break;
- case 6:
- retval = newSViv(CFCFileSpec_included(self));
- break;
- END_SET_OR_GET_SWITCH
-}
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::Function
-
-SV*
-_new(parcel, exposure_sv, class_name_sv, class_cnick_sv, micro_sym_sv, return_type, param_list, docucomment, is_inline)
- CFCParcel *parcel;
- SV *exposure_sv;
- SV *class_name_sv;
- SV *class_cnick_sv;
- SV *micro_sym_sv;
- CFCType *return_type;
- CFCParamList *param_list;
- CFCDocuComment *docucomment;
- int is_inline;
-CODE:
- const char *exposure =
- SvOK(exposure_sv) ? SvPV_nolen(exposure_sv) : NULL;
- const char *class_name =
- SvOK(class_name_sv) ? SvPV_nolen(class_name_sv) : NULL;
- const char *class_cnick =
- SvOK(class_cnick_sv) ? SvPV_nolen(class_cnick_sv) : NULL;
- const char *micro_sym =
- SvOK(micro_sym_sv) ? SvPV_nolen(micro_sym_sv) : NULL;
- CFCFunction *self = CFCFunction_new(parcel, exposure, class_name,
- class_cnick, micro_sym, return_type,
- param_list, docucomment, is_inline);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-void
-resolve_types(self, classes_sv)
- CFCFunction *self;
- SV *classes_sv;
-PPCODE:
- CFCClass **classes
- = (CFCClass**)S_av_to_array_of_cfcbase(classes_sv,
- "Clownfish::CFC::Model::Class");
- CFCFunction_resolve_types(self, classes);
- FREEMEM(classes);
-
-void
-_set_or_get(self, ...)
- CFCFunction *self;
-ALIAS:
- get_return_type = 2
- get_param_list = 4
- get_docucomment = 6
- inline = 8
- void = 10
- full_func_sym = 12
- short_func_sym = 14
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2: {
- CFCType *type = CFCFunction_get_return_type(self);
- retval = S_cfcbase_to_perlref(type);
- }
- break;
- case 4: {
- CFCParamList *param_list = CFCFunction_get_param_list(self);
- retval = S_cfcbase_to_perlref(param_list);
- }
- break;
- case 6: {
- CFCDocuComment *docucomment
- = CFCFunction_get_docucomment(self);
- retval = S_cfcbase_to_perlref(docucomment);
- }
- break;
- case 8:
- retval = newSViv(CFCFunction_inline(self));
- break;
- case 10:
- retval = newSViv(CFCFunction_void(self));
- break;
- case 12: {
- const char *full_sym = CFCFunction_full_func_sym(self);
- retval = newSVpv(full_sym, strlen(full_sym));
- }
- break;
- case 14: {
- const char *short_sym = CFCFunction_short_func_sym(self);
- retval = newSVpv(short_sym, strlen(short_sym));
- }
- break;
- END_SET_OR_GET_SWITCH
-}
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::Hierarchy
-
-SV*
-_new(dest)
- const char *dest;
-CODE:
- CFCHierarchy *self = CFCHierarchy_new(dest);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-void
-add_source_dir(self, source_dir)
- CFCHierarchy *self;
- const char *source_dir;
-PPCODE:
- CFCHierarchy_add_source_dir(self, source_dir);
-
-void
-add_include_dir(self, include_dir)
- CFCHierarchy *self;
- const char *include_dir;
-PPCODE:
- CFCHierarchy_add_include_dir(self, include_dir);
-
-void
-build(self)
- CFCHierarchy *self;
-PPCODE:
- CFCHierarchy_build(self);
-
-int
-propagate_modified(self, ...)
- CFCHierarchy *self;
-CODE:
- int modified = items > 1 ? !!SvTRUE(ST(1)) : 0;
- RETVAL = CFCHierarchy_propagate_modified(self, modified);
-OUTPUT: RETVAL
-
-void
-_set_or_get(self, ...)
- CFCHierarchy *self;
-ALIAS:
- get_dest = 2
- get_include_dest = 4
- get_source_dest = 6
- files = 8
- ordered_classes = 10
- get_source_dirs = 12
- get_include_dirs = 14
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2: {
- const char *value = CFCHierarchy_get_dest(self);
- retval = newSVpv(value, strlen(value));
- }
- break;
- case 4: {
- const char *value = CFCHierarchy_get_include_dest(self);
- retval = newSVpv(value, strlen(value));
- }
- break;
- case 6: {
- const char *value = CFCHierarchy_get_source_dest(self);
- retval = newSVpv(value, strlen(value));
- }
- break;
- case 8:
- retval = S_array_of_cfcbase_to_av(
- (CFCBase**)CFCHierarchy_files(self));
- break;
- case 10: {
- CFCClass **ladder = CFCHierarchy_ordered_classes(self);
- retval = S_array_of_cfcbase_to_av((CFCBase**)ladder);
- FREEMEM(ladder);
- }
- break;
- case 12: {
- const char **source_dirs = CFCHierarchy_get_source_dirs(self);
- retval = S_string_array_to_av(source_dirs);
- }
- break;
- case 14: {
- const char **include_dirs = CFCHierarchy_get_include_dirs(self);
- retval = S_string_array_to_av(include_dirs);
- }
- break;
- END_SET_OR_GET_SWITCH
-}
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::Method
-
-SV*
-_new(parcel, exposure_sv, class_name_sv, class_cnick_sv, macro_sym, return_type, param_list, docucomment, is_final, is_abstract)
- CFCParcel *parcel;
- SV *exposure_sv;
- SV *class_name_sv;
- SV *class_cnick_sv;
- const char *macro_sym;
- CFCType *return_type;
- CFCParamList *param_list;
- CFCDocuComment *docucomment;
- int is_final;
- int is_abstract;
-CODE:
- const char *exposure =
- SvOK(exposure_sv) ? SvPV_nolen(exposure_sv) : NULL;
- const char *class_name =
- SvOK(class_name_sv) ? SvPV_nolen(class_name_sv) : NULL;
- const char *class_cnick =
- SvOK(class_cnick_sv) ? SvPV_nolen(class_cnick_sv) : NULL;
- CFCMethod *self = CFCMethod_new(parcel, exposure, class_name, class_cnick,
- macro_sym, return_type, param_list,
- docucomment, is_final, is_abstract);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-int
-compatible(self, other)
- CFCMethod *self;
- CFCMethod *other;
-CODE:
- RETVAL = CFCMethod_compatible(self, other);
-OUTPUT: RETVAL
-
-void
-override(self, other)
- CFCMethod *self;
- CFCMethod *other;
-PPCODE:
- CFCMethod_override(self, other);
-
-SV*
-finalize(self)
- CFCMethod *self;
-CODE:
- CFCMethod *finalized = CFCMethod_finalize(self);
- RETVAL = S_cfcbase_to_perlref(finalized);
- CFCBase_decref((CFCBase*)finalized);
-OUTPUT: RETVAL
-
-void
-resolve_types(self, classes_sv)
- CFCMethod *self;
- SV *classes_sv;
-PPCODE:
- CFCClass **classes
- = (CFCClass**)S_av_to_array_of_cfcbase(classes_sv,
- "Clownfish::CFC::Model::Class");
- CFCMethod_resolve_types(self, classes);
- FREEMEM(classes);
-
-void
-exclude_from_host(self)
- CFCMethod *self;
-PPCODE:
- CFCMethod_exclude_from_host(self);
-
-SV*
-_various_method_syms(self, invoker)
- CFCMethod *self;
- CFCClass *invoker;
-ALIAS:
- short_method_sym = 1
- full_method_sym = 2
- full_offset_sym = 3
- short_typedef = 4
- full_typedef = 5
-CODE:
- char *buf;
- switch (ix) {
- case 1:
- buf = CFCMethod_short_method_sym(self, invoker);
- break;
- case 2:
- buf = CFCMethod_full_method_sym(self, invoker);
- break;
- case 3:
- buf = CFCMethod_full_offset_sym(self, invoker);
- break;
- case 4:
- buf = CFCMethod_short_typedef(self, invoker);
- break;
- case 5:
- buf = CFCMethod_full_typedef(self, invoker);
- break;
- default: croak("Unexpected ix: %d", (int)ix);
- }
- RETVAL = newSVpvn(buf, strlen(buf));
- FREEMEM(buf);
-OUTPUT: RETVAL
-
-void
-_set_or_get(self, ...)
- CFCMethod *self;
-ALIAS:
- get_macro_sym = 2
- full_override_sym = 10
- abstract = 12
- novel = 14
- final = 16
- self_type = 18
- set_host_alias = 19
- get_host_alias = 20
- excluded_from_host = 22
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2: {
- const char *macro_sym = CFCMethod_get_macro_sym(self);
- retval = newSVpvn(macro_sym, strlen(macro_sym));
- }
- break;
- case 10: {
- const char *value = CFCMethod_full_override_sym(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- case 12:
- retval = newSViv(CFCMethod_abstract(self));
- break;
- case 14:
- retval = newSViv(CFCMethod_novel(self));
- break;
- case 16:
- retval = newSViv(CFCMethod_final(self));
- break;
- case 18: {
- CFCType *type = CFCMethod_self_type(self);
- retval = S_cfcbase_to_perlref(type);
- }
- break;
- case 19: {
- const char *value = SvOK(ST(1)) ? SvPVutf8_nolen(ST(1)) : NULL;
- CFCMethod_set_host_alias(self, value);
- }
- break;
- case 20: {
- const char *value = CFCMethod_get_host_alias(self);
- if (value) {
- retval = newSVpvn(value, strlen(value));
- }
- }
- break;
- case 22:
- retval = newSViv(CFCMethod_excluded_from_host(self));
- break;
- END_SET_OR_GET_SWITCH
-}
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::ParamList
-
-SV*
-_new(klass, variadic)
- int variadic;
-CODE:
- CFCParamList *self = CFCParamList_new(variadic);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-void
-add_param(self, variable, value_sv)
- CFCParamList *self;
- CFCVariable *variable;
- SV *value_sv;
-PPCODE:
- const char *value = SvOK(value_sv) ? SvPV_nolen(value_sv) : NULL;
- CFCParamList_add_param(self, variable, value);
-
-void
-resolve_types(self, classes_sv)
- CFCParamList *self;
- SV *classes_sv;
-PPCODE:
- CFCClass **classes
- = (CFCClass**)S_av_to_array_of_cfcbase(classes_sv,
- "Clownfish::CFC::Model::Class");
- CFCParamList_resolve_types(self, classes);
- FREEMEM(classes);
-
-void
-_set_or_get(self, ...)
- CFCParamList *self;
-ALIAS:
- get_variables = 2
- get_initial_values = 4
- variadic = 6
- num_vars = 8
- to_c = 10
- name_list = 12
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2: {
- AV *av = newAV();
- CFCVariable **vars = CFCParamList_get_variables(self);
- size_t num_vars = CFCParamList_num_vars(self);
- for (size_t i = 0; i < num_vars; i++) {
- SV *ref = S_cfcbase_to_perlref(vars[i]);
- av_store(av, i, ref);
- }
- retval = newRV((SV*)av);
- SvREFCNT_dec(av);
- break;
- }
- case 4: {
- AV *av = newAV();
- const char **values = CFCParamList_get_initial_values(self);
- size_t num_vars = CFCParamList_num_vars(self);
- for (size_t i = 0; i < num_vars; i++) {
- if (values[i] != NULL) {
- SV *val_sv = newSVpvn(values[i], strlen(values[i]));
- av_store(av, i, val_sv);
- }
- else {
- av_store(av, i, newSV(0));
- }
- }
- retval = newRV((SV*)av);
- SvREFCNT_dec(av);
- break;
- }
- case 6:
- retval = newSViv(CFCParamList_variadic(self));
- break;
- case 8:
- retval = newSViv(CFCParamList_num_vars(self));
- break;
- case 10: {
- const char *value = CFCParamList_to_c(self);
- retval = newSVpv(value, strlen(value));
- }
- break;
- case 12: {
- const char *value = CFCParamList_name_list(self);
- retval = newSVpv(value, strlen(value));
- }
- break;
- END_SET_OR_GET_SWITCH
-}
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::Parcel
-
-SV*
-_new(name_sv, cnick_sv, version, is_included)
- SV *name_sv;
- SV *cnick_sv;
- CFCVersion *version;
- bool is_included;
-CODE:
- const char *name = SvOK(name_sv) ? SvPV_nolen(name_sv) : NULL;
- const char *cnick = SvOK(cnick_sv) ? SvPV_nolen(cnick_sv) : NULL;
- CFCParcel *self = CFCParcel_new(name, cnick, version, is_included);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-_new_from_file(path, is_included)
- const char *path;
- bool is_included;
-CODE:
- CFCParcel *self = CFCParcel_new_from_file(path, is_included);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-_new_from_json(json, is_included)
- const char *json;
- bool is_included;
-CODE:
- CFCParcel *self = CFCParcel_new_from_json(json, is_included);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-fetch(unused, name_sv)
- SV *unused;
- SV *name_sv;
-CODE:
- CHY_UNUSED_VAR(unused);
- const char *name = SvOK(name_sv) ? SvPV_nolen(name_sv) : NULL;
- CFCParcel *self = CFCParcel_fetch(name);
- RETVAL = S_cfcbase_to_perlref(self);
-OUTPUT: RETVAL
-
-
-void
-register(self)
- CFCParcel *self;
-PPCODE:
- CFCParcel_register(self);
-
-int
-equals(self, other)
- CFCParcel *self;
- CFCParcel *other;
-CODE:
- RETVAL = CFCParcel_equals(self, other);
-OUTPUT: RETVAL
-
-SV*
-default_parcel(...)
-CODE:
- CHY_UNUSED_VAR(items);
- CFCParcel *default_parcel = CFCParcel_default_parcel();
- RETVAL = S_cfcbase_to_perlref(default_parcel);
-OUTPUT: RETVAL
-
-SV*
-all_parcels(...)
-CODE:
- CHY_UNUSED_VAR(items);
- CFCParcel **all_parcels = CFCParcel_all_parcels();
- RETVAL = S_array_of_cfcbase_to_av((CFCBase**)all_parcels);
- FREEMEM(all_parcels);
-OUTPUT: RETVAL
-
-void
-add_dependent_parcel(self, dependent)
- CFCParcel *self;
- CFCParcel *dependent;
-PPCODE:
- CFCParcel_add_dependent_parcel(self, dependent);
-
-void
-add_inherited_parcel(self, inherited)
- CFCParcel *self;
- CFCParcel *inherited;
-PPCODE:
- CFCParcel_add_inherited_parcel(self, inherited);
-
-void
-reap_singletons(...)
-PPCODE:
- CHY_UNUSED_VAR(items);
- CFCParcel_reap_singletons();
-
-void
-_set_or_get(self, ...)
- CFCParcel *self;
-ALIAS:
- get_name = 2
- get_cnick = 4
- get_prefix = 6
- get_Prefix = 8
- get_PREFIX = 10
- get_version = 12
- included = 14
- dependent_parcels = 16
- inherited_parcels = 18
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2: {
- const char *name = CFCParcel_get_name(self);
- retval = newSVpvn(name, strlen(name));
- }
- break;
- case 4: {
- const char *cnick = CFCParcel_get_cnick(self);
- retval = newSVpvn(cnick, strlen(cnick));
- }
- break;
- case 6: {
- const char *value = CFCParcel_get_prefix(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- case 8: {
- const char *value = CFCParcel_get_Prefix(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- case 10: {
- const char *value = CFCParcel_get_PREFIX(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- case 12: {
- CFCVersion *value = CFCParcel_get_version(self);
- retval = S_cfcbase_to_perlref(value);
- }
- break;
- case 14:
- retval = newSViv(CFCParcel_included(self));
- break;
- case 16: {
- CFCParcel **parcels = CFCParcel_dependent_parcels(self);
- retval = S_array_of_cfcbase_to_av((CFCBase**)parcels);
- FREEMEM(parcels);
- }
- break;
- case 18: {
- CFCParcel **parcels = CFCParcel_inherited_parcels(self);
- retval = S_array_of_cfcbase_to_av((CFCBase**)parcels);
- FREEMEM(parcels);
- }
- break;
- END_SET_OR_GET_SWITCH
-}
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::Symbol
-
-SV*
-_new(parcel, exposure, class_name_sv, class_cnick_sv, micro_sym_sv)
- CFCParcel *parcel;
- const char *exposure;
- SV *class_name_sv;
- SV *class_cnick_sv;
- SV *micro_sym_sv;
-CODE:
- const char *class_name = SvOK(class_name_sv)
- ? SvPV_nolen(class_name_sv)
- : NULL;
- const char *class_cnick = SvOK(class_cnick_sv)
- ? SvPV_nolen(class_cnick_sv)
- : NULL;
- const char *micro_sym = SvOK(micro_sym_sv)
- ? SvPV_nolen(micro_sym_sv)
- : NULL;
- CFCSymbol *self = CFCSymbol_new(parcel, exposure, class_name, class_cnick,
- micro_sym);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-int
-equals(self, other)
- CFCSymbol *self;
- CFCSymbol *other;
-CODE:
- RETVAL = CFCSymbol_equals(self, other);
-OUTPUT: RETVAL
-
-void
-_set_or_get(self, ...)
- CFCSymbol *self;
-ALIAS:
- get_parcel = 2
- get_class_name = 4
- get_class_cnick = 6
- get_exposure = 8
- micro_sym = 10
- get_prefix = 12
- get_Prefix = 14
- get_PREFIX = 16
- public = 18
- private = 20
- parcel = 22
- local = 24
- short_sym = 26
- full_sym = 28
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2: {
- struct CFCParcel *parcel = CFCSymbol_get_parcel(self);
- retval = S_cfcbase_to_perlref(parcel);
- }
- break;
- case 4: {
- const char *class_name = CFCSymbol_get_class_name(self);
- retval = class_name
- ? newSVpvn(class_name, strlen(class_name))
- : newSV(0);
- }
- break;
- case 6: {
- const char *class_cnick = CFCSymbol_get_class_cnick(self);
- retval = class_cnick
- ? newSVpvn(class_cnick, strlen(class_cnick))
- : newSV(0);
- }
- break;
- case 8: {
- const char *exposure = CFCSymbol_get_exposure(self);
- retval = newSVpvn(exposure, strlen(exposure));
- }
- break;
- case 10: {
- const char *micro_sym = CFCSymbol_micro_sym(self);
- retval = newSVpvn(micro_sym, strlen(micro_sym));
- }
- break;
- case 12: {
- const char *value = CFCSymbol_get_prefix(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- case 14: {
- const char *value = CFCSymbol_get_Prefix(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- case 16: {
- const char *value = CFCSymbol_get_PREFIX(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- case 18:
- retval = newSViv(CFCSymbol_public(self));
- break;
- case 20:
- retval = newSViv(CFCSymbol_private(self));
- break;
- case 22:
- retval = newSViv(CFCSymbol_parcel(self));
- break;
- case 24:
- retval = newSViv(CFCSymbol_local(self));
- break;
- case 26: {
- const char *short_sym = CFCSymbol_short_sym(self);
- retval = newSVpvn(short_sym, strlen(short_sym));
- }
- break;
- case 28: {
- const char *full_sym = CFCSymbol_full_sym(self);
- retval = newSVpvn(full_sym, strlen(full_sym));
- }
- break;
- END_SET_OR_GET_SWITCH
-}
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::Type
-
-SV*
-_new(flags, parcel, specifier, indirection)
- int flags;
- CFCParcel *parcel;
- const char *specifier;
- int indirection;
-CODE:
- CFCType *self = CFCType_new(flags, parcel, specifier, indirection);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-_new_integer(flags, specifier)
- int flags;
- const char *specifier;
-CODE:
- CFCType *self = CFCType_new_integer(flags, specifier);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-_new_float(flags, specifier)
- int flags;
- const char *specifier;
-CODE:
- CFCType *self = CFCType_new_float(flags, specifier);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-_new_object(flags, parcel, specifier, indirection)
- int flags;
- CFCParcel *parcel;
- const char *specifier;
- int indirection;
-CODE:
- CFCType *self = CFCType_new_object(flags, parcel, specifier, indirection);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-_new_composite(flags, child_sv, indirection, array)
- int flags;
- SV *child_sv;
- int indirection;
- const char *array;
-CODE:
- CFCType *child = NULL;
- if (SvOK(child_sv) && sv_derived_from(child_sv, "Clownfish::CFC::Model::Type")) {
- IV objint = SvIV((SV*)SvRV(child_sv));
- child = INT2PTR(CFCType*, objint);
- }
- else {
- croak("Param 'child' not a Clownfish::CFC::Model::Type");
- }
- CFCType *self = CFCType_new_composite(flags, child, indirection, array);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-_new_void(is_const)
- int is_const;
-CODE:
- CFCType *self = CFCType_new_void(is_const);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-_new_va_list()
-CODE:
- CFCType *self = CFCType_new_va_list();
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-_new_arbitrary(parcel, specifier)
- CFCParcel *parcel;
- const char *specifier;
-CODE:
- CFCType *self = CFCType_new_arbitrary(parcel, specifier);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-int
-equals(self, other)
- CFCType *self;
- CFCType *other;
-CODE:
- RETVAL = CFCType_equals(self, other);
-OUTPUT: RETVAL
-
-int
-similar(self, other)
- CFCType *self;
- CFCType *other;
-CODE:
- RETVAL = CFCType_similar(self, other);
-OUTPUT: RETVAL
-
-unsigned
-CONST(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = CFCTYPE_CONST;
-OUTPUT: RETVAL
-
-unsigned
-NULLABLE(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = CFCTYPE_NULLABLE;
-OUTPUT: RETVAL
-
-unsigned
-INCREMENTED(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = CFCTYPE_INCREMENTED;
-OUTPUT: RETVAL
-
-unsigned
-DECREMENTED(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = CFCTYPE_DECREMENTED;
-OUTPUT: RETVAL
-
-unsigned
-VOID(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = CFCTYPE_VOID;
-OUTPUT: RETVAL
-
-unsigned
-OBJECT(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = CFCTYPE_OBJECT;
-OUTPUT: RETVAL
-
-unsigned
-PRIMITIVE(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = CFCTYPE_PRIMITIVE;
-OUTPUT: RETVAL
-
-unsigned
-INTEGER(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = CFCTYPE_INTEGER;
-OUTPUT: RETVAL
-
-unsigned
-FLOATING(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = CFCTYPE_FLOATING;
-OUTPUT: RETVAL
-
-unsigned
-STRING_TYPE(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = CFCTYPE_STRING_TYPE;
-OUTPUT: RETVAL
-
-unsigned
-VA_LIST(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = CFCTYPE_VA_LIST;
-OUTPUT: RETVAL
-
-unsigned
-ARBITRARY(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = CFCTYPE_ARBITRARY;
-OUTPUT: RETVAL
-
-unsigned
-COMPOSITE(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = CFCTYPE_COMPOSITE;
-OUTPUT: RETVAL
-
-void
-resolve(self, classes_sv)
- CFCType *self;
- SV *classes_sv;
-PPCODE:
- CFCClass **classes
- = (CFCClass**)S_av_to_array_of_cfcbase(classes_sv,
- "Clownfish::CFC::Model::Class");
- CFCType_resolve(self, classes);
- FREEMEM(classes);
-
-void
-_set_or_get(self, ...)
- CFCType *self;
-ALIAS:
- set_specifier = 1
- get_specifier = 2
- get_parcel = 4
- get_indirection = 6
- to_c = 8
- const = 10
- set_nullable = 11
- nullable = 12
- is_void = 14
- is_object = 16
- is_primitive = 18
- is_integer = 20
- is_floating = 22
- is_string_type = 24
- is_va_list = 26
- is_arbitrary = 28
- is_composite = 30
- get_width = 32
- incremented = 34
- decremented = 36
- get_array = 38
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 1:
- CFCType_set_specifier(self, SvPV_nolen(ST(1)));
- break;
- case 2: {
- const char *specifier = CFCType_get_specifier(self);
- retval = newSVpvn(specifier, strlen(specifier));
- }
- break;
- case 4: {
- CFCParcel *parcel = CFCType_get_parcel(self);
- retval = S_cfcbase_to_perlref(parcel);
- }
- break;
- case 6:
- retval = newSViv(CFCType_get_indirection(self));
- break;
- case 8: {
- const char *c_string = CFCType_to_c(self);
- retval = newSVpvn(c_string, strlen(c_string));
- }
- break;
- case 10:
- retval = newSViv(CFCType_const(self));
- break;
- case 11:
- CFCType_set_nullable(self, !!SvTRUE(ST(1)));
- break;
- case 12:
- retval = newSViv(CFCType_nullable(self));
- break;
- case 14:
- retval = newSViv(CFCType_is_void(self));
- break;
- case 16:
- retval = newSViv(CFCType_is_object(self));
- break;
- case 18:
- retval = newSViv(CFCType_is_primitive(self));
- break;
- case 20:
- retval = newSViv(CFCType_is_integer(self));
- break;
- case 22:
- retval = newSViv(CFCType_is_floating(self));
- break;
- case 24:
- retval = newSViv(CFCType_is_string_type(self));
- break;
- case 26:
- retval = newSViv(CFCType_is_va_list(self));
- break;
- case 28:
- retval = newSViv(CFCType_is_arbitrary(self));
- break;
- case 30:
- retval = newSViv(CFCType_is_composite(self));
- break;
- case 32:
- retval = newSVuv(CFCType_get_width(self));
- break;
- case 34:
- retval = newSVuv(CFCType_incremented(self));
- break;
- case 36:
- retval = newSVuv(CFCType_decremented(self));
- break;
- case 38: {
- const char *array = CFCType_get_array(self);
- retval = array
- ? newSVpvn(array, strlen(array))
- : newSV(0);
- }
- break;
- END_SET_OR_GET_SWITCH
-}
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Util
-
-SV*
-trim_whitespace(text)
- SV *text;
-CODE:
- RETVAL = newSVsv(text);
- STRLEN len;
- char *ptr = SvPV(RETVAL, len);
- CFCUtil_trim_whitespace(ptr);
- SvCUR_set(RETVAL, strlen(ptr));
-OUTPUT: RETVAL
-
-SV*
-slurp_text(path)
- const char *path;
-CODE:
- size_t len;
- char *contents = CFCUtil_slurp_text(path, &len);
- RETVAL = newSVpvn(contents, len);
- FREEMEM(contents);
-OUTPUT: RETVAL
-
-int
-current(orig, dest)
- const char *orig;
- const char *dest;
-CODE:
- RETVAL = CFCUtil_current(orig, dest);
-OUTPUT: RETVAL
-
-void
-write_if_changed(path, content_sv)
- const char *path;
- SV *content_sv;
-PPCODE:
- STRLEN len;
- char *content = SvPV(content_sv, len);
- CFCUtil_write_if_changed(path, content, len);
-
-int
-is_dir(path)
- const char *path;
-CODE:
- RETVAL = CFCUtil_is_dir(path);
-OUTPUT: RETVAL
-
-int
-make_dir(dir)
- const char *dir;
-CODE:
- RETVAL = CFCUtil_make_dir(dir);
-OUTPUT: RETVAL
-
-int
-make_path(path)
- const char *path;
-CODE:
- RETVAL = CFCUtil_make_path(path);
-OUTPUT: RETVAL
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::Variable
-
-SV*
-_new(parcel, exposure, class_name_sv, class_cnick_sv, micro_sym_sv, type_sv, inert_sv)
- CFCParcel *parcel;
- const char *exposure;
- SV *class_name_sv;
- SV *class_cnick_sv;
- SV *micro_sym_sv;
- SV *type_sv;
- SV *inert_sv;
-CODE:
- const char *class_name = SvOK(class_name_sv)
- ? SvPV_nolen(class_name_sv)
- : NULL;
- const char *class_cnick = SvOK(class_cnick_sv)
- ? SvPV_nolen(class_cnick_sv)
- : NULL;
- const char *micro_sym = SvOK(micro_sym_sv)
- ? SvPV_nolen(micro_sym_sv)
- : NULL;
- int inert = SvOK(inert_sv)
- ? !!SvTRUE(inert_sv) : 0;
- CFCType *type = NULL;
- if (SvOK(type_sv) && sv_derived_from(type_sv, "Clownfish::CFC::Model::Type")) {
- IV objint = SvIV((SV*)SvRV(type_sv));
- type = INT2PTR(CFCType*, objint);
- }
- else {
- croak("Param 'type' is not a Clownfish::CFC::Model::Type");
- }
- CFCVariable *self = CFCVariable_new(parcel, exposure, class_name,
- class_cnick, micro_sym, type, inert);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-int
-equals(self, other)
- CFCVariable *self;
- CFCVariable *other;
-CODE:
- RETVAL = CFCVariable_equals(self, other);
-OUTPUT: RETVAL
-
-void
-resolve_type(self, classes_sv)
- CFCVariable *self;
- SV *classes_sv;
-PPCODE:
- CFCClass **classes
- = (CFCClass**)S_av_to_array_of_cfcbase(classes_sv,
- "Clownfish::CFC::Model::Class");
- CFCVariable_resolve_type(self, classes);
- FREEMEM(classes);
-
-void
-_set_or_get(self, ...)
- CFCVariable *self;
-ALIAS:
- get_type = 2
- local_c = 4
- global_c = 6
- local_declaration = 8
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2: {
- CFCType *type = CFCVariable_get_type(self);
- retval = S_cfcbase_to_perlref(type);
- }
- break;
- case 4: {
- const char *local_c = CFCVariable_local_c(self);
- retval = newSVpvn(local_c, strlen(local_c));
- }
- break;
- case 6: {
- const char *global_c = CFCVariable_global_c(self);
- retval = newSVpvn(global_c, strlen(global_c));
- }
- break;
- case 8: {
- const char *local_dec = CFCVariable_local_declaration(self);
- retval = newSVpvn(local_dec, strlen(local_dec));
- }
- break;
- END_SET_OR_GET_SWITCH
-}
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::Version
-
-SV*
-_new(vstring)
- const char *vstring;
-CODE:
- CFCVersion *self = CFCVersion_new(vstring);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-void
-_set_or_get(self, ...)
- CFCVersion *self;
-ALIAS:
- get_major = 2
- get_vstring = 4
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2:
- retval = newSVuv(CFCVersion_get_major(self));
- break;
- case 4: {
- const char *value = CFCVersion_get_vstring(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- END_SET_OR_GET_SWITCH
-}
-
-int
-compare_to(self, other)
- CFCVersion *self;
- CFCVersion *other;
-CODE:
- RETVAL = CFCVersion_compare_to(self, other);
-OUTPUT: RETVAL
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Binding::Core
-
-SV*
-_new(hierarchy, header, footer)
- CFCHierarchy *hierarchy;
- const char *header;
- const char *footer;
-CODE:
- CFCBindCore *self = CFCBindCore_new(hierarchy, header, footer);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-int
-write_all_modified(self, ...)
- CFCBindCore *self;
-CODE:
-{
- int modified = 0;
- if (items > 1 && SvOK(ST(1))) {
- modified = !!SvIV(ST(1));
- }
- RETVAL = CFCBindCore_write_all_modified(self, modified);
-}
-OUTPUT: RETVAL
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Binding::Core::Function
-
-SV*
-func_declaration(unused, func)
- SV *unused;
- CFCFunction *func;
-CODE:
- CHY_UNUSED_VAR(unused);
- RETVAL = S_sv_eat_c_string(CFCBindFunc_func_declaration(func));
-OUTPUT: RETVAL
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Binding::Core::Method
-
-SV*
-abstract_method_def(unused, meth)
- SV *unused;
- CFCMethod *meth;
-CODE:
- CHY_UNUSED_VAR(unused);
- RETVAL = S_sv_eat_c_string(CFCBindMeth_abstract_method_def(meth));
-OUTPUT: RETVAL
-
-SV*
-_method_def(meth, klass)
- CFCMethod *meth;
- CFCClass *klass;
-CODE:
- RETVAL = S_sv_eat_c_string(CFCBindMeth_method_def(meth, klass));
-OUTPUT: RETVAL
-
-SV*
-_novel_spec_def(meth)
- CFCMethod *meth;
-CODE:
- RETVAL = S_sv_eat_c_string(CFCBindMeth_novel_spec_def(meth));
-OUTPUT: RETVAL
-
-SV*
-_overridden_spec_def(meth, klass)
- CFCMethod *meth;
- CFCClass *klass;
-CODE:
- RETVAL = S_sv_eat_c_string(CFCBindMeth_overridden_spec_def(meth, klass));
-OUTPUT: RETVAL
-
-SV*
-_inherited_spec_def(meth, klass)
- CFCMethod *meth;
- CFCClass *klass;
-CODE:
- RETVAL = S_sv_eat_c_string(CFCBindMeth_inherited_spec_def(meth, klass));
-OUTPUT: RETVAL
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Binding::Core::Aliases
-
-SV*
-c_aliases(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = S_sv_eat_c_string(CFCBindAliases_c_aliases());
-OUTPUT: RETVAL
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Binding::Core::Class
-
-SV*
-_new(client)
- CFCClass *client;
-CODE:
- CFCBindClass *self = CFCBindClass_new(client);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-to_c_data(self)
- CFCBindClass *self;
-CODE:
- RETVAL = S_sv_eat_c_string(CFCBindClass_to_c_data(self));
-OUTPUT: RETVAL
-
-SV*
-to_c_header(self)
- CFCBindClass *self;
-CODE:
- RETVAL = S_sv_eat_c_string(CFCBindClass_to_c_header(self));
-OUTPUT: RETVAL
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Binding::Core::File
-
-void
-_write_h(file, dest, header, footer)
- CFCFile *file;
- const char *dest;
- const char *header;
- const char *footer;
-PPCODE:
- CFCBindFile_write_h(file, dest, header, footer);
-
-MODULE = Clownfish PACKAGE = Clownfish::CFC::Binding::Perl
-
-SV*
-_new(hierarchy, lib_dir, boot_class, header, footer)
- CFCHierarchy *hierarchy;
- const char *lib_dir;
- const char *boot_class;
- const char *header;
- const char *footer;
-CODE:
- CFCPerl *self = CFCPerl_new(hierarchy, lib_dir, boot_class, header,
- footer);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-write_pod(self)
- CFCPerl *self;
-CODE:
- char **written = CFCPerl_write_pod(self);
- AV *modified = newAV();
- for (size_t i = 0; written[i] != NULL; i++) {
- SV *path = S_sv_eat_c_string(written[i]);
- av_push(modified, path);
- }
- FREEMEM(written);
- RETVAL = newRV_noinc((SV*)modified);
-OUTPUT: RETVAL
-
-void
-write_boot(self)
- CFCPerl *self;
-PPCODE:
- CFCPerl_write_boot(self);
-
-void
-write_hostdefs(self)
- CFCPerl *self;
-PPCODE:
- CFCPerl_write_hostdefs(self);
-
-void
-write_bindings(self)
- CFCPerl *self;
-PPCODE:
- CFCPerl_write_bindings(self);
-
-void
-write_callbacks(self)
- CFCPerl *self;
-PPCODE:
- CFCPerl_write_callbacks(self);
-
-void
-write_xs_typemap(self)
- CFCPerl *self;
-PPCODE:
- CFCPerl_write_xs_typemap(self);
-
-
-MODULE = Clownfish PACKAGE = Clownfish::CFC::Binding::Perl::Subroutine
-
-void
-_set_or_get(self, ...)
- CFCPerlSub *self;
-ALIAS:
- get_class_name = 2
- use_labeled_params = 4
- perl_name = 6
- get_param_list = 8
- c_name = 10
- c_name_list = 12
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2: {
- const char *value = CFCPerlSub_get_class_name(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- case 4:
- retval = newSViv(CFCPerlSub_use_labeled_params(self));
- break;
- case 6: {
- const char *value = CFCPerlSub_perl_name(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- case 8: {
- CFCParamList *value = CFCPerlSub_get_param_list(self);
- retval = S_cfcbase_to_perlref(value);
- }
- break;
- case 10: {
- const char *value = CFCPerlSub_c_name(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- case 12: {
- const char *value = CFCPerlSub_c_name_list(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- END_SET_OR_GET_SWITCH
-}
-
-SV*
-params_hash_def(self)
- CFCPerlSub *self;
-CODE:
- RETVAL = S_sv_eat_c_string(CFCPerlSub_params_hash_def(self));
-OUTPUT: RETVAL
-
-SV*
-build_allot_params(self)
- CFCPerlSub *self;
-CODE:
- RETVAL = S_sv_eat_c_string(CFCPerlSub_build_allot_params(self));
-OUTPUT: RETVAL
-
-
-MODULE = Clownfish PACKAGE = Clownfish::CFC::Binding::Perl::Method
-
-SV*
-_new(method, alias)
- CFCMethod *method;
- const char *alias;
-CODE:
- CFCPerlMethod *self = CFCPerlMethod_new(method, alias);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-xsub_def(self)
- CFCPerlMethod *self;
-CODE:
- RETVAL = S_sv_eat_c_string(CFCPerlMethod_xsub_def(self));
-OUTPUT: RETVAL
-
-
-MODULE = Clownfish PACKAGE = Clownfish::CFC::Binding::Perl::Constructor
-
-SV*
-_new(klass, alias, init_sv)
- CFCClass *klass;
- const char *alias;
- SV *init_sv;
-CODE:
- const char *init = SvOK(init_sv) ? SvPVutf8_nolen(init_sv) : NULL;
- CFCPerlConstructor *self = CFCPerlConstructor_new(klass, alias, init);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-xsub_def(self)
- CFCPerlConstructor *self;
-CODE:
- RETVAL = S_sv_eat_c_string(CFCPerlConstructor_xsub_def(self));
-OUTPUT: RETVAL
-
-MODULE = Clownfish PACKAGE = Clownfish::CFC::Binding::Perl::Class
-
-SV*
-_new(parcel, class_name)
- CFCParcel *parcel;
- const char *class_name;
-CODE:
- CFCPerlClass *self = CFCPerlClass_new(parcel, class_name);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-void
-register(unused, binding)
- SV *unused;
- CFCPerlClass *binding;
-PPCODE:
- CHY_UNUSED_VAR(unused);
- CFCPerlClass_add_to_registry(binding);
-
-SV*
-singleton(unused_sv, class_name)
- SV *unused_sv;
- const char *class_name;
-CODE:
- CHY_UNUSED_VAR(unused_sv);
- CFCPerlClass *binding = CFCPerlClass_singleton(class_name);
- RETVAL = S_cfcbase_to_perlref(binding);
-OUTPUT: RETVAL
-
-SV*
-registered(...)
-CODE:
- CHY_UNUSED_VAR(items);
- CFCPerlClass **registry = CFCPerlClass_registry();
- RETVAL = S_array_of_cfcbase_to_av((CFCBase**)registry);
-OUTPUT: RETVAL
-
-void
-_clear_registry(...)
-PPCODE:
- CHY_UNUSED_VAR(items);
- CFCPerlClass_clear_registry();
-
-void
-_bind_method(self, alias_sv, meth_sv)
- CFCPerlClass *self;
- SV *alias_sv;
- SV *meth_sv;
-PPCODE:
- const char *alias = SvOK(alias_sv) ? SvPVutf8_nolen(alias_sv) : NULL;
- const char *meth = SvOK(meth_sv) ? SvPVutf8_nolen(meth_sv) : NULL;
- CFCPerlClass_bind_method(self, alias, meth);
-
-void
-_bind_constructor(self, alias_sv, init_sv)
- CFCPerlClass *self;
- SV *alias_sv;
- SV *init_sv;
-PPCODE:
- const char *alias = SvOK(alias_sv) ? SvPVutf8_nolen(alias_sv) : NULL;
- const char *init = SvOK(init_sv) ? SvPVutf8_nolen(init_sv) : NULL;
- CFCPerlClass_bind_constructor(self, alias, init);
-
-void
-exclude_method(self, method)
- CFCPerlClass *self;
- const char *method;
-PPCODE:
- CFCPerlClass_exclude_method(self, method);
-
-void
-exclude_constructor(self)
- CFCPerlClass *self;
-PPCODE:
- CFCPerlClass_exclude_constructor(self);
-
-void
-append_xs(self, xs)
- CFCPerlClass *self;
- const char *xs;
-PPCODE:
- CFCPerlClass_append_xs(self, xs);
-
-SV*
-method_bindings(unused, klass)
- SV *unused;
- CFCClass *klass;
-CODE:
- CHY_UNUSED_VAR(unused);
- CFCPerlMethod **bound = CFCPerlClass_method_bindings(klass);
- RETVAL = S_array_of_cfcbase_to_av((CFCBase**)bound);
- FREEMEM(bound);
-OUTPUT: RETVAL
-
-SV*
-constructor_bindings(unused, klass)
- SV *unused;
- CFCClass *klass;
-CODE:
- CHY_UNUSED_VAR(unused);
- CFCPerlConstructor **bound = CFCPerlClass_constructor_bindings(klass);
- RETVAL = S_array_of_cfcbase_to_av((CFCBase**)bound);
- FREEMEM(bound);
-OUTPUT: RETVAL
-
-SV*
-create_pod(self)
- CFCPerlClass *self;
-CODE:
- char *pod = CFCPerlClass_create_pod(self);
- RETVAL = S_sv_eat_c_string(pod);
-OUTPUT: RETVAL
-
-void
-_set_or_get(self, ...)
- CFCPerlClass *self;
-ALIAS:
- get_class_name = 2
- get_client = 4
- get_xs_code = 6
- set_pod_spec = 7
- get_pod_spec = 8
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 2: {
- const char *value = CFCPerlClass_get_class_name(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- case 4: {
- CFCClass *value = CFCPerlClass_get_client(self);
- retval = S_cfcbase_to_perlref(value);
- }
- break;
- case 6: {
- const char *value = CFCPerlClass_get_xs_code(self);
- retval = value
- ? newSVpvn(value, strlen(value))
- : newSV(0);
- }
- break;
- case 7: {
- CFCPerlPod *pod_spec = NULL;
- if (SvOK(ST(1))
- && sv_derived_from(ST(1), "Clownfish::CFC::Binding::Perl::Pod")
- ) {
- IV objint = SvIV((SV*)SvRV(ST(1)));
- pod_spec = INT2PTR(CFCPerlPod*, objint);
- }
- CFCPerlClass_set_pod_spec(self, pod_spec);
- break;
- }
- case 8: {
- CFCPerlPod *value = CFCPerlClass_get_pod_spec(self);
- retval = S_cfcbase_to_perlref(value);
- }
- break;
- END_SET_OR_GET_SWITCH
-}
-
-void
-add_class_alias(self, alias)
- CFCPerlClass *self;
- const char *alias;
-PPCODE:
- CFCPerlClass_add_class_alias(self, alias);
-
-SV*
-get_class_aliases(self)
- CFCPerlClass *self;
-CODE:
- const char **aliases = CFCPerlClass_get_class_aliases(self);
- RETVAL = S_string_array_to_av(aliases);
-OUTPUT: RETVAL
-
-
-MODULE = Clownfish PACKAGE = Clownfish::CFC::Binding::Perl::Pod
-
-SV*
-new(unused)
- SV *unused;
-CODE:
- CHY_UNUSED_VAR(unused);
- CFCPerlPod *self = CFCPerlPod_new();
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-void
-_add_method(self, alias, method_sv, sample_sv, pod_sv)
- CFCPerlPod *self;
- const char *alias;
- SV *method_sv;
- SV *sample_sv;
- SV *pod_sv;
-PPCODE:
- const char *method = SvPOK(method_sv) ? SvPVutf8_nolen(method_sv) : NULL;
- const char *sample = SvPOK(sample_sv) ? SvPVutf8_nolen(sample_sv) : NULL;
- const char *pod = SvPOK(pod_sv) ? SvPVutf8_nolen(pod_sv) : NULL;
- CFCPerlPod_add_method(self, alias, method, sample, pod);
-
-void
-_add_constructor(self, alias_sv, init_sv, sample_sv, pod_sv)
- CFCPerlPod *self;
- SV *alias_sv;
- SV *init_sv;
- SV *sample_sv;
- SV *pod_sv;
-PPCODE:
- const char *alias = SvPOK(alias_sv) ? SvPVutf8_nolen(alias_sv) : NULL;
- const char *init = SvPOK(init_sv) ? SvPVutf8_nolen(init_sv) : NULL;
- const char *sample = SvPOK(sample_sv) ? SvPVutf8_nolen(sample_sv) : NULL;
- const char *pod = SvPOK(pod_sv) ? SvPVutf8_nolen(pod_sv) : NULL;
- CFCPerlPod_add_constructor(self, alias, init, sample, pod);
-
-SV*
-methods_pod(self, klass)
- CFCPerlPod *self;
- CFCClass *klass;
-CODE:
- char *methods_pod = CFCPerlPod_methods_pod(self, klass);
- RETVAL = S_sv_eat_c_string(methods_pod);
-OUTPUT: RETVAL
-
-SV*
-constructors_pod(self, klass)
- CFCPerlPod *self;
- CFCClass *klass;
-CODE:
- char *constructors_pod = CFCPerlPod_constructors_pod(self, klass);
- RETVAL = S_sv_eat_c_string(constructors_pod);
-OUTPUT: RETVAL
-
-void
-_set_or_get(self, ...)
- CFCPerlPod *self;
-ALIAS:
- set_synopsis = 1
- get_synopsis = 2
- set_description = 3
- get_description = 4
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
- case 1: {
- const char *val = SvOK(ST(1)) ? SvPVutf8_nolen(ST(1)) : NULL;
- CFCPerlPod_set_synopsis(self, val);
- }
- break;
- case 2: {
- const char *value = CFCPerlPod_get_synopsis(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- case 3: {
- const char *val = SvOK(ST(1)) ? SvPVutf8_nolen(ST(1)) : NULL;
- CFCPerlPod_set_description(self, val);
- }
- break;
- case 4: {
- const char *value = CFCPerlPod_get_description(self);
- retval = newSVpvn(value, strlen(value));
- }
- break;
- END_SET_OR_GET_SWITCH
-}
-
-
-SV*
-_perlify_doc_text(self, source)
- CFCPerlPod *self;
- const char *source;
-CODE:
- RETVAL = S_sv_eat_c_string(CFCPerlPod_perlify_doc_text(self, source));
-OUTPUT: RETVAL
-
-SV*
-_gen_subroutine_pod(self, func, alias, klass, code_sample, class_name, is_constructor)
- CFCPerlPod *self;
- CFCFunction *func;
- const char *alias;
- CFCClass *klass;
- const char *code_sample;
- const char *class_name;
- int is_constructor;
-CODE:
- char *value = CFCPerlPod_gen_subroutine_pod(self, func, alias, klass,
- code_sample, class_name,
- is_constructor);
- RETVAL = S_sv_eat_c_string(value);
-OUTPUT: RETVAL
-
-
-MODULE = Clownfish PACKAGE = Clownfish::CFC::Binding::Perl::TypeMap
-
-SV*
-from_perl(type, xs_var)
- CFCType *type;
- const char *xs_var;
-CODE:
- RETVAL = S_sv_eat_c_string(CFCPerlTypeMap_from_perl(type, xs_var));
-OUTPUT: RETVAL
-
-SV*
-to_perl(type, cf_var)
- CFCType *type;
- const char *cf_var;
-CODE:
- RETVAL = S_sv_eat_c_string(CFCPerlTypeMap_to_perl(type, cf_var));
-OUTPUT: RETVAL
-
-void
-_write_xs_typemap(hierarchy)
- CFCHierarchy *hierarchy;
-PPCODE:
- CFCPerlTypeMap_write_xs_typemap(hierarchy);
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Parser
-
-SV*
-new(klass)
- const char *klass;
-CODE:
- if (strcmp(klass, "Clownfish::CFC::Parser")) {
- croak("No subclassing allowed");
- }
- CFCParser *self = CFCParser_new();
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-SV*
-parse(self, string)
- CFCParser *self;
- const char *string;
-CODE:
- CFCBase *got = CFCParser_parse(self, string);
- RETVAL = S_cfcbase_to_perlref(got);
- CFCBase_decref((CFCBase*)got);
-OUTPUT: RETVAL
-
-SV*
-_parse_file(self, string, file_spec)
- CFCParser *self;
- const char *string;
- CFCFileSpec *file_spec;
-CODE:
- CFCFile *got = CFCParser_parse_file(self, string, file_spec);
- RETVAL = S_cfcbase_to_perlref(got);
- CFCBase_decref((CFCBase*)got);
-OUTPUT: RETVAL
-
-void
-set_parcel(self, parcel)
- CFCParser *self;
- CFCParcel *parcel;
-PPCODE:
- CFCParser_set_parcel(self, parcel);
-
-void
-set_class_name(self, class_name)
- CFCParser *self;
- const char *class_name;
-PPCODE:
- CFCParser_set_class_name(self, class_name);
-
-void
-set_class_cnick(self, class_cnick)
- CFCParser *self;
- const char *class_cnick;
-PPCODE:
- CFCParser_set_class_cnick(self, class_cnick);
-
-SV*
-get_parcel(self)
- CFCParser *self;
-CODE:
- CFCParcel *parcel = CFCParser_get_parcel(self);
- RETVAL = S_cfcbase_to_perlref((CFCBase*)parcel);
-OUTPUT: RETVAL
-
-
-MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Test
-
-SV*
-_new(formatter_name)
- const char *formatter_name;
-CODE:
- CFCTest *self = CFCTest_new(formatter_name);
- RETVAL = S_cfcbase_to_perlref(self);
- CFCBase_decref((CFCBase*)self);
-OUTPUT: RETVAL
-
-int
-run_batch(self, klass)
- CFCTest *self;
- const char *klass;
-CODE:
- RETVAL = CFCTest_run_batch(self, klass);
-OUTPUT: RETVAL
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Base.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Base.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Base.pm
deleted file mode 100644
index 3b5b067..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Base.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Base;
-use Clownfish::CFC;
-
-1;
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core.pm
deleted file mode 100644
index f65c546..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Binding::Core;
-use Clownfish::CFC;
-
-1;
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Aliases.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Aliases.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Aliases.pm
deleted file mode 100644
index af1ec73..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Aliases.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Binding::Core::Aliases;
-use Clownfish::CFC;
-
-1;
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Class.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Class.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Class.pm
deleted file mode 100644
index c4b4209..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Class.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Binding::Core::Class;
-use Clownfish::CFC;
-
-1;
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/File.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/File.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/File.pm
deleted file mode 100644
index bb88026..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/File.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Binding::Core::File;
-use Clownfish::CFC;
-
-1;
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Function.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Function.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Function.pm
deleted file mode 100644
index 2ec30aa..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Function.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Binding::Core::Function;
-use Clownfish::CFC;
-
-1;
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Method.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Method.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Method.pm
deleted file mode 100644
index ab9aa7c..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Core/Method.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Binding::Core::Method;
-use Clownfish::CFC;
-
-1;
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl.pm
deleted file mode 100644
index 8571595..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Binding::Perl;
-use Clownfish::CFC;
-
-1;
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Class.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Class.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Class.pm
deleted file mode 100644
index 4fc530f..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Class.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Binding::Perl::Class;
-use Clownfish::CFC;
-
-1;
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Constructor.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Constructor.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Constructor.pm
deleted file mode 100644
index 7598c7d..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Constructor.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Binding::Perl::Constructor;
-use Clownfish::CFC;
-
-1;
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Method.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Method.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Method.pm
deleted file mode 100644
index cf1369e..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Method.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Binding::Perl::Method;
-use Clownfish::CFC;
-
-1;
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Pod.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Pod.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Pod.pm
deleted file mode 100644
index ef36c1e..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Pod.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Binding::Perl::Pod;
-use Clownfish::CFC;
-
-1;
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Subroutine.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Subroutine.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Subroutine.pm
deleted file mode 100644
index a114115..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/Subroutine.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Binding::Perl::Subroutine;
-use Clownfish::CFC;
-
-1;
-
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/TypeMap.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/TypeMap.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/TypeMap.pm
deleted file mode 100644
index 1e9ba76..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Binding/Perl/TypeMap.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-package Clownfish::CFC::Binding::Perl::TypeMap;
-use Clownfish::CFC;
-
-1;
-