init

hc

2024-03-22 a0752693d998599af469473b8dc239ef973a012f

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
#ifndef SList_h 
#define SList_h 
 
/* 
 * SList.h 
 * 
 * SOFTWARE RIGHTS 
 * 
 * We reserve no LEGAL rights to SORCERER -- SORCERER is in the public 
 * domain.  An individual or company may do whatever they wish with 
 * source code distributed with SORCERER or the code generated by 
 * SORCERER, including the incorporation of SORCERER, or its output, into 
 * commerical software. 
 * 
 * We encourage users to develop software with SORCERER.  However, we do 
 * ask that credit is given to us for developing SORCERER.  By "credit", 
 * we mean that if you incorporate our source code into one of your 
 * programs (commercial product, research project, or otherwise) that you 
 * acknowledge this fact somewhere in the documentation, research report, 
 * etc...  If you like SORCERER and have developed a nice tool with the 
 * output, please mention that you developed it using SORCERER.  In 
 * addition, we ask that this header remain intact in our source code. 
 * As long as these guidelines are kept, we expect to continue enhancing 
 * this system and expect to make other tools available as they are 
 * completed. 
 * 
 * PCCTS 1.33 
 * Terence Parr 
 * Parr Research Corporation 
 * with Purdue University and AHPCRC, University of Minnesota 
 * 1992-2000 
 */ 
 
#include "pcctscfg.h" 
 
#include "pccts_stdio.h" 
#include "pccts_stdlib.h" 
 
PCCTS_NAMESPACE_STD 
 
#include "PCCTSAST.h" 
 
class PCCTS_AST; 
 
class SListNode { 
protected: 
    void *_elem;            /* pointer to any kind of element */ 
    SListNode *_next; 
public: 
    SListNode()                {_elem=_next=NULL;} 
    virtual ~SListNode()    {_elem=_next=NULL;} 
    void *elem()            { return _elem; } 
    void setElem(void *e)    { _elem = e; } 
    void setNext(SListNode *t)    { _next = t; } 
    SListNode *next()        { return _next; } 
}; 
 
class SList { 
    SListNode *head, *tail; 
public: 
    SList() {head=tail=NULL;} 
    virtual ~SList() {head=tail=NULL;} 
    virtual void *iterate(SListNode **); 
    virtual void add(void *e); 
    virtual void lfree(); 
    virtual PCCTS_AST *to_ast(SList list); 
    virtual void require(int e,char *err){ if ( !e ) panic(err); } 
    virtual void panic(char *err){ /* MR23 */ printMessage(stderr, "SList panic: %s\n", err); exit(PCCTS_EXIT_FAILURE); } 
    virtual int printMessage(FILE* pFile, const char* pFormat, ...); // MR23 
}; 
 
#endif