/
ModelicaExternalC_rml.c
107 lines (97 loc) · 2.98 KB
/
ModelicaExternalC_rml.c
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
/*
* This file is part of OpenModelica.
*
* Copyright (c) 1998-2010, Linköpings University,
* Department of Computer and Information Science,
* SE-58183 Linköping, Sweden.
*
* All rights reserved.
*
* THIS PROGRAM IS PROVIDED UNDER THE TERMS OF THIS OSMC PUBLIC
* LICENSE (OSMC-PL). ANY USE, REPRODUCTION OR DISTRIBUTION OF
* THIS PROGRAM CONSTITUTES RECIPIENT'S ACCEPTANCE OF THE OSMC
* PUBLIC LICENSE.
*
* The OpenModelica software and the Open Source Modelica
* Consortium (OSMC) Public License (OSMC-PL) are obtained
* from Linköpings University, either from the above address,
* from the URL: http://www.ida.liu.se/projects/OpenModelica
* and in the OpenModelica distribution.
*
* This program is distributed WITHOUT ANY WARRANTY; without
* even the implied warranty of MERCHANTABILITY or FITNESS
* FOR A PARTICULAR PURPOSE, EXCEPT AS EXPRESSLY SET FORTH
* IN THE BY RECIPIENT SELECTED SUBSIDIARY LICENSE CONDITIONS
* OF OSMC-PL.
*
* See the full OSMC Public License conditions for more details.
*
*/
#include "rml.h"
#include "memory_pool.h"
void ModelicaInternal_print(const char*,const char*);
const char* ModelicaInternal_readLine(const char*,int,int*);
int ModelicaInternal_countLines(const char*);
void ModelicaStreams_closeFile(const char*);
void ModelicaStrings_scanReal(const char*,int,int,int*,double*);
int ModelicaStrings_skipWhiteSpace(const char*,int);
void ModelicaExternalC_5finit(void)
{
}
RML_BEGIN_LABEL(ModelicaExternalC__Streams_5fprint)
{
char* str = RML_STRINGDATA(rmlA0);
char* fileName = RML_STRINGDATA(rmlA1);
ModelicaInternal_print(str,fileName);
RML_TAILCALLK(rmlSC);
}
RML_END_LABEL
RML_BEGIN_LABEL(ModelicaExternalC__Streams_5freadLine)
{
state mem_state;
mem_state = get_memory_state();
char* fileName = RML_STRINGDATA(rmlA0);
long line = RML_UNTAGFIXNUM(rmlA1);
int endOfFile = 0;
char* res = ModelicaInternal_readLine(fileName,line,&endOfFile);
rmlA0 = mk_scon(res);
rmlA1 = mk_icon(endOfFile);
restore_memory_state(mem_state);
RML_TAILCALLK(rmlSC);
}
RML_END_LABEL
RML_BEGIN_LABEL(ModelicaExternalC__Streams_5fcountLines)
{
char* fileName = RML_STRINGDATA(rmlA0);
rmlA0 = mk_icon(ModelicaInternal_countLines(fileName));
RML_TAILCALLK(rmlSC);
}
RML_END_LABEL
RML_BEGIN_LABEL(ModelicaExternalC__Streams_5fclose)
{
char* fileName = RML_STRINGDATA(rmlA0);
ModelicaStreams_closeFile(fileName);
RML_TAILCALLK(rmlSC);
}
RML_END_LABEL
RML_BEGIN_LABEL(ModelicaExternalC__Strings_5fadvanced_5fscanReal)
{
char* str = RML_STRINGDATA(rmlA0);
int i = RML_UNTAGFIXNUM(rmlA1);
int unsign = RML_UNTAGFIXNUM(rmlA2);
int next_ix=0;
double val=0;
ModelicaStrings_scanReal(str,i,unsign,&next_ix,&val);
rmlA0 = mk_icon(next_ix);
rmlA1 = mk_rcon(val);
RML_TAILCALLK(rmlSC);
}
RML_END_LABEL
RML_BEGIN_LABEL(ModelicaExternalC__Strings_5fadvanced_5fskipWhiteSpace)
{
char* str = RML_STRINGDATA(rmlA0);
int i = RML_UNTAGFIXNUM(rmlA1);
rmlA0 = mk_icon(ModelicaStrings_skipWhiteSpace(str,i));
RML_TAILCALLK(rmlSC);
}
RML_END_LABEL