f77wrappers.c File Reference

#include <stdio.h>
#include <foreign.h>
#include <errno.h>
#include <liberrno.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <stdlib.h>
#include "fio.h"

Include dependency graph for f77wrappers.c:

Go to the source code of this file.

Defines
#define	SELECT(unit, funcname, args)   if (f90_or_f77(unit)) return __##funcname##_f90##args; else return __##funcname##_f77##args
Functions
static int	f90_or_f77 (int *u)
int	__fgetc_f90 (int *u, char *c, int clen)
int	__fgetc_f77 (int *u, char *c, int clen)
int	__fputc_f90 (int *u, char *c, int clen)
int	__fputc_f77 (int *u, char *c, int clen)
int	__fseek_f90 (int *u, int *off, int *from)
int	__fseek_f77 (int *u, int *off, int *from)
int	__fseek64_f90 (int *u, long long *off, int *from)
int	__fseek64_f77 (int *u, long long *off, int *from)
int	__fstat_f90 (int *u, int *stbuf)
int	__fstat_f77 (int *u, int *stbuf)
int	__fstat64_f90 (int *u, long long *stbuf)
int	__fstat64_f77 (int *u, long long *stbuf)
int	__isatty_f90 (int *u)
int	__isatty_f77 (int *u)
long long	__ftell64_f90 (int *u)
long long	__ftell64_f77 (int *u)
void	__ttynam_f90 (char *name, int strlen, int *u)
void	__ttynam_f77 (char *name, int strlen, int *u)
int	__usdumplock_f90 (void *l, int *u, char *str, int len)
int	__usdumplock_f77 (void *l, int *u, char *str, int len)
int	__usdumpsema_f90 (void *s, int *u, char *str, int len)
int	__usdumpsema_f77 (void *s, int *u, char *str, int len)
void	__flush_f90 (int *u, int *istat)
int	__flush_f77 (int *u)
int	fgetc_ (int *u, char *c, int clen)
int	fputc_ (int *u, char *c, int clen)
int	fseek_ (int *u, int *off, int *from)
int	fseek64_ (int *u, long long *off, int *from)
int	fstat_ (int *u, int *stbuf)
int	fstat64_ (int *u, long long *stbuf)
int	isatty_ (int *u)
long long	ftell64_ (int *u)
int	ftell_ (int *u)
void	ttynam_ (char *name, int strlen, int *u)
int	usdumplock_ (void *l, int *u, char *str, int len)
int	usdumpsema_ (void *s, int *u, char *str, int len)
int	flush_ (int *u)

---

Define Documentation

#define SELECT	(		unit,
			funcname,
			args
	)		if (f90_or_f77(unit)) return __##funcname##_f90##args; else return __##funcname##_f77##args

Definition at line 69 of file f77wrappers.c.

Referenced by fgetc_(), fputc_(), fseek64_(), fseek_(), fstat64_(), fstat_(), ftell64_(), isatty_(), usdumplock_(), and usdumpsema_().

---

Function Documentation

int __fgetc_f77	(	int *	u,
		char *	c,
		int	clen
	)

int __fgetc_f90	(	int *	u,
		char *	c,
		int	clen
	)

int __flush_f77

(

int *

u

)

Referenced by flush_().

void __flush_f90	(	int *	u,
		int *	istat
	)

Referenced by flush_().

int __fputc_f77	(	int *	u,
		char *	c,
		int	clen
	)

int __fputc_f90	(	int *	u,
		char *	c,
		int	clen
	)

Definition at line 82 of file fputc.c.

References fputcf90_().

Here is the call graph for this function:

int __fseek64_f77	(	int *	u,
		long long *	off,
		int *	from
	)

int __fseek64_f90	(	int *	u,
		long long *	off,
		int *	from
	)

int __fseek_f77	(	int *	u,
		int *	off,
		int *	from
	)

int __fseek_f90	(	int *	u,
		int *	off,
		int *	from
	)

Definition at line 100 of file fseek.c.

References fseekf90_().

Here is the call graph for this function:

int __fstat64_f77	(	int *	u,
		long long *	stbuf
	)

int __fstat64_f90	(	int *	u,
		long long *	stbuf
	)

int __fstat_f77	(	int *	u,
		int *	stbuf
	)

int __fstat_f90	(	int *	u,
		int *	stbuf
	)

Definition at line 75 of file fstat.c.

References fstatf90_().

Here is the call graph for this function:

long long __ftell64_f77

(

int *

u

)

long long __ftell64_f90

(

int *

u

)

int __isatty_f77

(

int *

u

)

int __isatty_f90

(

int *

u

)

void __ttynam_f77	(	char *	name,
		int	strlen,
		int *	u
	)

Referenced by ttynam_().

void __ttynam_f90	(	char *	name,
		int	strlen,
		int *	u
	)

Definition at line 69 of file ttynam.c.

References ttynamf90_().

Referenced by ttynam_().

Here is the call graph for this function:

int __usdumplock_f77	(	void *	l,
		int *	u,
		char *	str,
		int	len
	)

int __usdumplock_f90	(	void *	l,
		int *	u,
		char *	str,
		int	len
	)

int __usdumpsema_f77	(	void *	s,
		int *	u,
		char *	str,
		int	len
	)

int __usdumpsema_f90	(	void *	s,
		int *	u,
		char *	str,
		int	len
	)

static int f90_or_f77

(

int *

u

)

[static]

Definition at line 58 of file f77wrappers.c.

References _fort_unit, _search_unit_list(), cup, NULL, unit_s::private, UHASH, and unit_s::uid.

Referenced by flush_(), and ttynam_().

Here is the call graph for this function:

int fgetc_	(	int *	u,
		char *	c,
		int	clen
	)

Definition at line 104 of file f77wrappers.c.

References SELECT.

Referenced by getc_().

int flush_

(

int *

u

)

Definition at line 179 of file f77wrappers.c.

References __flush_f77(), __flush_f90(), and f90_or_f77().

Referenced by _flushall().

Here is the call graph for this function:

int fputc_	(	int *	u,
		char *	c,
		int	clen
	)

Definition at line 110 of file f77wrappers.c.

References SELECT.

Referenced by putc_().

int fseek64_	(	int *	u,
		long long *	off,
		int *	from
	)

Definition at line 122 of file f77wrappers.c.

References SELECT.

int fseek_	(	int *	u,
		int *	off,
		int *	from
	)

Definition at line 116 of file f77wrappers.c.

References SELECT.

int fstat64_	(	int *	u,
		long long *	stbuf
	)

Definition at line 134 of file f77wrappers.c.

References SELECT.

int fstat_	(	int *	u,
		int *	stbuf
	)

Definition at line 128 of file f77wrappers.c.

References fstat, and SELECT.

long long ftell64_

(

int *

u

)

Definition at line 147 of file f77wrappers.c.

References SELECT.

Referenced by ftell_().

int ftell_

(

int *

u

)

Definition at line 152 of file f77wrappers.c.

References ftell64_().

Here is the call graph for this function:

int isatty_

(

int *

u

)

Definition at line 141 of file f77wrappers.c.

References isatty, and SELECT.

void ttynam_	(	char *	name,
		int	strlen,
		int *	u
	)

Definition at line 160 of file f77wrappers.c.

References __ttynam_f77(), __ttynam_f90(), and f90_or_f77().

Here is the call graph for this function:

int usdumplock_	(	void *	l,
		int *	u,
		char *	str,
		int	len
	)

Definition at line 168 of file f77wrappers.c.

References SELECT.

int usdumpsema_	(	void *	s,
		int *	u,
		char *	str,
		int	len
	)

Definition at line 174 of file f77wrappers.c.

References SELECT.