[pcgen-commit-svn] SF.net SVN: pcgen:[17303] Trunk/utilities/feat parser

[<tri...@us...>]

Revision: 17303
          http://pcgen.svn.sourceforge.net/pcgen/?rev=17303&view=rev
Author:   tripleduck
Date:     2012-09-16 18:52:14 +0000 (Sun, 16 Sep 2012)
Log Message:
-----------
Minor changes to class files

Modified Paths:
--------------
    Trunk/utilities/feat parser/featClass.pm
    Trunk/utilities/feat parser/featsSet.pm

Modified: Trunk/utilities/feat parser/featClass.pm
===================================================================
--- Trunk/utilities/feat parser/featClass.pm	2012-09-16 18:25:57 UTC (rev 17302)
+++ Trunk/utilities/feat parser/featClass.pm	2012-09-16 18:52:14 UTC (rev 17303)
@@ -1,6 +1,5 @@
 #!/usr/bin/perl 
-# created by Brad Kester aka tripleduck 20120912
-#
+
 package featClass;
 
 use strict;

Modified: Trunk/utilities/feat parser/featsSet.pm
===================================================================
--- Trunk/utilities/feat parser/featsSet.pm	2012-09-16 18:25:57 UTC (rev 17302)
+++ Trunk/utilities/feat parser/featsSet.pm	2012-09-16 18:52:14 UTC (rev 17303)
@@ -1,6 +1,5 @@
 #!/usr/bin/perl 
-# created by Brad Kester aka tripleduck 20120912
-#
+
 package featsSet;
 
 use featClass;
@@ -10,7 +9,7 @@
 sub new($);
 sub count($);
 sub add($@);
-sub has($$);
+sub has($$;$);
 sub all($);
 
 #############################################################################
@@ -58,17 +57,21 @@
 }
 
 #############################################################################
-# bool has(feat name)
+# bool has(feat name [, ignore case])
 #
 # determines if any of the existing featClass object have the same name as
 # the given feat name, and return true/false
-sub has($$)
+sub has($$;$)
 {
   my($self)     = shift(@_);
-  my($featName) = lc(shift(@_));
+  my($featName) = shift(@_);
+  my($ic)       = shift(@_) || (1==1);
 
+  $ic and $featName = lc($featName);
+
   for(my $x = $self->count() - 1; $x >= 0; $x--) {
-    if(lc($self->{list}->[$x]->name()) eq $featName) { return (1==1); }
+    if($ic && lc($self->{list}->[$x]->name()) eq $featName) { return (1==1); }
+    if($self->{list}->[$x]->name() eq $featName) { return (1==1); }
   }
 
   return (1==0);

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.