[csw-devel] SF.net SVN: gar:[16608] csw/mgar/pkg/cswcommon/trunk/files

[bdwalton at users.sourceforge.net]

Revision: 16608
          http://gar.svn.sourceforge.net/gar/?rev=16608&view=rev
Author:   bdwalton
Date:     2011-12-28 18:53:31 +0000 (Wed, 28 Dec 2011)
Log Message:
-----------
cswcommon/trunk: replace old (partial) map2dirlist script with a new script that can generate shell script to create the dir/symlink entries in the pkgmap

Added Paths:
-----------
    csw/mgar/pkg/cswcommon/trunk/files/map2dirstructure

Removed Paths:
-------------
    csw/mgar/pkg/cswcommon/trunk/files/map2dirlist

Deleted: csw/mgar/pkg/cswcommon/trunk/files/map2dirlist
===================================================================
--- csw/mgar/pkg/cswcommon/trunk/files/map2dirlist	2011-12-28 18:16:10 UTC (rev 16607)
+++ csw/mgar/pkg/cswcommon/trunk/files/map2dirlist	2011-12-28 18:53:31 UTC (rev 16608)
@@ -1,8 +0,0 @@
-#!/usr/bin/perl
-
-open F, "pkgmap";
-while( <F> ) {
-  chomp;
-  my @l = split /\s+/;
-
-}

Added: csw/mgar/pkg/cswcommon/trunk/files/map2dirstructure
===================================================================
--- csw/mgar/pkg/cswcommon/trunk/files/map2dirstructure	                        (rev 0)
+++ csw/mgar/pkg/cswcommon/trunk/files/map2dirstructure	2011-12-28 18:53:31 UTC (rev 16608)
@@ -0,0 +1,35 @@
+#!/opt/csw/bin/ruby
+
+puts "set -x"
+puts "set -e"
+
+puts "gmkdir CSWcommon"
+puts "cd CSWcommon"
+
+File.open('pkgmap') do |pkgmap|
+  pkgmap.each_line do |line|
+    parts = line.split(/\s+/)
+    # skip over administrative entries
+    next unless %w(d s f).include?(parts[1])
+
+    case parts[1]
+    when 'd'
+      reldir = parts[3].sub(/^\//, '')
+      puts "[ -d \"#{reldir}\" ] || gmkdir -m 0755 -p #{reldir}"
+    when 's'
+      # we make the assumption that all symlinks in CSWcommon are to
+      # (relative) directories
+      (link, target) = parts[3].split(/=/)
+      link.sub!(/^\//, '')
+      parent = File.dirname(link)
+      linkname = File.basename(link)
+      puts "[ -d \"#{parent}\" ] || gmkdir -m 0755 -p #{parent}"
+      puts "pushd #{parent}"
+      puts "[ -d \"#{target}\" ] || gmkdir -m 0755 -p #{target}"
+      puts "gln -s #{target} #{linkname}"
+      puts "popd"
+    else
+      puts "echo \"Skipping #{parts[3]} (type: #{parts[1]}).\""
+    end
+  end
+end


Property changes on: csw/mgar/pkg/cswcommon/trunk/files/map2dirstructure
___________________________________________________________________
Added: svn:executable
   + *

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.