V0.0.3 Nodejs support.

ebuild/pkt-map.scm

@@ -0,0 +1,79 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; pkt-map.scm
+;; Copyright (C) 2025, 2026 Cor Legemaat <cor@cor.za.net>
+;;
+;; This file is part of ebuild-autogen: you can redistribute it and/or modify it
+;; under the terms of the GNU Affero General Public License as published by the
+;; Free Software Foundation, version 3 of the License.
+;;
+;; ebuild-autogen is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
+;; more details.
+;;
+;; You should have received a copy of the GNU General Public License along with
+;; ebuild-autogen. If not, see <https://www.gnu.org/licenses/>.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-module (ebuild pkt-map)
+  #:use-module (ebuild defs)
+  #:use-module (ebuild utils)
+  #:use-module (ice-9 pretty-print)
+  #:use-module (oop goops)
+  #:use-module (srfi srfi-1)
+  #:use-module (srfi srfi-43)
+  #:use-module (rx irregex)
+  #:use-module (dql dql))
+
+(define-public pkt-map-load
+	(lambda (repo type)
+		""
+		(let ((path (string-join (list repo
+																	 "repo-local"
+																	 (string-append "pkg-map-"
+																									type
+																									".aldb"))
+														 file-name-separator-string)))
+			(if (file-exists? path)
+					(dql-read path)
+					'()))))
+
+(define-public pkt-map-set
+	(lambda (db name category pkg)
+		""
+		(if (not (null? (pkt-map-get db name)))
+				((dql (alter (where (lambda (pkg-name)
+															(and (string? pkg-name)
+																	 (string= pkg-name name)))
+														'name)
+										 (update 'name name)
+										 (update 'category category)
+										 (update 'pkg pkg)))
+				 db)
+				(append db (list (list (cons 'name name)
+															 (cons 'category category)
+															 (cons 'pkg pkg)))))))
+
+(define-public pkt-map-get
+	(lambda (db name)
+		""
+		(let ((answ ((dql (select (filter (where (lambda (pkg-name)
+																							 (and (string? pkg-name)
+																										(string= pkg-name name)))
+																						 'name))
+															(parm 'category)
+															(parm 'pkg)))
+								 db)))
+			;; (display "answ:") (newline)
+			;; (pretty-print answ)
+			answ)))
+
+(define-public pkt-map-write
+	(lambda (db repo type)
+		""
+		(dql-write db
+							 (string-join (list repo
+																	"repo-local"
+																	(string-append "pkg-map-"
+																								 type
+																								 ".aldb"))
+														file-name-separator-string))))