Mercurial > repo

comparison interps/glass/variable.cc @ 996:859f9b4339e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<Gregor> tar xf egobot.tar.xz
author HackBot
date Sun, 09 Dec 2012 19:30:08 +0000
parents
children
comparison
equal deleted inserted replaced
995:6883f5911eb7 996:859f9b4339e6
1 /*
2 * Copyright (c) 2005 Gregor Richards
3 *
4 * This file is part of Glass.
5 *
6 * Glass is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
10 *
11 * Glass is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with Glass; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
19 */
20
21 #include "variable.h"
22
23 void Variable::init()
24 {
25 type = VAR_NUMBER;
26 nval = 0.0;
27 sval = "";
28 kval = NULL;
29 kival = NULL;
30 fval = NULL;
31 }
32
33 Variable::Variable() { init(); }
34
35 Variable::Variable(int stype, double val)
36 {
37 init();
38 if (stype == VAR_NUMBER) {
39 nval = val;
40 }
41 }
42
43 Variable::Variable(int stype, string val)
44 {
45 init();
46 if (stype == VAR_VARIABLEP ||
47 stype == VAR_STRING) {
48 type = stype;
49 sval = val;
50 }
51 }
52
53 Variable::Variable(int stype, void *val)
54 {
55 init();
56 if (stype == VAR_KLASS) {
57 type = stype;
58 kval = (Klass *) val;
59 } else if (stype == VAR_KLASSI) {
60 type = stype;
61 kival = (KlassI *) val;
62 } else if (stype == VAR_FUNC) {
63 type = stype;
64 fval = (Func *) val;
65 }
66 }
67
68 Variable::Variable(int stype, void *vala, void *valb)
69 {
70 init();
71 if (stype == VAR_FUNCI) {
72 type = stype;
73 kival = (KlassI *) vala;
74 fval = (Func *) valb;
75 }
76 }
77
78 Variable::Variable(Variable &copy)
79 {
80 mkcopy(copy);
81 }
82
83 void Variable::mkcopy(Variable &copy)
84 {
85 type = copy.type;
86 nval = copy.nval;
87 sval = copy.sval;
88 kval = copy.kval;
89 kival = copy.kival;
90 fval = copy.fval;
91 }