Lines Matching full:s
16 GetOptions("ccsregs|c=s" => \$ccsregs,
17 "header|e=s" => \$header,
18 "regarray|r=s" => \$regarray,
19 "limitc|l=s" => \$limitc,
20 "limith|L=s" => \$limith,
71 $uc_header =~ s/[^A-Z0-9]/_/g;
160 $uc_limith =~ s/[^A-Z0-9]/_/g;
202 $args = [split /,\s*/, $args];
204 $t =~ s/[\(\)]//g;
205 $t =~ s/\//\\\//g;
217 s/ {8,8}/\t/g;
218 s/\t\K +//;
286 s/^\s*//;
288 if (s/^-\s*//) {
289 if (s/^b\s*//) {
292 …$hdr_data .= sprintf "#define %-62s %s", "CCS_" . (uc ${this{name}}) ."_$bit", bit_def($addr) . "\…
293 } elsif (s/^f\s*//) {
294 s/[,\.-]/_/g;
295 my @a = split /\s+/;
302 …$hdr_data .= sprintf "#define %-62s " . $ar->{"fmt"} . "\n", "CCS_" . (uc $this{"name"}) . (define…
304 } elsif (s/^e\s*//) {
305 s/[,\.-]/_/g;
306 my ($enum, $addr) = split /\s+/;
308 …$hdr_data .= sprintf "#define %-62s %s", "CCS_" . (uc ${this{name}}) . (defined $this{"field"} ? "…
309 } elsif (s/^l\s*//) {
310 my ($arg, $min, $max, $elsize, @discontig) = split /\s+/;
317 …$hdr_data .= sprintf "#define %-62s %s", "CCS_LIM_" . (uc ${this{name}} . "_MIN_$arg"), $min . ($m…
318 …$hdr_data .= sprintf "#define %-62s %s", "CCS_LIM_" . (uc ${this{name}} . "_MAX_$arg"), $max . ($m…
355 $lim_formula =~ s/^\(([a-z0-9]+)\)$/$1/i;
357 print $H tabconv sprintf("#define %-62s %s", "CCS_R_" . (uc $this{name}) .
387 print $LH tabconv sprintf "#define %-63s%s\n",
407 $name =~ s/[,\.-]/_/g;
417 $flagstring =~ s/^\| //;
418 $flagstring =~ s/ $//;
429 $hdr_data .= sprintf "#define %-62s %s\n", "CCS_R_" . (uc $name), $addr
432 $name =~ s/\(.*//;
454 print $LH tabconv sprintf "#define %-63s%s\n",
469 print $LH tabconv sprintf "#define %-63s%s\n", "CCS_L_LAST", $limitcount;