Lines Matching refs:off
1298 my $off = 0;
1304 for ($off = 1; $off < length($line); $off++) {
1305 $c = substr($line, $off, 1);
1309 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '/*') {
1312 substr($res, $off, 2, "$;$;");
1313 $off++;
1316 if ($sanitise_quote eq '*/' && substr($line, $off, 2) eq '*/') {
1318 substr($res, $off, 2, "$;$;");
1319 $off++;
1322 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '//') {
1325 substr($res, $off, 2, $sanitise_quote);
1326 $off++;
1333 substr($res, $off, 2, 'XX');
1334 $off++;
1342 substr($res, $off, 1, $c);
1350 if ($off != 0 && $sanitise_quote eq '*/' && $c ne "\t") {
1351 substr($res, $off, 1, $;);
1352 } elsif ($off != 0 && $sanitise_quote eq '//' && $c ne "\t") {
1353 substr($res, $off, 1, $;);
1354 } elsif ($off != 0 && $sanitise_quote && $c ne "\t") {
1355 substr($res, $off, 1, 'X');
1357 substr($res, $off, 1, $c);
1393 my ($linenr, $remain, $off) = @_;
1396 my $soff = $off;
1397 my $coff = $off - 1;
1416 if ($off >= $len) {
1429 if ($off >= $len) {
1432 if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
1438 $c = substr($blk, $off, 1);
1439 $remainder = substr($blk, $off);
1463 $coff = $off + length($1) - 1;
1478 $coff = $off;
1492 if (substr($blk, $off + 1, 1) eq ';') {
1493 $off++;
1502 $off++;
1505 $off++;
1508 if ($off == $len) {
1514 my $statement = substr($blk, $soff, $off - $soff + 1);
1523 $line, $remain + 1, $off - $loff + 1, $level);
1570 my ($linenr, $remain, $off) = @_;
1576 ($statement, $condition, $linenr, $remain, $off, $level) =
1577 ctx_statement_block($linenr, $remain, $off);
1587 ($statement, $condition, $linenr, $remain, $off, $level) =
1588 ctx_statement_block($linenr, $remain, $off);
1599 my ($linenr, $remain, $outer, $open, $close, $off) = @_;
1626 if ($off > 0) {
1627 $off--;
1661 my ($linenr, $remain, $off) = @_;
1663 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1672 my ($linenr, $remain, $off) = @_;
1674 return ctx_block_get($linenr, $remain, 0, '(', ')', $off);
4486 my $off = 0;
4489 push(@fix_elements, substr($rawline, $off, length($el)));
4490 $off += length($el);
4493 $off = 0;
4504 $off += length($elements[$n]);
4507 my $ca = substr($opline, 0, $off);
4509 if (length($opline) >= ($off + length($elements[$n + 1]))) {
4510 $cc = substr($opline, $off + length($elements[$n + 1]));
4540 my $ptr = substr($blank, 0, $off) . "^";
4544 my $op_type = substr($curr_values, $off + 1, 1);
4547 my $opv = $op . substr($curr_vars, $off, 1);
4766 $off += length($elements[$n + 1]);
5283 my ($off, $dstat, $dcond, $rest);
5287 ($dstat, $dcond, $ln, $cnt, $off) =
5445 my ($off, $dstat, $dcond, $rest);
5447 ($dstat, $dcond, $ln, $cnt, $off) =