Canola  0.8.D001
lib/number/z/to_long.cc
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/ac/limits.h>
00019 
00020 #include <lib/number/z.h>
00021 
00022 
00023 long
00024 number_z::to_long(void)
00025     const
00026 {
00027     switch (digits_used)
00028     {
00029     case 0:
00030         return 0;
00031 
00032     case 1:
00033         return digits[0];
00034 
00035     default:
00036         break;
00037     }
00038     long long n = 0;
00039     for (size_t j = digits_used; j > 0; --j)
00040     {
00041         n = n * 10 + digits[j - 1];
00042         if (n > LONG_MAX)
00043             return LONG_MAX;
00044     }
00045     return n;
00046 }
00047 
00048 
00049 // vim: set ts=8 sw=4 et :