Lines Matching refs:off
1580 my $off = 0;
1586 for ($off = 1; $off < length($line); $off++) {
1587 $c = substr($line, $off, 1);
1591 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '/*') {
1594 substr($res, $off, 2, "$;$;");
1595 $off++;
1598 if ($sanitise_quote eq '*/' && substr($line, $off, 2) eq '*/') {
1600 substr($res, $off, 2, "$;$;");
1601 $off++;
1604 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '//') {
1607 substr($res, $off, 2, $sanitise_quote);
1608 $off++;
1615 substr($res, $off, 2, 'XX');
1616 $off++;
1624 substr($res, $off, 1, $c);
1632 if ($off != 0 && $sanitise_quote eq '*/' && $c ne "\t") {
1633 substr($res, $off, 1, $;);
1634 } elsif ($off != 0 && $sanitise_quote eq '//' && $c ne "\t") {
1635 substr($res, $off, 1, $;);
1636 } elsif ($off != 0 && $sanitise_quote && $c ne "\t") {
1637 substr($res, $off, 1, 'X');
1639 substr($res, $off, 1, $c);
1675 my ($linenr, $remain, $off) = @_;
1678 my $soff = $off;
1679 my $coff = $off - 1;
1698 if ($off >= $len) {
1711 if ($off >= $len) {
1714 if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
1720 $c = substr($blk, $off, 1);
1721 $remainder = substr($blk, $off);
1745 $coff = $off + length($1) - 1;
1760 $coff = $off;
1774 if (substr($blk, $off + 1, 1) eq ';') {
1775 $off++;
1784 $off++;
1787 $off++;
1790 if ($off == $len) {
1796 my $statement = substr($blk, $soff, $off - $soff + 1);
1805 $line, $remain + 1, $off - $loff + 1, $level);
1852 my ($linenr, $remain, $off) = @_;
1858 ($statement, $condition, $linenr, $remain, $off, $level) =
1859 ctx_statement_block($linenr, $remain, $off);
1869 ($statement, $condition, $linenr, $remain, $off, $level) =
1870 ctx_statement_block($linenr, $remain, $off);
1881 my ($linenr, $remain, $outer, $open, $close, $off) = @_;
1908 if ($off > 0) {
1909 $off--;
1943 my ($linenr, $remain, $off) = @_;
1945 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1954 my ($linenr, $remain, $off) = @_;
1956 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]);
5914 my ($off, $dstat, $dcond, $rest);
5918 ($dstat, $dcond, $ln, $cnt, $off) =
6087 my ($off, $dstat, $dcond, $rest);
6089 ($dstat, $dcond, $ln, $cnt, $off) =