You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2011/03/01 03:16:38 UTC
[lucy-commits] svn commit: r1075620 - in /incubator/lucy/trunk/clownfish:
lib/Clownfish/Util.pm src/CFCUtil.c t/001-util.t
Author: marvin
Date: Tue Mar 1 02:16:38 2011
New Revision: 1075620
URL: http://svn.apache.org/viewvc?rev=1075620&view=rev
Log:
Remove some obsolete material from CFCUtil.
Modified:
incubator/lucy/trunk/clownfish/lib/Clownfish/Util.pm
incubator/lucy/trunk/clownfish/src/CFCUtil.c
incubator/lucy/trunk/clownfish/t/001-util.t
Modified: incubator/lucy/trunk/clownfish/lib/Clownfish/Util.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/clownfish/lib/Clownfish/Util.pm?rev=1075620&r1=1075619&r2=1075620&view=diff
==============================================================================
--- incubator/lucy/trunk/clownfish/lib/Clownfish/Util.pm (original)
+++ incubator/lucy/trunk/clownfish/lib/Clownfish/Util.pm Tue Mar 1 02:16:38 2011
@@ -61,12 +61,6 @@ sub current {
return 1;
}
-sub strip_c_comments {
- my $c_code = shift;
- $c_code =~ s#/\*.*?\*/##gsm;
- return $c_code;
-}
-
sub verify_args {
my $defaults = shift; # leave the rest of @_ intact
Modified: incubator/lucy/trunk/clownfish/src/CFCUtil.c
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/clownfish/src/CFCUtil.c?rev=1075620&r1=1075619&r2=1075620&view=diff
==============================================================================
--- incubator/lucy/trunk/clownfish/src/CFCUtil.c (original)
+++ incubator/lucy/trunk/clownfish/src/CFCUtil.c Tue Mar 1 02:16:38 2011
@@ -26,8 +26,6 @@
#define false 0
#endif
-#define CHAZ_USE_SHORT_NAMES
-
#include "CFCUtil.h"
void*
Modified: incubator/lucy/trunk/clownfish/t/001-util.t
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/clownfish/t/001-util.t?rev=1075620&r1=1075619&r2=1075620&view=diff
==============================================================================
--- incubator/lucy/trunk/clownfish/t/001-util.t (original)
+++ incubator/lucy/trunk/clownfish/t/001-util.t Tue Mar 1 02:16:38 2011
@@ -16,13 +16,12 @@
use strict;
use warnings;
-use Test::More tests => 16;
+use Test::More tests => 15;
use File::stat qw( stat );
use Clownfish::Util qw(
slurp_file
current
verify_args
- strip_c_comments
a_isa_b
write_if_changed
);
@@ -53,10 +52,6 @@ ok( stat($foo_txt)->mtime != $one_second
unlink $foo_txt;
-my $comment = "/* I have nothing to say to you, world. */\n";
-my $no_comment = "\n";
-is( strip_c_comments($comment), $no_comment, "strip_c_comments" );
-
my %defaults = ( foo => undef );
sub test_verify_args { return verify_args( \%defaults, @_ ) }