QSDL-QP/QPSort.cpp at master · Diefenbruch/QSDL-QP · GitHub

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
/*------------------------------------------------------------------------------+
|                                                                               |
|   QP - QSDL Parser                                                            |
|                                                                               |
|   (C) 1994-98 Marc Diefenbruch                                                |
|       University of Essen, Germany                                            |
|                                                                               |
+---------------+-------------------+---------------+-------------------+-------+
|   Module      |   File            |   Created     |   Project         |       |
+---------------+-------------------+---------------+-------------------+-------+
| QPSort        |   QPSort.cpp      | 9. Aug 1994   |   QP              |       |
+------------------------------------------------------------------------------*/

/*  Lineal
000000000011111111112222222222333333333344444444445555555555666666666677777777778
012345678901234567890123456789012345678901234567890123456789012345678901234567890
*/

#ifdef USE_PRAGMA
#pragma interface
#endif

#include <stdlib.h>
#include <stdio.h>
#include <assert.h>
#include <DS/DSRef.h>
#include <DS/DSObject.h>
#include <DS/DSSort.h>
#ifdef DMALLOC
#include <dmalloc.h>
#endif

extern DSObjectRefStack p_stack;

DSSortRefList *p_sort_ref_list = NULL;

extern "C" {

#include "QPError.h"

void comma_sort_list_1(const char * symbol)
{
  DSSortRef  p_sort;
  char str[120];

  assert(symbol);

#ifdef DEBUG
  qpDebugLog << "comma_sort_list_1: " << symbol;
  qpDebugLog << " (element of sort list)" << endl;
#endif

  p_sort = p_stack.Top()->GetSortRefByName(symbol);
  if (!p_sort)
  {
    sprintf(str, "Undefined sort '%s'.\n", symbol);
    yyerror(str);
    return;
  }

  assert(p_sort_ref_list);
  p_sort_ref_list->Append(p_sort);
}

} // extern "C"