Lines Matching full:"$ content"
1837 sub readDescriptor($$)
1838 {
1839 my ($LibVersion, $Content) = @_;
1840 if(not $Content) {
1843 if($Content!~/\</) {
1846 $Content=~s/\/\*(.|\n)+?\*\///g;
1847 $Content=~s/<\!--(.|\n)+?-->//g;
1849 $Descriptor{$LibVersion}{"Version"} = parseTag(\$Content, "version");
1856 if($Content=~/{RELPATH}/)
1859 $Content =~ s/{RELPATH}/$RelDir/g;
1868 my $DHeaders = parseTag(\$Content, "headers");
1891 my $DObjects = parseTag(\$Content, "libs");
1912 foreach my $Path (split(/\s*\n\s*/, parseTag(\$Content, "search_headers")))
1921 foreach my $Path (split(/\s*\n\s*/, parseTag(\$Content, "search_libs")))
1930 foreach my $Path (split(/\s*\n\s*/, parseTag(\$Content, "tools")))
1940 if(my $Prefix = parseTag(\$Content, "cross_prefix")) {
1944 foreach my $Path (split(/\s*\n\s*/, parseTag(\$Content, "include_paths")))
1954 foreach my $Path (split(/\s*\n\s*/, parseTag(\$Content, "add_include_paths")))
1963 foreach my $Path (split(/\s*\n\s*/, parseTag(\$Content, "skip_include_paths")))
1973 foreach my $Path (split(/\s*\n\s*/, parseTag(\$Content, "skip_including")))
1978 $Descriptor{$LibVersion}{"GccOptions"} = parseTag(\$Content, "gcc_options");
1986 $Descriptor{$LibVersion}{"SkipHeaders"} = parseTag(\$Content, "skip_headers");
1994 $Descriptor{$LibVersion}{"SkipLibs"} = parseTag(\$Content, "skip_libs");
2000 if(my $DDefines = parseTag(\$Content, "defines"))
2010 foreach my $Order (split(/\s*\n\s*/, parseTag(\$Content, "include_order")))
2016 foreach my $Type_Name (split(/\s*\n\s*/, parseTag(\$Content, "opaque_types")),
2017 split(/\s*\n\s*/, parseTag(\$Content, "skip_types")))
2021 foreach my $Symbol (split(/\s*\n\s*/, parseTag(\$Content, "skip_interfaces")),
2022 split(/\s*\n\s*/, parseTag(\$Content, "skip_symbols")))
2026 foreach my $NameSpace (split(/\s*\n\s*/, parseTag(\$Content, "skip_namespaces"))) {
2029 foreach my $NameSpace (split(/\s*\n\s*/, parseTag(\$Content, "add_namespaces"))) {
2032 foreach my $Constant (split(/\s*\n\s*/, parseTag(\$Content, "skip_constants"))) {
2035 if(my $DIncPreamble = parseTag(\$Content, "include_preamble"))
2065 my $Content = substr(${$CodeRef}, $Start, $End-$Start+$TS, "");
2066 substr($Content, 0, $TS-1, ""); # cut start tag
2067 substr($Content, -$TS, $TS, ""); # cut end tag
2070 $Content=~s/\A\s+//g;
2071 $Content=~s/\s+\Z//g;
2073 if(substr($Content, 0, 1) ne "<") {
2074 $Content = xmlSpecChars_R($Content);
2076 return $Content;
2155 my $Content = <TU_DUMP>;
2160 $Content=~s/\n[ ]+/ /g;
2161 my @Lines = split(/\n/, $Content);
2164 undef $Content;
4098 sub simplifyVTable($)
4099 {
4100 my $Content = $_[0];
4099 if($Content=~s/ \[with (.+)]//)
4110 $Content=~s/,\s*$Arg\b//g;
4113 $Content=~s/\b$Arg\b/$Val/g;
4120 return $Content;
6252 sub parse_redirect($$$)
6253 {
6254 my ($Content, $Path, $LibVersion) = @_;
6254 while($Content=~s/#\s*error\s+([^\n]+?)\s*(\n|\Z)//) {
6295 sub parse_includes($$)
6296 {
6297 my ($Content, $Path) = @_;
6297 while($Content=~s/^[ \t]*#[ \t]*(include|include_next|import)[ \t]*([<"].+?[">])[ \t]*//m)
6320 while($Content=~s/^[ \t]*#[ \t]*(include|include_next|import)[ \t]+(\w+)[ \t]*//m)
6672 my $Content = readFile($Path);
6673 if(my $Redirect = parse_redirect($Content, $Path, $LibVersion))
6689 if(my $Inc = parse_includes($Content, $Path))
8101 sub detectPreamble($$)
8102 {
8103 my ($Content, $LibVersion) = @_;
8129 while($Content=~s/error\:\s*(field\s*|)\W+(.+?)\W+//)
8243 my $Content = undef;
8249 if(not $Content)
8251 $Content = `$PreprocessCmd 2>\"$TMP_DIR/null\"`;
8253 if($Content=~s/__asm\s*(\{[^{}]*?\}|[^{};]*)//g)
8257 if($Content=~s/\s+(\/ \/.*?)\n/\n/g)
8261 if($Content=~s/(\W)(0x[a-f]+|\d+)(i|ui)(8|16|32|64)(\W)/$1$2$5/g)
8275 if(not $Content)
8277 $Content = `$PreprocessCmd 2>\"$TMP_DIR/null\"`;
8290 while($Content=~/$Regex/)
8307 $Content=~s/$Regex/$Sentence_N/g;
8314 if($Content=~s/([^\w\s]|\w\s+)(?<!operator )(delete)(\s*\()/$1c99_$2$3/g)
8323 if($Content=~s/(\s+)($RegExp_O)(\s*(\;|\:))/$1c99_$2$3/g)
8333 if($Content=~s/(\s+)(operator)(\s*(\(\s*\)\s*[^\(\s]|\(\s*[^\)\s]))/$1c99_$2$3/g)
8341 if($Content=~s/([^\w\(\,\s]\s*|\s+)(operator)(\s*(\,\s*[^\(\s]|\)))/$1c99_$2$3/g)
8350 if($Content=~s/(\*\s*|\w\s+)(bool)(\s*(\,|\)))/$1c99_$2$3/g)
8358 if($Content=~s/(\w)(\s*[^\w\(\,\s]\s*|\s+)(this|throw)(\s*[\,\)])/$1$2c99_$3$4/g)
8368 if($Content=~s/(struct |extern )(template) /$1c99_$2 /g)
8386 my @FwdTypedefs = $Content=~/typedef\s+enum\s+(\w+)\s+(\w+);/g;
8393 $Content=~s/typedef\s+enum\s+\Q$S\E\s+\Q$S\E;//g;
8415 writeFile($IPath, $Content);
8523 my $Content = readFile($ClassDump);
8524 foreach my $ClassInfo (split(/\n\n/, $Content))
15480 sub appendFile($$)
15481 {
15482 my ($Path, $Content) = @_;
15486 print FILE $Content;
15492 sub writeFile($$)
15493 {
15494 my ($Path, $Content) = @_;
15498 print FILE $Content;
15508 my $Content = <FILE>;
15511 $Content=~s/\r/\n/g;
15513 return $Content;
16804 sub getXmlParams($$)
16805 {
16806 my ($Content, $Problem) = @_;
16805 return "" if(not $Content or not $Problem);
16810 if($Content=~/\Q$Macro\E/) {
16828 sub addMarkup($)
16829 {
16830 my $Content = $_[0];
16830 $Content=~s/\n[ ]*//; # spaces
16831 $Content=~s!(\@\w+\s*\(\@\w+\))!<nowrap>$1</nowrap>!g; # @old_type (@old_size)
16832 $Content=~s!(... \(\w+\))!<nowrap><b>$1</b></nowrap>!g; # ... (va_list)
16833 $Content=~s!<nowrap>(.+?)</nowrap>!<span class='nowrap'>$1</span>!g;
16834 $Content=~s!([2-9]\))!<br/>$1!g; # 1), 2), ...
16835 if($Content=~/\ANOTE:/)
16837 $Content=~s!(NOTE):!<b>$1</b>:!g;
16840 $Content=~s!(NOTE):!<br/><b>$1</b>:!g;
16842 $Content=~s! (out)-! <b>$1</b>-!g; # out-parameters
16856 $Content=~s!(added\s*|to\s*|from\s*|became\s*)($MKeys)([^\w-]|\Z)!$1<b>$2</b>$3!ig; # intrinsic types, modifiers
16859 $Content=~s!\*\*([\w\-]+)\*\*!<b>$1</b>!ig;
16860 $Content=~s!\*([\w\-]+)\*!<i>$1</i>!ig;
16861 return $Content;
16866 sub applyMacroses($$$$)
16867 {
16868 my ($Level, $Kind, $Content, $Problem) = @_;
16867 return "" if(not $Content or not $Problem);
16869 $Content = addMarkup($Content);
16880 if(index($Content, $Macro)==-1) {
16922 $Content=~s/\Q$Macro\E/$Value/g;
16925 if($Content=~/(\A|[^\@\w])\@\w/)
16933 return $Content;
20305 my $Content = <DUMP>;
20312 if($Content!~/};\s*\Z/) {
20315 $ABI = eval($Content);
21868 my $Content = readFile($RULES_PATH{$Kind});
21869 while(my $Rule = parseTag(\$Content, "rule"))
