pkg: retrieve existing install (or register callback).

diff --git a/src/Network/HTTPClient.cxx b/src/Network/HTTPClient.cxx
index bfab8284f96506c66527f0a2654fbc80723701b6..6c9100ff85c56f9376e86c6d8dfe0db4ad5089f7 100644 (file)
--- a/src/Network/HTTPClient.cxx
+++ b/src/Network/HTTPClient.cxx
@@ -155,6 +155,14 @@ void FGHTTPClient::init()
 #endif // of ENABLE_PACKAGE_SYSTEM
 }
 
+static naRef f_package_existingInstall( pkg::Package& pkg,
+                                        const nasal::CallContext& ctx )
+{
+  return ctx.to_nasal(
+    pkg.existingInstall( ctx.getArg<pkg::Package::InstallCallback>(0) )
+  );
+}
+
 static naRef f_package_uninstall(pkg::Package& pkg, const nasal::CallContext& ctx)
 {
     pkg::InstallRef ins = pkg.existingInstall();
@@ -253,6 +261,7 @@ void FGHTTPClient::postinit()
   .member("catalog", &pkg::Package::catalog)
   .method("install", &pkg::Package::install)
   .method("uninstall", &f_package_uninstall)
+  .method("existingInstall", &f_package_existingInstall)
   .method("lprop", &pkg::Package::getLocalisedProp)
   .member("fileSize", &pkg::Package::fileSizeBytes);