Revision 7238,
1.4 KB
checked in by daisuke, 12 years ago
(diff) |
import emacsen-common
|
Rev | Line | |
---|
[7238] | 1 | #!/usr/bin/ruby |
---|
| 2 | |
---|
| 3 | action = $0 |
---|
| 4 | |
---|
| 5 | if $0 =~ /flavors/ |
---|
| 6 | then |
---|
| 7 | $element = "flavors" |
---|
| 8 | else |
---|
| 9 | $element = "elisp" |
---|
| 10 | end |
---|
| 11 | |
---|
| 12 | |
---|
| 13 | |
---|
| 14 | prefix="/" |
---|
| 15 | package = ARGV[0] |
---|
| 16 | |
---|
| 17 | oldlists = Array.new |
---|
| 18 | @requires = Array.new |
---|
| 19 | |
---|
| 20 | open(prefix+"/var/lib/emacsen-common/installed-"+$element,"r").each{|list| |
---|
| 21 | list.chomp! |
---|
| 22 | oldlists.push(list.to_s) |
---|
| 23 | }.close |
---|
| 24 | |
---|
| 25 | if !oldlists.include?(package) |
---|
| 26 | then |
---|
| 27 | elsif action =~/remove/ |
---|
| 28 | oldlists.delete(package) |
---|
| 29 | a = open(prefix+"/var/lib/emacsen-common/installed-"+$element,"w") |
---|
| 30 | oldlists.each{|list| |
---|
| 31 | a.write(list+"\n") |
---|
| 32 | } |
---|
| 33 | a.close |
---|
| 34 | |
---|
| 35 | exit |
---|
| 36 | else |
---|
| 37 | exit |
---|
| 38 | end |
---|
| 39 | |
---|
| 40 | def getrequire(package) |
---|
| 41 | |
---|
| 42 | array = open("|apt-cache depends "+package,"r").readlines.select{ |line| |
---|
| 43 | true if (line =~/ /)||(line =~/ Depends: [^<^>]+/) |
---|
| 44 | } |
---|
| 45 | array.each{|packages| |
---|
| 46 | packages.gsub!(/ /,"") |
---|
| 47 | packages.gsub!(/[ ]+Depends:[ ]+/,"") |
---|
| 48 | packages.chomp! |
---|
| 49 | #print "package:"+packages+"\n" |
---|
| 50 | # unless @requires.member?(packages) |
---|
| 51 | @requires.unshift(packages) |
---|
| 52 | # getrequire(packages) |
---|
| 53 | # end |
---|
| 54 | |
---|
| 55 | } |
---|
| 56 | end |
---|
| 57 | |
---|
| 58 | |
---|
| 59 | # getrequire(package) |
---|
| 60 | indexnumber = -1 |
---|
| 61 | |
---|
| 62 | if oldlists.include?(package) |
---|
| 63 | then |
---|
| 64 | newlists = oldlists |
---|
| 65 | else |
---|
| 66 | newlists = oldlists.push(package) |
---|
| 67 | end |
---|
| 68 | |
---|
| 69 | |
---|
| 70 | #if indexnumber == -1 |
---|
| 71 | #then |
---|
| 72 | # newlists = [package]+ oldlists |
---|
| 73 | #else |
---|
| 74 | # newlists = oldlists[0..indexnumber]+[package]+oldlists[indexnumber+1,oldlists.length-1-indexnumber] |
---|
| 75 | #end |
---|
| 76 | |
---|
| 77 | a = open(prefix+"/var/lib/emacsen-common/installed-"+$element,"w") |
---|
| 78 | newlists.each{|list| |
---|
| 79 | a.write(list+"\n") |
---|
| 80 | } |
---|
| 81 | a.close |
---|
| 82 | |
---|
| 83 | |
---|
Note: See
TracBrowser
for help on using the repository browser.