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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
/*
* Copyright (c) 2013, Baptiste Pierrat
*
* This source code is released for free distribution under the terms of the
* GNU General Public License version 2 or (at your opinion) any later version.
*
* This module contains functions for generating tags for source files
* for Abaqus inp files (https://en.wikipedia.org/wiki/Abaqus).
*/
/*
* INCLUDE FILES
*/
#include "general.h" /* must always come first */
#include <ctype.h>
#include <string.h>
#include "parse.h"
#include "read.h"
#include "vstring.h"
#include "routines.h"
/*
* DATA DEFINITIONS
*/
typedef enum {
K_PART,
K_ASSEMBLY,
K_STEP
} AbaqusKind;
static kindDefinition AbaqusKinds[] = {
{ true, 'p', "part", "Parts" },
{ true, 'a', "assembly", "Assembly" },
{ true, 's', "step", "Steps" }
};
/*
* FUNCTION DEFINITIONS
*/
static int getWord(const char *ref, const char **ptr)
{
const char *p = *ptr;
while ((*ref != '\0') && (*p != '\0') && (tolower(*ref) == tolower(*p))) ref++, p++;
if (*ref) return false;
*ptr = p;
return true;
}
static void createTag(AbaqusKind kind, const char *buf)
{
vString *name;
if (*buf == '\0') return;
buf = strstr(buf, "=");
if (buf == NULL) return;
buf += 1;
if (*buf == '\0') return;
name = vStringNew();
do
{
vStringPut(name, (int) *buf);
++buf;
} while ((*buf != '\0') && (*buf != ','));
makeSimpleTag(name, kind);
vStringDelete(name);
}
static void findAbaqusTags(void)
{
const char *line;
while ((line = (const char*)readLineFromInputFile()) != NULL)
{
const char *cp = line;
for (; *cp != '\0'; cp++)
{
if (*cp == '*')
{
cp++;
/* Parts*/
if (getWord("part", &cp))
{
createTag(K_PART, cp);
continue;
}
/* Assembly */
if (getWord("assembly", &cp))
{
createTag(K_ASSEMBLY, cp);
continue;
}
/* Steps */
if (getWord("step", &cp))
{
createTag(K_STEP, cp);
continue;
}
}
}
}
}
extern parserDefinition* AbaqusParser (void)
{
static const char *const extensions [] = { "inp", NULL };
parserDefinition * def = parserNew ("Abaqus");
def->kindTable = AbaqusKinds;
def->kindCount = ARRAY_SIZE (AbaqusKinds);
def->extensions = extensions;
def->parser = findAbaqusTags;
return def;
}
|
