Skip to content

GitLab

Commit 9cf074db authored by MARCHE Claude's avatar MARCHE Claude
Browse files

db

parent 67841fd6
Expand all Hide whitespace changes
Inline Side-by-side
Makefile.in
View file @ 9cf074db
......@@ -65,9 +65,9 @@ endif
INCLUDES = -I src/core -I src/util -I src/driver -I src/parser -I src/printer \
-I src/transform -I src/programs -I src/manager -I src
BFLAGS = -w Aelz -dtypes -g $(INCLUDES) @INCLUDEGTK2@ -I +threads -I +sqlite3 @OCAMLGRAPHLIB@ str.cma unix.cma $(DYNLINKBFLAGS)
BFLAGS = -w Aelz -dtypes -g $(INCLUDES) @INCLUDEGTK2@ -thread -I +threads -I +sqlite3 @OCAMLGRAPHLIB@ str.cma unix.cma $(DYNLINKBFLAGS)
# no -warn-error because some do not compile all files (e.g. those linked to APRON)
OFLAGS = -w Aelz -dtypes $(INCLUDES) @INCLUDEGTK2@ -I +threads @OCAMLGRAPHLIB@ str.cmxa unix.cmxa $(DYNLINKOFLAGS)
OFLAGS = -w Aelz -dtypes $(INCLUDES) @INCLUDEGTK2@ -thread -I +threads -I +sqlite3 @OCAMLGRAPHLIB@ str.cmxa unix.cmxa $(DYNLINKOFLAGS)
COQC7 = @COQC7@
COQC8 = @COQC8@
......@@ -183,7 +183,7 @@ MANAGER_CMO := $(addprefix src/manager/,$(MANAGER_CMO))
bin/manager.byte: $(MANAGER_CMO)
$(if $(QUIET),@echo 'Linking $@' &&) $(OCAMLC) $(BFLAGS) \
sqlite3.cma -o $@ $^
-thread threads.cma sqlite3.cma -o $@ $^
# test targets
##############
......
src/manager/db.ml
View file @ 9cf074db
This diff is collapsed.
src/manager/db.mli
View file @ 9cf074db
......@@ -16,20 +16,18 @@ module Init : sig
(** [db handle] @return the underlying Sqlite3 database handle for the connection, for advanced queries.
*)
end
module Challenge : sig
module Loc : sig
type t = <
id : int64 option;
set_id : int64 option -> unit;
log : int64;
set_log : int64 -> unit;
input : string;
set_input : string -> unit;
answer : string option;
set_answer : string option -> unit;
time : float;
set_time : float -> unit;
correct : int64;
set_correct : int64 -> unit;
file : string;
set_file : string -> unit;
line : int64;
set_line : int64 -> unit;
start : int64;
set_start : int64 -> unit;
stop : int64;
set_stop : int64 -> unit;
save: int64; delete: unit
>
......@@ -38,11 +36,10 @@ module Challenge : sig
val t :
?id:int64 option ->
log:int64 ->
input:string ->
?answer:string option ->
time:float ->
correct:int64 ->
file:string ->
line:int64 ->
start:int64 ->
stop:int64 ->
Init.t -> t
(** Can be used to construct a new object. If [id] is not specified, it will be automatically assigned the first time [save] is called on the object. The object is not committed to the database until [save] is invoked. The [save] method will also return the [id] assigned to the object.
@raise Sql_error if a database error is encountered
......@@ -50,31 +47,34 @@ module Challenge : sig
val get :
?id:int64 option ->
?log:int64 option ->
?input:string option ->
?answer:string option ->
?time:float option ->
?correct:int64 option ->
?file:string option ->
?line:int64 option ->
?start:int64 option ->
?stop:int64 option ->
?custom_where:string * Sqlite3.Data.t list -> Init.t -> t list
(** Used to retrieve objects from the database. If an argument is specified, it is included in the search criteria (all fields are ANDed together).
@raise Sql_error if a database error is encountered
*)
end
module Log_entry : sig
module External_proof : sig
type t = <
id : int64 option;
set_id : int64 option -> unit;
attempt : int64;
set_attempt : int64 -> unit;
successful : int64;
set_successful : int64 -> unit;
starting_date : float;
set_starting_date : float -> unit;
end_date : float;
set_end_date : float -> unit;
challenges : Challenge.t list;
set_challenges : Challenge.t list -> unit;
prover : string;
set_prover : string -> unit;
timelimit : int64;
set_timelimit : int64 -> unit;
memlimit : int64;
set_memlimit : int64 -> unit;
status : int64;
set_status : int64 -> unit;
result_time : float;
set_result_time : float -> unit;
trace : string;
set_trace : string -> unit;
obsolete : int64;
set_obsolete : int64 -> unit;
save: int64; delete: unit
>
......@@ -83,11 +83,13 @@ module Log_entry : sig
val t :
?id:int64 option ->
attempt:int64 ->
successful:int64 ->
starting_date:float ->
end_date:float ->
challenges:Challenge.t list ->
prover:string ->
timelimit:int64 ->
memlimit:int64 ->
status:int64 ->
result_time:float ->
trace:string ->
obsolete:int64 ->
Init.t -> t
(** Can be used to construct a new object. If [id] is not specified, it will be automatically assigned the first time [save] is called on the object. The object is not committed to the database until [save] is invoked. The [save] method will also return the [id] assigned to the object.
@raise Sql_error if a database error is encountered
......@@ -95,24 +97,37 @@ module Log_entry : sig
val get :
?id:int64 option ->
?attempt:int64 option ->
?successful:int64 option ->
?starting_date:float option ->
?end_date:float option ->
?prover:string option ->
?timelimit:int64 option ->
?memlimit:int64 option ->
?status:int64 option ->
?result_time:float option ->
?trace:string option ->
?obsolete:int64 option ->
?custom_where:string * Sqlite3.Data.t list -> Init.t -> t list
(** Used to retrieve objects from the database. If an argument is specified, it is included in the search criteria (all fields are ANDed together).
@raise Sql_error if a database error is encountered
*)
end
module Attempts : sig
module rec Goal : sig
type t = <
id : int64 option;
set_id : int64 option -> unit;
solution : int64;
set_solution : int64 -> unit;
log_entries : Log_entry.t list;
set_log_entries : Log_entry.t list -> unit;
task_checksum : string;
set_task_checksum : string -> unit;
parent : Transf.t;
set_parent : Transf.t -> unit;
name : string;
set_name : string -> unit;
pos : Loc.t;
set_pos : Loc.t -> unit;
external_proofs : External_proof.t list;
set_external_proofs : External_proof.t list -> unit;
transformations : Transf.t list;
set_transformations : Transf.t list -> unit;
proved : int64;
set_proved : int64 -> unit;
save: int64; delete: unit
>
......@@ -121,8 +136,13 @@ module Attempts : sig
val t :
?id:int64 option ->
solution:int64 ->
log_entries:Log_entry.t list ->
task_checksum:string ->
parent:Transf.t ->
name:string ->
pos:Loc.t ->
external_proofs:External_proof.t list ->
transformations:Transf.t list ->
proved:int64 ->
Init.t -> t
(** Can be used to construct a new object. If [id] is not specified, it will be automatically assigned the first time [save] is called on the object. The object is not committed to the database until [save] is invoked. The [save] method will also return the [id] assigned to the object.
@raise Sql_error if a database error is encountered
......@@ -130,25 +150,25 @@ module Attempts : sig
val get :
?id:int64 option ->
?solution:int64 option ->
?task_checksum:string option ->
?name:string option ->
?proved:int64 option ->
?custom_where:string * Sqlite3.Data.t list -> Init.t -> t list
(** Used to retrieve objects from the database. If an argument is specified, it is included in the search criteria (all fields are ANDed together).
@raise Sql_error if a database error is encountered
*)
end
module Solution : sig
and Transf : sig
type t = <
id : int64 option;
set_id : int64 option -> unit;
user : string;
set_user : string -> unit;
problem_id : int64;
set_problem_id : int64 -> unit;
solved : int64;
set_solved : int64 -> unit;
attempts : Attempts.t list;
set_attempts : Attempts.t list -> unit;
name : string;
set_name : string -> unit;
obsolete : int64;
set_obsolete : int64 -> unit;
subgoals : Goal.t list;
set_subgoals : Goal.t list -> unit;
save: int64; delete: unit
>
......@@ -157,10 +177,9 @@ module Solution : sig
val t :
?id:int64 option ->
user:string ->
problem_id:int64 ->
solved:int64 ->
attempts:Attempts.t list ->
name:string ->
obsolete:int64 ->
subgoals:Goal.t list ->
Init.t -> t
(** Can be used to construct a new object. If [id] is not specified, it will be automatically assigned the first time [save] is called on the object. The object is not committed to the database until [save] is invoked. The [save] method will also return the [id] assigned to the object.
@raise Sql_error if a database error is encountered
......@@ -168,106 +187,8 @@ module Solution : sig
val get :
?id:int64 option ->
?user:string option ->
?problem_id:int64 option ->
?solved:int64 option ->
?custom_where:string * Sqlite3.Data.t list -> Init.t -> t list
(** Used to retrieve objects from the database. If an argument is specified, it is included in the search criteria (all fields are ANDed together).
@raise Sql_error if a database error is encountered
*)
end
module Problems : sig
type t = <
id : int64 option;
set_id : int64 option -> unit;
number : int64;
set_number : int64 -> unit;
short_descr : string;
set_short_descr : string -> unit;
description : string;
set_description : string -> unit;
solved_by : int64;
set_solved_by : int64 -> unit;
save: int64; delete: unit
>
(** An object which can be stored in the database with the [save] method call, or removed by calling [delete]. Fields can be accessed via the approriate named method and set via the [set_] methods. Changes are not committed to the database until [save] is invoked.
*)
val t :
?id:int64 option ->
number:int64 ->
short_descr:string ->
description:string ->
solved_by:int64 ->
Init.t -> t
(** Can be used to construct a new object. If [id] is not specified, it will be automatically assigned the first time [save] is called on the object. The object is not committed to the database until [save] is invoked. The [save] method will also return the [id] assigned to the object.
@raise Sql_error if a database error is encountered
*)
val get :
?id:int64 option ->
?number:int64 option ->
?short_descr:string option ->
?description:string option ->
?solved_by:int64 option ->
?custom_where:string * Sqlite3.Data.t list -> Init.t -> t list
(** Used to retrieve objects from the database. If an argument is specified, it is included in the search criteria (all fields are ANDed together).
@raise Sql_error if a database error is encountered
*)
end
module User : sig
type t = <
id : int64 option;
set_id : int64 option -> unit;
username : string;
set_username : string -> unit;
password : string;
set_password : string -> unit;
email : string;
set_email : string -> unit;
allow_contact : int64;
set_allow_contact : int64 -> unit;
nationality : string option;
set_nationality : string option -> unit;
preferred_language : string option;
set_preferred_language : string option -> unit;
score : int64;
set_score : int64 -> unit;
solutions : Solution.t list;
set_solutions : Solution.t list -> unit;
save: int64; delete: unit
>
(** An object which can be stored in the database with the [save] method call, or removed by calling [delete]. Fields can be accessed via the approriate named method and set via the [set_] methods. Changes are not committed to the database until [save] is invoked.
*)
val t :
?id:int64 option ->
username:string ->
password:string ->
email:string ->
allow_contact:int64 ->
?nationality:string option ->
?preferred_language:string option ->
score:int64 ->
solutions:Solution.t list ->
Init.t -> t
(** Can be used to construct a new object. If [id] is not specified, it will be automatically assigned the first time [save] is called on the object. The object is not committed to the database until [save] is invoked. The [save] method will also return the [id] assigned to the object.
@raise Sql_error if a database error is encountered
*)
val get :
?id:int64 option ->
?username:string option ->
?password:string option ->
?email:string option ->
?allow_contact:int64 option ->
?nationality:string option ->
?preferred_language:string option ->
?score:int64 option ->
?name:string option ->
?obsolete:int64 option ->
?custom_where:string * Sqlite3.Data.t list -> Init.t -> t list
(** Used to retrieve objects from the database. If an argument is specified, it is included in the search criteria (all fields are ANDed together).
@raise Sql_error if a database error is encountered
......
src/manager/orm_schema.ml
View file @ 9cf074db
......@@ -10,69 +10,48 @@ let boolean = integer
let all_tables = make
[
(* table of challenges *)
("challenge",
[ integer "log"; (* ref to log it belongs to *)
text "input"; (* input of the problem *)
text ~flags:[`Optional] "answer";
(* no answer means "timeout" *)
real "time"; (* time to answer *)
boolean "correct";
(* table of locs *)
("loc",
[ text "file";
integer "line";
integer "start";
integer "stop";
],
[], default_opts);
(* log entries *)
("log_entry",
[ integer "attempt"; (* ref to attempt it belongs to *)
boolean "successful";
date "starting_date";
date "end_date";
foreign_many "challenge" "challenges";
(* external proofs *)
("external_proof",
[ text "prover"; (* prover identifier *)
integer "timelimit"; (* CPU limit given in seconds *)
integer "memlimit"; (* VM limit given in megabytes *)
integer "status"; (* enum{proof_attempt_status}; the current state *)
real "result_time"; (* CPU time for that run in seconds *)
text "trace"; (* any kind of trace returned by an automatic prover,
or any kind of proof script for an interactive prover *)
boolean "obsolete";
],
[], default_opts);
(* table of attempts *)
("attempts",
[ integer "solution"; (* ref to solution it belongs to *)
foreign_many "log_entry" "log_entries";
],
[], default_opts);
(* table of submitted solutions, successful or not *)
("solution",
[ text "user";
integer "problem_id";
boolean "solved";
foreign_many "attempts" "attempts"; (* list of attempts *)
(* goal *)
("goal",
[ text "task_checksum";
foreign "transf" "parent"; (* parent transf if any *)
text "name"; (* qualified proposition name *)
foreign "loc" "pos";
foreign_many "external_proof" "external_proofs";
foreign_many "transf" "transformations";
boolean "proved";
],
[], default_opts);
(* table of problems *)
("problems",
[ integer ~flags:[`Unique; `Index] "number";
text "short_descr";
text "description";
integer "solved_by" ;
],
[],
default_opts);
(* table of user profiles *)
("user" ,
[ text ~flags:[`Unique ; `Index] "username";
text "password";
text "email";
boolean "allow_contact"; (* if allows to make email public *)
text ~flags:[`Optional; `Index] "nationality";
text ~flags:[`Optional; `Index] "preferred_language";
integer "score";
foreign_many "solution" "solutions"; (* list of submitted solutions *)
(* transformations *)
("transf",
[ text "name"; (* transformation name *)
boolean "obsolete";
foreign_many "goal" "subgoals";
],
[], default_opts) ;
[], default_opts);
]
let () = generate ~debug:false all_tables "src/manager/db"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment