projects / OpenSPARC-T2-DV / blame
| Commit | Line | Data |
|---|---|---|
| 86530b38 AT |
1 | |
| 2 | package Text::Tabs; | |
| 3 | ||
| 4 | require Exporter; | |
| 5 | ||
| 6 | @ISA = (Exporter); | |
| 7 | @EXPORT = qw(expand unexpand $tabstop); | |
| 8 | ||
| 9 | use vars qw($VERSION $tabstop $debug); | |
| 10 | $VERSION = 98.112801; | |
| 11 | ||
| 12 | use strict; | |
| 13 | ||
| 14 | BEGIN { | |
| 15 | $tabstop = 8; | |
| 16 | $debug = 0; | |
| 17 | } | |
| 18 | ||
| 19 | sub expand | |
| 20 | { | |
| 21 | my (@l) = @_; | |
| 22 | for $_ (@l) { | |
| 23 | 1 while s/(^|\n)([^\t\n]*)(\t+)/ | |
| 24 | $1. $2 . (" " x | |
| 25 | ($tabstop * length($3) | |
| 26 | - (length($2) % $tabstop))) | |
| 27 | /sex; | |
| 28 | } | |
| 29 | return @l if wantarray; | |
| 30 | return $l[0]; | |
| 31 | } | |
| 32 | ||
| 33 | sub unexpand | |
| 34 | { | |
| 35 | my (@l) = @_; | |
| 36 | my @e; | |
| 37 | my $x; | |
| 38 | my $line; | |
| 39 | my @lines; | |
| 40 | my $lastbit; | |
| 41 | for $x (@l) { | |
| 42 | @lines = split("\n", $x, -1); | |
| 43 | for $line (@lines) { | |
| 44 | $line = expand($line); | |
| 45 | @e = split(/(.{$tabstop})/,$line,-1); | |
| 46 | $lastbit = pop(@e); | |
| 47 | $lastbit = '' unless defined $lastbit; | |
| 48 | $lastbit = "\t" | |
| 49 | if $lastbit eq " "x$tabstop; | |
| 50 | for $_ (@e) { | |
| 51 | if ($debug) { | |
| 52 | my $x = $_; | |
| 53 | $x =~ s/\t/^I\t/gs; | |
| 54 | print "sub on '$x'\n"; | |
| 55 | } | |
| 56 | s/ +$/\t/; | |
| 57 | } | |
| 58 | $line = join('',@e, $lastbit); | |
| 59 | } | |
| 60 | $x = join("\n", @lines); | |
| 61 | } | |
| 62 | return @l if wantarray; | |
| 63 | return $l[0]; | |
| 64 | } | |
| 65 | ||
| 66 | 1; | |
| 67 | __END__ | |
| 68 | ||
| 69 | ||
| 70 | =head1 NAME | |
| 71 | ||
| 72 | Text::Tabs -- expand and unexpand tabs per the unix expand(1) and unexpand(1) | |
| 73 | ||
| 74 | =head1 SYNOPSIS | |
| 75 | ||
| 76 | use Text::Tabs; | |
| 77 | ||
| 78 | $tabstop = 4; | |
| 79 | @lines_without_tabs = expand(@lines_with_tabs); | |
| 80 | @lines_with_tabs = unexpand(@lines_without_tabs); | |
| 81 | ||
| 82 | =head1 DESCRIPTION | |
| 83 | ||
| 84 | Text::Tabs does about what the unix utilities expand(1) and unexpand(1) | |
| 85 | do. Given a line with tabs in it, expand will replace the tabs with | |
| 86 | the appropriate number of spaces. Given a line with or without tabs in | |
| 87 | it, unexpand will add tabs when it can save bytes by doing so. Invisible | |
| 88 | compression with plain ascii! | |
| 89 | ||
| 90 | =head1 BUGS | |
| 91 | ||
| 92 | expand doesn't handle newlines very quickly -- do not feed it an | |
| 93 | entire document in one string. Instead feed it an array of lines. | |
| 94 | ||
| 95 | =head1 AUTHOR | |
| 96 | ||
| 97 | David Muir Sharnoff <muir@idiom.com> |