Skip to content
GitLab
Menu
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
708a8455
Commit
708a8455
authored
Jan 15, 2013
by
Thomas Jahns
🤸
Browse files
Add static declarations.
parent
f359b8f2
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/make_fint.c
View file @
708a8455
...
...
@@ -23,7 +23,7 @@ static Docu cdoc[9999], fdoc[9999];
static
size_t
ncdoc
=
0
,
nfdoc
=
0
;
static
int
debug
=
0
;
int
doccmp
(
const
void
*
s1
,
const
void
*
s2
)
static
int
doccmp
(
const
void
*
s1
,
const
void
*
s2
)
{
Docu
*
x
=
(
Docu
*
)
s1
;
Docu
*
y
=
(
Docu
*
)
s2
;
...
...
@@ -31,7 +31,7 @@ int doccmp(const void *s1, const void *s2)
return
(
strcmp
(
x
->
fname
,
y
->
fname
));
}
void
doctotex
(
FILE
*
fp
,
Docu
*
doc
,
size_t
ndoc
)
static
void
doctotex
(
FILE
*
fp
,
Docu
*
doc
,
size_t
ndoc
)
{
size_t
i
,
k
;
...
...
@@ -46,7 +46,7 @@ void doctotex(FILE *fp, Docu *doc, size_t ndoc)
}
}
void
doctotxt
(
FILE
*
fp
,
Docu
*
doc
,
size_t
ndoc
)
static
void
doctotxt
(
FILE
*
fp
,
Docu
*
doc
,
size_t
ndoc
)
{
size_t
i
,
k
;
...
...
@@ -149,7 +149,7 @@ symRegexCompile(size_t numSyms, struct symbol symList[],
char
**
line
,
size_t
*
lineBufSize
);
void
fortran_interface
(
char
*
fname
,
char
*
fnameinc
,
char
*
fnameint
)
static
void
fortran_interface
(
char
*
fname
,
char
*
fnameinc
,
char
*
fnameint
)
{
FILE
*
fpin
,
*
fpinc
,
*
fpint
;
FILE
*
fp
;
...
...
Write
Preview
Supports
Markdown
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