From 8c965a2961ea6ae188a351be2671cfe63ac0a9ed Mon Sep 17 00:00:00 2001
From: Eric Busboom <ericb@src.gnome.org>
Date: Mon, 15 May 2000 04:25:39 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r3037, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/; revision=3038
---
 libical/scripts/mkderivedvalues.pl | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

(limited to 'libical/scripts/mkderivedvalues.pl')

diff --git a/libical/scripts/mkderivedvalues.pl b/libical/scripts/mkderivedvalues.pl
index a0909a6d94..ca2ee4b3a1 100755
--- a/libical/scripts/mkderivedvalues.pl
+++ b/libical/scripts/mkderivedvalues.pl
@@ -32,7 +32,11 @@ if ($opt_i) {
 
   }    
 
-  print "/* Everything below this line is machine generated. Do not edit. */\n";
+  if($opt_p){
+    print "# Everything below this line is machine generated. Do not edit. \n";
+  } else {
+    print "/* Everything below this line is machine generated. Do not edit. */\n";
+  }
 
 }
 
@@ -224,9 +228,9 @@ EOM
 
 print <<EOM;
 
-package ICal::Value::${ucf}; 
-use ICal::Value;
-\@ISA=qw(ICal::Value);
+package Net::ICal::Value::${ucf}; 
+use Net::ICal::Value;
+\@ISA=qw(Net::ICal::Value);
 sub new
 {
    my \$self = [];
@@ -238,9 +242,9 @@ sub new
    my \$p;
 
    if (\$value){
-      \$p = ICal::icalvalue_new_from_string(\$ICal::ICAL_${uc}_VALUE,\$value);
+      \$p = Net::ICal::icalvalue_new_from_string(\$Net::ICal::ICAL_${uc}_VALUE,\$value);
    } else {
-      \$p = ICal::icalvalue_new(\$ICal::ICAL_${uc}_VALUE);
+      \$p = Net::ICal::icalvalue_new(\$Net::ICal::ICAL_${uc}_VALUE);
    }
 
    \$self->[0] = \$p;
@@ -256,9 +260,9 @@ sub set
    my \$impl = \$self->_impl();
 
    if (\$v) {
-      my \$new_value = ICal::icalvalue_new_from_string(\$ICal::ICAL_${uc}_VALUE,\$v);
+      my \$new_value = Net::ICal::icalvalue_new_from_string(\$Net::ICal::ICAL_${uc}_VALUE,\$v);
       if (\$new_value){
-         ICal::icalvalue_free(\$self->[0]);
+         Net::ICal::icalvalue_free(\$self->[0]);
           \$self->[0] = \$new_value;
       }
 
@@ -273,7 +277,7 @@ sub get
 
    if (defined \$impl){
 
-     return  ICal::icalvalue_as_ical_string(\$impl);
+     return  Net::ICal::icalvalue_as_ical_string(\$impl);
 
    }
 }
-- 
cgit v1.2.3