/* (C) C.D.F. Miller, Heriot-Watt University, March 1984
 *
 *	Permission is hereby given to reproduce or modify this
 *	software freely, provided that this notice be retained,
 *	and that no use be made of the software for commercial
 *	purposes without the express written permission of the
 *	author.
 */

#ifndef _FTYPES_H_
#define _FTYPES_H_

void	listdefs(void);
void	printl(label *, FILE *);

#endif

/** @file
 * @brief Routines to list definitions in verbose mode.
 */

#ifndef _LIST_H_
#define _LIST_H_

/**
 * @brief List details of all labels, of all types, to stderr.
 */
void	listdefs(void);

#endif

/** @file
 * @brief Routines to print a label according to a format.
 */

#ifndef _PRINTL_H_
#define _PRINTL_H_

/**
 * @brief Print a label.
 * @param lab label to print.
 * @param out file handle to output on.
 */
void	printl(label *lab, FILE *out);

#endif

/* (C) C.D.F. Miller, Heriot-Watt University, March 1984
 *
 *	Permission is hereby given to reproduce or modify this
 *	software freely, provided that this notice be retained,
 *	and that no use be made of the software for commercial
 *	purposes without the express written permission of the
 *	author.
................................................................................
 */

#ifndef _TYPES_H_
#define _TYPES_H_

#include <sys/queue.h>



#define	rg		register


#define	us		unsigned

/*** Header levels ***/
#define	NLEVELS	20


typedef us int levels[NLEVELS];

/*** Header format ***/
typedef char *format;

/*** Label type: name and current header levels ***/
typedef struct type {
	char   *t_name;
	levels	t_levels;
	format	t_format;
        LIST_HEAD(, label) labelhead;
        LIST_ENTRY(type) link;
}	type;

/*** Label definition ***/
typedef struct label {
	char   *l_name;
	type   *l_type;
	levels	l_levels;
	us int	l_bottom;		/* Last significant level */
	char   *l_file;			/* File where defined */
	long	l_line;			/* line   "      "    */
        LIST_ENTRY(label) link;
}	label;

/*** Action routine ***/
typedef int (*func) ();

/*** Command keyword ***/
typedef struct keyword {
	char   *k_name;
	func	k_action;
	us int	k_minargs;
	us int	k_maxargs;
}	keyword;

#endif

/** @file
 * @brief Concrete data types.
 * 
 * On the one hand, having these all in the same file isn't
 * good modularity. On the other hand, I don't want to write
 * loads of setters and getters.
 */
/* (C) C.D.F. Miller, Heriot-Watt University, March 1984
 *
 *	Permission is hereby given to reproduce or modify this
 *	software freely, provided that this notice be retained,
 *	and that no use be made of the software for commercial
 *	purposes without the express written permission of the
 *	author.
................................................................................
 */

#ifndef _TYPES_H_
#define _TYPES_H_

#include <sys/queue.h>

/** This used to be "register", but I think the compiler will
 * do a better job. */
#define	rg

/** @todo Remove this */
#define	us		unsigned

/** Max no. of header levels */
#define	NLEVELS	20

/** Type for header levels member of label struct */
typedef us int levels[NLEVELS];

/** Header format */
typedef char *format;

/** Label type */
typedef struct type {
	char   *t_name;	/**< name */
	levels	t_levels;	/**< current header levels */
	format	t_format;   /**< format */
        LIST_HEAD(, label) labelhead;   /**< list of labels of this type */
        LIST_ENTRY(type) link;  /**< next type in list of types */
}	type;

/** Label definition */
typedef struct label {
	char   *l_name; /**< Name */
	type   *l_type; /**< Back-reference to label type */
	levels	l_levels;   /**< Counter for label no. at different levels */
	us int	l_bottom;		/**< Last significant level */
	char   *l_file;			/**< File where defined */
	long	l_line;			/**< line where defined */
        LIST_ENTRY(label) link; /**< Next label in list of labels */
}	label;

/** Action routine for keyword processing */
typedef int (*func) ();

/** Command keyword, to come after ".L=" at the start of an input line */
typedef struct keyword {
	char   *k_name; /**< How is the keyword spelt */
	func	k_action;   /**< Function pointer for action to take */
	us int	k_minargs;  /**< Min no. of args for k_action */
	us int	k_maxargs;  /**< Max no. of args for k_action */
}	keyword;

#endif

 *	Permission is hereby given to reproduce or modify this
 *	software freely, provided that this notice be retained,
 *	and that no use be made of the software for commercial
 *	purposes without the express written permission of the
 *	author.
 */

/* list.c:
 *	list definitions in verbose mode
 */

#include	<lbl.h>

void	listtype(type *);

extern char *def_format;
extern LIST_HEAD(, type) typehead;

 *	Permission is hereby given to reproduce or modify this
 *	software freely, provided that this notice be retained,
 *	and that no use be made of the software for commercial
 *	purposes without the express written permission of the
 *	author.
 */





#include	<lbl.h>

void	listtype(type *);

extern char *def_format;
extern LIST_HEAD(, type) typehead;

 *	Permission is hereby given to reproduce or modify this
 *	software freely, provided that this notice be retained,
 *	and that no use be made of the software for commercial
 *	purposes without the express written permission of the
 *	author.
 */

/* printl.c:
 *	print a label according to a format
 */

#include        <err.h>
#include	<lbl.h>

void	printr(char, us int, FILE *);
static void printd(us int, FILE *);
static void printa(char, us int, FILE *);
static void auxprinta(char, us int, FILE *);

 *	Permission is hereby given to reproduce or modify this
 *	software freely, provided that this notice be retained,
 *	and that no use be made of the software for commercial
 *	purposes without the express written permission of the
 *	author.
 */





#include        <err.h>
#include	<lbl.h>

void	printr(char, us int, FILE *);
static void printd(us int, FILE *);
static void printa(char, us int, FILE *);
static void auxprinta(char, us int, FILE *);