Lines Matching refs:off
1542 my $off = 0;
1548 for ($off = 1; $off < length($line); $off++) {
1549 $c = substr($line, $off, 1);
1553 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '/*') {
1556 substr($res, $off, 2, "$;$;");
1557 $off++;
1560 if ($sanitise_quote eq '*/' && substr($line, $off, 2) eq '*/') {
1562 substr($res, $off, 2, "$;$;");
1563 $off++;
1566 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '//') {
1569 substr($res, $off, 2, $sanitise_quote);
1570 $off++;
1577 substr($res, $off, 2, 'XX');
1578 $off++;
1586 substr($res, $off, 1, $c);
1594 if ($off != 0 && $sanitise_quote eq '*/' && $c ne "\t") {
1595 substr($res, $off, 1, $;);
1596 } elsif ($off != 0 && $sanitise_quote eq '//' && $c ne "\t") {
1597 substr($res, $off, 1, $;);
1598 } elsif ($off != 0 && $sanitise_quote && $c ne "\t") {
1599 substr($res, $off, 1, 'X');
1601 substr($res, $off, 1, $c);
1637 my ($linenr, $remain, $off) = @_;
1640 my $soff = $off;
1641 my $coff = $off - 1;
1660 if ($off >= $len) {
1673 if ($off >= $len) {
1676 if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
1682 $c = substr($blk, $off, 1);
1683 $remainder = substr($blk, $off);
1707 $coff = $off + length($1) - 1;
1722 $coff = $off;
1736 if (substr($blk, $off + 1, 1) eq ';') {
1737 $off++;
1746 $off++;
1749 $off++;
1752 if ($off == $len) {
1758 my $statement = substr($blk, $soff, $off - $soff + 1);
1767 $line, $remain + 1, $off - $loff + 1, $level);
1814 my ($linenr, $remain, $off) = @_;
1820 ($statement, $condition, $linenr, $remain, $off, $level) =
1821 ctx_statement_block($linenr, $remain, $off);
1831 ($statement, $condition, $linenr, $remain, $off, $level) =
1832 ctx_statement_block($linenr, $remain, $off);
1843 my ($linenr, $remain, $outer, $open, $close, $off) = @_;
1870 if ($off > 0) {
1871 $off--;
1905 my ($linenr, $remain, $off) = @_;
1907 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1916 my ($linenr, $remain, $off) = @_;
1918 return ctx_block_get($linenr, $remain, 0, '(', ')', $off);
5099 my $off = 0;
5102 push(@fix_elements, substr($rawline, $off, length($el)));
5103 $off += length($el);
5106 $off = 0;
5117 $off += length($elements[$n]);
5120 my $ca = substr($opline, 0, $off);
5122 if (length($opline) >= ($off + length($elements[$n + 1]))) {
5123 $cc = substr($opline, $off + length($elements[$n + 1]));
5153 my $ptr = substr($blank, 0, $off) . "^";
5157 my $op_type = substr($curr_values, $off + 1, 1);
5160 my $opv = $op . substr($curr_vars, $off, 1);
5372 $off += length($elements[$n + 1]);
5898 my ($off, $dstat, $dcond, $rest);
5902 ($dstat, $dcond, $ln, $cnt, $off) =
6061 my ($off, $dstat, $dcond, $rest);
6063 ($dstat, $dcond, $ln, $cnt, $off) =