0022904: Clean up sccsid variables
[occt.git] / src / ExprIntrp / ExprIntrp_yacclex.cxx
CommitLineData
7fd59977 1// Copyright: Matra-Datavision 1993
2// File: ExprIntrp_yacclex.cxx
3// Created: Tue Dec 14 10:40:17 1993
4// Author: Arnaud BOUZY
5// <adn>
6
7#include <string.h>
8#include <ExprIntrp_yaccintrf.hxx>
9
10static char ExprIntrp_curres[255];
11static int ExprIntrp_degree;
12
13#ifndef WNT
14extern char* ExprIntrptext;
15#else
16extern "C" char* ExprIntrptext;
17#endif // WNT
18
19
20extern "C" void ExprIntrp_SetResult()
21{
22 strcpy(ExprIntrp_curres,ExprIntrptext);
23}
24
25extern "C" void ExprIntrp_SetDegree()
26{
27 ExprIntrp_degree = strlen(ExprIntrptext);
28}
29
30int ExprIntrp_GetDegree()
31{
32 return ExprIntrp_degree;
33}
34
35int ExprIntrp_GetResult(char *s)
36{
37 strcpy(s,ExprIntrp_curres);
38 return strlen(ExprIntrp_curres);
39}