On some places, people could use Private: to tag the private fields of an struct. So, be case-insensitive when parsing "private:" meta-tag.
Showing the changes to scripts (1 of 1 file). Show all
Unified · Split
| @@ -1805,8 +1805,8 @@ sub dump_struct($$) { · 1804 unmodified lines | ||
| 1805 | 1805 | $nested = $1; |
| 1806 | 1806 | |
| 1807 | 1807 | # ignore members marked private: |
| 1808 | − $members =~ s/\/\*\s*private:.*?\/\*\s*public:.*?\*\///gos; | |
| 1809 | − $members =~ s/\/\*\s*private:.*//gos; | |
| 1808 | + $members =~ s/\/\*\s*private:.*?\/\*\s*public:.*?\*\///gosi; | |
| 1809 | + $members =~ s/\/\*\s*private:.*//gosi; | |
| 1810 | 1810 | # strip comments: |
| 1811 | 1811 | $members =~ s/\/\*.*?\*\///gos; |
| 1812 | 1812 | $nested =~ s/\/\*.*?\*\///gos; |