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
|
#############################################################################
##
#W assert.gi GAP library Steve Linton
##
#H @(#)$Id: assert.gi,v 4.5 2002/04/15 10:04:26 sal Exp $
##
#Y Copyright (C) 1996, Lehrstuhl D fuer Mathematik, RWTH Aachen, Germany
#Y (C) 1998 School Math and Comp. Sci., University of St. Andrews, Scotland
#Y Copyright (C) 2002 The GAP Group
##
## This package sets up a mechanism for diagnostic assertions at GAP
## level.
##
## These tests are controlled by a single global assertion level settable
## and readable by user functions SetAssertionLevel( <level> ) and
## AssertionLevel().
##
## We store this level in the "unpublished" global variable
## CurrentAssertionLevel
##
## Assert itself is implemented in the kernel, see the scanner, reader,
## intrprtr, coder and stats packages
##
## This file is the GAP level implementation part of that package
##
Revision.assert_gi :=
"@(#)$Id: assert.gi,v 4.5 2002/04/15 10:04:26 sal Exp $";
#############################################################################
##
#V CurrentAssertionLevel . . . . . . . . . . the level of assertion checking
#V SetAssertionLevel() . . . . . . . . sets the level of assertion checking
#V AssertionLevel() . . . . . gets the current level of assertion checking
##
##
CurrentAssertionLevel := 0;
InstallGlobalFunction( SetAssertionLevel, function( level )
if IsInt(level) and level >= 0 then
CurrentAssertionLevel := level;
else
Error("Usage SetAssertionLevel( <level> )");
fi;
end );
InstallGlobalFunction( AssertionLevel, function()
return CurrentAssertionLevel;
end );
#############################################################################
##
#E assert.gi . . . . . . . . . . . . . . . . . . . . . . . . . . . ends here
##
|
