Mercurial > repo
view interps/glass/variable.cc @ 1599:d4535cf1d640
<c00kiemon5ter> printf \'%s\\n\' \'#!/bin/sh\' \'ls -r /var/irclogs/_esoteric/????-??-??.txt | while read -r file; do awk -vs="^..:..:..: <$1>" \'\\\'\'$0 ~ s{x=$0} END{if(!x) exit 1; print x}\'\\\'\' "$file" && break; done\' >bin/seen
author | HackBot |
---|---|
date | Tue, 22 Jan 2013 01:01:10 +0000 |
parents | 859f9b4339e6 |
children |
line wrap: on
line source
/* * Copyright (c) 2005 Gregor Richards * * This file is part of Glass. * * Glass is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * Glass is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with Glass; if not, write to the Free Software * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA */ #include "variable.h" void Variable::init() { type = VAR_NUMBER; nval = 0.0; sval = ""; kval = NULL; kival = NULL; fval = NULL; } Variable::Variable() { init(); } Variable::Variable(int stype, double val) { init(); if (stype == VAR_NUMBER) { nval = val; } } Variable::Variable(int stype, string val) { init(); if (stype == VAR_VARIABLEP || stype == VAR_STRING) { type = stype; sval = val; } } Variable::Variable(int stype, void *val) { init(); if (stype == VAR_KLASS) { type = stype; kval = (Klass *) val; } else if (stype == VAR_KLASSI) { type = stype; kival = (KlassI *) val; } else if (stype == VAR_FUNC) { type = stype; fval = (Func *) val; } } Variable::Variable(int stype, void *vala, void *valb) { init(); if (stype == VAR_FUNCI) { type = stype; kival = (KlassI *) vala; fval = (Func *) valb; } } Variable::Variable(Variable ©) { mkcopy(copy); } void Variable::mkcopy(Variable ©) { type = copy.type; nval = copy.nval; sval = copy.sval; kval = copy.kval; kival = copy.kival; fval = copy.fval; }