# Build the database of orthogonal and rational seminormal models
# for all irreps of all irreducible Weyl groups of rank <= 8.
#
# WARNING: this will overwrite existing files in the 'data' directory.
#
# WARNING^2: this will also overwrite the file 'runtimes' in the
# 'stats' directory.
#
# WARNING^3: the plain text data files this program creates are not "safe"
# to read during a Maple session -- the contents of the text file will be
# echoed to the terminal. To render the text files safe, use an editor to
# change each ";" to a ":" within each file, or modify the save commands
# below to use '.m' format only.

read buildall;

G2; buildall(G2);
save Rep,Semi,Branch,`../data/G2_data`;

Rep:=table(): Branch:=table(): Semi:=table():
F4; buildall(F4);
save Rep,Semi,Branch,`../data/F4_data`;

Rep:=table(): Branch:=table(): Semi:=table():
for n to 8 do R:=cat('A',n); buildall(R) od;
save Rep,Semi,Branch,`../data/A8_data`;

Rep:=table(): Branch:=table(): Semi:=table():
for n from 3 to 8 do R:=cat('D',n); buildall(R) od;
save Rep,Semi,Branch,`../data/D8_data`;

Rep:=table(): Branch:=table(): Semi:=table():
for n from 2 to 8 do R:=cat('B',n); buildall(R) od;
save Rep,Semi,Branch,`../data/B8_data`;

Rep:=table(): Branch:=table(): Semi:=table():
buildall(E4);
writeto(`../stats/runtimes`);
E5; buildall(E5);
E6; buildall(E6);
writeto(terminal);
save Rep,Semi,Branch,`../data/E6_data`;
appendto(`../stats/runtimes`);
E7; buildall(E7);
writeto(terminal);
save Rep,Semi,Branch,`../data/E7_data`;
appendto(`../stats/runtimes`);
E8; buildall(E8);
writeto(terminal);
save Rep,Semi,Branch,`../data/E8_data.m`;
save Rep,Semi,Branch,`../data/E8_data`;

quit;