?? rfc.pl
字號:
## -*- Perl -*-# $Id: rfc.pl,v 1.17 2000/02/11 16:46:31 satoru Exp $# Copyright (C) 1997-2000 Satoru Takabayashi ,# 1999 NOKUBI Takatsugu All rights reserved.# This is free software with ABSOLUTELY NO WARRANTY.## This program is free software; you can redistribute it and/or modify# it under the terms of the GNU General Public License as published by# the Free Software Foundation; either versions 2, or (at your option)# any later version.# # This program is distributed in the hope that it will be useful# but WITHOUT ANY WARRANTY; without even the implied warranty of# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the# GNU General Public License for more details.## You should have received a copy of the GNU General Public License# along with this program; if not, write to the Free Software# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA# 02111-1307, USA## This file must be encoded in EUC-JP encoding#package rfc;use strict;require 'util.pl';require 'gfilter.pl';sub mediatype() { return ('text/plain; x-type=rfc');}sub status() { return 'yes';}sub recursive() { return 0;}sub pre_codeconv() { return 1; # For translated documents.}sub post_codeconv () { return 0;}sub add_magic ($) { my ($magic) = @_; $magic->addSpecials("text/plain; x-type=rfc", "^Network Working Group", "^Request [fF]or Comments", "^Obsoletes:", "^Category:", "^Updates:"); $magic->addFileExts('^rfc\d+\.txt$', 'text/plain; x-type=rfc'); $magic->addFileExts('^draft-(\w*-)+-\d+\.txt$', 'text/plain; x-type=internet-draft'); $magic->addFileExts('^fyi\d+\.txt$' => 'text/plain; x-type=fyi'); return;}sub filter ($$$$$) { my ($orig_cfile, $cont, $weighted_str, $headings, $fields) = @_; my $cfile = defined $orig_cfile ? $$orig_cfile : ''; util::vprint("Processing rfc file ...\n"); rfc_filter($cont, $weighted_str, $fields); gfilter::line_adjust_filter($cont); gfilter::line_adjust_filter($weighted_str); gfilter::white_space_adjust_filter($cont); gfilter::show_filter_debug_info($cont, $weighted_str, $fields, $headings); return undef;}# It's not perfect because of fuzziness in RFC documents.sub rfc_filter ($$$) { my ($contref, $weighted_str, $fields) = @_; $$contref =~ s/^\s+//s; # Get an author name first. if ($$contref =~ /^Network Working Group\s+(\S.*\S)\s*$/m) { $fields->{'author'} = $1; } # Handle the header. if ($$contref =~ s/((.+\n)+)\s+(.*)//) { $$weighted_str .= "\x7f1\x7f$1\x7f/1\x7f\n" if defined $1; # Get the title. my $title = $3 if defined $3; $fields->{'title'} = $title; my $weight = $conf::Weight{'html'}->{'title'}; $$weighted_str .= "\x7f$weight\x7f$title\x7f/$weight\x7f\n"; } # Get Summary or Introduction and put it at the beginning # for summarization.# $$contref =~ s/\A(.+?^(\d+\.\s*)?(Abstract|Introduction)\n\n)//ims; $$contref =~ s/([\s\S]+^(\d+\.\s*)?(Abstract|Introduction)\n\n)//im; $$weighted_str .= "\x7f1\x7f$1\x7f/1\x7f\n" if defined $1;}1;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -