source: liacs/da/fibo_queue/standaard.cc@ 134

// Enkele standaard functies op variabelen van type `char', `int' of `bool'.
//
// Ook de functies `Cijfer' en `Letter' kennen we nu.
//           Rudy van Vliet                    14 december 2004

//****************************************************************************

#include "standaard.h"

//****************************************************************************

int KleinsteGetal (int i, int j)
 // geef het minimum van de twee getallen i en j
{
  if (i<=j)
    return i;
  else
    return j;
    
}  // KleinsteGetal

//****************************************************************************

int GrootsteGetal (int i, int j)
 // geef het maximum van de twee getallen i en j
{
  if (i>=j)
    return i;
  else
    return j;
    
}  // GrootsteGetal

//****************************************************************************

int GetalLengte (int Waarde)
 // retourneer de lengte (in karakters) van het getal Waarde
 // werkt ook als Waarde negatief is
{ int WLengte;

  if (Waarde < 0)
  { WLengte = 1;
    Waarde = - Waarde;
  }
  else
    WLengte = 0;

  do
  { WLengte ++;
    Waarde = Waarde / 10;
  } while (Waarde != 0);

  return WLengte;

}  // GetalLengte

//****************************************************************************

bool Cijfer (char k)
 // kijk of het karakter `k' een cijfer is of niet
{
  if ((k>='0') && (k<='9'))
    return true;
  else
    return false;

}  // Cijfer

//****************************************************************************

bool Letter (char k)
 // kijk of het karakter `k' een letter is of niet
{
  if (   ((k>='A') && (k<='Z'))   // een hoofdletter
      || ((k>='a') && (k<='z')) ) // een kleine letter
    return true;
  else
    return false;

}  // Letter

//****************************************************************************

char HoofdLetter (char c)
 // als c een kleine letter is, retourneer de bijbehorende hoofdletter;
 // anders retourneer gewoon c
{
  if ((c>='a') && (c<='z'))
    return ((char) c - 32);
  else
    return c;

}  // HoofdLetter

//****************************************************************************

char *ItoA (int Waarde)
 // transformeer het getal Waarde tot een character-string
{ int  WLengte;  // de lengte (in karakters) van Waarde
  char *GStr;

  WLengte = GetalLengte (Waarde);
  GStr = new char[WLengte+1];

  if (Waarde<0)
  { GStr[0] = '-';
    Waarde = - Waarde;
  }

  GStr [WLengte] = EOS;
  WLengte --;

  do
  { GStr[WLengte] = (char) (Waarde%10 + 48);
    WLengte --;
    Waarde = Waarde/10;
  } while (Waarde!=0);

  return GStr;

}  // ItoA

//****************************************************************************

int BtoI (bool b)
 // zet de boolean b om in een integer (true <-> 1,  false <-> 0)
{
  if (b)
    return 1;
  else
    return 0;

}  // BtoI

//****************************************************************************