You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by nw...@apache.org on 2015/08/04 21:17:32 UTC
[2/2] lucy-clownfish git commit: Use new CFCType constants in Perl
bindings
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 <we...@aevum.de>
Authored: Tue Aug 4 21:16:29 2015 +0200
Committer: Nick Wellnhofer <we...@aevum.de>
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