wnlutil.c File Reference

#include <liberrno.h>
#include <fortran.h>
#include "fio.h"

Include dependency graph for wnlutil.c:

Go to the source code of this file.

Defines
#define	WNLMIN   8L /* Minimum WNLLONG value */
Functions
long	_getfchar (_fcd fc)
void	wnldelm_ (char *fc, int fclen)
void	wnlsep_ (char *fc, int fclen)
void	wnlrep_ (char *fc, int fclen)
void	wnlflag_ (char *fc, int fclen)
void	wnlline_ (_f_int *x)
Variables
long	_wnlrecsiz = -1
long	OUT_CHAR = (long) '&'
long	OUT_SEP = (long) ','
long	OUT_EQ = (long) '='
long	OUT_ECHO = (long) ' '
long	OUT_LINE = 0

---

Define Documentation

#define WNLMIN   8L /* Minimum WNLLONG value */

Definition at line 44 of file wnlutil.c.

---

Function Documentation

long _getfchar

(

_fcd

fc

)

Definition at line 63 of file wnlutil.c.

References _fcdtocp(), _ferr(), _isfcd, FENLTYPE, NULL, and ret.

Here is the call graph for this function:

void wnldelm_	(	char *	fc,
		int	fclen
	)

Definition at line 121 of file wnlutil.c.

References _cptofcd(), _getfchar(), and OUT_CHAR.

Here is the call graph for this function:

void wnlflag_	(	char *	fc,
		int	fclen
	)

Definition at line 180 of file wnlutil.c.

References _cptofcd(), _getfchar(), and OUT_ECHO.

Here is the call graph for this function:

void wnlline_

(

_f_int *

x

)

Definition at line 199 of file wnlutil.c.

References OUT_LINE.

void wnlrep_	(	char *	fc,
		int	fclen
	)

Definition at line 160 of file wnlutil.c.

References _cptofcd(), _getfchar(), and OUT_EQ.

Here is the call graph for this function:

void wnlsep_	(	char *	fc,
		int	fclen
	)

Definition at line 141 of file wnlutil.c.

References _cptofcd(), _getfchar(), and OUT_SEP.

Here is the call graph for this function:

---

Variable Documentation

long _wnlrecsiz = -1

Definition at line 46 of file wnlutil.c.

Referenced by _FWN(), and WNL().

long OUT_CHAR = (long) '&'

Definition at line 48 of file wnlutil.c.

Referenced by _wnl90to77(), WNL(), and wnldelm_().

long OUT_ECHO = (long) ' '

Definition at line 54 of file wnlutil.c.

Referenced by _wnl90to77(), WNL(), and wnlflag_().

long OUT_EQ = (long) '='

Definition at line 52 of file wnlutil.c.

Referenced by _wnl90to77(), WNL(), and wnlrep_().

long OUT_LINE = 0

Definition at line 56 of file wnlutil.c.

Referenced by _FWN(), and wnlline_().

long OUT_SEP = (long) ','

Definition at line 50 of file wnlutil.c.

Referenced by _wnl90to77(), l_write(), lw_A(), and wnlsep_().