Canola: lib/number/to_long.cc Source File

Go to the documentation of this file.
00001 //
00002 // canola - canon canola 1614p emulator
00003 // Copyright (C) 2012 Peter Miller
00004 //
00005 // This program is free software; you can redistribute it and/or modify
00006 // it under the terms of the GNU General Public License, version 3, as
00007 // published by the Free Software Foundation.
00008 //
00009 // This program is distributed in the hope that it will be useful,
00010 // but WITHOUT ANY WARRANTY; without even the implied warranty of
00011 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00012 // General Public License for more details.
00013 //
00014 // You should have received a copy of the GNU General Public License along
00015 // with this program. If not, see <http://www.gnu.org/licenses/>.
00016 //
00017 
00018 #include <lib/number.h>
00019 
00020 
00021 long
00022 number::to_long(void)
00023     const
00024 {
00025     number_z tmp(value);
00026     tmp = tmp.shift_right(decimal);
00027     long result = tmp.to_long();
00028     return (negative ? -result : result);
00029 }
00030 
00031 
00032 // vim: set ts=8 sw=4 et :