tabtonbsplinefilter.pm

来自「codestriker is a develop useful tool to 」· PM 代码 · 共 42 行

###############################################################################
# Codestriker: Copyright (c) 2001, 2002 David Sitsky.  All rights reserved.
# [e-mail]
#
# This program is free software; you can redistribute it and modify it under
# the terms of the GPL.

# Line filter for converting tabs to the appropriate number of  
# entities.

package Codestriker::Http::TabToNbspLineFilter;

use strict;

use Codestriker::Http::LineFilter;

@Codestriker::Http::TabToNbspLineFilter::ISA =
  ("Codestriker::Http::LineFilter");

# Take the desired tabwidth as a parameter.
sub new {
    my ($type, $tabwidth) = @_;

    my $self = Codestriker::Http::LineFilter->new();
    $self->{tabwidth} = $tabwidth;

    return bless $self, $type;
}

# Convert tabs to the appropriate number of   entities.
sub _filter {
    my ($self, $text) = @_;

    my $tabwidth = $self->{tabwidth};
    1 while $text =~ s/\t+/' ' x
      (length($&) * $tabwidth - length($`) % $tabwidth)/eo;

    return $text;
}

1;