/usr/share/gap/pkg/ctbllib/dlnames/dllib.g is in gap-character-tables 1r2p2.dfsg.0-3.
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 | #############################################################################
##
#W dllib.g GAP 4 package CTblLib Michael Claßen-Houben
##
#Y Copyright (C) 2005, Lehrstuhl D für Mathematik, RWTH Aachen, Germany
##
#############################################################################
##
#V DeltigLibUnipotentCharacters
##
BindGlobal( "DeltigLibUnipotentCharacters", [] );
#ReadPackage( "ctbllib", "dlnames/ltgroups.g" );
ReadPackage( "ctbllib", "dlnames/uctypeA.g" );
ReadPackage( "ctbllib", "dlnames/uctype2A.g" );
ReadPackage( "ctbllib", "dlnames/uctypeB.g" );
ReadPackage( "ctbllib", "dlnames/uctypeC.g" );
ReadPackage( "ctbllib", "dlnames/uctypeD.g" );
ReadPackage( "ctbllib", "dlnames/uctype2D.g" );
ReadPackage( "ctbllib", "dlnames/uctypeX.g" );
#############################################################################
##
#F DeltigLibGetRecord( <record> )
#F DeltigLibGetRecord( <string> )
##
BindGlobal( "DeltigLibGetRecord", function( r )
if IsString( r ) then
return First( DeltigLibUnipotentCharacters, x -> x.identifier = r );
else
return First( DeltigLibUnipotentCharacters,
elem -> elem.isoc = r.isoc
and elem.l = r.l
and ( ( IsBound( r.q ) and elem.q = r.q )
or ( IsBound( r.q2 ) and elem.q2 = r.q2 ) )
and ( ( not IsBound( r.isot ) ) or r.isot in elem.isot ) );
fi;
end );
#############################################################################
##
#E
|