Use new CFCType constants in Perl bindings
Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/ea268233 Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/ea268233 Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/ea268233 Branch: refs/heads/master Commit: ea268233fc507ec61d90edf16579ef17b85a5768 Parents: 1fc8c00 Author: Nick Wellnhofer <[email protected]> Authored: Tue Aug 4 21:16:29 2015 +0200 Committer: Nick Wellnhofer <[email protected]> Committed: Tue Aug 4 21:17:02 2015 +0200 ---------------------------------------------------------------------- compiler/perl/lib/Clownfish/CFC.pm | 22 +++++++++++----------- compiler/perl/lib/Clownfish/CFC.xs | 4 ++-- 2 files changed, 13 insertions(+), 13 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/ea268233/compiler/perl/lib/Clownfish/CFC.pm ---------------------------------------------------------------------- diff --git a/compiler/perl/lib/Clownfish/CFC.pm b/compiler/perl/lib/Clownfish/CFC.pm index 738acd3..a0e4f62 100644 --- a/compiler/perl/lib/Clownfish/CFC.pm +++ b/compiler/perl/lib/Clownfish/CFC.pm @@ -487,17 +487,17 @@ BEGIN { XSLoader::load( 'Clownfish::CFC', '0.4.0' ) } verify_args( \%new_PARAMS, %args ) or confess $@; my $flags = 0; - $flags |= CONST if $args{const}; - $flags |= NULLABLE if $args{nullable}; - $flags |= VOID if $args{void}; - $flags |= OBJECT if $args{object}; - $flags |= PRIMITIVE if $args{primitive}; - $flags |= INTEGER if $args{integer}; - $flags |= FLOATING if $args{floating}; - $flags |= STRING_TYPE if $args{string_type}; - $flags |= VA_LIST if $args{va_list}; - $flags |= ARBITRARY if $args{arbitrary}; - $flags |= COMPOSITE if $args{composite}; + $flags |= CONST if $args{const}; + $flags |= NULLABLE if $args{nullable}; + $flags |= VOID if $args{void}; + $flags |= OBJECT if $args{object}; + $flags |= PRIMITIVE if $args{primitive}; + $flags |= INTEGER if $args{integer}; + $flags |= FLOATING if $args{floating}; + $flags |= CFISH_STRING if $args{cfish_string}; + $flags |= VA_LIST if $args{va_list}; + $flags |= ARBITRARY if $args{arbitrary}; + $flags |= COMPOSITE if $args{composite}; my $parcel = $args{parcel} http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/ea268233/compiler/perl/lib/Clownfish/CFC.xs ---------------------------------------------------------------------- diff --git a/compiler/perl/lib/Clownfish/CFC.xs b/compiler/perl/lib/Clownfish/CFC.xs index c779c5b..dcff620 100644 --- a/compiler/perl/lib/Clownfish/CFC.xs +++ b/compiler/perl/lib/Clownfish/CFC.xs @@ -1533,10 +1533,10 @@ CODE: OUTPUT: RETVAL unsigned -STRING_TYPE(...) +CFISH_STRING(...) CODE: CHY_UNUSED_VAR(items); - RETVAL = CFCTYPE_STRING_TYPE; + RETVAL = CFCTYPE_CFISH_STRING; OUTPUT: RETVAL unsigned
