Make tempaltes generate modules with a -vsn directive set.
This commit is contained in:
parent
667d5b3e63
commit
7e0e4a798d
@ -1 +1 @@
|
||||
0.7.1
|
||||
0.7.2
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
{application,zx,
|
||||
[{description,"An Erlang development tool and Zomp user client"},
|
||||
{vsn,"0.7.1"},
|
||||
{vsn,"0.7.2"},
|
||||
{applications,[stdlib,kernel]},
|
||||
{modules,[zx,zx_auth,zx_conn,zx_conn_sup,zx_daemon,zx_key,
|
||||
zx_lib,zx_local,zx_net,zx_peer,zx_peer_man,
|
||||
@ -24,7 +24,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-behavior(application).
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
@ -9,7 +9,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_auth).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
-license("GPL-3.0").
|
||||
@ -7,7 +7,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_conn).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
-license("GPL-3.0").
|
||||
@ -5,7 +5,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_conn_sup).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-behavior(supervisor).
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
@ -138,7 +138,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_daemon).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-behavior(gen_server).
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
@ -8,7 +8,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_key).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
-license("GPL-3.0").
|
||||
@ -10,7 +10,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_lib).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
-license("GPL-3.0").
|
||||
@ -6,7 +6,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_local).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
-license("GPL-3.0").
|
||||
@ -1487,11 +1487,12 @@ create_project(#project{type = escript,
|
||||
"Escript \"~ts\" written to ~ts.~n"
|
||||
"You may need to change the file mode to add \"execute\" permissions.~n",
|
||||
io:format(Message, [Name, File]);
|
||||
create_project(P = #project{id = {_, Name, _}}) ->
|
||||
create_project(P = #project{id = {_, Name, Version}}) ->
|
||||
case file:make_dir(Name) of
|
||||
ok ->
|
||||
ok = file:set_cwd(Name),
|
||||
ok = munge_sources(P),
|
||||
{ok, VersionString} = zx_lib:version_to_string(Version),
|
||||
ok = munge_sources(P, VersionString),
|
||||
zompify(P);
|
||||
{error, Reason} ->
|
||||
Message = "Creating directory ~ts failed with ~tp. Aborting.",
|
||||
@ -1507,13 +1508,15 @@ munge_sources(#project{type = lib,
|
||||
author = Credit,
|
||||
a_email = AEmail,
|
||||
copyright = Holder,
|
||||
c_email = CEmail}) ->
|
||||
c_email = CEmail},
|
||||
VersionString) ->
|
||||
ok = file:make_dir("src"),
|
||||
ok = file:make_dir("ebin"),
|
||||
{ok, ProjectDir} = file:get_cwd(),
|
||||
Substitutions =
|
||||
[{"〘\*PROJECT NAME\*〙", Name},
|
||||
{"〘\*MODULE\*〙", Module},
|
||||
{"〘\*VERSION\*〙", VersionString},
|
||||
{"〘\*AUTHOR\*〙", author(Credit, AEmail)},
|
||||
{"〘\*COPYRIGHT\*〙", copyright(Holder, CEmail)},
|
||||
{"〘\*LICENSE\*〙", license(Title)}],
|
||||
@ -1532,13 +1535,15 @@ munge_sources(#project{type = cli,
|
||||
author = Credit,
|
||||
a_email = AEmail,
|
||||
copyright = Holder,
|
||||
c_email = CEmail}) ->
|
||||
c_email = CEmail},
|
||||
VersionString) ->
|
||||
ok = file:make_dir("src"),
|
||||
ok = file:make_dir("ebin"),
|
||||
{ok, ProjectDir} = file:get_cwd(),
|
||||
Substitutions =
|
||||
[{"〘\*PROJECT NAME\*〙", Name},
|
||||
{"〘\*MODULE\*〙", Module},
|
||||
{"〘\*VERSION\*〙", VersionString},
|
||||
{"〘\*AUTHOR\*〙", author(Credit, AEmail)},
|
||||
{"〘\*COPYRIGHT\*〙", copyright(Holder, CEmail)},
|
||||
{"〘\*LICENSE\*〙", license(Title)}],
|
||||
@ -1558,12 +1563,14 @@ munge_sources(#project{type = Type,
|
||||
author = Credit,
|
||||
a_email = AEmail,
|
||||
copyright = Holder,
|
||||
c_email = CEmail}) ->
|
||||
c_email = CEmail},
|
||||
VersionString) ->
|
||||
ok = file:make_dir("src"),
|
||||
ok = file:make_dir("ebin"),
|
||||
{ok, ProjectDir} = file:get_cwd(),
|
||||
Substitutions =
|
||||
[{"〘\*PROJECT NAME\*〙", Name},
|
||||
{"〘\*VERSION\*〙", VersionString},
|
||||
{"〘\*PREFIX\*〙", Prefix},
|
||||
{"〘\*APP MOD\*〙", AppMod},
|
||||
{"〘\*AUTHOR\*〙", author(Credit, AEmail)},
|
||||
@ -5,7 +5,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_net).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
-license("GPL-3.0").
|
||||
@ -8,7 +8,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_peer).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
-license("GPL-3.0").
|
||||
@ -9,7 +9,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_peer_man).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-behavior(gen_server).
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
@ -6,7 +6,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_peer_sup).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-behaviour(supervisor).
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
@ -10,7 +10,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_peers).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-behavior(supervisor).
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
@ -5,7 +5,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_proxy).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
-license("GPL-3.0").
|
||||
@ -5,7 +5,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_sup).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-behavior(supervisor).
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
@ -6,7 +6,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_tty).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
-license("GPL-3.0").
|
||||
@ -5,7 +5,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_userconf).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
-license("GPL-3.0").
|
||||
@ -7,7 +7,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(zx_zsp).
|
||||
-vsn("0.7.1").
|
||||
-vsn("0.7.2").
|
||||
-author("Craig Everett <zxq9@zxq9.com>").
|
||||
-copyright("Craig Everett <zxq9@zxq9.com>").
|
||||
-license("GPL-3.0").
|
||||
@ -9,6 +9,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(〘*MODULE*〙).
|
||||
-vsn("〘*VERSION*〙").
|
||||
〘*AUTHOR*〙
|
||||
〘*COPYRIGHT*〙
|
||||
〘*LICENSE*〙
|
||||
@ -3,6 +3,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(〘*APP MOD*〙).
|
||||
-vsn("〘*VERSION*〙").
|
||||
-behavior(application).
|
||||
〘*AUTHOR*〙
|
||||
〘*COPYRIGHT*〙
|
||||
@ -14,6 +14,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(〘*PREFIX*〙client).
|
||||
-vsn("〘*VERSION*〙").
|
||||
〘*AUTHOR*〙
|
||||
〘*COPYRIGHT*〙
|
||||
〘*LICENSE*〙
|
||||
@ -10,6 +10,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(〘*PREFIX*〙client_man).
|
||||
-vsn("〘*VERSION*〙").
|
||||
-behavior(gen_server).
|
||||
〘*AUTHOR*〙
|
||||
〘*COPYRIGHT*〙
|
||||
@ -2,8 +2,8 @@
|
||||
%%% 〘*PROJECT NAME*〙 Client Supervisor
|
||||
%%%
|
||||
%%% This process supervises the client socket handlers themselves. It is a peer of the
|
||||
%%% 〘*PREFIX*〙client_man (the manager interface to this network service component), and a
|
||||
%%% child of the supervisor named 〘*PREFIX*〙clients.
|
||||
%%% 〘*PREFIX*〙client_man (the manager interface to this network service component),
|
||||
%%% and a child of the supervisor named 〘*PREFIX*〙clients.
|
||||
%%%
|
||||
%%% Because we don't know (or care) how many client connections the server may end up
|
||||
%%% handling this is a simple_one_for_one supervisor which can spawn and manage as
|
||||
@ -14,6 +14,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(〘*PREFIX*〙client_sup).
|
||||
-vsn("〘*VERSION*〙").
|
||||
-behaviour(supervisor).
|
||||
〘*AUTHOR*〙
|
||||
〘*COPYRIGHT*〙
|
||||
@ -9,6 +9,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(〘*PREFIX*〙clients).
|
||||
-vsn("〘*VERSION*〙").
|
||||
-behavior(supervisor).
|
||||
〘*AUTHOR*〙
|
||||
〘*COPYRIGHT*〙
|
||||
@ -12,6 +12,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(〘*PREFIX*〙sup).
|
||||
-vsn("〘*VERSION*〙").
|
||||
-behaviour(supervisor).
|
||||
〘*AUTHOR*〙
|
||||
〘*COPYRIGHT*〙
|
||||
@ -3,6 +3,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(〘*APP MOD*〙).
|
||||
-vsn("〘*VERSION*〙").
|
||||
-behavior(application).
|
||||
〘*AUTHOR*〙
|
||||
〘*COPYRIGHT*〙
|
||||
@ -5,6 +5,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(〘*PREFIX*〙con).
|
||||
-vsn("〘*VERSION*〙").
|
||||
〘*AUTHOR*〙
|
||||
〘*COPYRIGHT*〙
|
||||
〘*LICENSE*〙
|
||||
@ -7,6 +7,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(〘*PREFIX*〙gui).
|
||||
-vsn("〘*VERSION*〙").
|
||||
〘*AUTHOR*〙
|
||||
〘*COPYRIGHT*〙
|
||||
〘*LICENSE*〙
|
||||
@ -12,6 +12,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(〘*PREFIX*〙sup).
|
||||
-vsn("〘*VERSION*〙").
|
||||
-behaviour(supervisor).
|
||||
〘*AUTHOR*〙
|
||||
〘*COPYRIGHT*〙
|
||||
@ -9,6 +9,7 @@
|
||||
%%% @end
|
||||
|
||||
-module(〘*MODULE*〙).
|
||||
-vsn("〘*VERSION*〙").
|
||||
〘*AUTHOR*〙
|
||||
〘*COPYRIGHT*〙
|
||||
〘*LICENSE*〙
|
||||
@ -4,11 +4,12 @@
|
||||
{copyright,"Craig Everett"}.
|
||||
{deps,[]}.
|
||||
{desc,"An Erlang development tool and Zomp user client"}.
|
||||
{file_exts,[]}.
|
||||
{key_name,none}.
|
||||
{license,"MIT"}.
|
||||
{modules,[]}.
|
||||
{name,"zx"}.
|
||||
{package_id,{"otpr","zx",{0,7,1}}}.
|
||||
{package_id,{"otpr","zx",{0,7,2}}}.
|
||||
{prefix,"zx_"}.
|
||||
{repo_url,"https://gitlab.com/zxq9/zx"}.
|
||||
{tags,["tools","package manager","erlang"]}.
|
||||
Loading…
x
Reference in New Issue
Block a user