Tanl Linguistic Pipeline

search/ixe/Common/eptacode.cpp

/*
**      IXE
**      Common/eptacode.cpp
** ----------------------------------------------------------------------
**      Copyright (c) 2000  Ideare SpA. All rights reserved.
**      Copyright (c) 2000  Giuseppe Attardi (attardi@di.unipi.it).
** ----------------------------------------------------------------------
**
**  This file is part of IXE.
**
**  IXE is free software; you can redistribute it and/or modify it
**  under the terms of the GNU General Public License, version 3,
**  as published by the Free Software Foundation.
**
**  IXE is distributed in the hope that it will be useful,
**  but WITHOUT ANY WARRANTY; without even the implied warranty of
**  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
**  GNU General Public License for more details.
**
**  You should have received a copy of the GNU General Public License
**  along with this program.  If not, see <http://www.gnu.org/licenses/>.
**  ----------------------------------------------------------------------
*/

// settings
#include "eptacode.h"

// standard
#include <assert.h>

namespace IXE {

using namespace std;

#ifdef _MSC_VER
#define OUTPUT_DIGIT(o, n) reinterpret_cast<ostream&>(o) << static_cast<unsigned char>(n)
#else
#define OUTPUT_DIGIT(o, n)  o << static_cast<unsigned char>(n)
#endif

//=============================================================================
//=============================================================================

ostream& outEptacode(ostream& o, register unsigned n)
{
  while (n >= 128) {
    OUTPUT_DIGIT(o, (n & 0x7F));
    n >>= 7;
  }
  OUTPUT_DIGIT(o, (n | 0x80));          // set sign bit

  return o;
}

ostream& padEptacode(ostream& o, register unsigned no, unsigned old)
{
  assert(no <= old);
  if (no == old)
    return outEptacode(o, no);
  unsigned n = no;
  while (n >= 128) {
    n >>= 7;
    old >>= 7;
  }
  // add leading 0's for padding
  while (old >= 128) {
    OUTPUT_DIGIT(o, 0);
    old >>= 7;
  }
  return outEptacode(o, no);
}

unsigned int toEptacode(unsigned char* dst, register unsigned n)
{
  register unsigned char *p = dst;
  while (n >= 128) {
    *p++ = n & 0x7F;
    n >>= 7;
  }
  *p = n | 0x80;                // set sign bit

  return p - dst + 1;
}

} // namespace IXE

 

Copyright © 2005-2011 G. Attardi. Generated on 3 Mar 2011 by doxygen 1.6.1.