source: src/SynTree/Constant.cc @ d104b02

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsdeferred_resndemanglerenumforall-pointer-decayjacob/cs343-translationjenkins-sandboxnew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumresolv-newwith_gc
Last change on this file since d104b02 was 6ea87486, checked in by Andrew Beach <ajbeach@…>, 7 years ago

That should be all the base code for 'tree structures' to work.

  • Property mode set to 100644
File size: 2.4 KB
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
7// Constant.cc --
8//
9// Author           : Richard C. Bilson
10// Created On       : Mon May 18 07:44:20 2015
11// Last Modified By : Andrew Beach
12// Last Modified On : Fri Jul 14 14:50:00 2017
13// Update Count     : 29
14//
15
16#include <iostream>
17#include <list>
18#include <string>
19
20#include "Constant.h"
21#include "Type.h"
22
23Constant::Constant( Type * type, std::string rep, unsigned long long val ) : type( type ), rep( rep ), val( val ) {}
24Constant::Constant( Type * type, std::string rep, double val ) : type( type ), rep( rep ), val( val ) {}
25
26Constant::Constant( const Constant &other ) : rep( other.rep ), val( other.val ) {
27        type = other.type->clone();
28}
29
30Constant::~Constant() { delete type; }
31
32Constant Constant::from_bool( bool b ) {
33        return Constant( new BasicType( Type::Qualifiers(), BasicType::Bool ), b ? "1" : "0" , (unsigned long long int)b );
34}
35
36Constant Constant::from_int( int i ) {
37        return Constant( new BasicType( Type::Qualifiers(), BasicType::SignedInt ), std::to_string( i ), (unsigned long long int)i );
38}
39
40Constant Constant::from_ulong( unsigned long i ) {
41        return Constant( new BasicType( Type::Qualifiers(), BasicType::LongUnsignedInt ), std::to_string( i ), (unsigned long long int)i );
42}
43
44Constant Constant::from_double( double d ) {
45        return Constant( new BasicType( Type::Qualifiers(), BasicType::Double ), std::to_string( d ), d );
46}
47
48Constant Constant::null( Type * ptrtype ) {
49        if ( nullptr == ptrtype ) {
50                ptrtype = new PointerType(
51                        Type::Qualifiers(),
52                        new VoidType( Type::Qualifiers() )
53                        );
54        }
55
56        return Constant( ptrtype, "0", (unsigned long long int)0 );
57}
58
59unsigned long long Constant::get_ival() const {
60        assertf( safe_dynamic_cast<BasicType*>(type)->isInteger(), "Attempt to retrieve ival from non-integer constant." );
61        return val.ival;
62}
63
64double Constant::get_dval() const {
65        assertf( ! safe_dynamic_cast<BasicType*>(type)->isInteger(), "Attempt to retrieve dval from integer constant." );
66        return val.dval;
67}
68
69void Constant::print( std::ostream &os ) const {
70        os << "(" << rep << " " << val.ival;
71        if ( type ) {
72                os << ": ";
73                type->print( os );
74        } // if
75  os << ")";
76}
77
78// Local Variables: //
79// tab-width: 4 //
80// mode: c++ //
81// compile-command: "make install" //
82// End: //
Note: See TracBrowser for help on using the repository browser.