October 2004 - Projects

LT 121: Ship and install symbuild
by Akim Demaille 25 Oct '04

25 Oct '04

https://svn.lrde.epita.fr/svn/lrde-tools/trunk ChangeLog | 5 +++++ README | 2 ++ doc/lrdetools.texi | 16 +++++++++++----- src/Makefile.am | 1 + 4 files changed, 19 insertions(+), 5 deletions(-) Index: ChangeLog from Akim Demaille <akim(a)epita.fr> * doc/lrdetools.texi (Subversion Utilities): Add svndiff. * src/Makefile.am (dist_bin_SCRIPTS): Add symbuild. Index: src/Makefile.am --- src/Makefile.am (revision 120) +++ src/Makefile.am (working copy) @@ -40,6 +40,7 @@ svn-ignore \ svn-populate \ svndiff \ +symbuild \ tarr \ timeout \ whitespace Index: README --- README (revision 120) +++ README (working copy) @@ -82,6 +82,8 @@ Quickly add ignore entries in subversion. Automatically determine the concerned directory. +** svndiff +A better svn diff. * Miscellaneous utilities ** apatche Index: doc/lrdetools.texi --- doc/lrdetools.texi (revision 120) +++ doc/lrdetools.texi (working copy) @@ -126,8 +126,9 @@ Subversion Utilities -* svn-populate:: -* svn-ignore:: +* svn-populate:: Subversion adaptation of prcs populate command +* svn-ignore:: Quickly add ignore entries in subversion +* svndiff:: A better svn diff Miscellaneous utilities @@ -291,8 +292,9 @@ @chapter Subversion Utilities @menu -* svn-populate:: -* svn-ignore:: +* svn-populate:: Subversion adaptation of prcs populate command +* svn-ignore:: Quickly add ignore entries in subversion +* svndiff:: A better svn diff @end menu @node svn-populate @@ -304,6 +306,11 @@ Quickly add ignore entries in subversion. Automatically determine the concerned directory. +@node svndiff +@section @command{svndiff} +Same as @command{prdiff} (@pxref{prdiff}), but for @command{svn}. +Eventually will be part of @command{vcs}. + @c ===================================================== Miscellaneous utilities @node Miscellaneous utilities @@ -504,7 +511,6 @@ @node symbuild @section @command{symbuild} - Create a set of crossed source/build symbolic links. For many reasons, it is recommended to build in a different directory

1 0

Re: RFC: Remove LevelEnv
by Geoffroy Fouquier 25 Oct '04

25 Oct '04

Akim Demaille <akim(a)epita.fr> writes: >>>> "Roland" == Roland Levillain <roland(a)lrde.epita.fr> writes: > > > Au fait, où puis-je trouver le dépôt SVN des lrde-tools ? (Ou mieux, y > > a-t-il des un (des) paquets Debian pour ceux-ci ?) > > Voir le patch qui vient de passer. > > Pour les paquets, ce serait bien. Peut-être Djo le fait-il ? Pour pouvoir faire un paquet debian, il faut avoir une boule de goudron qui compile, ce qui n'est pas le cas pour le moment : % make check [...] =================================== 7 of 21 tests failed Please report to lrde(a)lrde.epita.fr =================================== d'ailleurs, rapporter les bugs devraient être fait sur la liste projects et non pas sur la liste des permanents. NB: le journal des tests qui ne passe pas est là : /mnt/goinfre/tests.ratés -- Geoffroy Fouquier Geoffroy.Fouquier(a)lrde.epita.fr

1 0

vcs: Marche tjs pas
by Akim Demaille 25 Oct '04

25 Oct '04

~/src/lrde-tools % vcs/bin/vcs --help nostromo 16:58 vcs/bin/vcs:34: private method `warn' called for #<IO:0x402ea03c> (NoMethodError) ~/src/lrde-tools % vcs/bin/vcs help nostromo Err 1 vcs/bin/vcs:34: private method `warn' called for #<IO:0x402ea03c> (NoMethodError) ~/src/lrde-tools % vcs/bin/vcs diff nostromo Err 1 vcs/bin/vcs:34: private method `warn' called for #<IO:0x402ea03c> (NoMethodError)

1 0

LT 120: symbuild
by Akim Demaille 25 Oct '04

25 Oct '04

https://svn.lrde.epita.fr/svn/lrde-tools/trunk ChangeLog | 5 ++ README | 3 + doc/lrdetools.texi | 104 +++++++++++++++++++++++++++++++++++++++++++++++------ 3 files changed, 102 insertions(+), 10 deletions(-) Index: ChangeLog from Akim Demaille <akim(a)epita.fr> * src/symbuild: New. * doc/lrdetools.texi (symbuild): New. Index: README --- README (revision 119) +++ README (working copy) @@ -105,6 +105,9 @@ ** rdiff Recursive diff between two files/tarballs. +** symbuild +Easy navigation between source and build trees + ** tarr Quickly make tarballs. Index: doc/lrdetools.texi --- doc/lrdetools.texi (revision 119) +++ doc/lrdetools.texi (working copy) @@ -132,17 +132,18 @@ Miscellaneous utilities * apatche:: Send patches to a mailing list -* checkin:: Update ChangeLog, do a checkin and post a news. +* checkin:: Update ChangeLog, do a checkin and post a news * cl2patch:: Prepare a patch for application * diffed:: Manipulate patches in the diff format * g2b:: Gzip to Bzip2 * insist:: Repeatedly do something until it succeeds * install-on:: Install a package on a remote machine. -* rdiff:: Recursive diff between two files/tarballs. +* rdiff:: Recursive diff between two files/tarballs +* symbuild:: Easy navigation between source and build trees * tarr:: Quickly make tarballs. -* timeout:: Run a command and killing it if it is too slow. -* whitespace:: Normalize whitespace uses in files. -* xdiff:: A btter interface to diff +* timeout:: Run a command and killing it if it is too slow +* whitespace:: Normalize whitespace uses in files +* xdiff:: A better interface to diff @command{checkin} @@ -310,17 +311,18 @@ @menu * apatche:: Send patches to a mailing list -* checkin:: Update ChangeLog, do a checkin and post a news. +* checkin:: Update ChangeLog, do a checkin and post a news * cl2patch:: Prepare a patch for application * diffed:: Manipulate patches in the diff format * g2b:: Gzip to Bzip2 * insist:: Repeatedly do something until it succeeds * install-on:: Install a package on a remote machine. -* rdiff:: Recursive diff between two files/tarballs. +* rdiff:: Recursive diff between two files/tarballs +* symbuild:: Easy navigation between source and build trees * tarr:: Quickly make tarballs. -* timeout:: Run a command and killing it if it is too slow. -* whitespace:: Normalize whitespace uses in files. -* xdiff:: A btter interface to diff +* timeout:: Run a command and killing it if it is too slow +* whitespace:: Normalize whitespace uses in files +* xdiff:: A better interface to diff @end menu @node apatche @@ -500,6 +502,88 @@ @section @command{rdiff} Recursive diff between two files/tarballs. +@node symbuild +@section @command{symbuild} + +Create a set of crossed source/build symbolic links. + +For many reasons, it is recommended to build in a different directory +than where the sources are. This is named ``VPATH-build'' in the +Automake documentation, and it is often referred to as ``build != src +build''. Projects using the Autotools naturally support this set up, +instead of: + +@example +$ @kbd{tar zxvf foo-1.0.tar.gz} +$ @kbd{cd foo-1.0} +$ @kbd{./configure} +$ @kbd{make} +$ @kbd{make check} +$ @kbd{make install} +@end example + +@noindent +run + +@example +$ @kbd{tar zxvf foo-1.0.tar.gz} +$ @kbd{cd foo-1.0} +$ @kbd{mkdir _build} +$ @kbd{cd _build} +$ @kbd{../configure} +$ @kbd{make} +$ @kbd{make check} +$ @kbd{make install} +@end example + +This set up has several drawbacks: +@table @asis +@item compiling under Emacs +If you have a deep package and you are currently editing +(a)file{src/parse/parsetiger.yy}, then you have to compile using +@samp{make -C ../../_build/src/parse}. In non-VPATH builds, a simple +@samp{make} suffices! + +@item exploring directories +Sometimes you check some output files in the build hierarchy, say +(a)file{scantiger.cc} in @file{_build/src/parse}. But now you want to see +the source file: @file{../../../src/parse/scantiger.ll}. Of course in +non-VPATH build there are no such problems. +@end table + +@command{symbuild} attempts to recover the easy navigation provided by +installing symbolic links between peer source/build directories. For +instance, @file{src/parse} contains a @file{_build} symbolic link that +points to @file{../../_build/src/parse}. And @file{_build/src/parse} +contains a @file{_src} symlink pointing to @file{../../../src/parse}. + +Usage: + +@example + symbuild +or symbuild @var{builddir} +@end example + +@noindent +where @var{builddir} is the name of the top level build directory, +defaulting to @file{_build}. Run this script from the source top level: +the @var{builddir} must exist. For instance: + +@example +$ @kbd{tar zxvf foo-1.0.tar.gz} +$ @kbd{cd foo-1.0} +$ @kbd{mkdir _build} +$ @kbd{symbuild} +$ @kbd{cd _build} +$ @kbd{../configure} +$ @kbd{make} +$ @kbd{make check} +$ @kbd{make install} +@end example + +@noindent +and then enjoy a simple and constant @samp{make -C _build} under Emacs! + @node tarr @section @command{tarr} Quickly make tarballs.

1 0

LT 119: Export repository specific methods
by Nicolas Pouillard 25 Oct '04

25 Oct '04

Index: ChangeLog from Nicolas Pouillard <ertai(a)lrde.epita.fr> * vcs/src/mycommit.rb (lrdetools_commit): Move to ... * misc/ltci.rb: ... here. * vcs/bin/vcs: Search the file to load, to execute the given method. Index: misc/ltci.rb --- misc/ltci.rb (revision 0) +++ misc/ltci.rb (revision 0) @@ -0,0 +1,16 @@ +class Vcs + + def lrdetools_commit! ( s, *args ) + + rev = common_commit!(*args) + + s = "LT #{rev}: #{s}" + + news(:groups => ['lrde.proj'], :subject => s) + + @@message.delete + + end + alias_command :ltci, :lrdetools_commit + +end # class Vcs Index: vcs/src/mycommit.rb --- vcs/src/mycommit.rb (revision 118) +++ vcs/src/mycommit.rb (working copy) @@ -42,19 +42,6 @@ protected :common_commit! - def lrdetools_commit! ( s, *args ) - - rev = common_commit!(*args) - - s = "LT #{rev}: #{s}" - - news(:groups => ['lrde.proj'], :subject => s) - - @@message.delete - - end - alias_command :ltci, :lrdetools_commit - def test_commit! ( s, *args ) rev = common_commit!(*args) Index: vcs/bin/vcs --- vcs/bin/vcs (revision 118) +++ vcs/bin/vcs (working copy) @@ -65,6 +65,10 @@ else meth = ARGV.shift.sub(/([^!])$/, '\1!') end + + Pathname.glob("*/#{meth.to_s.sub(/!$/, '')}.rb") do |file| + require file if file.exist? + end begin rcs.send(meth, *ARGV)

2 1

LT 117: Rename, and fix a bug with Etc.
by Nicolas Pouillard 25 Oct '04

25 Oct '04

Index: ChangeLog from Nicolas Pouillard <ertai(a)lrde.epita.fr> * rcs-wrapper/bin/rcsw: Rename to ... * vcs/bin/rcsw: ... this, and fix a bug with Etc. * rcs-wrapper/src/mycommit.rb: Rename to ... * vcs/src/mycommit.rb: ... this, and force an update after the commit. * rcs-wrapper/src/cvs.rb: Rename to ... * vcs/src/cvs.rb: ... this. * rcs-wrapper/src/message.rb: Rename to ... * vcs/src/message.rb: ... this. * rcs-wrapper/src/mail.rb: Rename to ... * vcs/src/mail.rb: ... this. * rcs-wrapper/src/tools.rb: Rename to ... * vcs/src/tools.rb: ... this. * rcs-wrapper/src/prcs.rb: Rename to ... * vcs/src/prcs.rb: ... this. * rcs-wrapper/src/news.rb: Rename to ... * vcs/src/news.rb: ... this. * rcs-wrapper/src/changelog.rb: Rename to ... * vcs/src/changelog.rb: ... this. * rcs-wrapper/src/revision.rb: Rename to ... * vcs/src/revision.rb: ... this. * rcs-wrapper/src/rcs.rb: Rename to ... * vcs/src/rcs.rb: ... this. * rcs-wrapper/src/svn.rb: Rename to ... * vcs/src/svn.rb: ... this. * rcs-wrapper/README: Rename to ... * vcs/README: ... this. Index: vcs/src/mycommit.rb --- vcs/src/mycommit.rb (revision 114) +++ vcs/src/mycommit.rb (working copy) @@ -5,12 +5,12 @@ # $LastChangedBy: ertai $ # $Id: header 98 2004-09-29 12:07:43Z ertai $ -require 'rcs' +require 'vcs' -class Rcs +class Vcs def edit! ( *files ) - system(ENV['EDITOR'], *files) + system(ENV['EDITOR'], *files.map { |x| x.to_s }) end def common_commit! ( *args ) @@ -34,6 +34,8 @@ commit!(*args) + update! + return self.revision.readline.to_i end @@ -66,4 +68,4 @@ end -end # class Rcs +end # class Vcs Index: vcs/src/tools.rb --- vcs/src/tools.rb (revision 114) +++ vcs/src/tools.rb (working copy) @@ -9,15 +9,15 @@ module WarnAndError def warn ( aString ) - print "#{RCSW}: warning: ", aString, "\n" + print "#{VCS}: warning: ", aString, "\n" end def error ( aString ) - print "#{RCSW}: error: ", aString, "\n" + print "#{VCS}: error: ", aString, "\n" end def debug ( aString ) - print "#{RCSW}: debug: ", aString, "\n" + print "#{VCS}: debug: ", aString, "\n" end end # module WarnAndError Index: vcs/src/mail.rb --- vcs/src/mail.rb (revision 115) +++ vcs/src/mail.rb (working copy) @@ -5,10 +5,10 @@ # $LastChangedBy: ertai $ # $Id: header 98 2004-09-29 12:07:43Z ertai $ -require 'rcs' +require 'vcs' require 'tools' -class Rcs +class Vcs @@mail = Pathname.new(',mail') @@ -74,4 +74,4 @@ StringIO.new('Mail: Sent.') end -end # class Rcs +end # class Vcs Index: vcs/src/message.rb --- vcs/src/message.rb (revision 115) +++ vcs/src/message.rb (working copy) @@ -5,10 +5,10 @@ # $LastChangedBy: ertai $ # $Id: header 98 2004-09-29 12:07:43Z ertai $ -require 'rcs' +require 'vcs' require 'changelog' -class Rcs +class Vcs @@message = Pathname.new(',message') @@ -41,4 +41,4 @@ alias_command :msg, :message -end # class Rcs +end # class Vcs Index: vcs/src/svn.rb --- vcs/src/svn.rb (revision 114) +++ vcs/src/svn.rb (working copy) @@ -5,12 +5,16 @@ # $LastChangedBy: ertai $ # $Id: header 98 2004-09-29 12:07:43Z ertai $ -require 'rcs' +require 'vcs' require 'tools' -class Svn < Rcs +CL = Pathname.new('ChangeLog') +ADD_CL = Pathname.new(',ChangeLog') +TMP_CL = Pathname.new(',,ChangeLog') - class Failure < Rcs::Failure +class Svn < Vcs + + class Failure < Vcs::Failure end def initialize ( aCmd='svn' ) @@ -28,10 +32,10 @@ changelog! - if run!('commit', '--non-interactive', '-F', @@add_cl, *args) + if run!('commit', '--non-interactive', '-F', ADD_CL, *args) STDERR.puts "Deleting junk files..." - @@add_cl.delete - @@tmp_cl.delete if @@tmp_cl.exist? + ADD_CL.delete + TMP_CL.delete if TMP_CL.exist? else raise Failure, 'commit failed' end Index: vcs/src/changelog.rb --- vcs/src/changelog.rb (revision 114) +++ vcs/src/changelog.rb (working copy) @@ -5,7 +5,7 @@ # $LastChangedBy: ertai $ # $Id: header 98 2004-09-29 12:07:43Z ertai $ -require 'rcs' +require 'vcs' require 'svn' class Svn @@ -41,11 +41,8 @@ end # class Svn -class Rcs - @@cl = Pathname.new('ChangeLog') - @@add_cl = Pathname.new(',ChangeLog') - @@tmp_cl = Pathname.new(',,ChangeLog') +class Vcs class MustBeFilled < Exception attr_reader :file @@ -56,7 +53,7 @@ end def mkchangelog ( *args ) - cl = @@add_cl + cl = ADD_CL if cl.exist? f = cl.open('r') @@ -82,21 +79,21 @@ end def changelog! ( *args ) - unless @@cl.exist? + unless CL.exist? raise Failure, 'No ChangeLog, you are probably not in a valid directory.' end if cl = mkchangelog(*args) - unless @@tmp_cl.exist? - STDERR.warn "Move ChangeLog to `#{@@tmp_cl}'" - @@cl.rename(@@tmp_cl) + unless TMP_CL.exist? + STDERR.warn "Move ChangeLog to `#{TMP_CL}'" + CL.rename(TMP_CL) end - @@cl.open('w') do |file| + CL.open('w') do |file| cl.each { |line| file.print line } file.puts - IO.foreach(@@tmp_cl) { |line| file.print line } + IO.foreach(TMP_CL) { |line| file.print line } end end @@ -105,4 +102,5 @@ alias_command :mkcl, :mkchangelog alias_command :cl, :changelog -end # class Rcs +end # class Vcs + Index: vcs/src/prcs.rb --- vcs/src/prcs.rb (revision 114) +++ vcs/src/prcs.rb (working copy) @@ -5,9 +5,9 @@ # $LastChangedBy: ertai $ # $Id: header 98 2004-09-29 12:07:43Z ertai $ -require 'rcs' +require 'vcs' -class Prcs < Rcs +class Prcs < Vcs def initialize ( aCmd='prcs' ) super Index: vcs/src/rcs.rb --- vcs/src/rcs.rb (revision 114) +++ vcs/src/rcs.rb (working copy) @@ -48,7 +48,7 @@ end # class Class -# The abstract class for a Rcs wrapper. +# The abstract class for a Vcs wrapper. # Conventions: # example: # svn checkout http://foo.bar/proj # normal command @@ -59,7 +59,7 @@ # checkout! # checkout_! # -class Rcs +class Vcs class Failure < Exception end @@ -151,5 +151,5 @@ alias_command :checkin, :commit alias_command :populate, :add -end # class Rcs +end # class Vcs Index: vcs/src/cvs.rb --- vcs/src/cvs.rb (revision 114) +++ vcs/src/cvs.rb (working copy) @@ -5,9 +5,9 @@ # $LastChangedBy: ertai $ # $Id: header 98 2004-09-29 12:07:43Z ertai $ -require 'rcs' +require 'vcs' -class Cvs < Rcs +class Cvs < Vcs def initialize ( aCmd='cvs' ) super Index: vcs/src/news.rb --- vcs/src/news.rb (revision 114) +++ vcs/src/news.rb (working copy) @@ -8,7 +8,7 @@ require 'tools' require 'message' -class Rcs +class Vcs @@news = Pathname.new(',news') @@ -76,4 +76,4 @@ StringIO.new('News: Sent.') end -end # class Rcs +end # class Vcs Index: vcs/bin/rcsw --- vcs/bin/rcsw (revision 114) +++ vcs/bin/rcsw (working copy) @@ -13,20 +13,26 @@ require 'pathname' -RCSW_PATH = Pathname.new(__FILE__).expand_path -RCSW_DIR, RCSW = RCSW_PATH.split -SRC = RCSW_DIR + '..' + 'src' +VCS_PATH = Pathname.new(__FILE__).expand_path +VCS_DIR, VCS = VCS_PATH.split +SRC = VCS_DIR + '..' + 'src' $: << SRC if ARGV == ['--mk-alias'] - %w[ svn cvs prcs ].each { |x| puts "alias #{x}=#{RCSW_PATH}" } + %w[ svn cvs prcs ].each { |x| puts "alias #{x}=#{VCS_PATH}" } exit end -$debug = ENV['RCSW_DEBUG'].to_i +$debug = ENV['VCS_DEBUG'].to_i -FULLNAME = ENV['FULLNAME'] || (Etc.getpwnam ENV['USER']).gecos +if ENV.has_key? 'FULLNAME' + FULLNAME = ENV['FULLNAME'] +else + require 'etc' + FULLNAME = (Etc.getpwnam ENV['USER']).gecos + STDERR.warn "Need FULLNAME in the environement (default: #{FULLNAME})" +end EMAIL = ENV['EMAIL'] FULL_EMAIL = "#{FULLNAME} <#{EMAIL}>" if FULLNAME.nil? or EMAIL.nil? @@ -36,7 +42,7 @@ Pathname.glob(SRC + '*.rb') do |file| puts file.basename if $debug > 4 - require file + require file.basename end def guess_rcs Index: rcs-wrapper/src/revision.rb --- rcs-wrapper/src/revision.rb (revision 113) +++ rcs-wrapper/src/revision.rb (working copy) @@ -1,19 +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 'svn' -require 'stringio' - -class Svn - - def revision ( *args ) - StringIO.new(info.readlines.grep(/^Revision:/)[0].sub(/^Revision: /, '')) - end - - alias_command :rev, :revision - -end # class Svn Index: rcs-wrapper/src/mycommit.rb --- rcs-wrapper/src/mycommit.rb (revision 113) +++ rcs-wrapper/src/mycommit.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 'rcs' - -class Rcs - - def edit! ( *files ) - system(ENV['EDITOR'], *files) - end - - def common_commit! ( *args ) - - begin - changelog!(*args) - rescue MustBeFilled => ex - edit! ex.file - end - - message!(*args) - - edit! @@message - - changelog!(*args) - - #pager! diff - #pager! status - - args << 'ChangeLog' unless args.grep(/^[^-]/).empty? - - commit!(*args) - - return self.revision.readline.to_i - - end - protected :common_commit! - - - def lrdetools_commit! ( s, *args ) - - rev = common_commit!(*args) - - s = "LT #{rev}: #{s}" - - news(:groups => ['lrde.proj'], :subject => s) - - @@message.delete - - end - alias_command :ltci, :lrdetools_commit - - def test_commit! ( s, *args ) - - rev = common_commit!(*args) - - s = "Test #{rev}: #{s}" - -# news(:groups => ['local.test'], :subject => s) - mail(:to => ['ertai(a)lrde.epita.fr'], :subject => s) - - @@message.delete - - end - -end # class Rcs Index: rcs-wrapper/src/tools.rb --- rcs-wrapper/src/tools.rb (revision 113) +++ rcs-wrapper/src/tools.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). - -# $LastChangedBy: ertai $ -# $Id: header 98 2004-09-29 12:07:43Z ertai $ - - -module WarnAndError - - def warn ( aString ) - print "#{RCSW}: warning: ", aString, "\n" - end - - def error ( aString ) - print "#{RCSW}: error: ", aString, "\n" - end - - def debug ( aString ) - print "#{RCSW}: debug: ", aString, "\n" - end - -end # module WarnAndError - - -class IO - include WarnAndError -end # class IO - - -require 'stringio' -class StringIO - include WarnAndError -end # class StringIO - - -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: rcs-wrapper/src/mail.rb --- rcs-wrapper/src/mail.rb (revision 113) +++ rcs-wrapper/src/mail.rb (working copy) @@ -1,77 +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 'rcs' -require 'tools' - -class Rcs - - @@mail = Pathname.new(',mail') - - def parse_mail_options ( *args ) - require 'optparse' - result = - { - :from => FULL_EMAIL, - :to => [], - :server => ENV['SMTPSERVER'] || 'localhost', - } - if !args.nil? and !args.empty? and args[0].is_a?(Hash) - args[0].each do |k,v| - result[k] = v - end - return result - end - OptionParser.new do |opts| - opts.separator '' - opts.on('-t', '--mail-to NAME', 'Choose a recipient') do |aString| - result[:to] << aString - end - opts.on('-s', '--server NAME', 'Choose a mail server') do |aString| - result[:server] = aString - end - opts.on('-S', '--subject NAME', 'Choose your mail 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 recipents' if result[:to].empty? - raise Failure, 'No mail server' if result[:server].nil? - raise Failure, 'No mail subject' if result[:subject].nil? - result - end - protected :parse_mail_options - - # - # Mail. - # - def mail ( *args ) - - print_body(@@mail, parse_mail_options(*args)) unless @@mail.exist? - - @@mail.open('r') do |file| - opt = YAML::chop_header(file) - STDERR.puts "Smtp Server: #{opt[:server]}" - require 'net/smtp' - Net::SMTP.start(opt[:server], 25) do |smtp| - smtp.open_message_stream(EMAIL, opt[:to]) do |f| - f.print "From: #{opt[:from]}\n" - f.print "Subject: #{opt[:subject]}\n" - f.print "To: #{opt[:to].join(', ')}\n" - f.print "\n" - file.each { |line| f.print line } - end - end - end - @@mail.delete - StringIO.new('Mail: Sent.') - end - -end # class Rcs Index: rcs-wrapper/src/message.rb --- rcs-wrapper/src/message.rb (revision 113) +++ rcs-wrapper/src/message.rb (working copy) @@ -1,44 +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 'rcs' -require 'changelog' - -class Rcs - - @@message = Pathname.new(',message') - - def print_body ( file, options ) - STDERR.warn "Creating a new `#{file}' file" - file.open('w') do |f| - f.puts options.to_yaml - f.puts '---' - f.puts - message.each do |line| - f.print line - end - end - end - private :print_body - - def message ( *args ) - unless @@message.exist? - cl = mkchangelog(*args) - @@message.open('w') do |f| - f.puts 'Index: ChangeLog' - cl.each { |line| f.print line.sub(/^\d+-\d+-\d+/, 'from') } - f.puts - # FIXME: need to remove the ChangeLog entry in diff. - diff(*args).each { |line| f.print line unless line =~ /^=+$/ } - end - end - @@message.open('r') - end - - alias_command :msg, :message - -end # class Rcs Index: rcs-wrapper/src/svn.rb --- rcs-wrapper/src/svn.rb (revision 113) +++ rcs-wrapper/src/svn.rb (working copy) @@ -1,41 +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 'rcs' -require 'tools' - -class Svn < Rcs - - class Failure < Rcs::Failure - end - - def initialize ( aCmd='svn' ) - super - end - - %w[ blame copy list move switch revert info - propdel propget proplist propset mkdir ].each do |m| - add_basic_method(m) - end - - add_basic_method!(:propedit) - - def commit! ( *args ) - - changelog! - - if run!('commit', '--non-interactive', '-F', @@add_cl, *args) - STDERR.puts "Deleting junk files..." - @@add_cl.delete - @@tmp_cl.delete if @@tmp_cl.exist? - else - raise Failure, 'commit failed' - end - - end - -end # class Svn Index: rcs-wrapper/src/changelog.rb --- rcs-wrapper/src/changelog.rb (revision 113) +++ rcs-wrapper/src/changelog.rb (working copy) @@ -1,108 +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 'rcs' -require 'svn' - -class Svn - - @@file_st = - { - 'A' => 'New', - 'D' => 'Remove', - 'M' => '' - } - - @@prop_st = - { - 'M' => 'Changed property' - } - - def mkchangelog_from_status ( *args ) - result = {} - status(*args).each do |line| - line =~ /^(.)(.).(.).\s*(.*)$/ - if $1 != '?' - file_st, prop_st, copy_st, file = @@file_st[$1], @@prop_st[$2], $3, $4 - str = '' - str += file_st if file_st - str += (file_st.nil?) ? prop_st : (', ' + prop_st.downcase) if prop_st - result[file] = str - end - end - raise Failure, 'No changes, so no ChangeLog entry.' if result.empty? - result - end - private :mkchangelog_from_status - -end # class Svn - -class Rcs - - @@cl = Pathname.new('ChangeLog') - @@add_cl = Pathname.new(',ChangeLog') - @@tmp_cl = Pathname.new(',,ChangeLog') - - 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 ) - 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) - STDERR.warn "Creating a new `#{cl}' file" - cl.open('w') do |f| - f.puts '=== Fill this file correctly and remove this line ===' - f.puts `date +"%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 changelog! ( *args ) - unless @@cl.exist? - raise Failure, 'No ChangeLog, you are probably not in a valid directory.' - end - - if cl = mkchangelog(*args) - - unless @@tmp_cl.exist? - STDERR.warn "Move ChangeLog to `#{@@tmp_cl}'" - @@cl.rename(@@tmp_cl) - end - - @@cl.open('w') do |file| - cl.each { |line| file.print line } - file.puts - IO.foreach(@@tmp_cl) { |line| file.print line } - end - - end - end - - alias_command :mkcl, :mkchangelog - alias_command :cl, :changelog - -end # class Rcs Index: rcs-wrapper/src/prcs.rb --- rcs-wrapper/src/prcs.rb (revision 113) +++ rcs-wrapper/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 'rcs' - -class Prcs < Rcs - - def initialize ( aCmd='prcs' ) - super - end - - %w[ admin ].each do |m| - add_basic_method(m) - end - -end # class Prcs - Index: rcs-wrapper/src/rcs.rb --- rcs-wrapper/src/rcs.rb (revision 113) +++ rcs-wrapper/src/rcs.rb (working copy) @@ -1,155 +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 $ - -class Class # :nodoc: - - def 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 - - def 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 - - def alias_command ( m1, m2 ) - 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 - -end # class Class - -# The abstract class for a Rcs wrapper. -# Conventions: -# example: -# svn checkout http://foo.bar/proj # normal command -# xrcs checkout http://foo.bar/proj # normal -# -# checkout -# checkout_ -# checkout! -# checkout_! -# -class Rcs - - class Failure < Exception - end - - def initialize ( aCmd ) - @cmd = aCmd - end - - def common_run ( args ) - cmd = @cmd + ' ' + args.join(' ') - STDERR.debug "running: #{cmd}" if $debug > 1 - cmd - end - private :common_run - - def run ( *args ) - IO.popen(common_run(args)) - end - - def run! ( *args ) - system(common_run(args)) - end - - %w[ checkout delete diff help status log add update ].each do |m| - add_basic_method(m) - end - - add_basic_method!(:commit) - - def method_missing ( meth, *args ) - meth = meth.to_s - if meth =~ /^(.*)!$/ - if respond_to? $1 - send($1, *args).each do |line| - puts line - end - else - STDERR.warn "unknown method #{meth}" - run!($1.sub(/_$/, ''), *args) - end - else - STDERR.warn "unknown method #{meth}" - run(meth.sub(/_$/, ''), *args) - 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 :remove, :delete - alias_command :rm, :delete - alias_command :rfreeze, :rtag - alias_command :freeze, :tag - - # Prcs Alias - alias_command :checkin, :commit - alias_command :populate, :add - -end # class Rcs - Index: rcs-wrapper/src/cvs.rb --- rcs-wrapper/src/cvs.rb (revision 113) +++ rcs-wrapper/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 'rcs' - -class Cvs < Rcs - - def initialize ( aCmd='cvs' ) - super - end - - %w[ rdiff rtag tag ].each do |m| - add_basic_method(m) - end - -end # class Cvs - Index: rcs-wrapper/src/news.rb --- rcs-wrapper/src/news.rb (revision 113) +++ rcs-wrapper/src/news.rb (working copy) @@ -1,79 +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 'tools' -require 'message' - -class Rcs - - @@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) - args[0].each do |k,v| - result[k] = v - end - return result - 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 - 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 - - # - # Post the news. - # - def news ( *args ) - print_body(@@news, parse_news_options(*args)) unless @@news.exist? - - @@news.open('r') do |file| - opt = YAML::chop_header(file) - STDERR.puts "Nntp Server: #{opt[:server]}" - require 'socket' - TCPSocket.open(opt[:server], 119) do |f| - f.puts 'post' - 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 '.' - f.puts 'quit' - end - end - @@news.delete - StringIO.new('News: Sent.') - end - -end # class Rcs Index: rcs-wrapper/bin/rcsw --- rcs-wrapper/bin/rcsw (revision 113) +++ rcs-wrapper/bin/rcsw (working copy) @@ -1,75 +0,0 @@ -#!/usr/bin/env ruby -# 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 $ - - -# rcsw : The rcs wrapper. -# -# rcsw is a wrapper over any revision control system. - -require 'pathname' - -RCSW_PATH = Pathname.new(__FILE__).expand_path -RCSW_DIR, RCSW = RCSW_PATH.split -SRC = RCSW_DIR + '..' + 'src' -$: << SRC - - -if ARGV == ['--mk-alias'] - %w[ svn cvs prcs ].each { |x| puts "alias #{x}=#{RCSW_PATH}" } - exit -end - -$debug = ENV['RCSW_DEBUG'].to_i - -FULLNAME = ENV['FULLNAME'] || (Etc.getpwnam ENV['USER']).gecos -EMAIL = ENV['EMAIL'] -FULL_EMAIL = "#{FULLNAME} <#{EMAIL}>" -if FULLNAME.nil? or EMAIL.nil? - STDERR.error 'Need FULLNAME and EMAIL in the environement' - exit -end - -Pathname.glob(SRC + '*.rb') do |file| - puts file.basename if $debug > 4 - require file -end - -def guess_rcs - if Pathname.new('CVS').directory? - Cvs - elsif Pathname.new('.svn').directory? - Svn - elsif Pathname.new('prj').exist? - Prcs - else - raise ArgumentError, 'Can\'t guess your RCS system' - end -end - -def main - rcs = guess_rcs().new - - if ARGV.empty? - meth = :help! - else - meth = ARGV.shift.sub(/([^!])$/, '\1!') - end - - begin - rcs.send(meth, *ARGV) - rescue Exception - raise if $debug > 0 - STDERR.error $!.to_s.sub(/\.$/, '') unless $!.to_s == 'exit' - end -end - -if __FILE__ == $0 - - main() - -end Index: rcs-wrapper/README --- rcs-wrapper/README (revision 113) +++ rcs-wrapper/README (working copy) @@ -1,100 +0,0 @@ ---- - -Intro: > - Bon voilà je n'ai pas trop le temps en ce moment de m'occuper de cet outil. - Il est bien commencé et à mon goût déjà utilisable. - - Je vais continuer à le debugger, mais en attendant vous pouvez vous amuser - avec. - - C'est un wrapper pour les systèmes de versions comme Svn, Cvs, Prcs, Arch... - - Il permet donc au minimum de faire tout ce que le système sous-jacent propose, - mais l'avantage est de pouvoir l'étendre facilement. - -Exemples d'utilisation: - - - Pour plus de transparence on va faire des alias: - genre: alias svn=...../rcsw, idem pour cvs, prcs... - pour cela taper simplement: > - `le_chemin_vers_rcsw/bin/rcsw --mk-alias` - - - Les commandes de svn fonctionnent toujours: > - placez vous dans un répertoire svn. - - ex: svn status - - - Les commandes de base peuvent être surchargées: > - par exemple `svn commit' a un comportement non interactif par défaut. - - Mais l'on peut tout de même appeler le véritable `svn commit'. - - Pour cela il y a une convention: toutes les méthodes terminant par `_' - sont directement celles du système. - - Avec cela on peut vérifier que l'outil est bien devant le vrai svn: - svn status_ - - - Quelques fonctionnalités: - - - Un des principaux avantages est la gestion des erreurs: > - - Par exemple on utilise une commande qui commit puis poste une news. - Si le commit réussit et que la news ne passe pas, il suffit de - relancer l'envoi de la news: svn news - - En effet chaque méthode peut conserver des fichiers, ces fichiers - commencent par `,'. - - - Les alias de méthodes: > - - Tout comme svn et cvs il existe des raccourcis pour certaines méthodes - et bien sûr lorsque l'on surcharge une méthode, le raccourci pointe - vers la nouvelle méthode. - - - Quelques nouvelles méthodes: - - - svn revision: Renvoie le numéro de révision courante - alias: rev - - - svn mkchangelog: Génère une entrée de ChangeLog à partir de `status' - alias: mkcl - - - svn changelog: Concatène la nouvelle entrée au véritable ChangeLog - alias: cl - - - svn message: Crée le contenu du message du mail ou de la news - alias: msg - - - svn mail: Envoie un mail. - - - svn news: Poste une news. - - - Plus facile d'écrire des scripts: > - - Lorsque l'on veut automatiser un traitement fait avec un Rcs, - il est généralement plus simple de le faire en script shell - lorsque cela n'excède pas une dixaine de lignes. Après cela certains - avantages des langages de script évolués nous manquent. - Pourtant certaines choses très faciles peuvent devenir plus lourdes: - svn commit => system("svn commit") - - Heureusement avec le modèle objet déjà posé cela devient plus - raisonnable, comparez par exemple: - - svn commit => svn.commit - - svn info | grep '^Revision' | sed s/^Revision: // - - => - - svn.info.readlines.grep(/^Revision/)[0].sub(/^Revision: /, '').to_i - - - Exemple final: commit complet pour les lrde tools. - - commande: svn lrdetools_commit 'votre sujet pour la news' - - ensuite: laissez vous guider. - - - S'il y a des questions il y aura des réponses. -

2 1

LT 118: Rename to vcs (2/2)
by Nicolas Pouillard 24 Oct '04

24 Oct '04

Index: ChangeLog from Nicolas Pouillard <ertai(a)lrde.epita.fr> * vcs/src/rcs.rb: Rename to ... * vcs/src/vcs.rb: ... this. * vcs/bin/rcsw: Rename to ... * vcs/bin/vcs: ... this. Index: vcs/src/rcs.rb --- vcs/src/rcs.rb (revision 117) +++ vcs/src/rcs.rb (working copy) @@ -1,155 +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 $ - -class Class # :nodoc: - - def 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 - - def 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 - - def alias_command ( m1, m2 ) - 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 - -end # class Class - -# The abstract class for a Vcs wrapper. -# Conventions: -# example: -# svn checkout http://foo.bar/proj # normal command -# xrcs checkout http://foo.bar/proj # normal -# -# checkout -# checkout_ -# checkout! -# checkout_! -# -class Vcs - - class Failure < Exception - end - - def initialize ( aCmd ) - @cmd = aCmd - end - - def common_run ( args ) - cmd = @cmd + ' ' + args.join(' ') - STDERR.debug "running: #{cmd}" if $debug > 1 - cmd - end - private :common_run - - def run ( *args ) - IO.popen(common_run(args)) - end - - def run! ( *args ) - system(common_run(args)) - end - - %w[ checkout delete diff help status log add update ].each do |m| - add_basic_method(m) - end - - add_basic_method!(:commit) - - def method_missing ( meth, *args ) - meth = meth.to_s - if meth =~ /^(.*)!$/ - if respond_to? $1 - send($1, *args).each do |line| - puts line - end - else - STDERR.warn "unknown method #{meth}" - run!($1.sub(/_$/, ''), *args) - end - else - STDERR.warn "unknown method #{meth}" - run(meth.sub(/_$/, ''), *args) - 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 :remove, :delete - alias_command :rm, :delete - alias_command :rfreeze, :rtag - alias_command :freeze, :tag - - # Prcs Alias - alias_command :checkin, :commit - alias_command :populate, :add - -end # class Vcs - Index: vcs/bin/rcsw --- vcs/bin/rcsw (revision 117) +++ vcs/bin/rcsw (working copy) @@ -1,81 +0,0 @@ -#!/usr/bin/env ruby -# 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 $ - - -# rcsw : The rcs wrapper. -# -# rcsw is a wrapper over any revision control system. - -require 'pathname' - -VCS_PATH = Pathname.new(__FILE__).expand_path -VCS_DIR, VCS = VCS_PATH.split -SRC = VCS_DIR + '..' + 'src' -$: << SRC - - -if ARGV == ['--mk-alias'] - %w[ svn cvs prcs ].each { |x| puts "alias #{x}=#{VCS_PATH}" } - exit -end - -$debug = ENV['VCS_DEBUG'].to_i - -if ENV.has_key? 'FULLNAME' - FULLNAME = ENV['FULLNAME'] -else - require 'etc' - FULLNAME = (Etc.getpwnam ENV['USER']).gecos - STDERR.warn "Need FULLNAME in the environement (default: #{FULLNAME})" -end -EMAIL = ENV['EMAIL'] -FULL_EMAIL = "#{FULLNAME} <#{EMAIL}>" -if FULLNAME.nil? or EMAIL.nil? - STDERR.error 'Need FULLNAME and EMAIL in the environement' - exit -end - -Pathname.glob(SRC + '*.rb') do |file| - puts file.basename if $debug > 4 - require file.basename -end - -def guess_rcs - if Pathname.new('CVS').directory? - Cvs - elsif Pathname.new('.svn').directory? - Svn - elsif Pathname.new('prj').exist? - Prcs - else - raise ArgumentError, 'Can\'t guess your RCS system' - end -end - -def main - rcs = guess_rcs().new - - if ARGV.empty? - meth = :help! - else - meth = ARGV.shift.sub(/([^!])$/, '\1!') - end - - begin - rcs.send(meth, *ARGV) - rescue Exception - raise if $debug > 0 - STDERR.error $!.to_s.sub(/\.$/, '') unless $!.to_s == 'exit' - end -end - -if __FILE__ == $0 - - main() - -end

1 0

[lrde-deb: 40] Add python-syck for tiger.
by Clement Vasseur 22 Oct '04

22 Oct '04

Index: ChangeLog from Clement Vasseur <clement.vasseur(a)lrde.epita.fr> * pkg/deb.pkg: Use automake 1.9. * pkg/tiger.pkg: Add python-syck. Index: pkg/deb.pkg --- pkg/deb.pkg (revision 39) +++ pkg/deb.pkg (working copy) @@ -13,7 +13,7 @@ subversion-tools netcat autoconf -automake1.8 +automake1.9 ispell distcc locales Index: pkg/tiger.pkg --- pkg/tiger.pkg (revision 39) +++ pkg/tiger.pkg (working copy) @@ -7,7 +7,7 @@ # To build the package. autoconf -automake1.8 +automake1.9 # To build the binary. flex @@ -15,6 +15,7 @@ valgrind gcc g++ +python-syck # To build the doc. doxygen -- Clement Vasseur <clement.vasseur(a)lrde.epita.fr> Auto posted by lrde-deb/build.sh

1 0

LT 116: svndiff: diffstat
by Akim Demaille 22 Oct '04

22 Oct '04

https://svn.lrde.epita.fr/svn/lrde-tools/trunk ChangeLog | 5 +++++ prcs2svn/prcs2svn.py | 1 - src/svndiff | 14 ++++++++++++-- 3 files changed, 17 insertions(+), 3 deletions(-) Index: ChangeLog from Akim Demaille <akim(a)epita.fr> * src/svndiff: Report the svn repository location, and diffstat's report. Index: src/svndiff --- src/svndiff (revision 115) +++ src/svndiff (working copy) @@ -1,6 +1,13 @@ #!/bin/sh -svn diff --diff-cmd "`which diff`" -x "-w -u" $@ | sed -e "# do not try this at home ! +{ + svn info | sed -n '/^URL: /{s///;p;q;}' + echo + svn diff --diff-cmd "`which diff`" -x "-w -u" $@ >$$.diffs + # Don't fail if missing. + diffstat $$.diffs 2>/dev/null + echo + sed $$.diffs -e "# do not try this at home ! /^Index: .*ChangeLog\$/{ n N @@ -56,4 +63,7 @@ p } H -d" | tee diffs.patch +d" +} | tee diffs.patch + +rm $$.diffs

1 0

LT 116: svndiff: diffstat
by Akim Demaille 22 Oct '04

22 Oct '04

The following message is a courtesy copy of an article that has been posted to lrde.proj as well. https://svn.lrde.epita.fr/svn/lrde-tools/trunk ChangeLog | 5 +++++ prcs2svn/prcs2svn.py | 1 - src/svndiff | 14 ++++++++++++-- 3 files changed, 17 insertions(+), 3 deletions(-) Index: ChangeLog from Akim Demaille <akim(a)epita.fr> * src/svndiff: Report the svn repository location, and diffstat's report. Index: src/svndiff --- src/svndiff (revision 115) +++ src/svndiff (working copy) @@ -1,6 +1,13 @@ #!/bin/sh -svn diff --diff-cmd "`which diff`" -x "-w -u" $@ | sed -e "# do not try this at home ! +{ + svn info | sed -n '/^URL: /{s///;p;q;}' + echo + svn diff --diff-cmd "`which diff`" -x "-w -u" $@ >$$.diffs + # Don't fail if missing. + diffstat $$.diffs 2>/dev/null + echo + sed $$.diffs -e "# do not try this at home ! /^Index: .*ChangeLog\$/{ n N @@ -56,4 +63,7 @@ p } H -d" | tee diffs.patch +d" +} | tee diffs.patch + +rm $$.diffs

1 0