From 0d5a803a28010cc956948b614408b9d38997e9a1 Mon Sep 17 00:00:00 2001
From: Eric B Merritt <ericbmerritt@gmail.com>
Date: Fri, 3 May 2013 09:17:35 -0700
Subject: support the creation or relups

---
 src/rcl_release.erl | 30 ++++++++++++++++++++++++++++--
 1 file changed, 28 insertions(+), 2 deletions(-)

(limited to 'src/rcl_release.erl')

diff --git a/src/rcl_release.erl b/src/rcl_release.erl
index 97465d0..9ed741e 100644
--- a/src/rcl_release.erl
+++ b/src/rcl_release.erl
@@ -23,6 +23,9 @@
 -module(rcl_release).
 
 -export([new/2,
+         new/3,
+         relfile/1,
+         relfile/2,
          erts/2,
          erts/1,
          goals/2,
@@ -35,6 +38,7 @@
          application_details/2,
          realized/1,
          metadata/1,
+         canonical_name/1,
          format/1,
          format/2,
          format_error/1]).
@@ -57,6 +61,7 @@
                     realized = false :: boolean(),
                     annotations = undefined :: annotations(),
                     applications = [] ::  [application_spec()],
+                    relfile :: undefined | string(),
                     app_detail = [] :: [rcl_app_info:t()]}).
 
 %%============================================================================
@@ -87,11 +92,25 @@
 %%============================================================================
 %% API
 %%============================================================================
--spec new(atom(), string()) -> t().
-new(ReleaseName, ReleaseVsn) ->
+-spec new(atom(), string(), undefined | file:name()) -> t().
+new(ReleaseName, ReleaseVsn, Relfile) ->
     #release_t{name=to_atom(ReleaseName), vsn=ReleaseVsn,
+               relfile = Relfile,
                annotations=ec_dictionary:new(ec_dict)}.
 
+-spec new(atom(), string()) -> t().
+new(ReleaseName, ReleaseVsn) ->
+    new(ReleaseName, ReleaseVsn, undefined).
+
+
+-spec relfile(t()) -> file:name() | undefined.
+relfile(#release_t{relfile=Relfile}) ->
+    Relfile.
+
+-spec relfile(t(), file:name()) -> t().
+relfile(Release, Relfile) ->
+    Release#release_t{relfile=Relfile}.
+
 -spec name(t()) -> atom().
 name(#release_t{name=Name}) ->
     Name.
@@ -162,6 +181,12 @@ metadata(#release_t{name=Name, vsn=Vsn, erts=ErtsVsn, applications=Apps,
             ?RCL_ERROR({not_realized, Name, Vsn})
     end.
 
+%% @doc produce the canonical name (<name>-<vsn>) for this release
+-spec canonical_name(t()) -> string().
+canonical_name(#release_t{name=Name, vsn=Vsn}) ->
+    erlang:binary_to_list(erlang:iolist_to_binary([erlang:atom_to_list(Name), "-",
+                                                   Vsn])).
+
 -spec format(t()) -> iolist().
 format(Release) ->
     format(0, Release).
@@ -183,6 +208,7 @@ format(Indent, #release_t{name=Name, vsn=Vsn, erts=ErtsVsn, realized=Realized,
          false ->
              []
      end].
+
 -spec format_goal(application_goal()) -> iolist().
 format_goal({Constraint, AppType}) ->
     io_lib:format("~p", [{rcl_depsolver:format_constraint(Constraint), AppType}]);
-- 
cgit v1.2.3