lucy-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From mar...@apache.org
Subject [lucy-commits] [20/54] [abbrv] Remove bundled Clownfish.
Date Sat, 26 Apr 2014 23:11:50 GMT
http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Model/CBlock.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/CBlock.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Model/CBlock.pm
deleted file mode 100644
index bb3e6a1..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/CBlock.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::Model::CBlock;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Class.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Class.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Class.pm
deleted file mode 100644
index 8e751b4..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/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::Model::Class;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Model/DocuComment.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/DocuComment.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Model/DocuComment.pm
deleted file mode 100644
index f6c1904..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/DocuComment.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::Model::DocuComment;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Model/File.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/File.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Model/File.pm
deleted file mode 100644
index b2f82ae..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/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::Model::File;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Model/FileSpec.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/FileSpec.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Model/FileSpec.pm
deleted file mode 100644
index d54dbf1..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/FileSpec.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::Model::FileSpec;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Function.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Function.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Function.pm
deleted file mode 100644
index 163728f..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/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::Model::Function;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Hierarchy.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Hierarchy.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Hierarchy.pm
deleted file mode 100644
index 0ee3ea1..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Hierarchy.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::Model::Hierarchy;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Method.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Method.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Method.pm
deleted file mode 100644
index e264a47..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/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::Model::Method;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Model/ParamList.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/ParamList.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Model/ParamList.pm
deleted file mode 100644
index 8fbb810..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/ParamList.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::Model::ParamList;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Parcel.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Parcel.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Parcel.pm
deleted file mode 100644
index c879ff1..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Parcel.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::Model::Parcel;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Symbol.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Symbol.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Symbol.pm
deleted file mode 100644
index 824c6fa..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Symbol.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::Model::Symbol;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Type.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Type.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Type.pm
deleted file mode 100644
index 92e1b98..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Type.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::Model::Type;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Variable.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Variable.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Variable.pm
deleted file mode 100644
index da535df..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Model/Variable.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::Model::Variable;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Parser.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Parser.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Parser.pm
deleted file mode 100644
index 94752cb..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Parser.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::Parser;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Perl/Build.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Perl/Build.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Perl/Build.pm
deleted file mode 100644
index a007756..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Perl/Build.pm
+++ /dev/null
@@ -1,679 +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.
-
-use strict;
-use warnings;
-
-package Clownfish::CFC::Perl::Build;
-use base qw( Clownfish::CFC::Perl::Build::Charmonic );
-our $VERSION = '0.01';
-
-use File::Spec::Functions qw( catdir catfile curdir updir abs2rel rel2abs );
-use File::Path qw( mkpath );
-use Config;
-use Carp;
-
-# Add a custom Module::Build hashref property to pass additional build
-# parameters
-if ( $Module::Build::VERSION <= 0.30 ) {
-    __PACKAGE__->add_property( clownfish_params => {} );
-}
-else {
-    # TODO: add sub for property check
-    __PACKAGE__->add_property(
-        'clownfish_params',
-        default => {},
-    );
-}
-
-=for Rationale
-
-When the distribution tarball for the Perl bindings is built, core/, and any
-other needed files/directories are copied into the perl/ directory within the
-main source directory.  Then the distro is built from the contents of the
-perl/ directory, leaving out all the files in ruby/, etc. However, during
-development, the files are accessed from their original locations.
-
-=cut
-
-my @BASE_PATH;
-push(@BASE_PATH, updir()) unless -e 'core';
-
-my $AUTOGEN_DIR  = 'autogen';
-my $LIB_DIR      = 'lib';
-my $BUILDLIB_DIR = 'buildlib';
-
-sub new {
-    my $self = shift->SUPER::new( @_ );
-
-    my $extra_ccflags = $self->extra_compiler_flags;
-    if ( $self->config('cc') =~ /^cl\b/ ) {
-        # Compile as C++ under MSVC.
-        push @$extra_ccflags, qw(
-            -TP -D_CRT_SECURE_NO_WARNINGS -D_SCL_SECURE_NO_WARNINGS
-        );
-        # Redefine 'for' to fix broken 'for' scoping under MSVC6.
-        push @$extra_ccflags, '-Dfor="if(0);else for"';
-    }
-    # Define HAS_BOOL, so that the Perl headers don't redefine 'bool'.
-    push @$extra_ccflags, '-DHAS_BOOL';
-    $self->extra_compiler_flags(@$extra_ccflags);
-
-    # TODO: use Charmonizer to determine whether pthreads are userland.
-    if ( $Config{osname} =~ /openbsd/i && $Config{usethreads} ) {
-        my $extra_ldflags = $self->extra_linker_flags;
-        push @$extra_ldflags, '-lpthread';
-        $self->extra_linker_flags(@$extra_ldflags);
-    }
-
-    my $include_dirs = $self->include_dirs;
-    push( @$include_dirs,
-        curdir(), # for ppport.h and charmony.h
-        catdir( $AUTOGEN_DIR, 'include' ),
-    );
-    $self->include_dirs($include_dirs);
-
-    my $cf_source = $self->clownfish_params('source');
-    if ( !defined($cf_source) ) {
-        $cf_source = [];
-    }
-    elsif ( !ref($cf_source) ) {
-        $cf_source = [ $cf_source ];
-    }
-    push( @$cf_source, catdir( $AUTOGEN_DIR, 'source' ) );
-    $self->clownfish_params( source => $cf_source );
-
-    my $cf_include = $self->clownfish_params('include');
-    if ( !defined($cf_include) ) {
-        $cf_include = [];
-    }
-    elsif ( !ref($cf_include) ) {
-        $cf_include = [ $cf_include ];
-    }
-    $self->clownfish_params( include => $cf_include );
-
-    my $autogen_header = $self->clownfish_params('autogen_header');
-    if ( !defined($autogen_header) ) {
-        $self->clownfish_params( autogen_header => <<'END_AUTOGEN' );
-/***********************************************
-
- !!!! DO NOT EDIT !!!!
-
- This file was auto-generated by Build.PL.
-
- ***********************************************/
-
-END_AUTOGEN
-    }
-
-    return $self;
-}
-
-sub cf_base_path {
-    my $self_or_class = shift;
-    return @BASE_PATH;
-}
-
-sub cf_system_include_dirs {
-    my $self_or_class = shift;
-
-    my @include_dirs;
-    for my $location ( qw( site vendor ) ) {
-        my $install_dir = $Config{"install${location}arch"};
-        my $include_dir = catdir( $install_dir, 'Clownfish', '_include' );
-        next unless -d $include_dir;
-        push(@include_dirs, $include_dir);
-    }
-
-    return @include_dirs;
-}
-
-sub cf_linker_flags {
-    my ( $self_or_class, $module_name ) = @_;
-
-    my $dlext = $Config{dlext};
-    # Only needed on Windows
-    return () if $dlext ne 'dll';
-
-    # Find library to link against
-    my @module_parts = split( '::', $module_name );
-    my $class_name   = $module_parts[-1];
-    # Link against import library on MSVC
-    my $ext          = $Config{cc} =~ /^cl\b/ ? 'lib' : $dlext;
-
-    for my $location ( qw( site vendor ) ) {
-        my $install_dir = $Config{"install${location}arch"};
-        my $lib_file = catfile(
-            $install_dir, 'auto', @module_parts, "$class_name.$ext",
-        );
-        return ( $lib_file ) if -f $lib_file;
-    }
-
-    die("No Clownfish library file found for module $module_name");
-}
-
-sub _cfh_filepaths {
-    my $self = shift;
-    my @paths;
-    my $source_dirs = $self->clownfish_params('source');
-    for my $source_dir (@$source_dirs) {
-        next unless -e $source_dir;
-        push @paths, @{ $self->rscan_dir( $source_dir, qr/\.cfh$/ ) };
-    }
-    return \@paths;
-}
-
-sub cf_copy_include_file {
-    my ($self, @path) = @_;
-
-    my $dest_dir     = catdir( $self->blib, 'arch', 'Clownfish', '_include' );
-    my $include_dirs = $self->include_dirs;
-    for my $include_dir (@$include_dirs) {
-        my $file = catfile ( $include_dir, @path );
-        if ( -e $file ) {
-            $self->copy_if_modified(
-                from => $file,
-                to   => catfile( $dest_dir, @path ),
-            );
-            return;
-        }
-    }
-    die( "Clownfish include file " . catfile(@path) . " not found" );
-}
-
-sub ACTION_copy_clownfish_includes {
-    my $self = shift;
-
-    # Copy .cfh files to blib/arch/Clownfish/_include
-    my $inc_dir     = catdir( $self->blib, 'arch', 'Clownfish', '_include' );
-    my $source_dirs = $self->clownfish_params('source');
-
-    for my $source_dir (@$source_dirs) {
-        my $cfh_filepaths = $self->rscan_dir( $source_dir, qr/\.cf[hp]$/ );
-
-        for my $file (@$cfh_filepaths) {
-            my $rel  = abs2rel( $file, $source_dir );
-            my $dest = catfile( $inc_dir, $rel );
-            $self->copy_if_modified( from => $file, to => $dest );
-        }
-    }
-}
-
-sub _compile_clownfish {
-    my $self = shift;
-
-    require Clownfish::CFC::Model::Hierarchy;
-    require Clownfish::CFC::Binding::Perl;
-    require Clownfish::CFC::Binding::Perl::Class;
-
-    # Compile Clownfish.
-    my $hierarchy = Clownfish::CFC::Model::Hierarchy->new(
-        dest => $AUTOGEN_DIR,
-    );
-    my $source_dirs  = $self->clownfish_params('source');
-    my $include_dirs = $self->clownfish_params('include');
-    for my $source_dir (@$source_dirs) {
-        $hierarchy->add_source_dir($source_dir);
-    }
-    for my $include_dir (@$include_dirs) {
-        $hierarchy->add_include_dir($include_dir);
-    }
-    $hierarchy->build;
-
-    # Process all Binding classes in buildlib.
-    my $pm_filepaths = $self->rscan_dir( $BUILDLIB_DIR, qr/\.pm$/ );
-    for my $pm_filepath (@$pm_filepaths) {
-        next unless $pm_filepath =~ /Binding/;
-        require $pm_filepath;
-        my $package_name = $pm_filepath;
-        $package_name =~ s/buildlib\/(.*)\.pm$/$1/;
-        $package_name =~ s/\//::/g;
-        $package_name->bind_all($hierarchy);
-    }
-
-    my $binding = Clownfish::CFC::Binding::Perl->new(
-        hierarchy  => $hierarchy,
-        lib_dir    => $LIB_DIR,
-        boot_class => $self->module_name,
-        header     => $self->clownfish_params('autogen_header'),
-        footer     => '',
-    );
-
-    return ( $hierarchy, $binding );
-}
-
-sub ACTION_pod {
-    my $self = shift;
-    $self->dispatch("clownfish");
-    $self->_write_pod(@_);
-}
-
-sub _write_pod {
-    my ( $self, $binding ) = @_;
-    if ( !$binding ) {
-        ( undef, $binding ) = $self->_compile_clownfish;
-    }
-    print "Writing POD...\n";
-    my $pod_files = $binding->write_pod;
-    $self->add_to_cleanup($_) for @$pod_files;
-}
-
-sub ACTION_clownfish {
-    my $self = shift;
-
-    $self->add_to_cleanup($AUTOGEN_DIR);
-
-    my @module_dir  = split( '::', $self->module_name );
-    my $class_name  = pop(@module_dir);
-    my $xs_filepath = catfile( $LIB_DIR, @module_dir, "$class_name.xs" );
-
-    my $buildlib_pm_filepaths = $self->rscan_dir( $BUILDLIB_DIR, qr/\.pm$/ );
-    my $cfh_filepaths = $self->_cfh_filepaths;
-
-    # XXX joes thinks this is dubious
-    # Don't bother parsing Clownfish files if everything's up to date.
-    return
-        if $self->up_to_date(
-        [ @$cfh_filepaths, @$buildlib_pm_filepaths ],
-        [ $xs_filepath,    $AUTOGEN_DIR, ]
-        );
-
-    # Write out all autogenerated files.
-    print "Parsing Clownfish files...\n";
-    my ( $hierarchy, $perl_binding ) = $self->_compile_clownfish;
-    require Clownfish::CFC::Binding::Core;
-    my $core_binding = Clownfish::CFC::Binding::Core->new(
-        hierarchy => $hierarchy,
-        header    => $self->clownfish_params('autogen_header'),
-        footer    => '',
-    );
-    print "Writing Clownfish autogenerated files...\n";
-    my $modified = $core_binding->write_all_modified;
-    if ($modified) {
-        unlink('typemap');
-        print "Writing typemap...\n";
-        $self->add_to_cleanup('typemap');
-        $perl_binding->write_xs_typemap;
-    }
-
-    # Rewrite XS if either any .cfh files or relevant .pm files were modified.
-    $modified ||=
-        $self->up_to_date( \@$buildlib_pm_filepaths, $xs_filepath )
-        ? 0
-        : 1;
-
-    if ($modified) {
-        $self->add_to_cleanup($xs_filepath);
-        $perl_binding->write_callbacks;
-        $perl_binding->write_boot;
-        $perl_binding->write_hostdefs;
-        $perl_binding->write_bindings;
-        $self->_write_pod($perl_binding);
-    }
-
-    # Touch autogenerated files in case the modifications were inconsequential
-    # and didn't trigger a rewrite, so that we won't have to check them again
-    # next pass.
-    if (!$self->up_to_date(
-            [ @$cfh_filepaths, @$buildlib_pm_filepaths ], $xs_filepath
-        )
-        )
-    {
-        utime( time, time, $xs_filepath );    # touch
-    }
-    if (!$self->up_to_date(
-            [ @$cfh_filepaths, @$buildlib_pm_filepaths ], $AUTOGEN_DIR
-        )
-        )
-    {
-        utime( time, time, $AUTOGEN_DIR );    # touch
-    }
-}
-
-# Write ppport.h, which supplies some XS routines not found in older Perls and
-# allows us to use more up-to-date XS API while still supporting Perls back to
-# 5.8.3.
-#
-# The Devel::PPPort docs recommend that we distribute ppport.h rather than
-# require Devel::PPPort itself, but ppport.h isn't compatible with the Apache
-# license.
-sub ACTION_ppport {
-    my $self = shift;
-    if ( !-e 'ppport.h' ) {
-        require Devel::PPPort;
-        $self->add_to_cleanup('ppport.h');
-        Devel::PPPort::WriteFile();
-    }
-}
-
-sub ACTION_compile_custom_xs {
-    my $self = shift;
-
-    $self->dispatch('ppport');
-
-    require ExtUtils::CBuilder;
-    require ExtUtils::ParseXS;
-
-    my $module_name  = $self->module_name;
-    my @module_parts = split( '::', $module_name );
-    my @module_dir   = @module_parts;
-    my $class_name   = pop(@module_dir);
-
-    my $cbuilder = ExtUtils::CBuilder->new( config => $self->config );
-    my $libdir   = catdir( $LIB_DIR, @module_dir );
-    my $archdir  = catdir( $self->blib, 'arch', 'auto', @module_parts );
-    mkpath( $archdir, 0, 0777 ) unless -d $archdir;
-    my @objects;
-
-    # Compile C source files.
-    my $c_files = [];
-    my $source_dirs = $self->clownfish_params('source');
-    for my $source_dir (@$source_dirs) {
-        push @$c_files, @{ $self->rscan_dir( $source_dir, qr/\.c$/ ) };
-    }
-    # Compile with -fvisibility=hidden on GCC >= 4.0
-    my $extra_cflags = $self->charmony("EXTRA_CFLAGS");
-    if ( $self->config('gccversion') && $Config{dlext} ne 'dll' ) {
-        my @version_nums = split( /\./, $self->config('gccversion') );
-        if ( $version_nums[0] >= 4 ) {
-            $extra_cflags .= ' -fvisibility=hidden';
-        }
-    }
-    for my $c_file (@$c_files) {
-        my $o_file   = $c_file;
-        my $ccs_file = $c_file;
-        $o_file   =~ s/\.c$/$Config{_o}/ or die "no match";
-        $ccs_file =~ s/\.c$/.ccs/        or die "no match";
-        push @objects, $o_file;
-        next if $self->up_to_date( $c_file, $o_file );
-        $self->add_to_cleanup($o_file);
-        $self->add_to_cleanup($ccs_file);
-        $cbuilder->compile(
-            source               => $c_file,
-            extra_compiler_flags => $extra_cflags,
-            include_dirs         => $self->include_dirs,
-            object_file          => $o_file,
-        );
-    }
-
-    # .xs => .c
-    my $xs_filepath         = catfile( $libdir, "$class_name.xs" );
-    my $perl_binding_c_file = catfile( $libdir, "$class_name.c" );
-    $self->add_to_cleanup($perl_binding_c_file);
-    if ( !$self->up_to_date( $xs_filepath, $perl_binding_c_file ) ) {
-        ExtUtils::ParseXS::process_file(
-            filename   => $xs_filepath,
-            prototypes => 0,
-            output     => $perl_binding_c_file,
-        );
-    }
-
-    # .c => .o
-    my $version = $self->dist_version;
-    my $perl_binding_o_file = catfile( $libdir, "$class_name$Config{_o}" );
-    unshift @objects, $perl_binding_o_file;
-    $self->add_to_cleanup($perl_binding_o_file);
-    if ( !$self->up_to_date( $perl_binding_c_file, $perl_binding_o_file ) ) {
-        # Don't use -fvisibility=hidden for XS
-        $cbuilder->compile(
-            source               => $perl_binding_c_file,
-            extra_compiler_flags => $self->extra_compiler_flags,
-            include_dirs         => $self->include_dirs,
-            object_file          => $perl_binding_o_file,
-            # 'defines' is an undocumented parameter to compile(), so we
-            # should officially roll our own variant and generate compiler
-            # flags.  However, that involves writing a bunch of
-            # platform-dependent code, so we'll just take the chance that this
-            # will break.
-            defines => {
-                VERSION    => qq|"$version"|,
-                XS_VERSION => qq|"$version"|,
-            },
-        );
-    }
-
-    # Create .bs bootstrap file, needed by Dynaloader.
-    my $bs_file = catfile( $archdir, "$class_name.bs" );
-    $self->add_to_cleanup($bs_file);
-    if ( !$self->up_to_date( $perl_binding_o_file, $bs_file ) ) {
-        require ExtUtils::Mkbootstrap;
-        ExtUtils::Mkbootstrap::Mkbootstrap($bs_file);
-        if ( !-f $bs_file ) {
-            # Create file in case Mkbootstrap didn't do anything.
-            open( my $fh, '>', $bs_file )
-                or confess "Can't open $bs_file: $!";
-        }
-        utime( (time) x 2, $bs_file );    # touch
-    }
-
-    # Clean up after CBuilder under MSVC.
-    $self->add_to_cleanup('compilet*');
-    $self->add_to_cleanup('*.ccs');
-    $self->add_to_cleanup( catfile( $libdir, "$class_name.ccs" ) );
-    $self->add_to_cleanup( catfile( $libdir, "$class_name.def" ) );
-    $self->add_to_cleanup( catfile( $libdir, "${class_name}_def.old" ) );
-    $self->add_to_cleanup( catfile( $libdir, "$class_name.exp" ) );
-    $self->add_to_cleanup( catfile( $libdir, "$class_name.lib" ) );
-    $self->add_to_cleanup( catfile( $libdir, "$class_name.lds" ) );
-    $self->add_to_cleanup( catfile( $libdir, "$class_name.base" ) );
-
-    # .o => .(a|bundle)
-    my $lib_file = catfile( $archdir, "$class_name.$Config{dlext}" );
-    if ( !$self->up_to_date( [ @objects, $AUTOGEN_DIR ], $lib_file ) ) {
-        $cbuilder->link(
-            module_name        => $module_name,
-            objects            => \@objects,
-            lib_file           => $lib_file,
-            extra_linker_flags => $self->extra_linker_flags,
-        );
-        # Install .lib file on Windows
-        my $implib_file = catfile( $libdir, "$class_name.lib" );
-        if ( -e $implib_file ) {
-            $self->copy_if_modified(
-                from => $implib_file,
-                to   => catfile( $archdir, "$class_name.lib" ),
-            );
-        }
-    }
-}
-
-sub ACTION_code {
-    my $self = shift;
-
-    $self->dispatch('clownfish');
-    $self->dispatch('compile_custom_xs');
-    $self->dispatch('copy_clownfish_includes');
-
-    $self->SUPER::ACTION_code;
-}
-
-# Monkey patch ExtUtils::CBuilder::Platform::Windows::GCC::format_linker_cmd
-# to make extensions work on MinGW.
-#
-# nwellnhof: The original ExtUtils::CBuilder implementation uses dlltool and a
-# strange incremental linking scheme. I think this is only needed for ancient
-# versions of GNU ld. It somehow breaks exporting of symbols via
-# __declspec(dllexport). Starting with version 2.17, one can pass .def files
-# to GNU ld directly, which requires only a single command and gets the
-# exports right.
-{
-    no warnings 'redefine';
-    require ExtUtils::CBuilder::Platform::Windows::GCC;
-    *ExtUtils::CBuilder::Platform::Windows::GCC::format_linker_cmd = sub {
-      my ($self, %spec) = @_;
-      my $cf = $self->{config};
-
-      # The Config.pm variable 'libperl' is hardcoded to the full name
-      # of the perl import library (i.e. 'libperl56.a'). GCC will not
-      # find it unless the 'lib' prefix & the extension are stripped.
-      $spec{libperl} =~ s/^(?:lib)?([^.]+).*$/-l$1/;
-
-      unshift( @{$spec{other_ldflags}}, '-nostartfiles' )
-        if ( $spec{startup} && @{$spec{startup}} );
-
-      # From ExtUtils::MM_Win32:
-      #
-      ## one thing for GCC/Mingw32:
-      ## we try to overcome non-relocateable-DLL problems by generating
-      ##    a (hopefully unique) image-base from the dll's name
-      ## -- BKS, 10-19-1999
-      File::Basename::basename( $spec{output} ) =~ /(....)(.{0,4})/;
-      $spec{image_base} = sprintf( "0x%x0000", unpack('n', $1 ^ $2) );
-
-      %spec = $self->write_linker_script(%spec)
-        if $spec{use_scripts};
-
-      foreach my $path ( @{$spec{libpath}} ) {
-        $path = "-L$path";
-      }
-
-      my @cmds; # Stores the series of commands needed to build the module.
-
-      # split off any -arguments included in ld
-      my @ld = split / (?=-)/, $spec{ld};
-
-      push @cmds, [ grep {defined && length} (
-        @ld                       ,
-        '-o', $spec{output}       ,
-        "-Wl,--image-base,$spec{image_base}" ,
-        @{$spec{lddlflags}}       ,
-        @{$spec{libpath}}         ,
-        @{$spec{startup}}         ,
-        @{$spec{objects}}         ,
-        @{$spec{other_ldflags}}   ,
-        $spec{libperl}            ,
-        @{$spec{perllibs}}        ,
-        $spec{def_file}           ,
-        $spec{map_file} ? ('-Map', $spec{map_file}) : ''
-      ) ];
-
-      return @cmds;
-    };
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Clownfish::CFC::Perl::Build - Build Clownfish modules
-
-=head1 DESCRIPTION
-
-Clownfish::CFC::Perl::Build is a subclass of L<Module::Build> which builds
-the Perl bindings for Clownfish modules.
-
-=head1 SYNOPSIS
-
-    use Clownfish::CFC::Perl::Build;
-    use File::Spec::Functions qw( catdir );
-
-    my @cf_base_path    = Clownfish::CFC::Perl::Build->cf_base_path;
-    my @cf_sys_includes = Clownfish::CFC::Perl::Build->cf_system_include_dirs;
-    my @cf_linker_flags = Clownfish::CFC::Perl::Build->cf_linker_flags(
-        'Other::Module',
-    );
-
-    my $builder = Clownfish::CFC::Perl::Build->new(
-        module_name        => 'My::Module',
-        dist_abstract      => 'Do something with this and that',
-        dist_author        => 'The Author <author@example.com>',
-        dist_version       => '0.1.0',
-        include_dirs       => [ @cf_sys_includes ],
-        extra_linker_flags => [ @cf_linker_flags ],
-        clownfish_params => {
-            source  => [ catdir( @cf_base_path, 'core' ) ],
-            include => [ @cf_sys_includes ],
-        },
-        requires => {
-            'Other::Module' => '0.3.0',
-        },
-        configure_requires => {
-            'Clownfish::CFC::Perl::Build' => 0.01,
-        },
-        build_requires => {
-            'Clownfish::CFC::Perl::Build' => 0.01,
-        },
-    );
-
-    $builder->create_build_script();
-
-=head1 CONSTRUCTOR
-
-=head2 my $builder = Clownfish::CFC::Perl::Build->new(%args);
-
-Creates a new Clownfish::CFC::Perl::Build object. %args can contain all
-arguments that can be passed to L<Module::Build/new>. It accepts an additional
-argument 'clownfish_params', which is a hashref with the following params:
-
-=head3 source
-
-An arrayref of source directories containing the .cfh and .c files of the
-module. Defaults to [ 'core' ] or to [ '../core' ] if 'core' can't
-be found.
-
-=head3 include
-
-An arrayref of include directories containing .cfh files from other Clownfish
-modules needed by the module. Empty by default. Should contain the Clownfish
-system include directories if needed.
-
-=head3 autogen_header
-
-A string that will be prepended to the files generated by the Clownfish
-compiler.
-
-=head1 METHODS
-
-=head2 my @path = Clownfish::CFC::Perl::Build->cf_base_path();
-
-Returns the base path of the source tree where 'core' etc. will be found.
-Currently either () or ('..').
-
-=head1 METHODS
-
-=head2 my @dirs = Clownfish::CFC::Perl::Build->cf_system_include_dirs();
-
-Returns a list of Clownfish include directories of system-wide installations
-of Clownfish modules.
-
-=head2 my @flags = Clownfish::CFC::Perl::Build->cf_linker_flags($module_name);
-
-Returns the linker flags needed to link against Clownfish module named
-$module_name. Should be added to extra_linker_flags for all module
-dependencies.
-
-=head2 $builder->cf_copy_include_file(@path);
-
-Look for a file with path components @path in all of the Module::Build
-include dirs and copy it to blib, so it will be installed in a Clownfish
-system include directory. Typically used for additional .h files that the
-.cfh files need.
-
-=head2 my $value = $builder->clownfish_params($key);
-
-=head2 $builder->clownfish_params($key => $value);
-
-Get or set a Clownfish build param. Supports all the parameters that can be
-passed to L</new>.
-
-=head1 COPYRIGHT
-
-Clownfish is distributed under the Apache License, Version 2.0, as
-described in the file C<LICENSE> included with the distribution.
-
-=cut
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Perl/Build/Charmonic.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Perl/Build/Charmonic.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Perl/Build/Charmonic.pm
deleted file mode 100644
index 8c5843c..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Perl/Build/Charmonic.pm
+++ /dev/null
@@ -1,116 +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.
-
-use strict;
-use warnings;
-
-package Clownfish::CFC::Perl::Build::Charmonic;
-
-use base qw( Module::Build );
-
-our $VERSION = '0.003000';
-$VERSION = eval $VERSION;
-
-use Carp;
-use Config;
-use Cwd qw( getcwd );
-use File::Spec::Functions qw( catfile curdir );
-
-# Add a custom Module::Build hashref property to pass the following build
-# parameters.
-# charmonizer_c: Charmonizer C file, required
-if ( $Module::Build::VERSION <= 0.30 ) {
-    __PACKAGE__->add_property( charmonizer_params => {} );
-}
-else {
-    __PACKAGE__->add_property(
-        'charmonizer_params',
-        default => {},
-    );
-}
-
-my $CHARMONIZER_EXE_PATH = catfile( curdir(), "charmonizer$Config{_exe}" );
-my $CHARMONY_H_PATH      = 'charmony.h';
-my $CHARMONY_PM_PATH     = 'Charmony.pm';
-
-# Compile and run the charmonizer executable, creating the charmony.h and
-# Charmony.pm files.
-sub ACTION_charmony {
-    my $self = shift;
-    my $charmonizer_c = $self->charmonizer_params('charmonizer_c');
-    $self->add_to_cleanup($CHARMONIZER_EXE_PATH);
-    if ( !$self->up_to_date( $charmonizer_c, $CHARMONIZER_EXE_PATH ) ) {
-        print "\nCompiling $CHARMONIZER_EXE_PATH...\n\n";
-        my $cc = $self->config('cc');
-        my $outflag = $cc =~ /cl\b/ ? "/Fe" : "-o ";
-        system("$cc $charmonizer_c $outflag$CHARMONIZER_EXE_PATH")
-            and die "Failed to compile $CHARMONIZER_EXE_PATH";
-    }
-
-    return if $self->up_to_date( $CHARMONIZER_EXE_PATH, [
-        $CHARMONY_H_PATH, $CHARMONY_PM_PATH,
-    ] );
-    print "\nRunning $CHARMONIZER_EXE_PATH...\n\n";
-
-    $self->add_to_cleanup($CHARMONY_H_PATH);
-    $self->add_to_cleanup($CHARMONY_PM_PATH);
-    # Clean up after charmonizer if it doesn't succeed on its own.
-    $self->add_to_cleanup("_charm*");
-
-    # Prepare arguments to charmonizer.
-    my @command = (
-        $CHARMONIZER_EXE_PATH,
-        '--cc=' . _quotify( $self->config('cc') ),
-        '--enable-c',
-        '--enable-perl',
-    );
-    if ( !$self->config('usethreads') ) {
-        push @command, '--disable-threads';
-    }
-    push @command, ( '--', $self->config('ccflags') );
-    if ( $ENV{CHARM_VALGRIND} ) {
-        unshift @command, "valgrind", "--leak-check=yes";
-    }
-    print join( " ", @command ), $/;
-
-    system(@command) and die "Failed to run $CHARMONIZER_EXE_PATH: $!";
-}
-
-my $config;
-
-sub charmony {
-    my ( undef, $key ) = @_;
-    if (!$config) {
-        eval { require 'Charmony.pm'; };
-        if ( !$@ ) {
-            $config = Charmony->config;
-        }
-    }
-    if ($config) {
-        return $config->{$key};
-    }
-    return;
-}
-
-sub _quotify {
-    my $string = shift;
-    $string =~ s/\\/\\\\/g;
-    $string =~ s/"/\\"/g;
-    return $string =~ /\s/ ? qq|"$string"| : $string;
-}
-
-1;
-
-__END__

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Test.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Test.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Test.pm
deleted file mode 100644
index bebd673..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Test.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::Test;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/lib/Clownfish/CFC/Util.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Util.pm b/clownfish/compiler/perl/lib/Clownfish/CFC/Util.pm
deleted file mode 100644
index 25d10f6..0000000
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Util.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::Util;
-use Clownfish::CFC;
-
-1;
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/000-load.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/000-load.t b/clownfish/compiler/perl/t/000-load.t
deleted file mode 100644
index 4f450a2..0000000
--- a/clownfish/compiler/perl/t/000-load.t
+++ /dev/null
@@ -1,39 +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.
-
-use strict;
-use warnings;
-
-use Test::More 'no_plan';
-use File::Find 'find';
-
-my @modules;
-
-find(
-    {   no_chdir => 1,
-        wanted   => sub {
-            return unless $File::Find::name =~ /\.pm$/;
-            push @modules, $File::Find::name;
-            }
-    },
-    'lib'
-);
-for (@modules) {
-    s/^.*?Clownfish/Clownfish/;
-    s/\.pm$//;
-    s/\W+/::/g;
-    use_ok($_);
-}
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/001-util.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/001-util.t b/clownfish/compiler/perl/t/001-util.t
deleted file mode 100644
index 745bb69..0000000
--- a/clownfish/compiler/perl/t/001-util.t
+++ /dev/null
@@ -1,69 +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.
-
-use strict;
-use warnings;
-
-use Test::More tests => 15;
-use File::stat qw( stat );
-use Clownfish::CFC::Util qw(
-    slurp_text
-    current
-    verify_args
-    a_isa_b
-    write_if_changed
-);
-
-my $foo_txt = 'foo.txt';
-unlink $foo_txt;
-open( my $fh, '>', $foo_txt ) or die "Can't open '$foo_txt': $!";
-print $fh "foo";
-close $fh or die "Can't close '$foo_txt': $!";
-is( slurp_text($foo_txt), "foo", "slurp_text" );
-
-ok( current( $foo_txt, $foo_txt ), "current" );
-ok( !current( $foo_txt, 't' ), "not current" );
-ok( !current( $foo_txt, "nonexistent_file" ),
-    "not current when dest file mising"
-);
-
-my $one_second_ago = time() - 1;
-utime( $one_second_ago, $one_second_ago, $foo_txt )
-    or die "utime failed";
-write_if_changed( $foo_txt, "foo" );
-is( stat($foo_txt)->mtime, $one_second_ago,
-    "write_if_changed does nothing if contents not changed" );
-write_if_changed( $foo_txt, "foofoo" );
-ok( stat($foo_txt)->mtime != $one_second_ago,
-    "write_if_changed writes if contents changed"
-);
-
-unlink $foo_txt;
-
-my %defaults = ( foo => undef );
-sub test_verify_args { return verify_args( \%defaults, @_ ) }
-
-ok( test_verify_args( foo => 'foofoo' ), "args verified" );
-ok( !test_verify_args('foo'), "odd args fail verification" );
-like( $@, qr/odd/, 'set $@ on odd arg failure' );
-ok( !test_verify_args( bar => 'nope' ), "bad param doesn't verify" );
-like( $@, qr/param/, 'set $@ on invalid param failure' );
-
-my $foo = bless {}, 'Foo';
-ok( a_isa_b( $foo, 'Foo' ), "a_isa_b true" );
-ok( !a_isa_b( $foo,  'Bar' ), "a_isa_b false" );
-ok( !a_isa_b( 'Foo', 'Foo' ), "a_isa_b not blessed" );
-ok( !a_isa_b( undef, 'Foo' ), "a_isa_b undef" );
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/050-docucomment.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/050-docucomment.t b/clownfish/compiler/perl/t/050-docucomment.t
deleted file mode 100644
index d2be87c..0000000
--- a/clownfish/compiler/perl/t/050-docucomment.t
+++ /dev/null
@@ -1,58 +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.
-
-use strict;
-use warnings;
-
-use Test::More tests => 10;
-
-BEGIN { use_ok('Clownfish::CFC::Model::DocuComment') }
-use Clownfish::CFC::Parser;
-
-my $parser = Clownfish::CFC::Parser->new;
-isa_ok( $parser->parse('/** foo. */'), "Clownfish::CFC::Model::DocuComment" );
-
-my $text = <<'END_COMMENT';
-/**
- * Brief description.  Long description.
- *
- * More long description.
- *
- * @param foo A foo.
- * @param bar A bar.
- *
- * @param baz A baz.
- * @return a return value.
- */
-END_COMMENT
-
-my $docucomment = $parser->parse($text);
-
-like(
-    $docucomment->get_description,
-    qr/^Brief.*long description.\s*\Z/ims,
-    "get_description"
-);
-is( $docucomment->get_brief, "Brief description.", "brief" );
-like( $docucomment->get_long, qr/^Long.*long description.\s*\Z/ims, "long" );
-is_deeply( $docucomment->get_param_names, [qw( foo bar baz )],
-    "param names" );
-is( $docucomment->get_param_docs->[0], "A foo.", '@param terminated by @' );
-is( $docucomment->get_param_docs->[1],
-    "A bar.", '@param terminated by empty line' );
-is( $docucomment->get_param_docs->[2],
-    "A baz.", '@param terminated next element, @return' );
-is( $docucomment->get_retval, "a return value.", "get_retval" );
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/051-symbol.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/051-symbol.t b/clownfish/compiler/perl/t/051-symbol.t
deleted file mode 100644
index 9356696..0000000
--- a/clownfish/compiler/perl/t/051-symbol.t
+++ /dev/null
@@ -1,84 +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.
-
-use strict;
-use warnings;
-
-use Test::More tests => 40;
-use Clownfish::CFC;
-
-for (qw( foo 1Foo Foo_Bar 1FOOBAR )) {
-    eval { my $thing = new_symbol( class_name => $_ ) };
-    like( $@, qr/class_name/, "Reject invalid class name $_" );
-    my $bogus_middle = "Foo::" . $_ . "::Bar";
-    eval { my $thing = new_symbol( class_name => $bogus_middle ) };
-    like( $@, qr/class_name/, "Reject invalid class name $bogus_middle" );
-}
-
-my @exposures = qw( public private parcel local );
-for my $exposure (@exposures) {
-    my $thing = new_symbol( exposure => $exposure );
-    ok( $thing->$exposure, "exposure $exposure" );
-    my @not_exposures = grep { $_ ne $exposure } @exposures;
-    ok( !$thing->$_, "$exposure means not $_" ) for @not_exposures;
-}
-
-my $foo    = new_symbol( class_name => 'Foo' );
-my $foo_jr = new_symbol( class_name => 'Foo::FooJr' );
-ok( !$foo->equals($foo_jr), "different class_name spoils equals" );
-is( $foo_jr->get_class_name, "Foo::FooJr", "get_class_name" );
-is( $foo_jr->get_class_cnick, "FooJr", "derive class_cnick from class_name" );
-
-my $public_exposure = new_symbol( exposure => 'public' );
-my $parcel_exposure = new_symbol( exposure => 'parcel' );
-ok( !$public_exposure->equals($parcel_exposure),
-    "different exposure spoils equals"
-);
-
-my $lucifer_parcel = Clownfish::CFC::Model::Parcel->new( name => 'Lucifer' );
-$lucifer_parcel->register;
-my $lucifer = new_symbol( parcel => 'Lucifer' );
-ok( $$lucifer_parcel == ${ $lucifer->get_parcel }, "derive parcel" );
-is( $lucifer->get_prefix, "lucifer_", "get_prefix" );
-is( $lucifer->get_Prefix, "Lucifer_", "get_Prefix" );
-is( $lucifer->get_PREFIX, "LUCIFER_", "get_PREFIX" );
-my $luser = new_symbol( parcel => 'Luser' );
-ok( !$lucifer->equals($luser), "different parcel spoils equals" );
-
-for ( qw( 1foo * 0 ), "\x{263a}" ) {
-    eval { my $thing = new_symbol( micro_sym => $_ ); };
-    like( $@, qr/micro_sym/, "reject bad micro_sym" );
-}
-
-my $ooga  = new_symbol( micro_sym => 'ooga' );
-my $booga = new_symbol( micro_sym => 'booga' );
-ok( !$ooga->equals($booga), "Different micro_sym spoils equals()" );
-
-my $eep = new_symbol(
-    parcel     => 'Eep',
-    class_name => "Op::Ork",
-    micro_sym  => 'ah_ah',
-);
-is( $eep->short_sym, "Ork_ah_ah",     "short_sym" );
-is( $eep->full_sym,  "eep_Ork_ah_ah", "full_sym" );
-
-sub new_symbol {
-    return Clownfish::CFC::Model::Symbol->new(
-        micro_sym => 'sym',
-        exposure  => 'parcel',
-        @_
-    );
-}
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/052-version.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/052-version.t b/clownfish/compiler/perl/t/052-version.t
deleted file mode 100644
index 1e96bb8..0000000
--- a/clownfish/compiler/perl/t/052-version.t
+++ /dev/null
@@ -1,41 +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.
-
-use strict;
-use warnings;
-
-use Test::More tests => 11;
-use Clownfish::CFC;
-
-my $v3_2_1   = Clownfish::CFC::Model::Version->new( vstring => 'v3.2.1' );
-my $v3_2     = Clownfish::CFC::Model::Version->new( vstring => 'v3.2' );
-my $v3_3     = Clownfish::CFC::Model::Version->new( vstring => 'v3.3' );
-my $v3_2_0   = Clownfish::CFC::Model::Version->new( vstring => 'v3.2.0' );
-my $v3_2_1_0 = Clownfish::CFC::Model::Version->new( vstring => 'v3.2.1.0' );
-my $v90210   = Clownfish::CFC::Model::Version->new( vstring => 'v90210' );
-
-is( $v3_2_1->get_major,   3,        'get_major' );
-is( $v90210->get_major,   90210,    'parse big number' );
-is( $v3_2_1->get_vstring, 'v3.2.1', 'get_vstring' );
-
-is( $v3_2_1->compare_to($v3_2_1_0), 0,  "ignore zeroes in compare_to" );
-is( $v3_2_1_0->compare_to($v3_2_1), 0,  "ignore zeroes in compare_to" );
-is( $v3_2_1->compare_to($v3_3),     -1, "compare_to A < B_fewer_digits" );
-is( $v3_3->compare_to($v3_2_1),     1,  "compare_to A_fewer_digits > B" );
-is( $v3_2_1->compare_to($v3_2),     1,  "compare_to A < B_fewer_digits" );
-is( $v3_2->compare_to($v3_2_1),     -1, "compare_to A_fewer_digits > B" );
-is( $v3_2_1->compare_to($v3_2_0),   1,  "compare_to A > B" );
-is( $v3_2_0->compare_to($v3_2_1),   -1, "compare_to A < B" );
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/100-type.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/100-type.t b/clownfish/compiler/perl/t/100-type.t
deleted file mode 100644
index a881883..0000000
--- a/clownfish/compiler/perl/t/100-type.t
+++ /dev/null
@@ -1,42 +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.
-
-use strict;
-use warnings;
-
-use Test::More tests => 10;
-use Clownfish::CFC::Model::Parcel;
-
-my $neato_parcel = Clownfish::CFC::Model::Parcel->new( name => 'Neato' );
-$neato_parcel->register;
-
-my $type = Clownfish::CFC::Model::Type->new(
-    parcel    => 'Neato',
-    specifier => 'mytype_t'
-);
-is( ${ $type->get_parcel },
-    $$neato_parcel, "constructor changes parcel name to Parcel singleton" );
-
-is( $type->to_c, "mytype_t", "to_c()" );
-ok( !$type->const, "const() is off by default" );
-is( $type->get_specifier, "mytype_t", "get_specifier()" );
-
-ok( !$type->is_object,      "is_object() false by default" );
-ok( !$type->is_integer,     "is_integer() false by default" );
-ok( !$type->is_floating,    "is_floating() false by default" );
-ok( !$type->is_void,        "is_void() false by default" );
-ok( !$type->is_composite,   "is_composite() false by default" );
-ok( !$type->is_string_type, "is_string_type() false by default" );
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/101-primitive_type.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/101-primitive_type.t b/clownfish/compiler/perl/t/101-primitive_type.t
deleted file mode 100644
index 5cad4e7..0000000
--- a/clownfish/compiler/perl/t/101-primitive_type.t
+++ /dev/null
@@ -1,36 +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.
-
-use strict;
-use warnings;
-use Test::More tests => 4;
-use Clownfish::CFC;
-
-my $type = new_primitive_type( specifier => 'hump_t' );
-ok( $type->is_primitive, "is_primitive" );
-
-my $other = new_primitive_type( specifier => 'hump_t' );
-ok( $type->equals($other), "equals()" );
-
-$other = new_primitive_type( specifier => 'dump_t' );
-ok( !$type->equals($other), "equals() spoiled by specifier" );
-
-$other = new_primitive_type( specifier => 'hump_t', const => 1 );
-ok( !$type->equals($other), "equals() spoiled by const" );
-
-sub new_primitive_type {
-    return Clownfish::CFC::Model::Type->new( @_, primitive => 1 );
-}
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/102-integer_type.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/102-integer_type.t b/clownfish/compiler/perl/t/102-integer_type.t
deleted file mode 100644
index 132457c..0000000
--- a/clownfish/compiler/perl/t/102-integer_type.t
+++ /dev/null
@@ -1,82 +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.
-
-use strict;
-use warnings;
-
-use Test::More tests => 87;
-use Clownfish::CFC::Model::Type;
-use Clownfish::CFC::Parser;
-
-my $integer_type = Clownfish::CFC::Model::Type->new_integer(
-    specifier => 'int32_t',
-    const     => 1,
-);
-ok( $integer_type->const, "const" );
-is( $integer_type->get_specifier, "int32_t" );
-like( $integer_type->to_c, qr/const/, "'const' in C representation" );
-
-my $parser = Clownfish::CFC::Parser->new;
-
-my @chy_specifiers = qw(
-    bool
-);
-my @c_specifiers = qw(
-    char
-    short
-    int
-    long
-    size_t
-    int8_t
-    int16_t
-    int32_t
-    int64_t
-    uint8_t
-    uint16_t
-    uint32_t
-    uint64_t
-);
-
-for my $chy_specifier (@chy_specifiers) {
-    my $type = $parser->parse($chy_specifier);
-    isa_ok( $type, "Clownfish::CFC::Model::Type" );
-    ok( $type && $type->is_integer, "parsed Type is_integer()" );
-    $type = $parser->parse("const $chy_specifier");
-    isa_ok( $type, "Clownfish::CFC::Model::Type" );
-    ok( $type && $type->is_integer, "parsed const Type is_integer()" );
-    ok( $type && $type->const,      "parsed const Type is const()" );
-SKIP: {
-        skip( "No way to catch parser exception at present", 1 );
-        my $bogus = $chy_specifier . "oot_toot";
-        ok( !$parser->parse($bogus),
-            "chy_integer_specifier guards against partial word matches" );
-    }
-}
-
-for my $c_specifier (@c_specifiers) {
-    my $type = $parser->parse($c_specifier);
-    isa_ok( $type, "Clownfish::CFC::Model::Type" );
-    ok( $type && $type->is_integer, "parsed Type is_integer()" );
-    $type = $parser->parse("const $c_specifier");
-    isa_ok( $type, "Clownfish::CFC::Model::Type" );
-    ok( $type && $type->is_integer, "parsed const Type is_integer()" );
-    ok( $type && $type->const,      "parsed const Type is const()" );
-SKIP: {
-        skip( "No way to catch parser exception at present", 1 );
-        my $bogus = $c_specifier . "y";
-        ok( !$parser->parse($bogus),
-            "c_integer_specifier guards against partial word matches" );
-    }
-}

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/103-float_type.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/103-float_type.t b/clownfish/compiler/perl/t/103-float_type.t
deleted file mode 100644
index e690899..0000000
--- a/clownfish/compiler/perl/t/103-float_type.t
+++ /dev/null
@@ -1,48 +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.
-
-use strict;
-use warnings;
-
-use Test::More tests => 15;
-use Clownfish::CFC::Model::Type;
-use Clownfish::CFC::Parser;
-
-my $float_type = Clownfish::CFC::Model::Type->new_float(
-    specifier => 'float',
-    const     => 1,
-);
-ok( $float_type->const, "const" );
-is( $float_type->get_specifier, "float" );
-like( $float_type->to_c, qr/const/, "'const' in C representation" );
-
-my $parser = Clownfish::CFC::Parser->new;
-
-for my $specifier (qw( float double)) {
-    my $type = $parser->parse($specifier);
-    isa_ok( $type, "Clownfish::CFC::Model::Type" );
-    ok( $type && $type->is_floating, "parsed specifier is_floating()" );
-    $type = $parser->parse("const $specifier");
-    isa_ok( $type, "Clownfish::CFC::Model::Type" );
-    ok( $type && $type->is_floating, "parsed const specifier is_floating()" );
-    ok( $type && $type->const,       "parsed const specifier is_floating()" );
-SKIP: {
-        skip( "No way to catch parser exception at present", 1 );
-        my $bogus = $specifier . "y";
-        ok( !$parser->parse($bogus),
-            "c_float_specifier guards against partial word matches" );
-    }
-}
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/104-void_type.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/104-void_type.t b/clownfish/compiler/perl/t/104-void_type.t
deleted file mode 100644
index 0d87e2c..0000000
--- a/clownfish/compiler/perl/t/104-void_type.t
+++ /dev/null
@@ -1,52 +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.
-
-use strict;
-use warnings;
-
-use Test::More tests => 11;
-use Clownfish::CFC::Model::Type;
-use Clownfish::CFC::Parser;
-
-my $void_type = Clownfish::CFC::Model::Type->new_void;
-is( $void_type->get_specifier, "void", "specifier defaults to 'void'" );
-is( $void_type->to_c,          "void", "to_c" );
-ok( $void_type->is_void, "is_void" );
-
-$void_type = Clownfish::CFC::Model::Type->new_void( const => 1 );
-ok( $void_type->const, "const" );
-like( $void_type->to_c, qr/const/, "'const' in C representation" );
-
-my $parser = Clownfish::CFC::Parser->new;
-
-$void_type = $parser->parse('void');
-isa_ok( $void_type, "Clownfish::CFC::Model::Type" );
-ok( $void_type && $void_type->is_void,
-    "Parser calls new_void() when parsing 'void'" );
-my $const_void_type = $parser->parse('const void');
-isa_ok( $const_void_type, "Clownfish::CFC::Model::Type" );
-ok( $const_void_type && $const_void_type->is_void,
-    "Parser calls new_void() when parsing 'const void'"
-);
-ok( $const_void_type && $const_void_type->const,
-    "Parser preserves const when parsing 'const void'"
-);
-
-SKIP: {
-    skip( "No way to catch parser exception at present", 1 );
-    ok( !$parser->parse('voidable'),
-        "void_type_specifier guards against partial word matches" );
-}
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/105-object_type.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/105-object_type.t b/clownfish/compiler/perl/t/105-object_type.t
deleted file mode 100644
index 6bf4c65..0000000
--- a/clownfish/compiler/perl/t/105-object_type.t
+++ /dev/null
@@ -1,132 +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.
-
-use strict;
-use warnings;
-
-use Test::More tests => 54;
-use Clownfish::CFC::Model::Type;
-use Clownfish::CFC::Parser;
-
-my $parser = Clownfish::CFC::Parser->new;
-
-# Set and leave parcel.
-my $parcel = $parser->parse('parcel Neato;')
-    or die "failed to process parcel_definition";
-
-for my $bad_specifier (qw( foo Foo_Bar FOOBAR 1Foo 1FOO )) {
-    eval {
-        my $type = Clownfish::CFC::Model::Type->new_object(
-            parcel    => 'Neato',
-            specifier => $bad_specifier,
-        );
-    };
-    like( $@, qr/specifier/,
-        "constructor rejects bad specifier $bad_specifier" );
-}
-
-my @specifiers = qw( Foo FooJr FooIII Foo4th );
-my @classes = map { $parser->parse("class $_ {}") } @specifiers;
-
-for my $specifier (@specifiers) {
-    my $type = $parser->parse("$specifier*");
-    $type->resolve(\@classes);
-    is( $type->get_specifier, "neato_$specifier",
-        "object_type_specifier: $specifier" );
-    is( $parser->parse("neato_$specifier*")->get_specifier,
-        "neato_$specifier", "object_type_specifier: neato_$specifier" );
-    ok( $type && $type->is_object, "$specifier*" );
-    $type = $parser->parse("neato_$specifier*");
-    ok( $type && $type->is_object, "neato_$specifier*" );
-    $type = $parser->parse("const $specifier*");
-    ok( $type && $type->is_object && $type->const, "const $specifier*" );
-    $type = $parser->parse("incremented $specifier*");
-    ok( $type && $type->is_object && $type->incremented,
-        "incremented $specifier*" );
-    $type = $parser->parse("decremented $specifier*");
-    ok( $type && $type->is_object && $type->decremented,
-        "decremented $specifier*" );
-    $type = $parser->parse("nullable $specifier*");
-    ok( $type && $type->is_object && $type->nullable,
-        "nullable $specifier*" );
-}
-
-eval { my $type = Clownfish::CFC::Model::Type->new_object };
-like( $@, qr/specifier/i, "specifier required" );
-
-for ( 0, 2 ) {
-    eval {
-        my $type = Clownfish::CFC::Model::Type->new_object(
-            specifier   => 'Foo',
-            indirection => $_,
-        );
-    };
-    like( $@, qr/indirection/i, "invalid indirection of $_" );
-}
-
-my $foo_type = Clownfish::CFC::Model::Type->new_object( specifier => 'Foo' );
-my $another_foo
-    = Clownfish::CFC::Model::Type->new_object( specifier => 'Foo' );
-ok( $foo_type->equals($another_foo), "equals" );
-
-my $bar_type = Clownfish::CFC::Model::Type->new_object( specifier => 'Bar' );
-ok( !$foo_type->equals($bar_type), "different specifier spoils equals" );
-
-my $foreign_foo_class = Clownfish::CFC::Model::Class->create(
-    parcel     => 'Foreign',
-    class_name => 'Foreign::Foo',
-);
-my $foreign_foo = Clownfish::CFC::Model::Type->new_object(
-    specifier => 'Foo',
-    parcel    => 'Foreign',
-);
-$foreign_foo->resolve([ $foreign_foo_class ]);
-ok( !$foo_type->equals($foreign_foo), "different parcel spoils equals" );
-is( $foreign_foo->get_specifier, "foreign_Foo",
-    "prepend parcel prefix to specifier" );
-
-my $incremented_foo = Clownfish::CFC::Model::Type->new_object(
-    specifier   => 'Foo',
-    incremented => 1,
-);
-ok( $incremented_foo->incremented, "incremented" );
-ok( !$foo_type->incremented,       "not incremented" );
-ok( !$foo_type->equals($incremented_foo),
-    "different incremented spoils equals"
-);
-
-my $decremented_foo = Clownfish::CFC::Model::Type->new_object(
-    specifier   => 'Foo',
-    decremented => 1,
-);
-ok( $decremented_foo->decremented, "decremented" );
-ok( !$foo_type->decremented,       "not decremented" );
-ok( !$foo_type->equals($decremented_foo),
-    "different decremented spoils equals"
-);
-
-my $const_foo = Clownfish::CFC::Model::Type->new_object(
-    specifier => 'Foo',
-    const     => 1,
-);
-$const_foo->resolve(\@classes);
-ok( !$foo_type->equals($const_foo), "different const spoils equals" );
-like( $const_foo->to_c, qr/const/, "const included in C representation" );
-
-my $string_type
-    = Clownfish::CFC::Model::Type->new_object( specifier => 'String', );
-ok( !$foo_type->is_string_type,   "Not is_string_type" );
-ok( $string_type->is_string_type, "is_string_type" );
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/106-va_list_type.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/106-va_list_type.t b/clownfish/compiler/perl/t/106-va_list_type.t
deleted file mode 100644
index e20063f..0000000
--- a/clownfish/compiler/perl/t/106-va_list_type.t
+++ /dev/null
@@ -1,37 +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.
-
-use strict;
-use warnings;
-
-use Test::More tests => 4;
-use Clownfish::CFC::Model::Type;
-use Clownfish::CFC::Parser;
-
-my $va_list_type = Clownfish::CFC::Model::Type->new_va_list;
-is( $va_list_type->get_specifier,
-    "va_list", "specifier defaults to 'va_list'" );
-is( $va_list_type->to_c, "va_list", "to_c" );
-
-my $parser = Clownfish::CFC::Parser->new;
-
-my $type = $parser->parse('va_list');
-ok( $type && $type->is_va_list, "parse va_list" );
-SKIP: {
-    skip( "No way to catch parser exception at present", 1 );
-    ok( !$parser->parse('va_listable'),
-        "va_list_type_specifier guards against partial word matches" );
-}
-

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/107-arbitrary_type.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/107-arbitrary_type.t b/clownfish/compiler/perl/t/107-arbitrary_type.t
deleted file mode 100644
index 7dc0767..0000000
--- a/clownfish/compiler/perl/t/107-arbitrary_type.t
+++ /dev/null
@@ -1,60 +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.
-
-use strict;
-use warnings;
-
-use Test::More tests => 10;
-use Clownfish::CFC::Model::Type;
-use Clownfish::CFC::Parser;
-
-my $foo_type = Clownfish::CFC::Model::Type->new_arbitrary(
-    parcel    => 'Neato',
-    specifier => "foo_t",
-);
-is( $foo_type->get_specifier, "foo_t", "get_specifier" );
-is( $foo_type->to_c,          "foo_t", "to_c" );
-
-my $compare_t_type = Clownfish::CFC::Model::Type->new_arbitrary(
-    parcel    => 'Neato',
-    specifier => "Sort_compare_t",
-);
-TODO: {
-    local $TODO = "Disabled until parcels get overhauled.";
-    is( $compare_t_type->get_specifier,
-        "neato_Sort_compare_t", "Prepend prefix to specifier" );
-    is( $compare_t_type->to_c, "neato_Sort_compare_t", "to_c" );
-}
-
-my $twin = Clownfish::CFC::Model::Type->new_arbitrary(
-    parcel    => 'Neato',
-    specifier => "foo_t",
-);
-ok( $foo_type->equals($twin), "equals" );
-ok( !$foo_type->equals($compare_t_type),
-    "equals spoiled by different specifier"
-);
-
-my $parser = Clownfish::CFC::Parser->new;
-
-for my $specifier (qw( foo_t Sort_compare_t )) {
-    my $type = $parser->parse($specifier);
-    ok( $type && $type->is_arbitrary, "arbitrary_type '$specifier'" );
-SKIP: {
-        skip( "Can't recover from bad specifier", 1 );
-        ok( !$parser->parse( $specifier . "_y_p_e eep;" ),
-            "arbitrary_type_specifier guards against partial word matches" );
-    }
-}

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/108-composite_type.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/108-composite_type.t b/clownfish/compiler/perl/t/108-composite_type.t
deleted file mode 100644
index 8a8369d..0000000
--- a/clownfish/compiler/perl/t/108-composite_type.t
+++ /dev/null
@@ -1,92 +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.
-
-use strict;
-use warnings;
-
-use Test::More tests => 23;
-use Clownfish::CFC::Model::Type;
-use Clownfish::CFC::Parser;
-
-my $parser = Clownfish::CFC::Parser->new;
-
-my @composite_type_strings = (
-    qw(
-        char*
-        char**
-        char***
-        int32_t*
-        Obj**
-        int8_t[]
-        int8_t[1]
-        neato_method_t[]
-        neato_method_t[1]
-        multi_dimensional_t[1][10]
-        ),
-    'char * * ',
-    'const Obj**',
-    'const void*',
-    'int8_t[ 3 ]',
-);
-
-for my $input (@composite_type_strings) {
-    my $type = $parser->parse($input);
-    ok( $type && $type->is_composite, $input );
-}
-
-eval { my $type = Clownfish::CFC::Model::Type->new_composite };
-like( $@, qr/child/i, "child required" );
-
-my $foo_type = Clownfish::CFC::Model::Type->new_object( specifier => 'Foo' );
-my $composite_type = Clownfish::CFC::Model::Type->new_composite(
-    child       => $foo_type,
-    indirection => 1,
-);
-is( $composite_type->get_specifier,
-    'Foo', "get_specifier delegates to child" );
-
-my $other = Clownfish::CFC::Model::Type->new_composite(
-    child       => $foo_type,
-    indirection => 1,
-);
-ok( $composite_type->equals($other), "equals" );
-ok( $composite_type->is_composite,   "is_composite" );
-
-my $bar_type = Clownfish::CFC::Model::Type->new_object( specifier => 'Bar' );
-my $bar_composite = Clownfish::CFC::Model::Type->new_composite(
-    child       => $bar_type,
-    indirection => 1,
-);
-ok( !$composite_type->equals($bar_composite),
-    "equals spoiled by different child"
-);
-
-my $foo_array = $parser->parse("foo_t[]")
-    or die "Can't parse foo_t[]";
-is( $foo_array->get_array, '[]', "get_array" );
-unlike( $foo_array->to_c, qr/\[\]/, "array subscripts not included by to_c" );
-
-my $foo_array_array = $parser->parse("foo_t[][]")
-    or die "Can't parse foo_t[][]";
-ok( !$foo_array->equals($foo_array_array),
-    "equals spoiled by different array postfixes"
-);
-
-my $foo_star = $parser->parse("foo_t*")
-    or die "Can't parse foo_t*";
-my $foo_star_star = $parser->parse("foo_t**")
-    or die "Can't parse foo_t**";
-ok( !$foo_star->equals($foo_star_star),
-    "equals spoiled by different levels of indirection" );

http://git-wip-us.apache.org/repos/asf/lucy/blob/1704c275/clownfish/compiler/perl/t/200-function.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/200-function.t b/clownfish/compiler/perl/t/200-function.t
deleted file mode 100644
index 2bedb1d..0000000
--- a/clownfish/compiler/perl/t/200-function.t
+++ /dev/null
@@ -1,60 +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.
-
-use strict;
-use warnings;
-
-use Test::More tests => 6;
-
-BEGIN { use_ok('Clownfish::CFC::Model::Function') }
-use Clownfish::CFC::Parser;
-use Clownfish::CFC::Model::Parcel;
-
-my $parser = Clownfish::CFC::Parser->new;
-$parser->parse('parcel Neato;')
-    or die "failed to process parcel_definition";
-
-my %args = (
-    parcel      => 'Neato',
-    return_type => $parser->parse('Obj*'),
-    class_name  => 'Neato::Foo',
-    class_cnick => 'Foo',
-    param_list  => $parser->parse('(int32_t some_num)'),
-    micro_sym   => 'return_an_obj',
-);
-
-my $func = Clownfish::CFC::Model::Function->new(%args);
-isa_ok( $func, "Clownfish::CFC::Model::Function" );
-
-eval {
-    my $death
-        = Clownfish::CFC::Model::Function->new( %args, extra_arg => undef );
-};
-like( $@, qr/extra_arg/, "Extra arg kills constructor" );
-
-eval { Clownfish::CFC::Model::Function->new( %args, micro_sym => 'Uh_Oh' ); };
-like( $@, qr/Uh_Oh/, "invalid micro_sym kills constructor" );
-
-$parser->set_class_name("Neato::Obj");
-$parser->set_class_cnick("Obj");
-isa_ok(
-    $parser->parse($_),
-    "Clownfish::CFC::Model::Function",
-    "function declaration: $_"
-    )
-    for (
-    'inert int running_count(int biscuit);',
-    'public inert Hash* init_fave_hash(int32_t num_buckets, bool o_rly);',
-    );


Mime
View raw message