Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
a7a014c1
Commit
a7a014c1
authored
Jul 30, 2015
by
Thomas Jahns
🤸
Browse files
Emit :: in public and type declarations.
parent
eac430e8
Changes
2
Hide whitespace changes
Inline
Side-by-side
interfaces/f2003/bindGen.rb
View file @
a7a014c1
...
...
@@ -588,8 +588,8 @@ end
def
defineOpaqueType
(
name
)
formatLines
(
$declarationLines
,
0
,
""
)
formatLines
(
$declarationLines
,
1
,
"public t_
#{
name
}
"
)
formatLines
(
$declarationLines
,
1
,
"type t_
#{
name
}
"
)
formatLines
(
$declarationLines
,
1
,
"public
::
t_
#{
name
}
"
)
formatLines
(
$declarationLines
,
1
,
"type
::
t_
#{
name
}
"
)
formatLines
(
$declarationLines
,
2
,
"type(c_ptr) :: ptr"
)
formatLines
(
$declarationLines
,
1
,
"end type t_
#{
name
}
"
)
$opaqueTypes
.
push
(
name
)
...
...
src/mo_cdi.f90
View file @
a7a014c1
...
...
@@ -194,13 +194,13 @@ module mo_cdi
integer
(
c_int
)
::
number
end
type
t_CdiParam
public
t_CdiIterator
type
t_CdiIterator
public
::
t_CdiIterator
type
::
t_CdiIterator
type
(
c_ptr
)
::
ptr
end
type
t_CdiIterator
public
t_CdiGribIterator
type
t_CdiGribIterator
public
::
t_CdiGribIterator
type
::
t_CdiGribIterator
type
(
c_ptr
)
::
ptr
end
type
t_CdiGribIterator
public
::
cdiReset
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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