From 2ea84ee4b2e9971cd5a44e6fd75623e3cd025a30 Mon Sep 17 00:00:00 2001
From: Ulf Wiger <ulf@wiger.net>
Date: Wed, 27 Aug 2025 12:49:16 +0200
Subject: [PATCH] Add app.src.script for version mgmt

---
 src/gmhive_client.app.src.script | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 src/gmhive_client.app.src.script

diff --git a/src/gmhive_client.app.src.script b/src/gmhive_client.app.src.script
new file mode 100644
index 0000000..becbb46
--- /dev/null
+++ b/src/gmhive_client.app.src.script
@@ -0,0 +1,14 @@
+%% -*- erlang-mode; erlang-indent-level: 4; indent-tabs-mode: nil -*-
+
+[{application, Name, Opts}] = CONFIG.
+case lists:keyfind(vsn, 1, Opts) of
+    {vsn, "zomp"} ->
+        ZompMetaF = filename:join(filename:dirname(filename:dirname(SCRIPT)), "zomp.meta"),
+        {ok, ZMeta} = file:consult(ZompMetaF),
+        {_, {_, _, {Vmaj,Vmin,Vpatch}}} = lists:keyfind(package_id, 1, ZMeta),
+        VsnStr = unicode:characters_to_list(io_lib:fwrite("~w.~w.~w", [Vmaj, Vmin, Vpatch])),
+        Opts1 = lists:keyreplace(vsn, 1, Opts, {vsn, VsnStr}),
+        [{application, Name, Opts1}];
+    _ ->
+        CONFIG
+end.