Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
M
mdbnomics
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Metrics
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
DBnomics
mdbnomics
Commits
22d2531c
Commit
22d2531c
authored
Mar 30, 2020
by
Dóra Kocsis
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add fallback implementation for contains.m
parent
5acefc83
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
74 additions
and
0 deletions
+74
-0
src/initialize_mdbnomics.m
src/initialize_mdbnomics.m
+4
-0
src/missing/contains/contains.m
src/missing/contains/contains.m
+70
-0
No files found.
src/initialize_mdbnomics.m
View file @
22d2531c
...
...
@@ -24,6 +24,10 @@ mdbnomics_src_root = strrep(which('initialize_mdbnomics'), 'initialize_mdbnomics
p
=
{
'subroutines'
};
% Add missing routines if dynare is not in the path
if
~
exist
(
'contains'
,
'file'
)
p
{
end
+
1
}
=
'missing/contains'
;
end
if
~
exist
(
'get_file_extension'
,
'file'
)
p
{
end
+
1
}
=
'missing/get_cells_id'
;
end
...
...
src/missing/contains/contains.m
0 → 100644
View file @
22d2531c
function
tf
=
contains
(
string
,
pattern
,
varargin
)
% CONTAINS Returns 1 if the pattern is found in string, and 0 otherwise.
%
% INPUTS
% - string [string, char, cell(str)] String to be searhced.
% - pattern [string, char, cell(str)] The searched pattern.
%
% If 'IgnoreCase',IGNORE is provided, the function ignores case if IGNORE is true.
% The default value is false.
%
% OUTPUT
% - tf [logical]
%
% Copyright (C) 2019 Dynare Team
%
% This file is part of Dynare.
%
% Dynare is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% Dynare is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see <http://www.gnu.org/licenses/>.
if
mod
(
nargin
,
2
)
~=
0
error
(
'contains: inputs should be a text, followed by the queried patterns, then Name-Value pair arguments.'
);
end
if
~
((
ischar
(
string
)
||
isstring
(
string
)
||
iscellstr
(
string
))
&&
(
ischar
(
pattern
)
||
isstring
(
pattern
)
||
iscellstr
(
pattern
)))
error
(
'contains: first and second input arguments must be a string array, char array or cell array'
);
end
if
~
isempty
(
varargin
)
if
~
ischar
(
varargin
{
1
})
error
(
'The #%d and #%d inputs must be a Name-Value pair.'
,
nargin
-
1
,
nargin
);
end
parameters
=
{
'ignorecase'
,
'caseignore'
,
'insensitivecase'
,
'caseinsensitive'
,
'insensitive'
,
'ignore'
,
...
'casesensitive'
,
'sensitive'
,
'sensitivecase'
};
if
~
cellfun
(
'isempty'
,(
cellfun
(
@
(
s
)
strcmpi
(
varargin
{
1
},
s
),
parameters
,
'uni'
,
0
)))
case_ignore
=
varargin
{
end
};
else
error
(
'Unsupported parameter "%s".'
,
varargin
{
1
});
end
else
case_ignore
=
false
;
end
string
=
cellstr
(
string
);
pattern
=
cellstr
(
pattern
);
if
case_ignore
string
=
lower
(
string
);
pattern
=
lower
(
pattern
);
end
tf
=
false
(
size
(
string
));
for
ii
=
1
:
numel
(
pattern
)
idx
=
regexp
(
string
,
pattern
{
ii
});
for
jj
=
1
:
numel
(
string
)
tf
(
jj
)
=
tf
(
jj
)
||
~
isempty
(
idx
{
jj
});
end
end
end
\ No newline at end of file
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment