Lines Matching refs:off
964 my $off = 0;
970 for ($off = 1; $off < length($line); $off++) {
971 $c = substr($line, $off, 1);
975 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '/*') {
978 substr($res, $off, 2, "$;$;");
979 $off++;
982 if ($sanitise_quote eq '*/' && substr($line, $off, 2) eq '*/') {
984 substr($res, $off, 2, "$;$;");
985 $off++;
988 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '//') {
991 substr($res, $off, 2, $sanitise_quote);
992 $off++;
999 substr($res, $off, 2, 'XX');
1000 $off++;
1008 substr($res, $off, 1, $c);
1016 if ($off != 0 && $sanitise_quote eq '*/' && $c ne "\t") {
1017 substr($res, $off, 1, $;);
1018 } elsif ($off != 0 && $sanitise_quote eq '//' && $c ne "\t") {
1019 substr($res, $off, 1, $;);
1020 } elsif ($off != 0 && $sanitise_quote && $c ne "\t") {
1021 substr($res, $off, 1, 'X');
1023 substr($res, $off, 1, $c);
1053 my ($linenr, $remain, $off) = @_;
1056 my $soff = $off;
1057 my $coff = $off - 1;
1076 if ($off >= $len) {
1089 if ($off >= $len) {
1092 if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
1098 $c = substr($blk, $off, 1);
1099 $remainder = substr($blk, $off);
1123 $coff = $off + length($1) - 1;
1138 $coff = $off;
1152 if (substr($blk, $off + 1, 1) eq ';') {
1153 $off++;
1162 $off++;
1165 $off++;
1168 if ($off == $len) {
1174 my $statement = substr($blk, $soff, $off - $soff + 1);
1183 $line, $remain + 1, $off - $loff + 1, $level);
1230 my ($linenr, $remain, $off) = @_;
1236 ($statement, $condition, $linenr, $remain, $off, $level) =
1237 ctx_statement_block($linenr, $remain, $off);
1247 ($statement, $condition, $linenr, $remain, $off, $level) =
1248 ctx_statement_block($linenr, $remain, $off);
1259 my ($linenr, $remain, $outer, $open, $close, $off) = @_;
1286 if ($off > 0) {
1287 $off--;
1321 my ($linenr, $remain, $off) = @_;
1323 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1332 my ($linenr, $remain, $off) = @_;
1334 return ctx_block_get($linenr, $remain, 0, '(', ')', $off);
3765 my $off = 0;
3768 push(@fix_elements, substr($rawline, $off, length($el)));
3769 $off += length($el);
3772 $off = 0;
3783 $off += length($elements[$n]);
3786 my $ca = substr($opline, 0, $off);
3788 if (length($opline) >= ($off + length($elements[$n + 1]))) {
3789 $cc = substr($opline, $off + length($elements[$n + 1]));
3819 my $ptr = substr($blank, 0, $off) . "^";
3823 my $op_type = substr($curr_values, $off + 1, 1);
3826 my $opv = $op . substr($curr_vars, $off, 1);
4038 $off += length($elements[$n + 1]);
4509 my ($off, $dstat, $dcond, $rest);
4513 ($dstat, $dcond, $ln, $cnt, $off) =
4619 my ($off, $dstat, $dcond, $rest);
4621 ($dstat, $dcond, $ln, $cnt, $off) =