summaryrefslogtreecommitdiff
path: root/compiler/ex-phase.c
blob: 4bb693cdbc058d5dd370dca0f0fc0ec3afb888bf (plain)
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
#include "ex-compiler.h"

static void phase_definition  (ExDefinition *definition);
static void phase_namespace   (ExNamespace  *namespace);
static void phase_request     (ExRequest    *request);
static void phase_event       (ExEvent      *event);
static void phase_type_def    (ExTypeDef    *type_def);
static void phase_identifier  (ExIdentifier *identifier);
static void phase_type        (ExType       *type);
static void phase_field       (ExField      *field);
static void phase_error       (ExError      *error);

void
ex_phase (ExSpec *spec)
{
    if (!spec)
	return;

    phase_definition (spec->definitions);
}

static void
phase_definition  (ExDefinition *definition)
{
    if (!definition)
	return;
    
    switch (definition->type)
    {
    case EX_DEFINITION_NAMESPACE:
	dump_namespace (definition->u.namespace);
	break;
	
    case EX_DEFINITION_REQUEST:
	dump_request (definition->u.request);
	break;
	
    case EX_DEFINITION_TYPE_DEF:
	dump_type_def (definition->u.type_def);
	break;
	
    case EX_DEFINITION_ERROR:
	dump_error (definition->u.error);
	break;
	
    case EX_DEFINITION_EVENT:
	dump_event (definition->u.event);
	break;
    }

    dump_definition (definition->next);
}