jstyle.pl (670c6ce3) jstyle.pl (7a3beb32)
1#!/bin/sh -- # This comment tells perl not to loop!
2#
3#**************************************************************
4#
5# Licensed to the Apache Software Foundation (ASF) under one
6# or more contributor license agreements. See the NOTICE file
7# distributed with this work for additional information
8# regarding copyright ownership. The ASF licenses this file

--- 224 unchanged lines hidden (view full) ---

233 1 while $eline =~
234 s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e;
235 $l = length($eline);
236 if (length($eline) > 100) {
237 do err("line > 100 characters ($l)");
238 }
239 }
240# this is the fastest way to check line length,
1#!/bin/sh -- # This comment tells perl not to loop!
2#
3#**************************************************************
4#
5# Licensed to the Apache Software Foundation (ASF) under one
6# or more contributor license agreements. See the NOTICE file
7# distributed with this work for additional information
8# regarding copyright ownership. The ASF licenses this file

--- 224 unchanged lines hidden (view full) ---

233 1 while $eline =~
234 s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e;
235 $l = length($eline);
236 if (length($eline) > 100) {
237 do err("line > 100 characters ($l)");
238 }
239 }
240# this is the fastest way to check line length,
241# but it doesn't work with perl 3.0.
241# but it doesnt work with perl 3.0.
242# if ($line =~ tr/\t/\t/ * 7 + length($line) > 80) {
243# $pos = $oldp = $p = 0;
244# while (($p = index($line, "\t", $p)) >= 0) {
245# $pos = ($pos + $p - $oldp + 8) & ~7;
246# $oldp = ++$p;
247# }
248# $pos += length($line) - $oldp;
249# if ($pos > 80) {

--- 288 unchanged lines hidden --- 		242# if ($line =~ tr/\t/\t/ * 7 + length($line) > 80) {
243# $pos = $oldp = $p = 0;
244# while (($p = index($line, "\t", $p)) >= 0) {
245# $pos = ($pos + $p - $oldp + 8) & ~7;
246# $oldp = ++$p;
247# }
248# $pos += length($line) - $oldp;
249# if ($pos > 80) {

--- 288 unchanged lines hidden ---