Mercurial > hg > xemacs-beta

comparison lib-src/make-mswin-unicode.pl @ 5928:2f34b59f451a cygwin

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
from Vin?
author Henry Thompson <ht@markup.co.uk>
date Fri, 24 Jul 2015 14:48:46 +0100
parents 0f2338afbabf
children
comparison
equal deleted inserted replaced
5926:da02ba75e50a 5928:2f34b59f451a
180 my $arg_re = "(?:(?:$typetoken_re+)(?:${tok_ch}+)?(?: OPTIONAL)?)"; 180 my $arg_re = "(?:(?:$typetoken_re+)(?:${tok_ch}+)?(?: OPTIONAL)?)";
181 # Same, but with groups to match the type and name 181 # Same, but with groups to match the type and name
182 my $argmatch_re = "(?:($typetoken_re+)(${tok_ch}+)?(?: OPTIONAL)?)"; 182 my $argmatch_re = "(?:($typetoken_re+)(${tok_ch}+)?(?: OPTIONAL)?)";
183 # regexp matching a parenthesized argument list in a prototype 183 # regexp matching a parenthesized argument list in a prototype
184 my $args_re = "\\(((?:${ws_re}${arg_re}${ws_re},)*${ws_re}${arg_re}${ws_re})\\)"; 184 my $args_re = "\\(((?:${ws_re}${arg_re}${ws_re},)*${ws_re}${arg_re}${ws_re})\\)";
185 # regexp matching a return type in a protype 185 # regexp matching a return type in a protype -- this one from Vin
186 my $rettype_re = "(SHSTDAPI_\\([${tok_ch} *]+\\)|${tok_ch}" . "[A-Za-z_0-9 \t\n\r\f]*?${tok_ch})"; 186 my $rettype_re = "(SHSTDAPI_\\(${tok_ch}+${ws_re}\\*?\\)|${tok_ch}" .
187 "[A-Za-z_0-9 \t\n\r\f]*?${tok_ch})";
188 # HST "(SHSTDAPI_\\([${tok_ch} *]+\\)|${tok_ch}" . "[A-Za-z_0-9 \t\n\r\f]*?${tok_ch})";
187 # regexp matching a function name 189 # regexp matching a function name
188 my $funname_re = "(${tok_ch}+)"; 190 my $funname_re = "(${tok_ch}+)";
189 # Regexp matching a function prototype, $1 = rettype, $2 = name, $3 = args 191 # Regexp matching a function prototype, $1 = rettype, $2 = name, $3 = args
190 my $fun_re = "${rettype_re}${ws_re}${funname_re}${ws_re}${args_re};"; 192 my $fun_re = "${rettype_re}${ws_re}${funname_re}${ws_re}${args_re};";
191 # Regexp matching a particular Unicode function (ending in ...W) 193 # Regexp matching a particular Unicode function (ending in ...W)