Changeset 13595 in josm for trunk/tools/japicc/modules/Internals/Filter.pm
- Timestamp:
- 2018-04-02T23:20:00+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/japicc/modules/Internals/Filter.pm
r12872 r13595 2 2 # A module to filter API symbols 3 3 # 4 # Copyright (C) 2016-201 7Andrey Ponomarenko's ABI Laboratory4 # Copyright (C) 2016-2018 Andrey Ponomarenko's ABI Laboratory 5 5 # 6 6 # Written by Andrey Ponomarenko 7 7 # 8 # This program is free software: you can redistribute it and/or modify 9 # it under the terms of the GNU General Public License or the GNU Lesser 10 # General Public License as published by the Free Software Foundation. 11 # 12 # This program is distributed in the hope that it will be useful, 8 # This library is free software; you can redistribute it and/or 9 # modify it under the terms of the GNU Lesser General Public 10 # License as published by the Free Software Foundation; either 11 # version 2.1 of the License, or (at your option) any later version. 12 # 13 # This library is distributed in the hope that it will be useful, 13 14 # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 # GNU General Public License for more details. 16 # 17 # You should have received a copy of the GNU General Public License 18 # and the GNU Lesser General Public License along with this program. 19 # If not, see <http://www.gnu.org/licenses/>. 15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 16 # Lesser General Public License for more details. 17 # 18 # You should have received a copy of the GNU Lesser General Public 19 # License along with this library; if not, write to the Free Software 20 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, 21 # MA 02110-1301 USA. 20 22 ########################################################################### 21 23 use strict; … … 89 91 90 92 return 1; 93 } 94 95 sub nonImplClass($) 96 { 97 my $Class = $_[0]; 98 99 if(defined $In::Opt{"NonImplAll"}) { 100 return 1; 101 } 102 103 if(defined $In::Opt{"NonImplClassesList"}) 104 { # user defined classes 105 if(defined $In::Opt{"NonImplClasses"}{$Class->{"Name"}}) { 106 return 1; 107 } 108 } 109 110 return 0; 91 111 } 92 112
Note:
See TracChangeset
for help on using the changeset viewer.