Canola: lib/number/z/shift_left.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/ac/assert.h>
00019 #include <lib/ac/limits.h>
00020 
00021 #include <lib/number/z.h>
00022 
00023 
00024 number_z
00025 number_z::shift_left(size_t far)
00026     const
00027 {
00028     assert(far < INT_MAX);
00029     assert(is_valid());
00030     if (is_zero())
00031         return *this;
00032     if (far == 0)
00033         return *this;
00034 
00035     number_z result;
00036     for (size_t j = 0; j < digits_used; ++j)
00037         result.set(j + far, get(j));
00038     assert(result.is_valid());
00039     return result;
00040 }
00041 
00042 
00043 // vim: set ts=8 sw=4 et :