Lines Matching refs:off
920 my $off = 0;
926 for ($off = 1; $off < length($line); $off++) {
927 $c = substr($line, $off, 1);
931 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '/*') {
934 substr($res, $off, 2, "$;$;");
935 $off++;
938 if ($sanitise_quote eq '*/' && substr($line, $off, 2) eq '*/') {
940 substr($res, $off, 2, "$;$;");
941 $off++;
944 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '//') {
947 substr($res, $off, 2, $sanitise_quote);
948 $off++;
955 substr($res, $off, 2, 'XX');
956 $off++;
964 substr($res, $off, 1, $c);
972 if ($off != 0 && $sanitise_quote eq '*/' && $c ne "\t") {
973 substr($res, $off, 1, $;);
974 } elsif ($off != 0 && $sanitise_quote eq '//' && $c ne "\t") {
975 substr($res, $off, 1, $;);
976 } elsif ($off != 0 && $sanitise_quote && $c ne "\t") {
977 substr($res, $off, 1, 'X');
979 substr($res, $off, 1, $c);
1009 my ($linenr, $remain, $off) = @_;
1012 my $soff = $off;
1013 my $coff = $off - 1;
1032 if ($off >= $len) {
1045 if ($off >= $len) {
1048 if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
1054 $c = substr($blk, $off, 1);
1055 $remainder = substr($blk, $off);
1079 $coff = $off + length($1) - 1;
1094 $coff = $off;
1108 if (substr($blk, $off + 1, 1) eq ';') {
1109 $off++;
1118 $off++;
1121 $off++;
1124 if ($off == $len) {
1130 my $statement = substr($blk, $soff, $off - $soff + 1);
1139 $line, $remain + 1, $off - $loff + 1, $level);
1186 my ($linenr, $remain, $off) = @_;
1192 ($statement, $condition, $linenr, $remain, $off, $level) =
1193 ctx_statement_block($linenr, $remain, $off);
1203 ($statement, $condition, $linenr, $remain, $off, $level) =
1204 ctx_statement_block($linenr, $remain, $off);
1215 my ($linenr, $remain, $outer, $open, $close, $off) = @_;
1242 if ($off > 0) {
1243 $off--;
1277 my ($linenr, $remain, $off) = @_;
1279 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1288 my ($linenr, $remain, $off) = @_;
1290 return ctx_block_get($linenr, $remain, 0, '(', ')', $off);
3598 my $off = 0;
3601 push(@fix_elements, substr($rawline, $off, length($el)));
3602 $off += length($el);
3605 $off = 0;
3616 $off += length($elements[$n]);
3619 my $ca = substr($opline, 0, $off);
3621 if (length($opline) >= ($off + length($elements[$n + 1]))) {
3622 $cc = substr($opline, $off + length($elements[$n + 1]));
3652 my $ptr = substr($blank, 0, $off) . "^";
3656 my $op_type = substr($curr_values, $off + 1, 1);
3659 my $opv = $op . substr($curr_vars, $off, 1);
3871 $off += length($elements[$n + 1]);
4313 my ($off, $dstat, $dcond, $rest);
4317 ($dstat, $dcond, $ln, $cnt, $off) =
4423 my ($off, $dstat, $dcond, $rest);
4425 ($dstat, $dcond, $ln, $cnt, $off) =