Skip to content
Draft
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
19 changes: 9 additions & 10 deletions lib/init.g
Original file line number Diff line number Diff line change
Expand Up @@ -434,7 +434,7 @@ function( prefix, values, suffix )
end);

BindGlobal( "ShowKernelInformation", function()
local sysdate, btop, vert, bbot, config, str, gap;
local sysdate, config, str, gap;

if GAPInfo.Date <> "today" then
sysdate := " of ";
Expand All @@ -446,20 +446,19 @@ BindGlobal( "ShowKernelInformation", function()
Append(sysdate, GAPInfo.BuildDateTime);
fi;

if GAPInfo.TermEncoding = "UTF-8" then
btop := "┌───────┐\c"; vert := "│"; bbot := "└───────┘\c";
else
btop := "*********"; vert := "*"; bbot := btop;
fi;
if IsHPCGAP then
gap := "HPC-GAP";
else
gap := "GAP";
fi;
Print( " ",btop," ",gap," ", GAPInfo.BuildVersion,
sysdate, "\n",
" ",vert," GAP ",vert," https://www.gap-system.org\n",
" ",bbot," Architecture: ", GAPInfo.Architecture, "\n" );

Print( """ . - O """, "\n" );
Print( """ / / \ """, gap, " ", GAPInfo.BuildVersion, sysdate, "\n" );
Print( """ O---O | """, "Architecture: ", GAPInfo.Architecture, "\n" );
Print( """ \ \ / """, "Web: https://www.gap-system.org", "\n" );
Print( """ ` - O """, "\n" );
Comment on lines +455 to +459
Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
Print( """ . - O """, "\n" );
Print( """ / / \ """, gap, " ", GAPInfo.BuildVersion, sysdate, "\n" );
Print( """ O---O | """, "Architecture: ", GAPInfo.Architecture, "\n" );
Print( """ \ \ / """, "Web: https://www.gap-system.org", "\n" );
Print( """ ` - O """, "\n" );
Print( """ ,-> (@) """, "\n" );
Print( """ v / ^ """, gap, " ", GAPInfo.BuildVersion, sysdate, "\n" );
Print( """ (@)-(@) ) """, "Architecture: ", GAPInfo.Architecture, "\n" );
Print( """ ^ \ v """, "Web: https://www.gap-system.org", "\n" );
Print( """ `-> (@) """, "\n");

Ill throw my hat into the ring too:

   ,-> (@)   
  v    / ^   GAP 4.16dev-18-gd3d75c4 built on 2025-09-23 23:00:44+0100
 (@)-(@)  )  Architecture: x86_64-pc-linux-gnu-default64-kv10
  ^    \ v   Web: https://www.gap-system.org
   `-> (@)   
 Configuration:  gmp 6.2.1, GASMAN
 Loading the library and packages ...
 Packages:   AClib 1.3.3, Alnuth 3.2.1, AtlasRep 2.1.9, AutoDoc 2025.05.09, AutPGrp 1.11.1, Browse 1.8.21, CaratInterface 2.3.7, CRISP 1.4.8, Cryst 4.1.30, CrystCat 1.1.10, 
             CTblLib 1.3.11, FactInt 1.6.3, FGA 1.5.0, Forms 1.2.13, GAPDoc 1.6.7, genss 1.6.9, IO 4.9.3, IRREDSOL 1.4.4, LAGUNA 3.9.7, orb 5.0.1, PackageManager 1.6.3, 
             Polenta 1.3.11, Polycyclic 2.17, PrimGrp 4.0.0, RadiRoot 2.9, recog 1.4.4, ResClasses 4.7.3, SmallGrp 1.5.4, Sophus 1.27, SpinSym 1.5.2, StandardFF 1.0, TomLib 1.2.11, 
             TransGrp 3.6.5, utils 0.92
 Try '??help' for help. See also '?copyright', '?cite' and '?authors'
gap>

Using escape codes like @mtorpey I can get the following:

screenshot_20250924

In addition to the wrapping issues for colors I guess we also need to consider what happens if a terminal doesn't support them.

Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Whoops did not mean to start a review!



if IsHPCGAP then
Print( " Maximum concurrent threads: ",
GAPInfo.KernelInfo.NUM_CPUS, "\n");
Expand Down
Loading