July 2005 - Projects

[LrdeTools][Vcs] 220: Add two commands `url' and `script'.
by Nicolas Pouillard 07 Jul '05

07 Jul '05

https://svn.lrde.epita.fr/svn/lrdetools/trunk Index: ChangeLog from Nicolas Pouillard <ertai(a)lrde.epita.fr> Add two commands `url' and `script'. * vcs/lib/vcs/url.rb: New. Just extract the url from the info command. * vcs/lib/vcs/script.rb: New. Provides a simple but powerful way to make custom request from your favorite version control system, this method takes a ruby block code and evaluate it in your vcs instance context. script.rb | 19 +++++++++++++++++++ url.rb | 16 ++++++++++++++++ 2 files changed, 35 insertions(+) Index: vcs/lib/vcs/script.rb --- vcs/lib/vcs/script.rb (revision 0) +++ vcs/lib/vcs/script.rb (revision 0) @@ -0,0 +1,19 @@ +# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. +# Copyright:: Copyright (c) 2005 LRDE. All rights reserved. +# License:: GNU General Public License (GPL). +# Revision:: $Id$ + +require 'vcs/vcs' + +class Vcs + + def script! ( code, *args ) + begin + eval(code) + rescue Exception => ex + LOG.error { 'Vcs#script: during the client execution' } + LOG.error { ex.long_pp } + end + end + +end # class Svn Property changes on: vcs/lib/vcs/script.rb ___________________________________________________________________ Name: svn:keywords + Id Index: vcs/lib/vcs/url.rb --- vcs/lib/vcs/url.rb (revision 0) +++ vcs/lib/vcs/url.rb (revision 0) @@ -0,0 +1,16 @@ +# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. +# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. +# License:: GNU General Public License (GPL). +# Revision:: $Id$ + +require 'vcs/svn' + +class Svn + + def url! ( *args ) + puts info.read[/^URL:\s+(.*)$/, 1] + end + + alias_command :date, :last_changed_date + +end # class Svn Property changes on: vcs/lib/vcs/url.rb ___________________________________________________________________ Name: svn:keywords + Id

1 0

[LrdeTools][Vcs] 219: A nice way to fill the subject and the news of your patches.
by Nicolas Pouillard 07 Jul '05

07 Jul '05

https://svn.lrde.epita.fr/svn/lrdetools/trunk Index: ChangeLog from Nicolas Pouillard <ertai(a)lrde.epita.fr> A nice way to fill the subject and the news of your patches. * vcs/lib/vcs/message.rb: Display the url on top of the ChangeLog entry. * vcs/lib/vcs/changelog.rb, vcs/lib/vcs/mycommit.rb: No more takes the subject as argument, provide a nice way to set the subject of your mail and the title of your patch. changelog.rb | 90 ++++++++++++++++++++++++++++++++++++++++++++--------------- message.rb | 8 +++-- mycommit.rb | 18 +++++++---- 3 files changed, 84 insertions(+), 32 deletions(-) Index: vcs/lib/vcs/changelog.rb --- vcs/lib/vcs/changelog.rb (revision 219) +++ vcs/lib/vcs/changelog.rb (working copy) @@ -48,29 +48,67 @@ end end + @@subject_format = '<%= rev %>: <%= title %>' + def mkchangelog! ( *args ) error_handling :changelog_failed + unless CL.exist? + raise Failure, "No `#{CL}', you are probably not in a valid directory." + end + cl = ADD_CL + # Already filled if ,ChangeLog.add exists and not begin by --- if cl.exist? - f = cl.open('r') - if f.readline !~ /^===/ - f.rewind - return f + raise MustBeFilled, cl if cl.read =~ /\A---/ + require 'erb' + ls = [] + YAML.each_document(cl.read) { |x| (ls.size == 2)? break : ls << x } + header, input = ls + rev = revision.read.to_i + header.merge!('rev' => rev, 'revision' => rev) + header['title'].sub!(/\.$/, '') + b = getBinding(header) + header = ERB.new(header.to_yaml, $SAFE, '<-%->', '$erbout_').result(b) + META.open('w') { |f| f.puts header } + output = ERB.new(input, $SAFE, '<-%->', '$erbout_').result(b) + return output end - f.close - else + cl_add = mkchangelog_from_status(*args) LOG.info "Creating a new `#{cl}' file" cl.open('w') do |f| - f.puts '=== Fill this file correctly and remove this line ===' - f.puts Time.now.strftime("%Y-%m-%d #{FULL_EMAIL}") - f.puts + head = Time.now.strftime("%Y-%m-%d #{FULL_EMAIL}") + f.puts " +|--- | ########## Fill this file correctly and remove this line ########## | --- +|title: +|subject: '#{@@subject_format}.' +| +|--- | ###################### Your ChangeLog entrie ###################### | --- + |#{head} + | + |\t<%= title %>. + | + |".head_cut! + cl_add.each do |file, str| f.puts "\t* #{file}: #{str}." end - end + + f.puts "| +|--- | ########### This line, and those below, will be ignored ########### | --- + |Instructions: + |\t* The first line must be removed when this file is filled. + |\t* After you must specify a title, for the news/mail subject. + |\t* The line containing <%= title %> will be replaced by your title, + |\t <%= subject %> by the subject line, <%= rev %> by the revision... + |\t* Everywhere in the document you can get/compute some values with + |\t these tags <%= aRubyExpression %> even some vcs specific call. + |\t For example <%= status.read %> will include the `svn status' output. + | + |".head_cut! + with(f).diff!(*args) end raise MustBeFilled, cl @@ -79,11 +117,7 @@ def concat_changelog! ( *args ) error_handling :changelog_failed - unless CL.exist? - raise Failure, "No `#{CL}', you are probably not in a valid directory." - end - - if cl = mkchangelog(*args) + if cl_entry = mkchangelog(*args) unless TMP_CL.exist? LOG.info "Moving `#{CL}' to `#{TMP_CL}' ..." @@ -92,11 +126,13 @@ CL.open('w') do |file| LOG.info "Prepending `#{ADD_CL}' to `#{CL}' ..." - file.print cl.read + file.print cl_entry file.puts file.print TMP_CL.read end + return cl_entry + end end @@ -108,6 +144,16 @@ LOG.info "#{ADD_CL}: Contains your ChangeLog entry" if ADD_CL.exist? end + def getBinding ( header ) + code = [] + header.each do |k, v| + code << "#{k} = #{v.inspect}" + end + code << 'binding' + eval(code.join('; ')) + end + protected :getBinding + alias_command :mkcl, :mkchangelog alias_command :ctcl, :concat_changelog Index: vcs/lib/vcs/mycommit.rb --- vcs/lib/vcs/mycommit.rb (revision 219) +++ vcs/lib/vcs/mycommit.rb (working copy) @@ -12,10 +12,12 @@ COMMITED = Pathname.new(',commited') - def common_commit! ( *args, &block ) + def common_commit! ( subject_format, *args, &block ) opts, args = args.partition { |a| a =~ /^-/ } + @@subject_format = subject_format + update! unless COMMITED.exist? @@ -34,14 +36,16 @@ commit_failed end - concat_changelog!(*args) + cl_entry = concat_changelog!(*args) #pager! diff #pager! status args << 'ChangeLog' unless args.grep(/^[^-]/).empty? - if commit!('-F', ADD_CL, *(opts + args)) + # FIXME simplify cl_entry contents + + if commit!('--message', cl_entry, *(opts + args)) ADD_CL.rename(COMMITED) TMP_CL.delete if TMP_CL.exist? else @@ -57,18 +61,18 @@ end + header ||= YAML::load(META.read) - rev = revision.read.to_i - - block.call(rev) if block_given? + block[header['subject']] if block_given? LOG.info 'Deleting junk files...' TMP_CL.delete if TMP_CL.exist? ADD_CL.delete if ADD_CL.exist? COMMITED.delete if COMMITED.exist? + META.delete if META.exist? messages = Pathname.new(',messages') messages.mkpath unless messages.directory? - message_rev = messages + "#{@@message}.#{rev}" + message_rev = messages + "#{@@message}.#{header['rev']}" LOG.info "Moving `#{@@message}' to `#{message_rev}'..." @@message.rename(message_rev) LOG.info "You can remove `#{message_rev}' if everything is ok." Index: vcs/lib/vcs/message.rb --- vcs/lib/vcs/message.rb (revision 219) +++ vcs/lib/vcs/message.rb (working copy) @@ -39,13 +39,15 @@ error_handling :message_failed unless @@message.exist? - cl = mkchangelog(*args) + cl_entry = mkchangelog(*args) TempPath.new('message') do |tmp| tmp.open('w') do |f| + with(f).url! + f.puts f.puts 'Index: ChangeLog' - f.print cl.read.sub(/^\d+-\d+-\d+/, 'from') + f.print cl_entry.sub(/^\d+-\d+-\d+/, 'from') f.puts - f.print diffstat(*args).read + with(f).diffstat!(*args) f.puts diffw_from_status(*args).each_line do |line| f.print line if line !~ /^=+$/

1 0

LrdeTools 216: Update the output using.
by Nicolas Pouillard 06 Jul '05

06 Jul '05

Index: ChangeLog from Nicolas Pouillard <ertai(a)lrde.epita.fr> * vcs: Remove the ruby_ex external link, use the gem package instead. * vcs/Rakefile: Use the core_ex common rakefile. * vcs/SPEC.yml: New. Package meta data. * vcs/SPEC.dyn.yml: New. Package generated meta data. * vcs/AUTHORS: New. * vcs/NEWS: New. * vcs/src: Rename to ... * vcs/lib/vcs: ... this. * vcs/lib/vcs/ask.rb: Remove, because ask is present in ruby_ex. * vcs/lib/vcs/edit.rb: New. * vcs/bin/vcs: Update requires, load_path, version, and some environement variables definition. AUTHORS | 6 + NEWS | 3 Rakefile | 79 +-------------- SPEC.dyn.yml | 9 + SPEC.yml | 35 +++++++ bin/vcs | 27 ++--- lib/vcs/diffstat.rb | 2 lib/vcs/edit.rb | 15 +++ lib/vcs/vcs.rb | 65 ++++++------- src/ask.rb | 101 -------------------- src/changelog.rb | 115 ----------------------- src/conflict.rb | 21 ---- src/cvs.rb | 21 ---- src/diff.rb | 18 --- src/diffstat.rb | 30 ------ src/last_changed_date.rb | 16 --- src/mail.rb | 51 ---------- src/message.rb | 69 ------------- src/mycommit.rb | 86 ----------------- src/news.rb | 118 ----------------------- src/prcs.rb | 21 ---- src/revision.rb | 18 --- src/status.rb | 17 --- src/svn.rb | 29 ----- src/tools.rb | 22 ---- src/vcs.rb | 234 ----------------------------------------------- 26 files changed, 119 insertions(+), 1109 deletions(-) Index: vcs/lib/vcs/diffstat.rb --- vcs/lib/vcs/diffstat.rb (revision 206) +++ vcs/lib/vcs/diffstat.rb (working copy) @@ -14,7 +14,7 @@ check_diffstat data_diff = diff(*a) cmd = @@diffstat < data_diff.output.open > [@out_path, @err_path] - cmd.sys + cmd.run(@runner) end alias_command :ds, :diffstat Index: vcs/bin/vcs --- vcs/bin/vcs (revision 206) +++ vcs/bin/vcs (working copy) @@ -16,18 +16,11 @@ require 'optparse' require 'set' -begin - REV="$Rev$".sub(/LastChangedRevision:\s+/, '').to_i -rescue - REV=-1 -end - +VCS_VERSION = '0.2.148' VCS_PATH = Pathname.new(__FILE__).expand_path VCS_DIR, VCS = VCS_PATH.split -SRC = VCS_DIR + '..' + 'src' -RUBY_EX = VCS_DIR + '..' + 'ruby_ex' -$: << SRC.to_s -$: << RUBY_EX.to_s +LIB = VCS_DIR + '..' + 'lib' +$: << LIB.to_s dir = Pathname.pwd while not dir.root? and not (vcs_dir = dir + 'vcs').exist? @@ -46,14 +39,14 @@ "#{VCS}: #{progname}#{severity.downcase}: #{msg}\n" end -Pathname.glob("{#{SRC}/**,#{vcs_dir}}/*.rb") do |file| +Pathname.glob("{#{LIB}/**,#{vcs_dir}}/*.rb") do |file| LOG.debug { file.basename.to_s } begin - require file.basename.to_s - rescue LoadError => ex + require "vcs/#{file.basename}" + rescue LoadError begin require file.to_s - rescue + rescue LoadError => ex raise ex end end @@ -115,7 +108,7 @@ end opts.on_tail('--version', 'Show version') do - STDOUT.puts "Vcs revision: #{REV}" + STDOUT.puts "Vcs version: #{VCS_VERSION}" exit end @@ -130,7 +123,9 @@ end env = %w[ EMAIL FULLNAME EDITOR PAGER ] if env.all? { |s| ENV[s] } - env.each { |s| Kernel.const_set(s, ENV[s]) } + EDITOR = ENV['EDITOR'].to_cmd + PAGER = ENV['PAGER'].to_cmd + EMAIL = ENV['EMAIL'] else env.each { |s| LOG.error "Need #{s} in the environement" unless ENV[s] } exit Index: vcs/src/vcs.rb --- vcs/src/vcs.rb (revision 206) +++ vcs/src/vcs.rb (working copy) @@ -1,234 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'set' -require 'commands' - -# The abstract class for a Vcs wrapper. -# Conventions: -# example: -# svn checkout http://foo.bar/proj # alias -# vcs-svn checkout http://foo.bar/proj # wrapper -# vcs --vcs Svn checkout http://foo.bar/proj # manual -# -# checkout -# checkout_ -# checkout! -# checkout_! -# -class Vcs - - class Failure < Exception - end - - def initialize ( aCmd ) - @cmd = aCmd.to_cmd - @handlers = Set.new - @runner = Commands::Runners::System.new - @runner.subscribe_hook(:failure) do |data| - if data.status - LOG.error { "exit(#{data.status.exitstatus})" } - else - LOG.fatal { 'no exit status' } - end - end - @runner.subscribe_hook(:display_command) do |cmd| - LOG.debug { "running: #{cmd.to_sh}" } - end - @out, @err = STDOUT, STDERR - end - - def self.add_basic_method ( meth ) - class_eval <<-end_eval - def #{meth}! ( *args ) - run!("#{meth}", *args) - end - def #{meth}_! ( *args ) - run!("#{meth}", *args) - end - end_eval - end - - @@all_commands = {} - @@all_aliases = Set.new - - def self.alias_command ( m1, m2 ) - m2 = m2.to_s - @@all_commands[m2] ||= Set.new - @@all_commands[m2] << m1.to_s - @@all_aliases << m1 - class_eval <<-end_eval - def #{m1} ( *args ) - #{m2}(*args) - end - def #{m1}_ ( *args ) - #{m2}_(*args) - end - def #{m1}! ( *args ) - #{m2}!(*args) - end - def #{m1}_! ( *args ) - #{m2}_!(*args) - end - end_eval - end - - attr_accessor :out, :err, :out_path, :err_path - - @@checkers = Set.new - - def run! ( *args ) - cmd = @cmd + args - if @out_path.nil? - cmd = cmd > [@out, @err] - else - cmd = cmd > [@out_path, @err_path] - end - cmd.run(@runner) - end - - def sub_vcs - copy = dup - copy.out_path = TempPath.new - copy.err_path = TempPath.new - copy.out = copy.out_path.open('w') - copy.err = copy.err_path.open('w') - copy - end - - def run ( *args ) - sub_vcs.run!(*args) - end - - %w[ checkout delete diff status log add update commit ].each do |m| - add_basic_method(m) - end - - def method_missing ( meth, *args ) - meth = meth.to_s - if meth =~ /^(.*)!$/ - no_bang = $1 - if respond_to? no_bang - LOG.warn { "Unefficient method call (#{no_bang}), " + - "prefer define methods with a `!'" } - send(no_bang, *args).each do |line| - puts line - end - else - LOG.warn { "unknown method #{meth}" } - run!(no_bang.sub(/_$/, ''), *args) - end - else - with_bang = meth + '!' - if respond_to? with_bang - copy = sub_vcs - res = copy.send(with_bang, *args) - if res.nil? - copy.out.close - copy.out_path - else - res - end - else - LOG.warn { "unknown method #{meth}" } - run!(meth.sub(/_$/, ''), *args) - end - end - end - - def help! ( *args ) - return help_!(*args) unless args.empty? - @out.puts " - |usage: #{(a)cmd.command} <subcommand> [options] [args] - |Type '#{(a)cmd.command} help <subcommand>' for help on a specific subcommand. - | - |Most subcommands take file and/or directory arguments, recursing - |on the directories. If no arguments are supplied to such a - |command, it recurses on the current directory (inclusive) by default. - | - |Available subcommands:".head_cut! - cmds = [] - methods.each do |meth| - next if meth =~ /_!?$/ - next unless meth =~ /^(.+)!$/ - cmd = $1 - next if cmd == 'run' - next if @@all_aliases.include? cmd.to_sym - cmds << cmd - end - cmds.sort! - cmds.each do |cmd| - if @@all_commands.has_key? cmd - aliases = @@all_commands[cmd].sort.join(', ') - @out.puts " - #{cmd} (alias #{aliases})" - else - @out.puts " - #{cmd}" - end - end - end - - alias_command :ann, :blame - alias_command :annotate, :blame - alias_command :praise, :blame - alias_command :co, :checkout - alias_command :ci, :commit - alias_command :cp, :copy - alias_command :del, :delete - alias_command :remove, :delete - alias_command :rm, :delete - alias_command :di, :diff - alias_command :h, :help - alias_command :ls, :list - alias_command :mv, :move - alias_command :rename, :move - alias_command :ren, :move - alias_command :pdel, :propdel - alias_command :pd, :propdel - alias_command :pedit, :propedit - alias_command :pe, :propedit - alias_command :pget, :propget - alias_command :pg, :propget - alias_command :plist, :proplist - alias_command :pl, :proplist - alias_command :pset, :propset - alias_command :ps, :propset - alias_command :st, :status - alias_command :stat, :status - alias_command :sw, :switch - alias_command :up, :update - - # Cvs Alias - alias_command :new, :add - alias_command :rcs, :admin - alias_command :get, :checkout - alias_command :rlog, :log - alias_command :patch, :rdiff - alias_command :rfreeze, :rtag - alias_command :freeze, :tag - - # Prcs Alias - alias_command :checkin, :commit - alias_command :populate, :add - - def error_handling ( meth ) - @handlers << meth - end - - def call_handlers - @handlers.each { |meth| send(meth) } - end - - def self.add_conf_checker ( meth ) - @@checkers << meth - end - - def call_conf_checkers - @@checkers.each { |meth| send(meth) } - end - -end # class Vcs - Index: vcs/src/message.rb --- vcs/src/message.rb (revision 206) +++ vcs/src/message.rb (working copy) @@ -1,69 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' -require 'vcs/changelog' - -class Vcs - def diffw! ( *args ) - diff!(*args) - end -end - -class Svn - def diffw! ( *args ) - diff! '--diff-cmd', 'diff', '-x', '-NPbuw', *args - end -end - -class Vcs - - @@message = Pathname.new(',message') - - def print_body ( file, options ) - LOG.warn "Creating a new `#{file}' file" - file.open('w') do |f| - f.puts options.to_yaml - f.puts '---' - f.puts - f.print message.read - end - end - private :print_body - - def message ( *args ) - error_handling :message_failed - - unless @@message.exist? - cl = mkchangelog(*args) - TempPath.new('message') do |tmp| - tmp.open('w') do |f| - f.puts 'Index: ChangeLog' - f.print cl.read.sub(/^\d+-\d+-\d+/, 'from') - f.puts - f.print diffstat(*args).read - f.puts - diffw_from_status(*args).each_line do |line| - f.print line if line !~ /^=+$/ - end - end - tmp.mv(@@message) - end - end - @@message.open('r') - end - - alias_command :msg, :message - - def message_failed - if @@message.exist? - LOG.info "#{@@message}: Contains the generated message" - LOG.info ' (the ChangeLog entry, the diffstat, the diff)' - end - end - -end # class Vcs Index: vcs/AUTHORS --- vcs/AUTHORS (revision 0) +++ vcs/AUTHORS (revision 0) @@ -0,0 +1,6 @@ +--- +Vcs was written by and with the assistance of: + + - Nicolas Pouillard <ertai(a)lrde.epita.fr>: + - Initial Design + - Maintenance Index: vcs/src/tools.rb --- vcs/src/tools.rb (revision 206) +++ vcs/src/tools.rb (working copy) @@ -1,22 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'yaml' -module YAML - - def self.chop_header ( io ) - aStr = io.gets - raise Exception, "First line is not valid: `#{aLine}'" unless aStr =~ /^---/ - io.each do |aLine| - break if aLine =~ /^---/ - aStr += aLine - end - YAML::load(aStr) - end - -end # module YAML - Index: vcs/src/ask.rb --- vcs/src/ask.rb (revision 206) +++ vcs/src/ask.rb (working copy) @@ -1,101 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -ANSWERS = [ :y, :n ] -ANSWER_NOT_VALID = 'Not a valid answer, please answer correctly' - -# `ask', ask the user to answer, to your question. -# -# Example: -# ask('Commiting, are you sure', :n) -# -# produce => Commiting, are you sure (y/N): -# and wait your answer. -def ask ( aQuestion, theDefaultAnswer=:y, cin=STDIN, cout=STDOUT, cerr=STDERR ) - - yn = case theDefaultAnswer - when :y then ' [Y/n]: ' - when :n then ' [y/N]: ' - else raise ArgumentError, "not valid default answer #{theDefaultAnswer}" - end - - loop do - cout.print aQuestion, yn - cout.flush - - answer = cin.readline.chomp.downcase - - return theDefaultAnswer if answer.empty? - - answer = answer.to_sym - - return answer if ANSWERS.include? answer - - cerr.puts ANSWER_NOT_VALID - cout.puts - end - -end - -if defined? TEST_MODE or $0 == __FILE__ - -require 'test/unit' -class AskTest < Test::Unit::TestCase - - def ask_checker ( question, default, answer, ref, out, err ) - require 'stringio' - cin, cout, cerr = StringIO.new, StringIO.new, StringIO.new - cin.puts answer - cin.rewind - res = ask(question, default, cin, cout, cerr) - cout.rewind - cerr.rewind - assert_equal(res, ref, 'bad return value') - assert_equal(cout.readlines.join, out, 'bad standard output') - assert_equal(cerr.readlines.join, err, 'bad error output') - end - - def test_bad_default - assert_raise(ArgumentError) { ask_checker('Q', :foo, '', :y, [], []) } - assert_nothing_raised do - ask_checker('Q', :y, 'y', :y, 'Q [Y/n]: ', '') - end - assert_nothing_raised do - ask_checker('Q', :n, 'y', :y, 'Q [y/N]: ', '') - end - end - - def test_valid_default_yes - ask_checker('Q', :y, 'y', :y, 'Q [Y/n]: ', '') - ask_checker('Q', :y, 'Y', :y, 'Q [Y/n]: ', '') - ask_checker('Q', :y, 'n', :n, 'Q [Y/n]: ', '') - ask_checker('Q', :y, 'N', :n, 'Q [Y/n]: ', '') - ask_checker('Q', :y, '', :y, 'Q [Y/n]: ', '') - end - - def test_valid_default_no - ask_checker('Q', :n, 'y', :y, 'Q [y/N]: ', '') - ask_checker('Q', :n, 'Y', :y, 'Q [y/N]: ', '') - ask_checker('Q', :n, 'n', :n, 'Q [y/N]: ', '') - ask_checker('Q', :n, 'N', :n, 'Q [y/N]: ', '') - ask_checker('Q', :n, '', :n, 'Q [y/N]: ', '') - end - - def test_invalid_answer - ask_checker('Q', :n, "bad\ny", :y, - "Q [y/N]: \nQ [y/N]: ", ANSWER_NOT_VALID + "\n") - ask_checker('Q', :y, "ad\n\n", :y, - "Q [Y/n]: \nQ [Y/n]: ", ANSWER_NOT_VALID + "\n") - end - - def test_ask1 - ask_checker('Q', :y, 'y', :y, 'Q [Y/n]: ', '') - end - -end # class AskTest - -end Index: vcs/SPEC.dyn.yml --- vcs/SPEC.dyn.yml (revision 0) +++ vcs/SPEC.dyn.yml (revision 0) @@ -0,0 +1,9 @@ +--- !ruby/object:OpenStruct +table: + :url: https://svn.lrde.epita.fr/svn/lrdetools/trunk/vcs + :date: "Fri, 01 Jul 2005" + :version: !ruby/object:Version + build: 148 + major: 0 + minor: 2 + revision: 206 Index: vcs/src/prcs.rb --- vcs/src/prcs.rb (revision 206) +++ vcs/src/prcs.rb (working copy) @@ -1,21 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' - -class Prcs < Vcs - - def initialize ( aCmd='prcs' ) - super - end - - %w[ admin ].each do |m| - add_basic_method(m) - end - -end # class Prcs - Index: vcs/src/conflict.rb --- vcs/src/conflict.rb (revision 206) +++ vcs/src/conflict.rb (working copy) @@ -1,21 +0,0 @@ -class Vcs - - def mk_conflicts_list - ls = status.output.readlines.grep(/^C/).map! { |s| s[/^C\s+(.*)/, 1] } - raise "no conflicts" if ls.empty? - ls - end - - def edit_conflicts! - edit! mk_conflicts_list - end - - def resolve_conflicts! - conflicts = mk_conflicts_list - question = "Resolve these conflicts: \n - #{conflicts.join("\n - ")}\n" - if ask(question, :n, STDIN, @out, @err) == :y - return resolved(conflicts) - end - end - -end # class Vcs Index: vcs/SPEC.yml --- vcs/SPEC.yml (revision 0) +++ vcs/SPEC.yml (revision 0) @@ -0,0 +1,35 @@ +--- +Author: Nicolas Pouillard +License: GNU General Public License (GPL) +Revision: '$Id$' + +name: vcs + +title: Vcs -- A wrapper over any version control system +summary: A wrapper over any version control system +description: | + Version control systems (Subversion, CVS, PRCS...), however useful, are not + very extensible: adding new features can be cumbersome, especially if you + want them for different such systems at once. Vcs provide a simple dynamic + hierarchy for Version Control Systems. +homepage: http://rubyforge.org/projects/vcs + +rdoc_dir: doc/html +tags_url: https://svn.lrde.epita.fr/svn/lrdetools/tags + +commit_command: ltci + +rdoc_files: !filelist + - README + - AUTHORS + - lib/vcs/**/*.rb + +pkg_files: !filelist + - lib/vcs/**/*.rb + - bin/**/* + - '[A-Z]*' + +executables: [ vcs, vcs-svn, vcs-cvs, vcs-prcs ] + +dependencies: + ruby_ex: ~> 0.1.3 Index: vcs/src/news.rb --- vcs/src/news.rb (revision 206) +++ vcs/src/news.rb (working copy) @@ -1,118 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/tools' -require 'vcs/message' - -class Vcs - - NEWS = Pathname.new(',news') - - def parse_news_options ( *args ) - require 'optparse' - result = - { - :from => FULL_EMAIL, - :groups => [], - :server => ENV['NNTPSERVER'], - } - if !args.nil? and !args.empty? and args[0].is_a?(Hash) - return result.merge!(args[0]) - end - OptionParser.new do |opts| - opts.separator '' - opts.on('-g', '--group NAME', 'Choose a news group') do |aString| - result[:groups] << aString - end - opts.on('-s', '--server NAME', 'Choose a news server') do |aString| - result[:server] = aString - end - opts.on('-S', '--subject NAME', 'Choose your news subject') do |aString| - result[:subject] = aString.sub(/\.?$/, '.') - end - opts.on_tail('-h', '--help', 'Show this message') do - puts opts - exit - end - end.parse!(args) - raise Failure, 'No news group' if result[:groups].empty? - raise Failure, 'No news server' if result[:server].nil? - raise Failure, 'No news subject' if result[:subject].nil? - result - end - protected :parse_news_options - - def check_line ( anIO, aRegex ) - line = anIO.readline.chomp! - LOG.debug('news') { "Server: #{line}" } - unless line =~ aRegex - LOG.error('news') { "Bad answer: #{line}" } - @news_status = 'Error.' - end - end - private :check_line - - # - # Post the news. - # - def news! ( *args ) - error_handling :news_failed - - print_body(NEWS, parse_news_options(*args)) unless NEWS.exist? - - @news_status = 'Sent.' - NEWS.open('r') do |file| - opt = YAML::chop_header(file) - server, port = opt[:server].split(/:/) - port ||= 119 - LOG.info('news') { "Nntp Server: #{server}:#{port}" } - if ask("Post a news, with this subject: #{opt[:subject]}\n" + - " to #{opt[:groups].join(', ')}\n from #{opt[:from]}\n" + - 'Are you sure?', :y) == :n - LOG.error('news') { 'Aborting' } - exit - end - require 'socket' - TCPSocket.open(server, port) do |f| - check_line(f, /^200/) - f.puts 'post' - check_line(f, /^340/) - f.puts "Newsgroups: #{opt[:groups].join(', ')}" - f.puts "From: #{opt[:from]}" - f.puts "Subject: #{opt[:subject]}" - f.puts - file.each do |line| - f.print line.gsub(/^\./, ' .') - end - f.puts '.' - check_line(f, /^240/) - f.puts 'quit' - check_line(f, /^205/) - end - end - NEWS.delete - @out.puts @news_status - end - - def news_failed - if defined? NEWS and NEWS.exist? - LOG.info "#{NEWS}: Contains the generated news" + - "(generated from #{@@message})" - end - end - - def news_conf_checker - %w[ NNTPSERVER ].each do |var| - if ENV[var].nil? or ENV[var].empty? - LOG.error "environment variable `#{var}' not set" - end - end - end - - add_conf_checker :news_conf_checker - -end # class Vcs Index: vcs/Rakefile --- vcs/Rakefile (revision 206) +++ vcs/Rakefile (working copy) @@ -1,73 +1,8 @@ -require 'rubygems' -require 'rake' -require 'rake/testtask' -require 'rake/packagetask' -require 'rake/rdoctask' -require 'rake/gempackagetask' -require 'rake/contrib/rubyforgepublisher' - -PKG_VERSION = "0.2.#{`vcs-svn rev`.chomp}" - -PKG_FILES = FileList[*%w" - src/**/*.rb - ruby_ex/**/*.rb - bin/**/* - doc/**/* - [A-Z]* -"].exclude(/\b\.svn\b|\..*\.sw[op]$|~$|README/) - -desc 'Default Task' -task :default => :package - -desc 'Publish to RubyForge' -task :rubyforge do - Rake::RubyForgePublisher.new('vcs', 'ertai').upload -end - - -Rake::RDocTask.new('doc') do |rdoc| - rdoc.title = 'Vcs -- A wrapper over any version control system' - rdoc.template = 'kilmer' - #rdoc.template = 'doc/jamis' - rdoc.options << '--line-numbers' << '--inline-source' - #rdoc.rdoc_files.add('src/vcs.rb', 'src/**/*.rb') - rdoc.rdoc_files.add('src/**/*.rb') - #rdoc.main = -end - - -# The Gem specification -spec = Gem::Specification.new do |s| - s.platform = Gem::Platform::RUBY - s.name = 'vcs' - s.version = PKG_VERSION - s.summary = 'A wrapper over any version control system' - s.description = ' - Version control systems (Subversion, CVS, PRCS...), however useful, - are not very extensible: adding new features can be cumbersome, especially - if you want them for different such systems at once. - Vcs provide a simple dynamic hierarchy for Version Control Systems. - ' - - s.bindir = 'bin' - s.executables = %w[ vcs vcs-svn vcs-cvs vcs-prcs ] - s.default_executable = 'vcs' - s.files = PKG_FILES.to_a - s.require_path = 'src' - s.autorequire = 'vcs' - - s.has_rdoc = true - s.author = 'Nicolas Pouillard' - s.email = 'ertai(a)lrde.epita.fr' - s.homepage = 'https://svn.lrde.epita.fr/svn/lrdetools/trunk/vcs/' - s.rubyforge_project = s.name -end - -# Create compressed packages -Rake::GemPackageTask.new(spec) do |p| - p.gem_spec = spec - # p.need_tar = true - # p.need_zip = true -end - +# Author:: The TTK Team. -*- ruby -*- +# Copyright:: Copyright (c) 2005 TTK team. All rights reserved. +# License:: Ruby License +# Revision:: $Id$ +require 'rubygems' +require_gem 'core_ex' +load 'core_ex/rakefile_base.rf' Index: vcs/src/diffstat.rb --- vcs/src/diffstat.rb (revision 206) +++ vcs/src/diffstat.rb (working copy) @@ -1,30 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). -# Revision:: $Id$ - -require 'vcs/vcs' - -class Vcs - @@diffstat = 'diffstat'.to_cmd - - # Use the diffstat command to - # display statitics on your patch. - def diffstat! ( *a ) - check_diffstat - data_diff = diff(*a) - cmd = @@diffstat < data_diff.output.open > [@out_path, @err_path] - cmd.sys - end - alias_command :ds, :diffstat - - def check_diffstat - unless `diffstat -V` =~ /diffstat version/ - raise ArgumentError, 'The `diffstat\' tool is needed by Vcs.diffstat' - end - end - - add_conf_checker :check_diffstat - -end # class Vcs - Index: vcs/lib/vcs/edit.rb --- vcs/lib/vcs/edit.rb (revision 0) +++ vcs/lib/vcs/edit.rb (revision 0) @@ -0,0 +1,15 @@ +# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. +# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. +# License:: GNU General Public License (GPL). +# Revision:: $Id$ + +require 'vcs/vcs' + +class Vcs + + def edit! ( *files ) + cmd = EDITOR + files.flatten.map { |x| x.to_s } > [STDOUT, STDERR] + cmd.run(@runner) + end + +end # class Vcs Property changes on: vcs/lib/vcs/edit.rb ___________________________________________________________________ Name: svn:keywords + Id Index: vcs/src/svn.rb --- vcs/src/svn.rb (revision 206) +++ vcs/src/svn.rb (working copy) @@ -1,29 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' -require 'vcs/tools' - -CL = Pathname.new('ChangeLog') -ADD_CL = Pathname.new(',ChangeLog') -TMP_CL = Pathname.new(',,ChangeLog') - -class Svn < Vcs - - class Failure < Vcs::Failure - end - - def initialize ( aCmd='svn' ) - super - end - - %w[ blame cat cleanup copy export import list log merge mkdir move propedit - switch resolved revert info propdel propget proplist propset ].each do |m| - add_basic_method(m) - end - -end # class Svn Index: vcs/NEWS --- vcs/NEWS (revision 0) +++ vcs/NEWS (revision 0) @@ -0,0 +1,3 @@ +New in 0.3 ...: + * help + * full stream based Index: vcs/src/revision.rb --- vcs/src/revision.rb (revision 206) +++ vcs/src/revision.rb (working copy) @@ -1,18 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/svn' - -class Svn - - def revision! ( *args ) - @out.puts info.read[/^Revision:\s+(\d+)/, 1] - end - - alias_command :rev, :revision - -end # class Svn Index: vcs/src/changelog.rb --- vcs/src/changelog.rb (revision 206) +++ vcs/src/changelog.rb (working copy) @@ -1,115 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). -# Revision:: $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' -require 'vcs/svn' - -class Svn - - @@file_st = - { - 'A' => 'New', - 'D' => 'Remove', - } - @@file_st.default = '' - - @@prop_st = - { - 'M' => 'Changed property' - } - - def mkchangelog_from_status ( *args ) - result = [] - from_status(*args) do |line, file_st, prop_st, copy_st, file| - next if file_st =~ /[?X]/ - next if file == 'ChangeLog' - ls = [] - ls << @@file_st[file_st] if @@file_st.has_key? file_st - ls << @@prop_st[prop_st].downcase if @@prop_st.has_key? prop_st - result << [file, ls.join(', ')] - end - raise Failure, 'No changes, so no ChangeLog entry.' if result.empty? - result - end - private :mkchangelog_from_status - -end # class Svn - - -class Vcs - - class MustBeFilled < Exception - attr_reader :file - def initialize ( file ) - @file = file - super("You must fill this file: `#{file.to_s}'") - end - end - - def mkchangelog! ( *args ) - error_handling :changelog_failed - - cl = ADD_CL - - if cl.exist? - f = cl.open('r') - if f.readline !~ /^===/ - f.rewind - return f - end - f.close - else - cl_add = mkchangelog_from_status(*args) - LOG.warn "Creating a new `#{cl}' file" - cl.open('w') do |f| - f.puts '=== Fill this file correctly and remove this line ===' - f.puts Time.now.strftime("%Y-%m-%d #{FULL_EMAIL}") - f.puts - cl_add.each do |file, str| - f.puts "\t* #{file}: #{str}." - end - end - end - - raise MustBeFilled, cl - end - - def concat_changelog! ( *args ) - error_handling :changelog_failed - - unless CL.exist? - raise Failure, "No `#{CL}', you are probably not in a valid directory." - end - - if cl = mkchangelog(*args) - - unless TMP_CL.exist? - LOG.info "Moving `#{CL}' to `#{TMP_CL}' ..." - CL.rename(TMP_CL) - end - - CL.open('w') do |file| - LOG.info "Prepending `#{ADD_CL}' to `#{CL}' ..." - file.print cl.read - file.puts - file.print TMP_CL.read - end - - end - end - - def changelog_failed - if TMP_CL.exist? - LOG.info "Restoring `#{CL}' from `#{TMP_CL}' ..." - TMP_CL.rename(CL) - end - LOG.info "#{ADD_CL}: Contains your ChangeLog entry" if ADD_CL.exist? - end - - alias_command :mkcl, :mkchangelog - alias_command :ctcl, :concat_changelog - -end # class Vcs - Index: vcs/src/status.rb --- vcs/src/status.rb (revision 206) +++ vcs/src/status.rb (working copy) @@ -1,17 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). -# Revision:: $Id$ - -class Svn - - def from_status ( *args, &block ) - status(*args).output.each_line do |line| - next unless line =~ /^.{5} / - m = /^(.)(.).(.).\s*(.*)$/.match(line) - block[*m.to_a] - end - end - protected :from_status - -end # class Svn Index: vcs/src/last_changed_date.rb --- vcs/src/last_changed_date.rb (revision 206) +++ vcs/src/last_changed_date.rb (working copy) @@ -1,16 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). -# $Id$ - -require 'vcs/svn' - -class Svn - - def last_changed_date! ( *args ) - @out.puts info.read[/^Last Changed Date:.*?$([^)]*)$.*$/, 1] - end - - alias_command :date, :last_changed_date - -end # class Svn Index: vcs/src/diff.rb --- vcs/src/diff.rb (revision 206) +++ vcs/src/diff.rb (working copy) @@ -1,18 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). -# Revision:: $Id$ - -class Svn - - def diffw_from_status! ( *args ) - files = Set.new - from_status(*args) do |line, file_st, prop_st, cpy, file| - next if file_st =~ /[?X]/ - next if file == 'ChangeLog' - files << Pathname.new(file) - end - diffw!(*files.delete_if { |f| f.directory? }) - end - -end # class Svn Index: vcs/src/mycommit.rb --- vcs/src/mycommit.rb (revision 206) +++ vcs/src/mycommit.rb (working copy) @@ -1,86 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' -require 'ask' - -class Vcs - - COMMITED = Pathname.new(',commited') - - def common_commit! ( *args, &block ) - - opts, args = args.partition { |a| a =~ /^-/ } - - update! - - unless COMMITED.exist? - - begin - mkchangelog(*args) - rescue MustBeFilled => ex - edit! ex.file - end - - message(*args) - - edit! @@message - - if ask('Committing, are you sure?', :y) == :n - commit_failed - end - - concat_changelog!(*args) - - #pager! diff - #pager! status - - args << 'ChangeLog' unless args.grep(/^[^-]/).empty? - - if commit!('-F', ADD_CL, *(opts + args)) - ADD_CL.rename(COMMITED) - TMP_CL.delete if TMP_CL.exist? - else - commit_failed - end - - update! - - else - - message(*args) - edit! @@message - - end - - - rev = revision.read.to_i - - block.call(rev) if block_given? - - LOG.info 'Deleting junk files...' - TMP_CL.delete if TMP_CL.exist? - ADD_CL.delete if ADD_CL.exist? - COMMITED.delete if COMMITED.exist? - messages = Pathname.new(',messages') - messages.mkpath unless messages.directory? - message_rev = messages + "#{@@message}.#{rev}" - LOG.info "Moving `#{@@message}' to `#{message_rev}'..." - @@message.rename(message_rev) - LOG.info "You can remove `#{message_rev}' if everything is ok." - - end - alias_command :cci, :common_commit - - def commit_failed - LOG.info "#{COMMITED}: Contains your ChangeLog entry" if COMMITED.exist? - LOG.error 'Aborting' - LOG.info 'You can rerun the same command to continue the commit' - raise 'Commit failed' - end - -end # class Vcs Index: vcs/src/cvs.rb --- vcs/src/cvs.rb (revision 206) +++ vcs/src/cvs.rb (working copy) @@ -1,21 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' - -class Cvs < Vcs - - def initialize ( aCmd='cvs' ) - super - end - - %w[ rdiff rtag tag ].each do |m| - add_basic_method(m) - end - -end # class Cvs - Index: vcs/lib/vcs/vcs.rb --- vcs/lib/vcs/vcs.rb (revision 206) +++ vcs/lib/vcs/vcs.rb (working copy) @@ -29,16 +29,16 @@ @cmd = aCmd.to_cmd @handlers = Set.new @runner = Commands::Runners::System.new + @strict_runner = Commands::Runners::System.new.raise_on_failures + + display_hook = lambda { |cmd| LOG.debug { "running: #{cmd.to_sh}" } } + @runner.subscribe_hook(:failure) do |data| - if data.status - LOG.error { "exit(#{data.status.exitstatus})" } - else - LOG.fatal { 'no exit status' } - end - end - @runner.subscribe_hook(:display_command) do |cmd| - LOG.debug { "running: #{cmd.to_sh}" } + exit((data.status)? data.status.exitstatus : 1) end + @runner.subscribe_hook(:display_command, &display_hook) + @strict_runner.subscribe_hook(:display_command, &display_hook) + @out, @err = STDOUT, STDERR end @@ -85,10 +85,15 @@ cmd = @cmd + args if @out_path.nil? cmd = cmd > [@out, @err] + if @out == STDOUT + cmd.run(@runner) + else + cmd.run(@strict_runner) + end else cmd = cmd > [@out_path, @err_path] + cmd.run(@strict_runner) end - cmd.run(@runner) end def sub_vcs @@ -104,7 +109,16 @@ sub_vcs.run!(*args) end - %w[ checkout delete diff status log add update commit ].each do |m| + def run_missing! ( name, orig, *args ) + if name =~ /^(.*)_$/ + run!($1, *args) + else + LOG.warn { "unknown method #{orig}" } + run!(name, *args) + end + end + + %w[ checkout help delete diff status log add update commit ].each do |m| add_basic_method(m) end @@ -112,31 +126,16 @@ meth = meth.to_s if meth =~ /^(.*)!$/ no_bang = $1 - if respond_to? no_bang - LOG.warn { "Unefficient method call (#{no_bang}), " + - "prefer define methods with a `!'" } - send(no_bang, *args).each do |line| - puts line - end - else - LOG.warn { "unknown method #{meth}" } - run!(no_bang.sub(/_$/, ''), *args) - end + super unless respond_to? no_bang + run_missing!(no_bang, meth, *args) else with_bang = meth + '!' - if respond_to? with_bang + return run_missing!(meth, meth, *args) unless respond_to? with_bang copy = sub_vcs res = copy.send(with_bang, *args) - if res.nil? + return res unless res.nil? copy.out.close copy.out_path - else - res - end - else - LOG.warn { "unknown method #{meth}" } - run!(meth.sub(/_$/, ''), *args) - end end end Index: vcs/src/mail.rb --- vcs/src/mail.rb (revision 206) +++ vcs/src/mail.rb (working copy) @@ -1,51 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). -# Revision:: $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' -require 'sendmail' - -class Vcs - - MAIL = Sendmail::MAIL_FILE - MAILER = Sendmail.new - DEFAULT_OPTIONS = %w[ --ask --sign --mime ] - - # - # Mail. - # - def mail! ( *args ) - error_handling :mail_failed - unless MAIL.exist? - print_body(MAIL, MAILER.parse_mail_options(*(DEFAULT_OPTIONS + args))) - end - MAILER.sendmail - MAIL.delete - @out.puts 'Mail: Sent.' - end - - def mail_failed - if defined? MAIL and MAIL.exist? - LOG.info "#{MAIL}: Contains the generated mail " + - "(generated from #{@@message})" - end - end - - def mail_conf_checker - %w[ EMAIL FULLNAME SMTPSERVER ].each do |var| - if ENV[var].nil? or ENV[var].empty? - LOG.error "environment variable `#{var}' not set" - end - end - unless `gpg --version` =~ /^gpg $GnuPG$/ - LOG.error 'command not found: gpg' - end - unless File.exist?("#{ENV['HOME']}/.gnupg/secring.gpg") - LOG.error 'no private key: in your ~/.gnupg' - end - end - - add_conf_checker :mail_conf_checker - -end # class Vcs

1 0

[nolimips: 182] Limit access to argument registers.
by Noe 06 Jul '05

06 Jul '05

https://svn.lrde.epita.fr/svn/nolimips ChangeLog | 7 +++++++ dev/inst-solver-gen.py | 13 ++++++++++++- src/inst-tasks.cc | 1 + src/inst-tasks.hh | 4 ++++ 4 files changed, 24 insertions(+), 1 deletion(-) Index: trunk/ChangeLog from Benoît Perrot <benoit(a)lrde.epita.fr> Limit access to argument registers. * dev/inst-solver-gen.py: Check use of argument registers. * src/inst-tasks.hh, src/inst-tasks.cc: Add corresponding task. Index: trunk/src/inst-tasks.cc --- trunk/src/inst-tasks.cc (revision 181) +++ trunk/src/inst-tasks.cc (revision 182) @@ -42,6 +42,7 @@ inst::ProgramSolver program_solver; program_solver.set_max_callee_save(max_callee_save); program_solver.set_max_caller_save(max_caller_save); + program_solver.set_max_args(max_args); program_solver.solve(* parse::tasks::program); if (exit_status != exit_success) exit (exit_status); Index: trunk/src/inst-tasks.hh --- trunk/src/inst-tasks.hh (revision 181) +++ trunk/src/inst-tasks.hh (revision 182) @@ -45,6 +45,10 @@ "Set max number of caller-save registers", max_caller_save, 10, 0, 10, ""); + INT_TASK_DECLARE ("args", + "Set max number of argument registers", + max_args, 4, 0, 4, + ""); } // namespace tasks } // namespace inst Index: trunk/dev/inst-solver-gen.py --- trunk/dev/inst-solver-gen.py (revision 181) +++ trunk/dev/inst-solver-gen.py (revision 182) @@ -67,7 +67,7 @@ public: ProgramSolver(): program_(0), - max_callee_save_(8), max_caller_save_(10) + max_callee_save_(8), max_caller_save_(10), max_args_(4) {} virtual ~ProgramSolver() {} @@ -81,6 +81,10 @@ { max_caller_save_ = max_caller_save; } + void set_max_args(int max_args) + { + max_args_ = max_args; + } public: void solve(Program &program) @@ -123,6 +127,7 @@ int max_callee_save_; int max_caller_save_; + int max_args_; }; } // namespace inst @@ -221,6 +226,12 @@ std::cerr << \"Callee-save register limited.\" << std::endl; exit_set(exit_solve); } + else if (vm::Cpu::a0 + max_args_ - 1 < reg.get_index() && + reg.get_index() <= vm::Cpu::a3) + { + std::cerr << \"Argument register limited.\" << std::endl; + exit_set(exit_solve); + } break; case Register::unlimited: if (!parse::unlimited_regs_p)

1 0

*****SPAM***** Popular pills - 75% OFF
by Richard K. Lee 05 Jul '05

05 Jul '05

Spam detection software, running on the system "kualalumpur.lrde.epita.fr", has identified this incoming email as possible spam. The original message has been attached to this so you can view it (if it isn't spam) or label similar future email. If you have any questions, see the administrator of that system for details. Content preview: Fast erection Prolonged effect No prescription required 2 popular medicines: CIALIS - http://www.get-a-pill.com/sv/ VIAGRA - http://www.get-a-pill.com/vt/ Discreet packaging [...] Content analysis details: (15.5 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- 1.2 RCVD_NUMERIC_HELO Received: contains an IP address used for HELO 0.2 DRUG_ED_CAPS BODY: Mentions an E.D. drug 0.0 HTML_MESSAGE BODY: HTML included in message 0.1 HTML_TAG_EXIST_TBODY BODY: HTML has "tbody" tag 0.1 RAZOR2_CF_RANGE_51_100 BODY: Razor2 gives confidence level above 50% [cf: 100] 3.5 BAYES_99 BODY: Bayesian spam probability is 99 to 100% [score: 1.0000] 0.1 HTML_50_60 BODY: Message is 50% to 60% HTML 1.5 RAZOR2_CHECK Listed in Razor2 (http://razor.sf.net/) 1.0 URIBL_SBL Contains an URL listed in the SBL blocklist [URIs: get-a-pill.com] 3.2 URIBL_OB_SURBL Contains an URL listed in the OB SURBL blocklist [URIs: get-a-pill.com] 4.3 URIBL_SC_SURBL Contains an URL listed in the SC SURBL blocklist [URIs: get-a-pill.com] 0.2 DRUGS_ERECTILE Refers to an erectile drug 0.1 FORGED_OUTLOOK_TAGS Outlook can't send HTML in this format The original message was not completely plain text, and may be unsafe to open with some email clients; in particular, it may contain a virus, or confirm that your address can receive spam. If you wish to view it, it may be safer to save it to a file and open it with an editor.

1 0

LrdeTools 207: Update Vcs packaging
by Nicolas Pouillard 05 Jul '05

05 Jul '05

Index: ChangeLog from Nicolas Pouillard <ertai(a)lrde.epita.fr> * vcs: Remove the ruby_ex external link, use the gem package instead. * vcs/Rakefile: Use the core_ex common rakefile. * vcs/SPEC.yml: New. Package meta data. * vcs/SPEC.dyn.yml: New. Package generated meta data. * vcs/AUTHORS: New. * vcs/NEWS: New. * vcs/src: Rename to ... * vcs/lib/vcs: ... this. * vcs/lib/vcs/ask.rb: Remove, because ask is present in ruby_ex. * vcs/lib/vcs/edit.rb: New. * vcs/bin/vcs: Update requires, load_path, version, and some environement variables definition. AUTHORS | 6 + NEWS | 3 Rakefile | 79 +-------------- SPEC.dyn.yml | 9 + SPEC.yml | 35 +++++++ bin/vcs | 27 ++--- lib/vcs/diffstat.rb | 2 lib/vcs/edit.rb | 15 +++ lib/vcs/vcs.rb | 65 ++++++------- src/ask.rb | 101 -------------------- src/changelog.rb | 115 ----------------------- src/conflict.rb | 21 ---- src/cvs.rb | 21 ---- src/diff.rb | 18 --- src/diffstat.rb | 30 ------ src/last_changed_date.rb | 16 --- src/mail.rb | 51 ---------- src/message.rb | 69 ------------- src/mycommit.rb | 86 ----------------- src/news.rb | 118 ----------------------- src/prcs.rb | 21 ---- src/revision.rb | 18 --- src/status.rb | 17 --- src/svn.rb | 29 ----- src/tools.rb | 22 ---- src/vcs.rb | 234 ----------------------------------------------- 26 files changed, 119 insertions(+), 1109 deletions(-) Index: vcs/lib/vcs/diffstat.rb --- vcs/lib/vcs/diffstat.rb (revision 206) +++ vcs/lib/vcs/diffstat.rb (working copy) @@ -14,7 +14,7 @@ check_diffstat data_diff = diff(*a) cmd = @@diffstat < data_diff.output.open > [@out_path, @err_path] - cmd.sys + cmd.run(@runner) end alias_command :ds, :diffstat Index: vcs/bin/vcs --- vcs/bin/vcs (revision 206) +++ vcs/bin/vcs (working copy) @@ -16,18 +16,11 @@ require 'optparse' require 'set' -begin - REV="$Rev$".sub(/LastChangedRevision:\s+/, '').to_i -rescue - REV=-1 -end - +VCS_VERSION = '0.2.148' VCS_PATH = Pathname.new(__FILE__).expand_path VCS_DIR, VCS = VCS_PATH.split -SRC = VCS_DIR + '..' + 'src' -RUBY_EX = VCS_DIR + '..' + 'ruby_ex' -$: << SRC.to_s -$: << RUBY_EX.to_s +LIB = VCS_DIR + '..' + 'lib' +$: << LIB.to_s dir = Pathname.pwd while not dir.root? and not (vcs_dir = dir + 'vcs').exist? @@ -46,14 +39,14 @@ "#{VCS}: #{progname}#{severity.downcase}: #{msg}\n" end -Pathname.glob("{#{SRC}/**,#{vcs_dir}}/*.rb") do |file| +Pathname.glob("{#{LIB}/**,#{vcs_dir}}/*.rb") do |file| LOG.debug { file.basename.to_s } begin - require file.basename.to_s - rescue LoadError => ex + require "vcs/#{file.basename}" + rescue LoadError begin require file.to_s - rescue + rescue LoadError => ex raise ex end end @@ -115,7 +108,7 @@ end opts.on_tail('--version', 'Show version') do - STDOUT.puts "Vcs revision: #{REV}" + STDOUT.puts "Vcs version: #{VCS_VERSION}" exit end @@ -130,7 +123,9 @@ end env = %w[ EMAIL FULLNAME EDITOR PAGER ] if env.all? { |s| ENV[s] } - env.each { |s| Kernel.const_set(s, ENV[s]) } + EDITOR = ENV['EDITOR'].to_cmd + PAGER = ENV['PAGER'].to_cmd + EMAIL = ENV['EMAIL'] else env.each { |s| LOG.error "Need #{s} in the environement" unless ENV[s] } exit Index: vcs/src/vcs.rb --- vcs/src/vcs.rb (revision 206) +++ vcs/src/vcs.rb (working copy) @@ -1,234 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'set' -require 'commands' - -# The abstract class for a Vcs wrapper. -# Conventions: -# example: -# svn checkout http://foo.bar/proj # alias -# vcs-svn checkout http://foo.bar/proj # wrapper -# vcs --vcs Svn checkout http://foo.bar/proj # manual -# -# checkout -# checkout_ -# checkout! -# checkout_! -# -class Vcs - - class Failure < Exception - end - - def initialize ( aCmd ) - @cmd = aCmd.to_cmd - @handlers = Set.new - @runner = Commands::Runners::System.new - @runner.subscribe_hook(:failure) do |data| - if data.status - LOG.error { "exit(#{data.status.exitstatus})" } - else - LOG.fatal { 'no exit status' } - end - end - @runner.subscribe_hook(:display_command) do |cmd| - LOG.debug { "running: #{cmd.to_sh}" } - end - @out, @err = STDOUT, STDERR - end - - def self.add_basic_method ( meth ) - class_eval <<-end_eval - def #{meth}! ( *args ) - run!("#{meth}", *args) - end - def #{meth}_! ( *args ) - run!("#{meth}", *args) - end - end_eval - end - - @@all_commands = {} - @@all_aliases = Set.new - - def self.alias_command ( m1, m2 ) - m2 = m2.to_s - @@all_commands[m2] ||= Set.new - @@all_commands[m2] << m1.to_s - @@all_aliases << m1 - class_eval <<-end_eval - def #{m1} ( *args ) - #{m2}(*args) - end - def #{m1}_ ( *args ) - #{m2}_(*args) - end - def #{m1}! ( *args ) - #{m2}!(*args) - end - def #{m1}_! ( *args ) - #{m2}_!(*args) - end - end_eval - end - - attr_accessor :out, :err, :out_path, :err_path - - @@checkers = Set.new - - def run! ( *args ) - cmd = @cmd + args - if @out_path.nil? - cmd = cmd > [@out, @err] - else - cmd = cmd > [@out_path, @err_path] - end - cmd.run(@runner) - end - - def sub_vcs - copy = dup - copy.out_path = TempPath.new - copy.err_path = TempPath.new - copy.out = copy.out_path.open('w') - copy.err = copy.err_path.open('w') - copy - end - - def run ( *args ) - sub_vcs.run!(*args) - end - - %w[ checkout delete diff status log add update commit ].each do |m| - add_basic_method(m) - end - - def method_missing ( meth, *args ) - meth = meth.to_s - if meth =~ /^(.*)!$/ - no_bang = $1 - if respond_to? no_bang - LOG.warn { "Unefficient method call (#{no_bang}), " + - "prefer define methods with a `!'" } - send(no_bang, *args).each do |line| - puts line - end - else - LOG.warn { "unknown method #{meth}" } - run!(no_bang.sub(/_$/, ''), *args) - end - else - with_bang = meth + '!' - if respond_to? with_bang - copy = sub_vcs - res = copy.send(with_bang, *args) - if res.nil? - copy.out.close - copy.out_path - else - res - end - else - LOG.warn { "unknown method #{meth}" } - run!(meth.sub(/_$/, ''), *args) - end - end - end - - def help! ( *args ) - return help_!(*args) unless args.empty? - @out.puts " - |usage: #{(a)cmd.command} <subcommand> [options] [args] - |Type '#{(a)cmd.command} help <subcommand>' for help on a specific subcommand. - | - |Most subcommands take file and/or directory arguments, recursing - |on the directories. If no arguments are supplied to such a - |command, it recurses on the current directory (inclusive) by default. - | - |Available subcommands:".head_cut! - cmds = [] - methods.each do |meth| - next if meth =~ /_!?$/ - next unless meth =~ /^(.+)!$/ - cmd = $1 - next if cmd == 'run' - next if @@all_aliases.include? cmd.to_sym - cmds << cmd - end - cmds.sort! - cmds.each do |cmd| - if @@all_commands.has_key? cmd - aliases = @@all_commands[cmd].sort.join(', ') - @out.puts " - #{cmd} (alias #{aliases})" - else - @out.puts " - #{cmd}" - end - end - end - - alias_command :ann, :blame - alias_command :annotate, :blame - alias_command :praise, :blame - alias_command :co, :checkout - alias_command :ci, :commit - alias_command :cp, :copy - alias_command :del, :delete - alias_command :remove, :delete - alias_command :rm, :delete - alias_command :di, :diff - alias_command :h, :help - alias_command :ls, :list - alias_command :mv, :move - alias_command :rename, :move - alias_command :ren, :move - alias_command :pdel, :propdel - alias_command :pd, :propdel - alias_command :pedit, :propedit - alias_command :pe, :propedit - alias_command :pget, :propget - alias_command :pg, :propget - alias_command :plist, :proplist - alias_command :pl, :proplist - alias_command :pset, :propset - alias_command :ps, :propset - alias_command :st, :status - alias_command :stat, :status - alias_command :sw, :switch - alias_command :up, :update - - # Cvs Alias - alias_command :new, :add - alias_command :rcs, :admin - alias_command :get, :checkout - alias_command :rlog, :log - alias_command :patch, :rdiff - alias_command :rfreeze, :rtag - alias_command :freeze, :tag - - # Prcs Alias - alias_command :checkin, :commit - alias_command :populate, :add - - def error_handling ( meth ) - @handlers << meth - end - - def call_handlers - @handlers.each { |meth| send(meth) } - end - - def self.add_conf_checker ( meth ) - @@checkers << meth - end - - def call_conf_checkers - @@checkers.each { |meth| send(meth) } - end - -end # class Vcs - Index: vcs/src/message.rb --- vcs/src/message.rb (revision 206) +++ vcs/src/message.rb (working copy) @@ -1,69 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' -require 'vcs/changelog' - -class Vcs - def diffw! ( *args ) - diff!(*args) - end -end - -class Svn - def diffw! ( *args ) - diff! '--diff-cmd', 'diff', '-x', '-NPbuw', *args - end -end - -class Vcs - - @@message = Pathname.new(',message') - - def print_body ( file, options ) - LOG.warn "Creating a new `#{file}' file" - file.open('w') do |f| - f.puts options.to_yaml - f.puts '---' - f.puts - f.print message.read - end - end - private :print_body - - def message ( *args ) - error_handling :message_failed - - unless @@message.exist? - cl = mkchangelog(*args) - TempPath.new('message') do |tmp| - tmp.open('w') do |f| - f.puts 'Index: ChangeLog' - f.print cl.read.sub(/^\d+-\d+-\d+/, 'from') - f.puts - f.print diffstat(*args).read - f.puts - diffw_from_status(*args).each_line do |line| - f.print line if line !~ /^=+$/ - end - end - tmp.mv(@@message) - end - end - @@message.open('r') - end - - alias_command :msg, :message - - def message_failed - if @@message.exist? - LOG.info "#{@@message}: Contains the generated message" - LOG.info ' (the ChangeLog entry, the diffstat, the diff)' - end - end - -end # class Vcs Index: vcs/AUTHORS --- vcs/AUTHORS (revision 0) +++ vcs/AUTHORS (revision 0) @@ -0,0 +1,6 @@ +--- +Vcs was written by and with the assistance of: + + - Nicolas Pouillard <ertai(a)lrde.epita.fr>: + - Initial Design + - Maintenance Index: vcs/src/tools.rb --- vcs/src/tools.rb (revision 206) +++ vcs/src/tools.rb (working copy) @@ -1,22 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'yaml' -module YAML - - def self.chop_header ( io ) - aStr = io.gets - raise Exception, "First line is not valid: `#{aLine}'" unless aStr =~ /^---/ - io.each do |aLine| - break if aLine =~ /^---/ - aStr += aLine - end - YAML::load(aStr) - end - -end # module YAML - Index: vcs/src/ask.rb --- vcs/src/ask.rb (revision 206) +++ vcs/src/ask.rb (working copy) @@ -1,101 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -ANSWERS = [ :y, :n ] -ANSWER_NOT_VALID = 'Not a valid answer, please answer correctly' - -# `ask', ask the user to answer, to your question. -# -# Example: -# ask('Commiting, are you sure', :n) -# -# produce => Commiting, are you sure (y/N): -# and wait your answer. -def ask ( aQuestion, theDefaultAnswer=:y, cin=STDIN, cout=STDOUT, cerr=STDERR ) - - yn = case theDefaultAnswer - when :y then ' [Y/n]: ' - when :n then ' [y/N]: ' - else raise ArgumentError, "not valid default answer #{theDefaultAnswer}" - end - - loop do - cout.print aQuestion, yn - cout.flush - - answer = cin.readline.chomp.downcase - - return theDefaultAnswer if answer.empty? - - answer = answer.to_sym - - return answer if ANSWERS.include? answer - - cerr.puts ANSWER_NOT_VALID - cout.puts - end - -end - -if defined? TEST_MODE or $0 == __FILE__ - -require 'test/unit' -class AskTest < Test::Unit::TestCase - - def ask_checker ( question, default, answer, ref, out, err ) - require 'stringio' - cin, cout, cerr = StringIO.new, StringIO.new, StringIO.new - cin.puts answer - cin.rewind - res = ask(question, default, cin, cout, cerr) - cout.rewind - cerr.rewind - assert_equal(res, ref, 'bad return value') - assert_equal(cout.readlines.join, out, 'bad standard output') - assert_equal(cerr.readlines.join, err, 'bad error output') - end - - def test_bad_default - assert_raise(ArgumentError) { ask_checker('Q', :foo, '', :y, [], []) } - assert_nothing_raised do - ask_checker('Q', :y, 'y', :y, 'Q [Y/n]: ', '') - end - assert_nothing_raised do - ask_checker('Q', :n, 'y', :y, 'Q [y/N]: ', '') - end - end - - def test_valid_default_yes - ask_checker('Q', :y, 'y', :y, 'Q [Y/n]: ', '') - ask_checker('Q', :y, 'Y', :y, 'Q [Y/n]: ', '') - ask_checker('Q', :y, 'n', :n, 'Q [Y/n]: ', '') - ask_checker('Q', :y, 'N', :n, 'Q [Y/n]: ', '') - ask_checker('Q', :y, '', :y, 'Q [Y/n]: ', '') - end - - def test_valid_default_no - ask_checker('Q', :n, 'y', :y, 'Q [y/N]: ', '') - ask_checker('Q', :n, 'Y', :y, 'Q [y/N]: ', '') - ask_checker('Q', :n, 'n', :n, 'Q [y/N]: ', '') - ask_checker('Q', :n, 'N', :n, 'Q [y/N]: ', '') - ask_checker('Q', :n, '', :n, 'Q [y/N]: ', '') - end - - def test_invalid_answer - ask_checker('Q', :n, "bad\ny", :y, - "Q [y/N]: \nQ [y/N]: ", ANSWER_NOT_VALID + "\n") - ask_checker('Q', :y, "ad\n\n", :y, - "Q [Y/n]: \nQ [Y/n]: ", ANSWER_NOT_VALID + "\n") - end - - def test_ask1 - ask_checker('Q', :y, 'y', :y, 'Q [Y/n]: ', '') - end - -end # class AskTest - -end Index: vcs/SPEC.dyn.yml --- vcs/SPEC.dyn.yml (revision 0) +++ vcs/SPEC.dyn.yml (revision 0) @@ -0,0 +1,9 @@ +--- !ruby/object:OpenStruct +table: + :url: https://svn.lrde.epita.fr/svn/lrdetools/trunk/vcs + :date: "Fri, 01 Jul 2005" + :version: !ruby/object:Version + build: 148 + major: 0 + minor: 2 + revision: 206 Index: vcs/src/prcs.rb --- vcs/src/prcs.rb (revision 206) +++ vcs/src/prcs.rb (working copy) @@ -1,21 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' - -class Prcs < Vcs - - def initialize ( aCmd='prcs' ) - super - end - - %w[ admin ].each do |m| - add_basic_method(m) - end - -end # class Prcs - Index: vcs/src/conflict.rb --- vcs/src/conflict.rb (revision 206) +++ vcs/src/conflict.rb (working copy) @@ -1,21 +0,0 @@ -class Vcs - - def mk_conflicts_list - ls = status.output.readlines.grep(/^C/).map! { |s| s[/^C\s+(.*)/, 1] } - raise "no conflicts" if ls.empty? - ls - end - - def edit_conflicts! - edit! mk_conflicts_list - end - - def resolve_conflicts! - conflicts = mk_conflicts_list - question = "Resolve these conflicts: \n - #{conflicts.join("\n - ")}\n" - if ask(question, :n, STDIN, @out, @err) == :y - return resolved(conflicts) - end - end - -end # class Vcs Index: vcs/SPEC.yml --- vcs/SPEC.yml (revision 0) +++ vcs/SPEC.yml (revision 0) @@ -0,0 +1,35 @@ +--- +Author: Nicolas Pouillard +License: GNU General Public License (GPL) +Revision: '$Id$' + +name: vcs + +title: Vcs -- A wrapper over any version control system +summary: A wrapper over any version control system +description: | + Version control systems (Subversion, CVS, PRCS...), however useful, are not + very extensible: adding new features can be cumbersome, especially if you + want them for different such systems at once. Vcs provide a simple dynamic + hierarchy for Version Control Systems. +homepage: http://rubyforge.org/projects/vcs + +rdoc_dir: doc/html +tags_url: https://svn.lrde.epita.fr/svn/lrdetools/tags + +commit_command: ltci + +rdoc_files: !filelist + - README + - AUTHORS + - lib/vcs/**/*.rb + +pkg_files: !filelist + - lib/vcs/**/*.rb + - bin/**/* + - '[A-Z]*' + +executables: [ vcs, vcs-svn, vcs-cvs, vcs-prcs ] + +dependencies: + ruby_ex: ~> 0.1.3 Index: vcs/src/news.rb --- vcs/src/news.rb (revision 206) +++ vcs/src/news.rb (working copy) @@ -1,118 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/tools' -require 'vcs/message' - -class Vcs - - NEWS = Pathname.new(',news') - - def parse_news_options ( *args ) - require 'optparse' - result = - { - :from => FULL_EMAIL, - :groups => [], - :server => ENV['NNTPSERVER'], - } - if !args.nil? and !args.empty? and args[0].is_a?(Hash) - return result.merge!(args[0]) - end - OptionParser.new do |opts| - opts.separator '' - opts.on('-g', '--group NAME', 'Choose a news group') do |aString| - result[:groups] << aString - end - opts.on('-s', '--server NAME', 'Choose a news server') do |aString| - result[:server] = aString - end - opts.on('-S', '--subject NAME', 'Choose your news subject') do |aString| - result[:subject] = aString.sub(/\.?$/, '.') - end - opts.on_tail('-h', '--help', 'Show this message') do - puts opts - exit - end - end.parse!(args) - raise Failure, 'No news group' if result[:groups].empty? - raise Failure, 'No news server' if result[:server].nil? - raise Failure, 'No news subject' if result[:subject].nil? - result - end - protected :parse_news_options - - def check_line ( anIO, aRegex ) - line = anIO.readline.chomp! - LOG.debug('news') { "Server: #{line}" } - unless line =~ aRegex - LOG.error('news') { "Bad answer: #{line}" } - @news_status = 'Error.' - end - end - private :check_line - - # - # Post the news. - # - def news! ( *args ) - error_handling :news_failed - - print_body(NEWS, parse_news_options(*args)) unless NEWS.exist? - - @news_status = 'Sent.' - NEWS.open('r') do |file| - opt = YAML::chop_header(file) - server, port = opt[:server].split(/:/) - port ||= 119 - LOG.info('news') { "Nntp Server: #{server}:#{port}" } - if ask("Post a news, with this subject: #{opt[:subject]}\n" + - " to #{opt[:groups].join(', ')}\n from #{opt[:from]}\n" + - 'Are you sure?', :y) == :n - LOG.error('news') { 'Aborting' } - exit - end - require 'socket' - TCPSocket.open(server, port) do |f| - check_line(f, /^200/) - f.puts 'post' - check_line(f, /^340/) - f.puts "Newsgroups: #{opt[:groups].join(', ')}" - f.puts "From: #{opt[:from]}" - f.puts "Subject: #{opt[:subject]}" - f.puts - file.each do |line| - f.print line.gsub(/^\./, ' .') - end - f.puts '.' - check_line(f, /^240/) - f.puts 'quit' - check_line(f, /^205/) - end - end - NEWS.delete - @out.puts @news_status - end - - def news_failed - if defined? NEWS and NEWS.exist? - LOG.info "#{NEWS}: Contains the generated news" + - "(generated from #{@@message})" - end - end - - def news_conf_checker - %w[ NNTPSERVER ].each do |var| - if ENV[var].nil? or ENV[var].empty? - LOG.error "environment variable `#{var}' not set" - end - end - end - - add_conf_checker :news_conf_checker - -end # class Vcs Index: vcs/Rakefile --- vcs/Rakefile (revision 206) +++ vcs/Rakefile (working copy) @@ -1,73 +1,8 @@ -require 'rubygems' -require 'rake' -require 'rake/testtask' -require 'rake/packagetask' -require 'rake/rdoctask' -require 'rake/gempackagetask' -require 'rake/contrib/rubyforgepublisher' - -PKG_VERSION = "0.2.#{`vcs-svn rev`.chomp}" - -PKG_FILES = FileList[*%w" - src/**/*.rb - ruby_ex/**/*.rb - bin/**/* - doc/**/* - [A-Z]* -"].exclude(/\b\.svn\b|\..*\.sw[op]$|~$|README/) - -desc 'Default Task' -task :default => :package - -desc 'Publish to RubyForge' -task :rubyforge do - Rake::RubyForgePublisher.new('vcs', 'ertai').upload -end - - -Rake::RDocTask.new('doc') do |rdoc| - rdoc.title = 'Vcs -- A wrapper over any version control system' - rdoc.template = 'kilmer' - #rdoc.template = 'doc/jamis' - rdoc.options << '--line-numbers' << '--inline-source' - #rdoc.rdoc_files.add('src/vcs.rb', 'src/**/*.rb') - rdoc.rdoc_files.add('src/**/*.rb') - #rdoc.main = -end - - -# The Gem specification -spec = Gem::Specification.new do |s| - s.platform = Gem::Platform::RUBY - s.name = 'vcs' - s.version = PKG_VERSION - s.summary = 'A wrapper over any version control system' - s.description = ' - Version control systems (Subversion, CVS, PRCS...), however useful, - are not very extensible: adding new features can be cumbersome, especially - if you want them for different such systems at once. - Vcs provide a simple dynamic hierarchy for Version Control Systems. - ' - - s.bindir = 'bin' - s.executables = %w[ vcs vcs-svn vcs-cvs vcs-prcs ] - s.default_executable = 'vcs' - s.files = PKG_FILES.to_a - s.require_path = 'src' - s.autorequire = 'vcs' - - s.has_rdoc = true - s.author = 'Nicolas Pouillard' - s.email = 'ertai(a)lrde.epita.fr' - s.homepage = 'https://svn.lrde.epita.fr/svn/lrdetools/trunk/vcs/' - s.rubyforge_project = s.name -end - -# Create compressed packages -Rake::GemPackageTask.new(spec) do |p| - p.gem_spec = spec - # p.need_tar = true - # p.need_zip = true -end - +# Author:: The TTK Team. -*- ruby -*- +# Copyright:: Copyright (c) 2005 TTK team. All rights reserved. +# License:: Ruby License +# Revision:: $Id$ +require 'rubygems' +require_gem 'core_ex' +load 'core_ex/rakefile_base.rf' Index: vcs/src/diffstat.rb --- vcs/src/diffstat.rb (revision 206) +++ vcs/src/diffstat.rb (working copy) @@ -1,30 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). -# Revision:: $Id$ - -require 'vcs/vcs' - -class Vcs - @@diffstat = 'diffstat'.to_cmd - - # Use the diffstat command to - # display statitics on your patch. - def diffstat! ( *a ) - check_diffstat - data_diff = diff(*a) - cmd = @@diffstat < data_diff.output.open > [@out_path, @err_path] - cmd.sys - end - alias_command :ds, :diffstat - - def check_diffstat - unless `diffstat -V` =~ /diffstat version/ - raise ArgumentError, 'The `diffstat\' tool is needed by Vcs.diffstat' - end - end - - add_conf_checker :check_diffstat - -end # class Vcs - Index: vcs/lib/vcs/edit.rb --- vcs/lib/vcs/edit.rb (revision 0) +++ vcs/lib/vcs/edit.rb (revision 0) @@ -0,0 +1,15 @@ +# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. +# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. +# License:: GNU General Public License (GPL). +# Revision:: $Id$ + +require 'vcs/vcs' + +class Vcs + + def edit! ( *files ) + cmd = EDITOR + files.flatten.map { |x| x.to_s } > [STDOUT, STDERR] + cmd.run(@runner) + end + +end # class Vcs Property changes on: vcs/lib/vcs/edit.rb ___________________________________________________________________ Name: svn:keywords + Id Index: vcs/src/svn.rb --- vcs/src/svn.rb (revision 206) +++ vcs/src/svn.rb (working copy) @@ -1,29 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' -require 'vcs/tools' - -CL = Pathname.new('ChangeLog') -ADD_CL = Pathname.new(',ChangeLog') -TMP_CL = Pathname.new(',,ChangeLog') - -class Svn < Vcs - - class Failure < Vcs::Failure - end - - def initialize ( aCmd='svn' ) - super - end - - %w[ blame cat cleanup copy export import list log merge mkdir move propedit - switch resolved revert info propdel propget proplist propset ].each do |m| - add_basic_method(m) - end - -end # class Svn Index: vcs/NEWS --- vcs/NEWS (revision 0) +++ vcs/NEWS (revision 0) @@ -0,0 +1,3 @@ +New in 0.3 ...: + * help + * full stream based Index: vcs/src/revision.rb --- vcs/src/revision.rb (revision 206) +++ vcs/src/revision.rb (working copy) @@ -1,18 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/svn' - -class Svn - - def revision! ( *args ) - @out.puts info.read[/^Revision:\s+(\d+)/, 1] - end - - alias_command :rev, :revision - -end # class Svn Index: vcs/src/changelog.rb --- vcs/src/changelog.rb (revision 206) +++ vcs/src/changelog.rb (working copy) @@ -1,115 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). -# Revision:: $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' -require 'vcs/svn' - -class Svn - - @@file_st = - { - 'A' => 'New', - 'D' => 'Remove', - } - @@file_st.default = '' - - @@prop_st = - { - 'M' => 'Changed property' - } - - def mkchangelog_from_status ( *args ) - result = [] - from_status(*args) do |line, file_st, prop_st, copy_st, file| - next if file_st =~ /[?X]/ - next if file == 'ChangeLog' - ls = [] - ls << @@file_st[file_st] if @@file_st.has_key? file_st - ls << @@prop_st[prop_st].downcase if @@prop_st.has_key? prop_st - result << [file, ls.join(', ')] - end - raise Failure, 'No changes, so no ChangeLog entry.' if result.empty? - result - end - private :mkchangelog_from_status - -end # class Svn - - -class Vcs - - class MustBeFilled < Exception - attr_reader :file - def initialize ( file ) - @file = file - super("You must fill this file: `#{file.to_s}'") - end - end - - def mkchangelog! ( *args ) - error_handling :changelog_failed - - cl = ADD_CL - - if cl.exist? - f = cl.open('r') - if f.readline !~ /^===/ - f.rewind - return f - end - f.close - else - cl_add = mkchangelog_from_status(*args) - LOG.warn "Creating a new `#{cl}' file" - cl.open('w') do |f| - f.puts '=== Fill this file correctly and remove this line ===' - f.puts Time.now.strftime("%Y-%m-%d #{FULL_EMAIL}") - f.puts - cl_add.each do |file, str| - f.puts "\t* #{file}: #{str}." - end - end - end - - raise MustBeFilled, cl - end - - def concat_changelog! ( *args ) - error_handling :changelog_failed - - unless CL.exist? - raise Failure, "No `#{CL}', you are probably not in a valid directory." - end - - if cl = mkchangelog(*args) - - unless TMP_CL.exist? - LOG.info "Moving `#{CL}' to `#{TMP_CL}' ..." - CL.rename(TMP_CL) - end - - CL.open('w') do |file| - LOG.info "Prepending `#{ADD_CL}' to `#{CL}' ..." - file.print cl.read - file.puts - file.print TMP_CL.read - end - - end - end - - def changelog_failed - if TMP_CL.exist? - LOG.info "Restoring `#{CL}' from `#{TMP_CL}' ..." - TMP_CL.rename(CL) - end - LOG.info "#{ADD_CL}: Contains your ChangeLog entry" if ADD_CL.exist? - end - - alias_command :mkcl, :mkchangelog - alias_command :ctcl, :concat_changelog - -end # class Vcs - Index: vcs/src/status.rb --- vcs/src/status.rb (revision 206) +++ vcs/src/status.rb (working copy) @@ -1,17 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). -# Revision:: $Id$ - -class Svn - - def from_status ( *args, &block ) - status(*args).output.each_line do |line| - next unless line =~ /^.{5} / - m = /^(.)(.).(.).\s*(.*)$/.match(line) - block[*m.to_a] - end - end - protected :from_status - -end # class Svn Index: vcs/src/last_changed_date.rb --- vcs/src/last_changed_date.rb (revision 206) +++ vcs/src/last_changed_date.rb (working copy) @@ -1,16 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). -# $Id$ - -require 'vcs/svn' - -class Svn - - def last_changed_date! ( *args ) - @out.puts info.read[/^Last Changed Date:.*?$([^)]*)$.*$/, 1] - end - - alias_command :date, :last_changed_date - -end # class Svn Index: vcs/src/diff.rb --- vcs/src/diff.rb (revision 206) +++ vcs/src/diff.rb (working copy) @@ -1,18 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). -# Revision:: $Id$ - -class Svn - - def diffw_from_status! ( *args ) - files = Set.new - from_status(*args) do |line, file_st, prop_st, cpy, file| - next if file_st =~ /[?X]/ - next if file == 'ChangeLog' - files << Pathname.new(file) - end - diffw!(*files.delete_if { |f| f.directory? }) - end - -end # class Svn Index: vcs/src/mycommit.rb --- vcs/src/mycommit.rb (revision 206) +++ vcs/src/mycommit.rb (working copy) @@ -1,86 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' -require 'ask' - -class Vcs - - COMMITED = Pathname.new(',commited') - - def common_commit! ( *args, &block ) - - opts, args = args.partition { |a| a =~ /^-/ } - - update! - - unless COMMITED.exist? - - begin - mkchangelog(*args) - rescue MustBeFilled => ex - edit! ex.file - end - - message(*args) - - edit! @@message - - if ask('Committing, are you sure?', :y) == :n - commit_failed - end - - concat_changelog!(*args) - - #pager! diff - #pager! status - - args << 'ChangeLog' unless args.grep(/^[^-]/).empty? - - if commit!('-F', ADD_CL, *(opts + args)) - ADD_CL.rename(COMMITED) - TMP_CL.delete if TMP_CL.exist? - else - commit_failed - end - - update! - - else - - message(*args) - edit! @@message - - end - - - rev = revision.read.to_i - - block.call(rev) if block_given? - - LOG.info 'Deleting junk files...' - TMP_CL.delete if TMP_CL.exist? - ADD_CL.delete if ADD_CL.exist? - COMMITED.delete if COMMITED.exist? - messages = Pathname.new(',messages') - messages.mkpath unless messages.directory? - message_rev = messages + "#{@@message}.#{rev}" - LOG.info "Moving `#{@@message}' to `#{message_rev}'..." - @@message.rename(message_rev) - LOG.info "You can remove `#{message_rev}' if everything is ok." - - end - alias_command :cci, :common_commit - - def commit_failed - LOG.info "#{COMMITED}: Contains your ChangeLog entry" if COMMITED.exist? - LOG.error 'Aborting' - LOG.info 'You can rerun the same command to continue the commit' - raise 'Commit failed' - end - -end # class Vcs Index: vcs/src/cvs.rb --- vcs/src/cvs.rb (revision 206) +++ vcs/src/cvs.rb (working copy) @@ -1,21 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' - -class Cvs < Vcs - - def initialize ( aCmd='cvs' ) - super - end - - %w[ rdiff rtag tag ].each do |m| - add_basic_method(m) - end - -end # class Cvs - Index: vcs/lib/vcs/vcs.rb --- vcs/lib/vcs/vcs.rb (revision 206) +++ vcs/lib/vcs/vcs.rb (working copy) @@ -29,16 +29,16 @@ @cmd = aCmd.to_cmd @handlers = Set.new @runner = Commands::Runners::System.new + @strict_runner = Commands::Runners::System.new.raise_on_failures + + display_hook = lambda { |cmd| LOG.debug { "running: #{cmd.to_sh}" } } + @runner.subscribe_hook(:failure) do |data| - if data.status - LOG.error { "exit(#{data.status.exitstatus})" } - else - LOG.fatal { 'no exit status' } - end - end - @runner.subscribe_hook(:display_command) do |cmd| - LOG.debug { "running: #{cmd.to_sh}" } + exit((data.status)? data.status.exitstatus : 1) end + @runner.subscribe_hook(:display_command, &display_hook) + @strict_runner.subscribe_hook(:display_command, &display_hook) + @out, @err = STDOUT, STDERR end @@ -85,10 +85,15 @@ cmd = @cmd + args if @out_path.nil? cmd = cmd > [@out, @err] + if @out == STDOUT + cmd.run(@runner) + else + cmd.run(@strict_runner) + end else cmd = cmd > [@out_path, @err_path] + cmd.run(@strict_runner) end - cmd.run(@runner) end def sub_vcs @@ -104,7 +109,16 @@ sub_vcs.run!(*args) end - %w[ checkout delete diff status log add update commit ].each do |m| + def run_missing! ( name, orig, *args ) + if name =~ /^(.*)_$/ + run!($1, *args) + else + LOG.warn { "unknown method #{orig}" } + run!(name, *args) + end + end + + %w[ checkout help delete diff status log add update commit ].each do |m| add_basic_method(m) end @@ -112,31 +126,16 @@ meth = meth.to_s if meth =~ /^(.*)!$/ no_bang = $1 - if respond_to? no_bang - LOG.warn { "Unefficient method call (#{no_bang}), " + - "prefer define methods with a `!'" } - send(no_bang, *args).each do |line| - puts line - end - else - LOG.warn { "unknown method #{meth}" } - run!(no_bang.sub(/_$/, ''), *args) - end + super unless respond_to? no_bang + run_missing!(no_bang, meth, *args) else with_bang = meth + '!' - if respond_to? with_bang + return run_missing!(meth, meth, *args) unless respond_to? with_bang copy = sub_vcs res = copy.send(with_bang, *args) - if res.nil? + return res unless res.nil? copy.out.close copy.out_path - else - res - end - else - LOG.warn { "unknown method #{meth}" } - run!(meth.sub(/_$/, ''), *args) - end end end Index: vcs/src/mail.rb --- vcs/src/mail.rb (revision 206) +++ vcs/src/mail.rb (working copy) @@ -1,51 +0,0 @@ -# Author:: Nicolas Pouillard <ertai(a)lrde.epita.fr>. -# Copyright:: Copyright (c) 2004 LRDE. All rights reserved. -# License:: GNU General Public License (GPL). -# Revision:: $Id: header 98 2004-09-29 12:07:43Z ertai $ - -require 'vcs/vcs' -require 'sendmail' - -class Vcs - - MAIL = Sendmail::MAIL_FILE - MAILER = Sendmail.new - DEFAULT_OPTIONS = %w[ --ask --sign --mime ] - - # - # Mail. - # - def mail! ( *args ) - error_handling :mail_failed - unless MAIL.exist? - print_body(MAIL, MAILER.parse_mail_options(*(DEFAULT_OPTIONS + args))) - end - MAILER.sendmail - MAIL.delete - @out.puts 'Mail: Sent.' - end - - def mail_failed - if defined? MAIL and MAIL.exist? - LOG.info "#{MAIL}: Contains the generated mail " + - "(generated from #{@@message})" - end - end - - def mail_conf_checker - %w[ EMAIL FULLNAME SMTPSERVER ].each do |var| - if ENV[var].nil? or ENV[var].empty? - LOG.error "environment variable `#{var}' not set" - end - end - unless `gpg --version` =~ /^gpg $GnuPG$/ - LOG.error 'command not found: gpg' - end - unless File.exist?("#{ENV['HOME']}/.gnupg/secring.gpg") - LOG.error 'no private key: in your ~/.gnupg' - end - end - - add_conf_checker :mail_conf_checker - -end # class Vcs

1 0