patch::: 1.3.119.jcn3

[lilypond.git] / flower / scalar.cc

diff --git a/flower/scalar.cc b/flower/scalar.cc
index 2b61b9089f0587fd81de04980cd53b52ce57e6e7..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 100644 (file)
--- a/flower/scalar.cc
+++ b/flower/scalar.cc
@@ -1,69 +0,0 @@
-/*
-  scalar.cc -- implement Scalar
-
-  source file of the Flower Library
-
-  (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
-*/
-
-#include <assert.h>
-#include <stdio.h>
-#include "scalar.hh"
-#include "rational.hh"
-
-Scalar::Scalar (Rational r)
-{
-  (*this) = r.str ();
-}
-
-Scalar::operator Rational ()
-{
-  int p = index_i ('/');
-  if (p == -1)
-    return int (*this);
-  
-  String s2 = right_str (length_i ()-p-1);
-  String s1 = left_str (p);
-
-  return Rational (s1.value_i (), s2.value_i ());
-}
-
-bool
-Scalar::isnum_b () const
-{
-  int conv = false;
-  if (length_i ())
-    {
-      long l =0;
-      conv = sscanf (strh_.ch_C (), "%ld", &l);
-    }
-  return length_i () && conv;
-}
-
-Scalar::operator Real()
-{
-  assert (isnum_b ());
-  return value_f ();
-}
-
-Scalar::operator int()
-{
-  if (!length_i ())
-    return 0;                  // ugh
-  
-  assert (isnum_b());
-  return value_i ();
-}
-
-
-Scalar::operator bool () const
-{
-  if (!length_i ())
-    return false;
-  if (*this == "0")
-    return false;
-  String u (*this);
-  if (u.upper_str () == "FALSE")
-    return false;
-  return true;
-}