From 1ffd953c396b85a46f3ccc19e76901f7b0c7d43f Mon Sep 17 00:00:00 2001 From: Tim Janik Date: Mon, 30 Apr 2001 17:59:47 +0000 Subject: [PATCH] removed \v escaping, newer perl versions don't support this, and it'S Mon Apr 30 20:03:56 2001 Tim Janik * glib-mkenums (usage): removed \v escaping, newer perl versions don't support this, and it'S probably useless anyways. --- gobject/ChangeLog | 5 +++++ gobject/glib-mkenums | 14 +++++++------- gobject/glib-mkenums.in | 14 +++++++------- 3 files changed, 19 insertions(+), 14 deletions(-) diff --git a/gobject/ChangeLog b/gobject/ChangeLog index 76de021..de0aa02 100644 --- a/gobject/ChangeLog +++ b/gobject/ChangeLog @@ -1,3 +1,8 @@ +Mon Apr 30 20:03:56 2001 Tim Janik + + * glib-mkenums (usage): removed \v escaping, newer perl versions don't + support this, and it'S probably useless anyways. + Sat Apr 28 23:39:42 2001 Tim Janik * gsignal.[hc]: made signal handler and emission hook ids gulongs. diff --git a/gobject/glib-mkenums b/gobject/glib-mkenums index fc6588e..4efcb30 100755 --- a/gobject/glib-mkenums +++ b/gobject/glib-mkenums @@ -187,7 +187,7 @@ if (length($fhead)) { $prod =~ s/\@filename\@/$ARGV/g; $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; print "$prod\n"; } @@ -306,7 +306,7 @@ while (<>) { $prod =~ s/\@filename\@/$ARGV/g; $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; print "$prod\n"; } @@ -323,7 +323,7 @@ while (<>) { if ($flags) { $prod =~ s/\@Type\@/Flags/g; } else { $prod =~ s/\@Type\@/Enum/g; } if ($flags) { $prod =~ s/\@TYPE\@/FLAGS/g; } else { $prod =~ s/\@TYPE\@/ENUM/g; } $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; print "$prod\n"; } @@ -339,7 +339,7 @@ while (<>) { if ($flags) { $prod =~ s/\@Type\@/Flags/g; } else { $prod =~ s/\@Type\@/Enum/g; } if ($flags) { $prod =~ s/\@TYPE\@/FLAGS/g; } else { $prod =~ s/\@TYPE\@/ENUM/g; } $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; print "$prod\n"; } @@ -348,7 +348,7 @@ while (<>) { my $prod = $vprod; $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; for (@entries) { my ($name,$nick) = @{$_}; my $tmp_prod = $vprod; @@ -374,7 +374,7 @@ while (<>) { if ($flags) { $prod =~ s/\@Type\@/Flags/g; } else { $prod =~ s/\@Type\@/Enum/g; } if ($flags) { $prod =~ s/\@TYPE\@/FLAGS/g; } else { $prod =~ s/\@TYPE\@/ENUM/g; } $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; print "$prod\n"; } @@ -386,7 +386,7 @@ if (length($ftail)) { $prod =~ s/\@filename\@/$ARGV/g; $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; print "$prod\n"; } diff --git a/gobject/glib-mkenums.in b/gobject/glib-mkenums.in index fc6588e..4efcb30 100755 --- a/gobject/glib-mkenums.in +++ b/gobject/glib-mkenums.in @@ -187,7 +187,7 @@ if (length($fhead)) { $prod =~ s/\@filename\@/$ARGV/g; $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; print "$prod\n"; } @@ -306,7 +306,7 @@ while (<>) { $prod =~ s/\@filename\@/$ARGV/g; $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; print "$prod\n"; } @@ -323,7 +323,7 @@ while (<>) { if ($flags) { $prod =~ s/\@Type\@/Flags/g; } else { $prod =~ s/\@Type\@/Enum/g; } if ($flags) { $prod =~ s/\@TYPE\@/FLAGS/g; } else { $prod =~ s/\@TYPE\@/ENUM/g; } $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; print "$prod\n"; } @@ -339,7 +339,7 @@ while (<>) { if ($flags) { $prod =~ s/\@Type\@/Flags/g; } else { $prod =~ s/\@Type\@/Enum/g; } if ($flags) { $prod =~ s/\@TYPE\@/FLAGS/g; } else { $prod =~ s/\@TYPE\@/ENUM/g; } $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; print "$prod\n"; } @@ -348,7 +348,7 @@ while (<>) { my $prod = $vprod; $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; for (@entries) { my ($name,$nick) = @{$_}; my $tmp_prod = $vprod; @@ -374,7 +374,7 @@ while (<>) { if ($flags) { $prod =~ s/\@Type\@/Flags/g; } else { $prod =~ s/\@Type\@/Enum/g; } if ($flags) { $prod =~ s/\@TYPE\@/FLAGS/g; } else { $prod =~ s/\@TYPE\@/ENUM/g; } $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; print "$prod\n"; } @@ -386,7 +386,7 @@ if (length($ftail)) { $prod =~ s/\@filename\@/$ARGV/g; $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g; - $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; + $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g; print "$prod\n"; } -- 2.7.4