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
|
#############################################################################
##
#W init.g GAP 4 package `Browse' Thomas Breuer, Frank Lübeck
##
# load kernel module
if (not IsBound(NCurses)) and
IsKernelExtensionAvailable("Browse", "ncurses") then
LoadKernelExtension("Browse", "ncurses");
fi;
# check if the kernel module was loaded and has correct version
if not IsBound(NCurses) then
if UserPreference("browse", "loadwithoutncurses") <> true then
Unbind(GAPInfo.PackagesLoaded.browse);
Error("Browse: Something went wrong with loading the kernel module.\n");
else
# read a fake NCurses record and reset user preferences
LogPackageLoadingMessage( PACKAGE_WARNING,
[ "Loaded fake NCurses record because ('loadwithoutncurses' set)" ] );
ReadPackage("Browse", "lib/fakeNCurses.g");
NCurses.KernelModuleVersion := GAPInfo.PackagesLoaded.browse[2];
Append(GAPInfo.PackagesLoaded.browse[3],
" Without NCurses PLEASE COMPILE!!!");
SetUserPreference( "browse", "SelectHelpMatches", false );
SetUserPreference( "browse", "SelectPackageName", false );
SetUserPreference( "browse", "EnableMouseEvents", false );
fi;
fi;
if GAPInfo.PackagesLoaded.browse[2] <> NCurses.KernelModuleVersion then
GAPInfo.browseerror := Concatenation("Browse: Kernel module has version ",
NCurses.KernelModuleVersion, " but version ",
GAPInfo.PackagesLoaded.browse[2], " is to be loaded.\n");
Unbind(GAPInfo.PackagesLoaded.browse);
Error(GAPInfo.browseerror);
fi;
ReadPackage("Browse", "lib/ncurses.gd");
ReadPackage("Browse", "lib/browse.gd");
# support for database attributes
ReadPackage( "Browse", "lib/brdbattr.gd" );
# utilities for Browse applications (must be read before `read.g')
ReadPackage( "Browse", "lib/brutils.g" );
Browse_svnRevision := "706";
|
