/usr/share/gap/lib/assert.gd is in gap-libs 4r7p9-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | #############################################################################
##
#W assert.gd GAP library Steve Linton
##
##
#Y Copyright (C) 1996, Lehrstuhl D für 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().
##
## The actual format of the check is Assert( <level>, <test> [, <message> ])
## which is equivalent to either:
##
## if AssertionLevel() >= <level> and <test> then
## Error("Assertion <test> failed");
## fi;
##
## or
##
## if AssertionLevel() >= <level> and <test> then
## Print( <message> );
## fi;
##
## depending on the number of arguments.
##
## Assert is a keyword implemented in the kernel
##
## This file is the declarations part of that package
##
#############################################################################
##
#F SetAssertionLevel() . . . . . . . . sets the level of assertion checking
#F AssertionLevel() . . . . . gets the current level of assertion checking
##
DeclareGlobalFunction("SetAssertionLevel");
DeclareGlobalFunction("AssertionLevel");
#############################################################################
##
#E assert.gd . . . . . . . . . . . . . . . . . . . . . . . . . . . ends here
##
|