>From e9d75e866a39a9c9af9bf4c2da7c64225b302d42 Mon Sep 17 00:00:00 2001
From: Akira Yokosawa <akiyks@xxxxxxxxx>
Date: Sun, 23 Dec 2018 13:43:57 +0900
Subject: [PATCH 03/11] fcvextract.pl: Make 'keepcomment=no' as default
This change removes comments in Listings 4.8 and 9.5, which were
inadvertently sneaked in during the scheme update.
Signed-off-by: Akira Yokosawa <akiyks@xxxxxxxxx>
---
utilities/fcvextract.pl | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/utilities/fcvextract.pl b/utilities/fcvextract.pl
index 2ad201f..71e761d 100755
--- a/utilities/fcvextract.pl
+++ b/utilities/fcvextract.pl
@@ -90,8 +90,8 @@
# on the line.
#
# By default, comment blocks of the form "/* ... */" in C language
-# code will be kept in the extracted snippet. To omit those blocks,
-# put an option "keepcomment=no" to \begin{snippet} meta command.
+# code will be removed in the extracted snippet. To keep those blocks,
+# put an option "keepcomment=yes" to \begin{snippet} meta command.
#
# Also, this script recognizes #ifndef -- #else -- #endif conditional
# of the following form to allow alternative code for snippet:
@@ -130,7 +130,7 @@ my $file_name;
my $func_name;
my $label;
my $env_name = "VerbatimL" ;
-my $keepcomment = 1;
+my $keepcomment = 0;
my $incomment = 0;
my $ifndef = 0;
my $other_opts;
@@ -256,8 +256,8 @@ while($line = <>) {
$esc_close = "\}" ;
}
if ($line =~ /keepcomment=([^,\]]+).\]/) {
- if ($1 eq "no") {
- $keepcomment = 0;
+ if ($1 eq "yes") {
+ $keepcomment = 1;
}
$_ = $line;
s/keepcomment=[^,\]]+,?// ;
--
2.7.4
