File: str.cxx

package info (click to toggle)
latte 2.1-9
  • links: PTS
  • area: main
  • in suites: woody
  • size: 2,064 kB
  • ctags: 1,223
  • sloc: sh: 7,506; cpp: 5,831; ansic: 662; perl: 628; makefile: 350; yacc: 196; lisp: 114
file content (80 lines) | stat: -rw-r--r-- 2,055 bytes parent folder | download
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
// Copyright 1998,1999 Zanshin Inc.                  <http://www.zanshin.com/>

// The contents of this file are subject to the Zanshin Public License Version
// 1.0 (the "License"); you may not use this file except in compliance with the
// License.  You should have received a copy of the License with Latte; see
// the file COPYING.  You may also obtain a copy of the License at
// <http://www.zanshin.com/ZPL.html>.
// 
// Software distributed under the License is distributed on an "AS IS" basis,
// WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
// for the specific language governing rights and limitations under the
// License.
// 
// The Original Code is Latte.
// 
// The Initial Developer of the Original Code is Zanshin, Inc.

#include <latte.h>
#include <cstdio>
#include <cstdlib>

using namespace std;

Latte_Str::Latte_Str(const Latte_Wstate &ws,
		     const Latte_FileLoc &loc,
		     const shstring &str) :
  Latte_Tangible(ws, loc), shstring(str), m_numval_known(0), m_numval(0)
{
}

Latte_Str::Latte_Str(const Latte_Wstate &ws,
		     const Latte_FileLoc &loc,
		     const Latte_Number_t &num) :
  Latte_Tangible(ws, loc), m_numval_known(1), m_numval(num)
{
  char buf[32];

#ifdef ENABLE_FLOATING_POINT
  sprintf(buf, "%.f", num);
#else // ENABLE_FLOATING_POINT
  sprintf(buf, "%ld", num);
#endif // ENABLE_FLOATING_POINT

  str() = shstring(buf);
}

Latte_Str::Latte_Str(const Latte_Str &other) :
  Latte_Tangible(other), shstring(other.str()),
  m_numval_known(other.m_numval_known), m_numval(other.m_numval)
{
}

void
Latte_Str::visit(Latte_Visitor &visitor)
{
  visitor.visit_str(*this);
}

void
Latte_Str::render(ostream &out) const
{
  out << str();
}

Latte_Number_t
Latte_Str::numeric_val() const
{
  if (m_numval_known)
    return m_numval;

#ifdef ENABLE_FLOATING_POINT
  mutate(m_numval) = strtod(str().str().c_str(), 0);
#else // ENABLE_FLOATING_POINT
  mutate(m_numval) = strtol(str().str().c_str(), 0, 10);
#endif // ENABLE_FLOATING_POINT

  mutate(m_numval_known) = 1;

  return m_numval;
}