MetzNet
/
erlk
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Reorganized tables

main
noah metz 2024-01-27 13:35:07 -07:00
parent 61a1f8d8e0
commit e96790b215
1 changed files with 21 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/database.erl
Unescape Escape View File

@ -25,15 +25,19 @@ init([DatabaseFile]) ->
end. end.
init_db(Database) -> init_db(Database) ->
ok = sqlite3:create_table(Database, genids, [{genid, text, [not_null]}, ok = sqlite3:create_table(Database, genids, [{genid, text, [not_null]}],
{type, text, [not_null]}, [{primary_key, [genid]}]),
{size, integer, [not_null]}, ok = sqlite3:create_table(Database, divisions, [{division, integer, [not_null]},
{seed, integer, [not_null]}], {prac_size, integer, [not_null]},
[{primary_key, [genid]}, {prac_seed, integer, [not_null]},
{check, "type IN ('division', 'final')"}]), {qual_size, integer, [not_null]},
ok = sqlite3:create_table(Database, teams, [{name, text, [not_null]}, {qual_seed, integer, [not_null]}],
[{primary_key, [division]}]),
ok = sqlite3:create_table(Database, teams, [{team, text, [not_null]},
{division, integer},
{inspection, blob}], {inspection, blob}],
[{primary_key, [name]}]), [{primary_key, [team]},
{foreign_key, {[division], divisions, [division], "ON DELETE RESTRICT"}}]),
ok = sqlite3:create_table(Database, matches, [{genid, text, [not_null]}, ok = sqlite3:create_table(Database, matches, [{genid, text, [not_null]},
{round, text, [not_null]}, {round, text, [not_null]},
{number, integer, [not_null]}, {number, integer, [not_null]},
@ -44,11 +48,10 @@ init_db(Database) ->
[{primary_key, [genid, round, number]}, [{primary_key, [genid, round, number]},
{check, "round IN ('practice', 'qualification', 'elimination', 'final')"}, {check, "round IN ('practice', 'qualification', 'elimination', 'final')"},
{foreign_key, {[genid], genids, [genid], "ON DELETE RESTRICT"}}, {foreign_key, {[genid], genids, [genid], "ON DELETE RESTRICT"}},
{foreign_key, {[blue_1], teams, [name], "ON DELETE RESTRICT"}}, {foreign_key, {[blue_1], teams, [team], "ON DELETE RESTRICT"}},
{foreign_key, {[blue_2], teams, [name], "ON DELETE RESTRICT"}}, {foreign_key, {[blue_2], teams, [team], "ON DELETE RESTRICT"}},
{foreign_key, {[red_1], teams, [name], "ON DELETE RESTRICT"}}, {foreign_key, {[red_1], teams, [team], "ON DELETE RESTRICT"}},
{foreign_key, {[red_2], teams, [name], "ON DELETE RESTRICT"}}]), {foreign_key, {[red_2], teams, [team], "ON DELETE RESTRICT"}}]),
ok = sqlite3:create_table(Database, match_scores, [{genid, text, [not_null]}, ok = sqlite3:create_table(Database, match_scores, [{genid, text, [not_null]},
{round, text, [not_null]}, {round, text, [not_null]},
{number, integer, [not_null]}, {number, integer, [not_null]},
@ -67,21 +70,22 @@ init_db(Database) ->
ok = sqlite3:create_table(Database, skills_scores, [{team, text, [not_null]}, ok = sqlite3:create_table(Database, skills_scores, [{team, text, [not_null]},
{type, text, [not_null]}, {type, text, [not_null]},
{attempt, integer, [not_null]}, {attempt, integer, [not_null]},
{score, blob, [not_null]}], {score, blob}],
[{primary_key, [team, type, attempt]}, [{primary_key, [team, type, attempt]},
{foreign_key, {[team], teams, [name], "ON DELETE CASCADE"}}]), {check, "type IN ('driver', 'autonomous')"},
{foreign_key, {[team], teams, [team], "ON DELETE CASCADE"}}]),
ok. ok.
delete_teams(Database, Teams) -> delete_teams(Database, Teams) ->
SQL = lists:append(["BEGIN; ", SQL = lists:append(["BEGIN; ",
lists:append([io_lib:format("DELETE FROM teams WHERE name = ~p; ", lists:append([io_lib:format("DELETE FROM teams WHERE team = ~p; ",
[Team]) || Team <- Teams]), [Team]) || Team <- Teams]),
"COMMIT;"]), "COMMIT;"]),
first_error(sqlite3:sql_exec_script(Database, SQL)). first_error(sqlite3:sql_exec_script(Database, SQL)).
add_teams(Database, Teams) -> add_teams(Database, Teams) ->
SQL = lists:append(["BEGIN; ", SQL = lists:append(["BEGIN; ",
lists:append([io_lib:format("INSERT INTO teams(name) VALUES('~s') ON CONFLICT(name) DO NOTHING; ", lists:append([io_lib:format("INSERT INTO teams(team) VALUES('~s') ON CONFLICT(team) DO NOTHING; ",
[Team]) || Team <- Teams]), [Team]) || Team <- Teams]),
"COMMIT;"]), "COMMIT;"]),
first_error(sqlite3:sql_exec_script(Database, SQL)). first_error(sqlite3:sql_exec_script(Database, SQL)).