Add command to display state

 - Update year
 - Update version
 - Add file for the feature

CHANGELOG.md

@@ -6,6 +6,7 @@
    + “-l” list commands of the configuration file with its number.
    + “-a” add the command given on stdin to configuration file.
    + “-d n” remove the nth command from rc file.
+   + “-n” display the current state.
  + Improve some messages.
  + Display run commands in title bar of the windows terminal.
  + New tmp file

INSTALL.md

@@ -1,5 +1,5 @@
 <!--- OASIS_START --->
-<!--- DO NOT EDIT (digest: fba7555748594e7f5678a87998cc5e01) --->
+<!--- DO NOT EDIT (digest: 788c36d836a82ea33e30031012ae594a) --->
 
 This is the INSTALL file for the OcLaunch distribution.
 
@@ -15,7 +15,6 @@ In order to compile this package, you will need:
 * findlib
 * core
 * atdgen
-* core_extended
 
 Installing
 ==========

README.md

@@ -1,5 +1,5 @@
 <!--- OASIS_START --->
-<!--- DO NOT EDIT (digest: 1a7b775eade76a5f8205e8bce37a78dd) --->
+<!--- DO NOT EDIT (digest: 0ca605b95a7a33ed1adef17372475264) --->
 
 OcLaunch - Launch commands automatically
 ========================================
@@ -17,7 +17,7 @@ instructions.
 Copyright and license
 ---------------------
 
-(C) 2014 Joly Clément
+(C) 2014-2015 Joly Clément
 
 OcLaunch is distributed under the terms of the CEA-CNRS-INRIA Logiciel Libre.
 

TODO.md

@@ -28,6 +28,7 @@
 ### Misc
  + Documentation ;-)
  + Handle errors in reading rc file
+ + Return error code when necessary
  + Add build info in binary for 0install
  + Use color in messages
 

VERSION

@@ -1 +1 @@
-0.2.0-rc1
+0.2.0-dev

_oasis

@@ -1,12 +1,12 @@
 OASISFormat: 0.4
 Name:        OcLaunch
-Version:     0.2.0-rc1
+Version:     0.2.0-dev
 Synopsis:    Launch commands automatically
 Authors:     Joly Clément <leowzukw@vmail.me>
 Maintainers: Joly Clément <leowzukw@vmail.me>
 License:     CeCILL
 LicenseFile: LICENSE
-Copyrights: (C) 2014 Joly Clément
+Copyrights: (C) 2014-2015 Joly Clément
 Homepage: http://www.oclaunch.tuxfamily.org
 BuildTools: ocamlbuild, camlp4o
 Plugins: StdFiles (0.4), DevFiles (0.4)

setup.ml

@@ -1,7 +1,7 @@
 (* setup.ml generated for the first time by OASIS v0.4.5 *)
 
 (* OASIS_START *)
-(* DO NOT EDIT (digest: c1c30dca6744a05015f0d52e5098bf3b) *)
+(* DO NOT EDIT (digest: 5965972bf7b4cf895f4ec8357a2a411c) *)
 (*
    Regenerated by OASIS v0.4.5
    Visit http://oasis.forge.ocamlcore.org for more information and
@@ -6673,7 +6673,7 @@ let setup_t =
           alpha_features = ["stdfiles_markdown"; "compiled_setup_ml"];
           beta_features = [];
           name = "OcLaunch";
-          version = "0.1.4-dev";
+          version = "0.2.0-dev";
           license =
             OASISLicense.DEP5License
               (OASISLicense.DEP5Unit
@@ -6683,7 +6683,7 @@ let setup_t =
                     version = OASISLicense.NoVersion
                  });
           license_file = Some "LICENSE";
-          copyrights = ["(C) 2014 Joly Cl\195\169ment"];
+          copyrights = ["(C) 2014-2015 Joly Cl\195\169ment"];
           maintainers = ["Joly Cl\195\169ment <leowzukw@vmail.me>"];
           authors = ["Joly Cl\195\169ment <leowzukw@vmail.me>"];
           homepage = Some "http://www.oclaunch.tuxfamily.org";
@@ -6750,8 +6750,7 @@ let setup_t =
                         [
                            FindlibPackage ("core", None);
                            FindlibPackage ("atdgen", None);
-                           FindlibPackage ("threads", None);
-                           FindlibPackage ("core_extended", None)
+                           FindlibPackage ("threads", None)
                         ];
                       bs_build_tools =
                         [ExternalTool "ocamlbuild"; ExternalTool "camlp4o"];
@@ -6778,7 +6777,7 @@ let setup_t =
      oasis_fn = Some "_oasis";
      oasis_version = "0.4.5";
      oasis_digest =
-       Some "E\214=\231m\229U\223\176\221\149\167\164\155\173\169";
+       Some "\188\206\244\161t\211S\022\159t\007\003\217H\235\031";
      oasis_exec = None;
      oasis_setup_args = [];
      setup_update = false
@@ -6786,6 +6785,6 @@ let setup_t =
 
 let setup () = BaseSetup.setup setup_t;;
 
-# 6790 "setup.ml"
+# 6789 "setup.ml"
 (* OASIS_STOP *)
 let () = setup ();;

src/add_command.ml

@@ -1,5 +1,5 @@
 (******************************************************************************)
-(* Copyright © Joly Clément, 2014                                             *)
+(* Copyright © Joly Clément, 2014-2015                                        *)
 (*                                                                            *)
 (*  leowzukw@vmail.me                                                         *)
 (*                                                                            *)

src/const.ml

@@ -1,5 +1,5 @@
 (******************************************************************************)
-(* Copyright © Joly Clément, 2014                                             *)
+(* Copyright © Joly Clément, 2014-2015                                        *)
 (*                                                                            *)
 (*  leowzukw@vmail.me                                                         *)
 (*                                                                            *)

src/default.ml

@@ -1,5 +1,5 @@
 (******************************************************************************)
-(* Copyright © Joly Clément, 2014                                             *)
+(* Copyright © Joly Clément, 2014-2015                                        *)
 (*                                                                            *)
 (*  leowzukw@vmail.me                                                         *)
 (*                                                                            *)

src/exec_cmd.ml

@@ -1,5 +1,5 @@
 (******************************************************************************)
-(* Copyright © Joly Clément, 2014                                             *)
+(* Copyright © Joly Clément, 2014-2015                                        *)
 (*                                                                            *)
 (*  leowzukw@vmail.me                                                         *)
 (*                                                                            *)

src/file_com.ml

@@ -1,5 +1,5 @@
 (******************************************************************************)
-(* Copyright © Joly Clément, 2014                                             *)
+(* Copyright © Joly Clément, 2014-2015                                        *)
 (*                                                                            *)
 (*  leowzukw@vmail.me                                                         *)
 (*                                                                            *)

src/list_rc.ml

@@ -1,5 +1,5 @@
 (******************************************************************************)
-(* Copyright © Joly Clément, 2014                                             *)
+(* Copyright © Joly Clément, 2014-2015                                        *)
 (*                                                                            *)
 (*  leowzukw@vmail.me                                                         *)
 (*                                                                            *)

src/oclaunch.ml

@@ -1,5 +1,5 @@
 (******************************************************************************)
-(* Copyright © Joly Clément, 2014                                             *)
+(* Copyright © Joly Clément, 2014-2015                                        *)
 (*                                                                            *)
 (*  leowzukw@vmail.me                                                         *)
 (*                                                                            *)
@@ -38,7 +38,7 @@ open Core.Std;;
 
 (* Variable to store version number *)
 (* TODO Get value from file *)
-let version_number = "0.2.0-rc1";;
+let version_number = "0.2.0-dev";;
 
 (* Variable store building information *)
 (* XXX This is fake value, it corresponds to the running
@@ -73,13 +73,18 @@ let commands =
     +> flag "-d" no_arg
     ~aliases:["-delete" ; "--delete"]
     ~doc:"-d n remove the nth command from configuration file. If n is absent, remove last one"
+    (* Flag to display current number *)
+    +> flag "-n" no_arg
+    ~aliases:["-number" ; "--number"]
+    ~doc:"Display current state of the program"
 
     +> anon (maybe ("Command number" %: int)))
-    (fun reset_tmp list_commands add delete num_cmd () ->
+    (fun reset_tmp list_commands add delete number num_cmd () ->
        (* First try to list or add *)
        if list_commands then List_rc.run ~rc:rc_content
        else if add then Add_command.run ~rc:rc_content num_cmd
        else if delete then Remove_command.run ~rc:rc_content num_cmd
+       else if number then State.current ()
        else
        match reset_tmp with
          | true -> (* Reset temp file, if nothing is given, put 0 value *)

src/remove_command.ml

@@ -1,5 +1,5 @@
 (******************************************************************************)
-(* Copyright © Joly Clément, 2014                                             *)
+(* Copyright © Joly Clément, 2014-2015                                        *)
 (*                                                                            *)
 (*  leowzukw@vmail.me                                                         *)
 (*                                                                            *)

src/settings.atd

@@ -1,5 +1,5 @@
 (******************************************************************************)
-(* Copyright © Joly Clément, 2014                                             *)
+(* Copyright © Joly Clément, 2014-2015                                        *)
 (*                                                                            *)
 (*  leowzukw@vmail.me                                                         *)
 (*                                                                            *)

src/state.ml

@@ -0,0 +1,47 @@
+(******************************************************************************)
+(* Copyright © Joly Clément, 2014-2015                                        *)
+(*                                                                            *)
+(*  leowzukw@vmail.me                                                         *)
+(*                                                                            *)
+(*  Ce logiciel est un programme informatique servant à exécuter              *)
+(*  automatiquement des programmes à l'ouverture du terminal.                 *)
+(*                                                                            *)
+(*  Ce logiciel est régi par la licence CeCILL soumise au droit français et   *)
+(*  respectant les principes de diffusion des logiciels libres. Vous pouvez   *)
+(*  utiliser, modifier et/ou redistribuer ce programme sous les conditions    *)
+(*  de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA    *)
+(*  sur le site "http://www.cecill.info".                                     *)
+(*                                                                            *)
+(*  En contrepartie de l'accessibilité au code source et des droits de copie, *)
+(*  de modification et de redistribution accordés par cette licence, il n'est *)
+(*  offert aux utilisateurs qu'une garantie limitée.  Pour les mêmes raisons, *)
+(*  seule une responsabilité restreinte pèse sur l'auteur du programme,  le   *)
+(*  titulaire des droits patrimoniaux et les concédants successifs.           *)
+(*                                                                            *)
+(*  A cet égard  l'attention de l'utilisateur est attirée sur les risques     *)
+(*  associés au chargement,  à l'utilisation,  à la modification et/ou au     *)
+(*  développement et à la reproduction du logiciel par l'utilisateur étant    *)
+(*  donné sa spécificité de logiciel libre, qui peut le rendre complexe à     *)
+(*  manipuler et qui le réserve donc à des développeurs et des professionnels *)
+(*  avertis possédant  des  connaissances  informatiques approfondies.  Les   *)
+(*  utilisateurs sont donc invités à charger  et  tester  l'adéquation  du    *)
+(*  logiciel à leurs besoins dans des conditions permettant d'assurer la      *)
+(*  sécurité de leurs systèmes et ou de leurs données et, plus généralement,  *)
+(*  à l'utiliser et l'exploiter dans les mêmes conditions de sécurité.        *)
+(*                                                                            *)
+(*  Le fait que vous puissiez accéder à cet en-tête signifie que vous avez    *)
+(*  pris connaissance de la licence CeCILL, et que vous en avez accepté les   *)
+(*  termes.                                                                   *)
+(******************************************************************************)
+
+open Core.Std;;
+
+(* Module to display the current state of the program *)
+
+(* Display current number *)
+let current () =
+    (* Read tmp file *)
+    let tmp_file = Tmp_file.init () in
+    (* Display the number *)
+    printf "Current state: %i\n" tmp_file.number;
+;;