From: Sergey Matveev <stargrave@stargrave.org>
Date: Fri, 3 Oct 2025 17:37:09 +0000 (+0300)
Subject: Ability to export part of configuration
X-Git-Url: http://www.git.cypherpunks.su/?a=commitdiff_plain;h=98356d3232fec9bf4866292009837064176871b183b52df3a55fc98405f08a53;p=dsc.git

Ability to export part of configuration
---

diff --git a/dsc b/dsc
index 837942b..4cb72f8 100755
--- a/dsc
+++ b/dsc
@@ -28,8 +28,8 @@ if {$argc == 0} {
     dsc diff [prefix] -- show the difference between saved and stash
     dsc revert opt    -- revert opt's configuration
     dsc commit        -- commit (save) configuration
-    dsc export >file.txtar -- export whole configuration
-    dsc import <file.txtar -- import it
+    dsc export [prefix] >file.txtar -- export (whole by default) configuration
+    dsc import          <file.txtar -- import it
 
 Environmental variables:
     $DSC_SCHEMA -- path to the schema definition
@@ -50,6 +50,7 @@ if {[catch {set Saved $env(DSC_SAVED)}]} {set Saved saved}
 
 proc walk {root typ} {
     set rv [list]
+    set root [string trimright $root /]
     set dirs [glob -directory $root -types $typ -tails -nocomplain -- *]
     foreach s [lsort $dirs] {
         lappend rv $root/$s
@@ -241,7 +242,10 @@ switch [lindex $argv 0] {
         file delete -force $Saved.bak
     }
     export {
-        set dirs [walk $Saved d]
+        set dirs [walk $Saved/$opt d]
+        if {$opt != ""} {
+            set dirs [list $Saved/$opt {*}$dirs]
+        }
         puts "-- .dirs --"
         foreach fn $dirs {
             puts [string range $fn [string length $Saved]+1 end]