Changeset e83ccac in tol for tolbase/lib/toltk/tolpkg.tcl

Timestamp:

Dec 22, 2011, 4:53:49 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

e4c69c1

Parents:

6232734

Message:

refs 1191

• Se lee la información de los paquetes instalados desde info.oza.
• Se adapta el interfaz a la nueva estructura de información
• El estado de los paquetes se muestra dependiendo de la información sincronizada con el servidor "SyncInfo"
• Se añaden opciones para importar/exportar los archivos SyncInfo

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3961 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/tolpkg.tcl (modified) (3 diffs)

tolbase/lib/toltk/tolpkg.tcl

@@ -40 +40 @@
   set localRoot [ file normalize \
                       [ toltcl::eval { Text TolPackage::_.localRoot } ] ]
-  set ozaSyncInfo [ file join $localRoot "Client/PackSyncInfo.oza" ]
-  set tolScript [ string map [ list "%O" $ozaSyncInfo ] {
+  set oza [ file join $localRoot "Client/PackSyncInfo.oza" ]
+  if { ![ file exists $oza ] || ![ file readable $oza ] } {
+    return {}
+  }
+  set tolScript [ string map [ list "%O" $oza ] {
     Set { Ois.Load( "%O" )[1] }
   } ]
@@ -78 +81 @@
   set localRoot [ file normalize \
                       [ toltcl::eval { Text TolPackage::_.localRoot } ] ]
-  set ozaSyncInfo [ file join $localRoot "Client/VersSyncInfo.oza" ]
-  set tolScript [ string map [ list "%O" $ozaSyncInfo ] {
+  set oza [ file join $localRoot "Client/VersSyncInfo.oza" ]
+  if { ![ file exists $oza ] || ![ file readable $oza ] } {
+    return {}
+  }
+  set tolScript [ string map [ list "%O" $oza ] {
     Set { Ois.Load( "%O" )[1] }
   } ]
@@ -109 +115 @@
   set pkgsInfo {}
   foreach d $dirs {
-    set check [ file join $clientRoot $d ${d}.oza ]
-    if { [ file exists $check ] } {
-      lappend pkgsInfo [ GetPackageInfoFromOZA $check ]
-    }
+    lappend pkgsInfo [ list $d [ GetLocalPackageInfo $d ] ]
   }
   return $pkgsInfo
+}
+
+proc ::TolPkg::GetLocalPackageInfo { p } {
+  set tolScript [ string map [ list %p $p ] {
+    Set TolPackage::Client::LocalInfo( "%p" );
+  } ]
+  return [ lindex [ toltcl::eval $tolScript -named 1 ] 1 ]
 }