Mercurial > hg > CbC > CbC_xv6

comparison src/gearsTools/generate_stub.pl @ 247:63a65e3a5340

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tweak_regex...
author anatofuz
date Tue, 04 Feb 2020 11:57:39 +0900
parents 9471a8635489
children 96fd8e1db32f
comparison
equal deleted inserted replaced
246:7e4e7f864970 247:63a65e3a5340
139 } 139 }
140 $var{$name}->{$tname} = $ttype; 140 $var{$name}->{$tname} = $ttype;
141 } 141 }
142 if (/__code (\w+)/) { 142 if (/__code (\w+)/) {
143 my $args = $'; 143 my $args = $';
144 while ($args =~ /(struct|union|const)?\s*([\w\[\]_]+)\*?\s*(\w+),?/g) { 144 while ($args =~ /\s*(struct|union|const)?\s*([\w\[\]_]+)\*?\s*(\w+),?/g) {
145 #$args eq (Impl* vm, pde_t* pgdir, char* init, uint sz, __code next(...)); 145 #$args eq (Impl* vm, pde_t* pgdir, char* init, uint sz, __code next(...));
146 my $const_type = $1; 146 my $const_type = $1;
147 my $ttype = $2; 147 my $ttype = $2;
148 my $tname = $3; 148 my $tname = $3;
149 149