Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
1e29dab0
Commit
1e29dab0
authored
Feb 26, 2018
by
Ralf Mueller
Browse files
add support for function headers containing
unsigned char <name>[] const unsigned char <name>[]
parent
b9e620fa
Changes
1
Hide whitespace changes
Inline
Side-by-side
interfaces/f2003/bindGen.rb
View file @
1e29dab0
...
...
@@ -306,6 +306,16 @@ $argumentTemplates =
:callExpression
=>
'<name>_dummy'
,
:passAs
=>
'integer(kind = c_signed_char), intent(inout) :: <name>_dummy(<size>)'
,
:postcallStatements
=>
""
},
{
#unsigned char <name>[]
:regex
=>
'^\s*unsigned\s+char\s+(?<name>\w+)\s*\[\]\s*$'
,
:placeholders
=>
%w[name]
,
:dummyName
=>
'<name>_dummy'
,
:acceptAs
=>
'integer(kind = c_signed_char), intent(inout) :: <name>_dummy(*)'
,
:helperVars
=>
""
,
:precallStatements
=>
""
,
:callExpression
=>
'<name>_dummy'
,
:passAs
=>
'integer(kind = c_signed_char), intent(inout) :: <name>_dummy(*)'
,
:postcallStatements
=>
""
},
{
#const <integerTypes>* <name>_vec
:regex
=>
'^\s*const\s+(?<type><integerTypes>)\s*(?:\*\s*(?<name>\w+_vec)|(?<name>\w+)\[\])\s*$'
,
:placeholders
=>
%w[name type]
,
...
...
@@ -326,6 +336,16 @@ $argumentTemplates =
:callExpression
=>
'<name>_dummy'
,
:passAs
=>
'real(c_<type>), intent(in) :: <name>_dummy(*)'
,
:postcallStatements
=>
""
},
{
#const unsigned char <name>[]
:regex
=>
'^\s*(const\s+unsigned\s+char|unsigned\s+char\s+const)\s+(?<name>\w+)\s*\[\]\s*$'
,
:placeholders
=>
%w[name]
,
:dummyName
=>
'<name>_dummy'
,
:acceptAs
=>
'integer(kind = c_signed_char), intent(in) :: <name>_dummy(*)'
,
:helperVars
=>
""
,
:precallStatements
=>
""
,
:callExpression
=>
'<name>_dummy'
,
:passAs
=>
'integer(kind = c_signed_char), intent(in) :: <name>_dummy(*)'
,
:postcallStatements
=>
""
},
{
#const unsigned char <name>[<size>]
:regex
=>
'^\s*(const\s+unsigned\s+char|unsigned\s+char\s+const)\s+(?<name>\w+)\s*\[\s*(?<size>[^\]]+)\s*\]\s*$'
,
:placeholders
=>
%w[name size]
,
...
...
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