X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=helm%2Fhbugs%2Fcommon%2Fhbugs_types.ml;fp=helm%2Fhbugs%2Fcommon%2Fhbugs_types.ml;h=0000000000000000000000000000000000000000;hp=f2b2f20189f372fe5be3f4bd5c3c87ad72c476ff;hb=869549224eef6278a48c16ae27dd786376082b38;hpb=89262281b6e83bd2321150f81f1a0583645eb0c8

diff --git a/helm/hbugs/common/hbugs_types.ml b/helm/hbugs/common/hbugs_types.ml
deleted file mode 100644
index f2b2f2018..000000000
--- a/helm/hbugs/common/hbugs_types.ml
+++ /dev/null
@@ -1,86 +0,0 @@
-(*
- * Copyright (C) 2003:
- *    Stefano Zacchiroli <zack@cs.unibo.it>
- *    for the HELM Team http://helm.cs.unibo.it/
- *
- *  This file is part of HELM, an Hypertextual, Electronic
- *  Library of Mathematics, developed at the Computer Science
- *  Department, University of Bologna, Italy.
- *
- *  HELM is free software; you can redistribute it and/or
- *  modify it under the terms of the GNU General Public License
- *  as published by the Free Software Foundation; either version 2
- *  of the License, or (at your option) any later version.
- *
- *  HELM is distributed in the hope that it will be useful,
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- *  GNU General Public License for more details.
- *
- *  You should have received a copy of the GNU General Public License
- *  along with HELM; if not, write to the Free Software
- *  Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- *  MA  02111-1307, USA.
- *
- *  For details, see the HELM World-Wide-Web page,
- *  http://helm.cs.unibo.it/
- *)
-
-type broker_id = string
-type client_id = string
-type musing_id = string
-type tutor_id = string
-type tutor_dsc = tutor_id * string  (* tutor id, tutor description *)
-
-type state = string             (* TODO stato del proof assistant *)
-
-type hint = string              (* TODO consiglio per l'utente *)
-type hint_type = string              (* TODO consiglio per l'utente *)
-
-type musing_result =
-  | Eureka of string            (* extra information, if any, parsed depending
-                                on tutor's hint_type *)
-  | Sorry
-
-  (* for each message, first component is an ID that identify the sender *)
-type message =
-
-  (* general purpose *)
-  | Help  (* help request *)
-  | Usage of string (* help response *)       (* usage string *)
-  | Exception of string * string              (* name, value *)
-
-  (* client -> broker *)
-  | Register_client of client_id * string     (* client id, client url *)
-  | Unregister_client of client_id            (* client id *)
-  | List_tutors of client_id                  (* client_id *)
-  | Subscribe of client_id * tutor_id list    (* client id, tutor id list *)
-  | State_change of client_id * state         (* client_id, new state *)
-
-  (* tutor -> broker *)
-  | Register_tutor of tutor_id * string * hint_type * string
-                                              (* tutor id, tutor url, hint type,
-                                              tutor description *)
-  | Unregister_tutor of tutor_id              (* tutor id *)
-  | Musing_started of tutor_id * musing_id    (* tutor id, musing id *)
-  | Musing_aborted of tutor_id * musing_id    (* tutor id, musing id *)
-  | Musing_completed of tutor_id * musing_id * musing_result
-                                              (* tutor id, musing id, result *)
-
-  (* broker -> client *)
-  | Client_registered of broker_id            (* broker id *)
-  | Client_unregistered of broker_id          (* broker id *)
-  | Tutor_list of broker_id * tutor_dsc list  (* broker id, tutor list *)
-  | Subscribed of broker_id * tutor_id list   (* broker id, tutor list *)
-  | State_accepted of broker_id * musing_id list * musing_id list
-                                              (* broker id, stopped musing ids,
-                                              started musing ids *)
-  | Hint of broker_id * hint                  (* broker id, hint *)
-
-  (* broker -> tutor *)
-  | Tutor_registered of broker_id             (* broker id *)
-  | Tutor_unregistered of broker_id           (* broker id *)
-  | Start_musing of broker_id * state         (* broker id, state *)
-  | Abort_musing of broker_id * musing_id     (* broker id, musing id *)
-  | Thanks of broker_id * musing_id           (* broker id, musing id *)
-