Tera TermRevision: 10356
https://osdn.net/projects/ttssh2/scm/svn/commits/10356
Author: zmatsuo
Date: 2022-11-11 23:12:51 +0900 (Fri, 11 Nov 2022)
Log Message:
-----------
BOM削除、改行コードを変更
Modified Paths:
--------------
trunk/doc/htmlhelp_index_make.pl
-------------- next part --------------
Modified: trunk/doc/htmlhelp_index_make.pl
===================================================================
--- trunk/doc/htmlhelp_index_make.pl 2022-11-11 14:12:42 UTC (rev 10355)
+++ trunk/doc/htmlhelp_index_make.pl 2022-11-11 14:12:51 UTC (rev 10356)
@@ -1,134 +1,134 @@
-#! /usr/bin/perl
-
-#
-# HTMLヘルプのインデックスファイルを生成する
-#
-# Usage:
-# perl htmlhelp_index_make.pl ja html -o ja\Index.hhk
-#
-
-require 5.8.0;
-use strict;
-use warnings;
-use utf8;
-use Cwd;
-use Getopt::Long
-
-binmode STDOUT, ":utf8";
-
-my $out = "index.hhk";
-my $verbose = 0;
-my $result = GetOptions(
- 'out|o=s' => \$out,
- 'verbose' => \$verbose
- );
-
-my $OUT;
-open ($OUT, '>:crlf:encoding(shiftjis)', $out);
-
-my @dirstack = ();
-
-do_main($ARGV[0], $ARGV[1]);
-
-close $OUT;
-exit(0);
-
-sub do_main {
- my($path, $body) = @_;
-
- print $OUT <<'EOD';
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<HTML><HEAD>
-<meta name="GENERATOR" content="TeraTerm Project">
-<!-- Sitemap 1.0 -->
-</HEAD><BODY>
-<UL>
-EOD
-
- push @dirstack, getcwd;
- chdir $path or die "cannot chdir to $path $!";
- get_file_paths($body);
- chdir pop @dirstack;
-
- print $OUT <<'EOD';
-</UL>
-</BODY></HTML>
-EOD
-
-}
-
-
-sub get_file_paths {
- my ($top_dir)= @_;
- my @temp = ();
-
- #-- カレントの一覧を取得 --#
- opendir(DIR, $top_dir);
- @temp = readdir(DIR);
- closedir(DIR);
- foreach my $path (sort @temp) {
- next if( $path =~ /^\.{1,2}$/ ); # '.' と '..' はスキップ
- next if( $path =~ /^\.svn$/ ); # '.svn' はスキップ
-
- my $full_path = "$top_dir" . '/' . "$path";
-
- if ($verbose != 0) {
- print "$full_path\r\n";
- }
- if( -d "$top_dir/$path" ){ #-- ディレクトリの場合は自分自身を呼び出す
- &get_file_paths("$full_path");
-
- } else {
- check_html_file($full_path);
-
- }
- }
-}
-
-sub check_html_file {
- my($filename) = shift;
- local(*FP);
- my($line, $no, $val);
-
- if ($filename !~ /.html$/) {
- return;
- }
-
- open(FP, "<:crlf:encoding(sjis)", "$filename") || return;
- $no = 1;
- my $find_title = 0;
- while ($line = <FP>) {
-# $line = chomp($line);
-# print "$line\n";
- if ($line =~ /<TITLE>(.+)<\/TITLE>/i) {
-# print "$filename:$no: $1\n";
-# print "$line\n";
- $val = $1;
- $val =~ s/"/"/g; # 二重引用符をエスケープする
- write_add_index($filename, $val);
- $find_title = 1;
- last;
- }
-
- $no++;
- }
- if ($find_title == 0) {
- # タイトルがないhtmlのときファイル名をタイトルとする
- $filename =~ /\/([^\/]+)\.html$/;
- my $title = $1;
- write_add_index($filename, $title);
- }
- close(FP);
-}
-
-sub write_add_index {
- my($filename, $title) = @_;
-
- print $OUT <<"EOD";
-<LI><OBJECT type="text/sitemap">
-<param name="Name" value="$title">
-<param name="Local" value="$filename">
-</OBJECT>
-EOD
-
-}
+#! /usr/bin/perl
+
+#
+# HTMLヘルプのインデックスファイルを生成する
+#
+# Usage:
+# perl htmlhelp_index_make.pl ja html -o ja\Index.hhk
+#
+
+require 5.8.0;
+use strict;
+use warnings;
+use utf8;
+use Cwd;
+use Getopt::Long
+
+binmode STDOUT, ":utf8";
+
+my $out = "index.hhk";
+my $verbose = 0;
+my $result = GetOptions(
+ 'out|o=s' => \$out,
+ 'verbose' => \$verbose
+ );
+
+my $OUT;
+open ($OUT, '>:crlf:encoding(shiftjis)', $out);
+
+my @dirstack = ();
+
+do_main($ARGV[0], $ARGV[1]);
+
+close $OUT;
+exit(0);
+
+sub do_main {
+ my($path, $body) = @_;
+
+ print $OUT <<'EOD';
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<HTML><HEAD>
+<meta name="GENERATOR" content="TeraTerm Project">
+<!-- Sitemap 1.0 -->
+</HEAD><BODY>
+<UL>
+EOD
+
+ push @dirstack, getcwd;
+ chdir $path or die "cannot chdir to $path $!";
+ get_file_paths($body);
+ chdir pop @dirstack;
+
+ print $OUT <<'EOD';
+</UL>
+</BODY></HTML>
+EOD
+
+}
+
+
+sub get_file_paths {
+ my ($top_dir)= @_;
+ my @temp = ();
+
+ #-- カレントの一覧を取得 --#
+ opendir(DIR, $top_dir);
+ @temp = readdir(DIR);
+ closedir(DIR);
+ foreach my $path (sort @temp) {
+ next if( $path =~ /^\.{1,2}$/ ); # '.' と '..' はスキップ
+ next if( $path =~ /^\.svn$/ ); # '.svn' はスキップ
+
+ my $full_path = "$top_dir" . '/' . "$path";
+
+ if ($verbose != 0) {
+ print "$full_path\r\n";
+ }
+ if( -d "$top_dir/$path" ){ #-- ディレクトリの場合は自分自身を呼び出す
+ &get_file_paths("$full_path");
+
+ } else {
+ check_html_file($full_path);
+
+ }
+ }
+}
+
+sub check_html_file {
+ my($filename) = shift;
+ local(*FP);
+ my($line, $no, $val);
+
+ if ($filename !~ /.html$/) {
+ return;
+ }
+
+ open(FP, "<:crlf:encoding(sjis)", "$filename") || return;
+ $no = 1;
+ my $find_title = 0;
+ while ($line = <FP>) {
+# $line = chomp($line);
+# print "$line\n";
+ if ($line =~ /<TITLE>(.+)<\/TITLE>/i) {
+# print "$filename:$no: $1\n";
+# print "$line\n";
+ $val = $1;
+ $val =~ s/"/"/g; # 二重引用符をエスケープする
+ write_add_index($filename, $val);
+ $find_title = 1;
+ last;
+ }
+
+ $no++;
+ }
+ if ($find_title == 0) {
+ # タイトルがないhtmlのときファイル名をタイトルとする
+ $filename =~ /\/([^\/]+)\.html$/;
+ my $title = $1;
+ write_add_index($filename, $title);
+ }
+ close(FP);
+}
+
+sub write_add_index {
+ my($filename, $title) = @_;
+
+ print $OUT <<"EOD";
+<LI><OBJECT type="text/sitemap">
+<param name="Name" value="$title">
+<param name="Local" value="$filename">
+</OBJECT>
+EOD
+
+}