/* $Id: textlist.h,v 1.6 2003/01/20 15:30:22 ukai Exp $ */
#ifndef TEXTLIST_H
#define TEXTLIST_H
#include "Str.h"
/* General doubly linked list */
typedef struct _listitem {
void *ptr;
struct _listitem *next;
struct _listitem *prev;
} ListItem;
typedef struct _generallist {
ListItem *first;
ListItem *last;
short nitem;
} GeneralList;
extern ListItem *newListItem(void *s, ListItem *n, ListItem *p);
extern GeneralList *newGeneralList(void);
extern void pushValue(GeneralList *tl, void *s);
extern void *popValue(GeneralList *tl);
extern void *rpopValue(GeneralList *tl);
extern void delValue(GeneralList *tl, ListItem *it);
extern GeneralList *appendGeneralList(GeneralList *, GeneralList *);
/* Text list */
typedef struct _textlistitem {
char *ptr;
struct _textlistitem *next;
struct _textlistitem *prev;
} TextListItem;
typedef struct _textlist {
TextListItem *first;
TextListItem *last;
short nitem;
} TextList;
#define newTextList() ((TextList *)newGeneralList())
#define pushText(tl, s) pushValue((GeneralList *)(tl), (void *)allocStr((s),-1))
#define popText(tl) ((char *)popValue((GeneralList *)(tl)))
#define rpopText(tl) ((char *)rpopValue((GeneralList *)(tl)))
#define delText(tl, i) delValue((GeneralList *)(tl), (void *)(i))
#define appendTextList(tl, tl2) ((TextList *)appendGeneralList((GeneralList *)(tl), (GeneralList *)(tl2)))
/* Line text list */
typedef struct _TextLine {
Str line;
short pos;
} TextLine;
typedef struct _textlinelistitem {
TextLine *ptr;
struct _textlinelistitem *next;
struct _textlinelistitem *prev;
} TextLineListItem;
typedef struct _textlinelist {
TextLineListItem *first;
TextLineListItem *last;
short nitem;
} TextLineList;
extern TextLine *newTextLine(Str line, int pos);
extern void appendTextLine(TextLineList *tl, Str line, int pos);
#define newTextLineList() ((TextLineList *)newGeneralList())
#define pushTextLine(tl,lbuf) pushValue((GeneralList *)(tl),(void *)(lbuf))
#define popTextLine(tl) ((TextLine *)popValue((GeneralList *)(tl)))
#define rpopTextLine(tl) ((TextLine *)rpopValue((GeneralList *)(tl)))
#define appendTextLineList(tl, tl2) ((TextLineList *)appendGeneralList((GeneralList *)(tl), (GeneralList *)(tl2)))
#endif /* not TEXTLIST_H */