Commit 1e29dab0 authored by Ralf Müller's avatar Ralf Müller
Browse files

add support for function headers containing

unsigned char <name>[]
const unsigned char <name>[]
parent b9e620fa
......@@ -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],
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment