File: util.C

package info (click to toggle)
maria 1.3.4-5
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 3,956 kB
  • ctags: 5,485
  • sloc: cpp: 43,267; yacc: 8,080; sh: 460; ansic: 436; lisp: 395; makefile: 288; perl: 21
file content (132 lines) | stat: -rw-r--r-- 2,912 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
// Generic utility functions -*- c++ -*-

#ifdef __GNUC__
# pragma implementation
#endif // __GNUC__
#include "util.h"

#include <string.h>
#include <assert.h>

/** @file util.C
 * Generic utility functions
 */

/* Copyright  1999-2002 Marko Mkel (msmakela@tcs.hut.fi).

   This file is part of MARIA, a reachability analyzer and model checker
   for high-level Petri nets.

   MARIA is free software; you can redistribute it and/or modify it
   under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2, or (at your option)
   any later version.

   MARIA 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.

   The GNU General Public License is often shipped with GNU software, and
   is generally kept in a file called COPYING or LICENSE.  If you do not
   have a copy of the license, write to the Free Software Foundation,
   59 Temple Place, Suite 330, Boston, MA 02111 USA. */

bool
ltstr::operator() (const char* s1, const char* s2) const
{
  return strcmp (s1, s2) < 0;
}

char*
newString (const char* s)
{
  size_t len = strlen (s) + 1;
  return static_cast<char*>(memcpy (new char[len], s, len));
}

unsigned
log16 (card_t num)
{
  assert (num > 0);
  assert (!(CARD_T_BIT % 4));
  unsigned low = 0, high = CARD_T_BIT / 4;

  for (;;) {
    unsigned log = (low + high) >> 1;
    card_t exp = card_t (1) << (4 * log);
    if (exp < num) {
      assert (high >= log);
      if (low == high) {
	assert (log == low);
	assert (log == CARD_T_BIT / 4);
	return log;
      }
      low = log + 1;
    }
    else if ((exp >> 4) >= num) {
      assert (low < log);
      high = log - 1;
    }
    else
      return log;
  }
}

unsigned
log8 (card_t num)
{
  assert (num > 0);
  assert (!(CARD_T_BIT % 4));
  unsigned low = 0, high = CARD_T_BIT / 3;

  if (num > (card_t (1) << (3 * high)))
    return high + 1;

  for (;;) {
    unsigned log = (low + high) >> 1;
    card_t exp = card_t (1) << (3 * log);
    if (exp < num) {
      assert (high >= log);
      if (low == high) {
	assert (log == low);
	assert (log == CARD_T_BIT / 3);
	return log;
      }
      low = log + 1;
    }
    else if ((exp >> 3) >= num) {
      assert (low < log);
      high = log - 1;
    }
    else
      return log;
  }
}

unsigned
log2 (card_t num)
{
  assert (num > 0);
  unsigned low = 0, high = CARD_T_BIT;

  for (;;) {
    unsigned log = (low + high) >> 1;
    card_t exp = card_t (1) << log;
    if (exp < num) {
      assert (high >= log);
      if (low == high) {
	assert (log == low);
	assert (log == CARD_T_BIT);
	return log;
      }
      low = log + 1;
    }
    else if ((exp >> 1) >= num) {
      assert (low < log);
      high = log - 1;
    }
    else
      return log;
  }
}