diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,30 @@ +Copyright (c)2011, Henning Thielemann + +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + + * Redistributions in binary form must reproduce the above + copyright notice, this list of conditions and the following + disclaimer in the documentation and/or other materials provided + with the distribution. + + * Neither the name of Henning Thielemann nor the names of other + contributors may be used to endorse or promote products derived + from this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/darcs-conv-latin-to-utf8 b/darcs-conv-latin-to-utf8 new file mode 100644 --- /dev/null +++ b/darcs-conv-latin-to-utf8 @@ -0,0 +1,5 @@ +for file in `find "$@" -iname "*.hs" -or -iname "*.lhs" | fgrep -v _darcs`; do + echo $file; + iconv -f latin1 -t utf8 $file >/tmp/iconv.hs; + mv /tmp/iconv.hs $file; +done diff --git a/darcs-list-modified b/darcs-list-modified new file mode 100644 --- /dev/null +++ b/darcs-list-modified @@ -0,0 +1,3 @@ +# list modified files in a simple way that is accessible for further processing +# fails if 'darcs mv' was called +darcs whatsnew -s $* | cut -f2 -d' ' diff --git a/darcs-mv-hs b/darcs-mv-hs new file mode 100644 --- /dev/null +++ b/darcs-mv-hs @@ -0,0 +1,8 @@ +oldfile=$1 +newfile=$2 +srcdir=`echo $oldfile | cut -d/ -f1` +oldmod=`echo $oldfile | cut -d/ -f2- | cut -d. -f1 | sed 's:/:.:g'` +newmod=`echo $newfile | cut -d/ -f2- | cut -d. -f1 | sed 's:/:.:g'` + +darcs-replace-rec $oldmod $newmod *.cabal $srcdir +darcs mv $oldfile $newfile diff --git a/darcs-mv-m3 b/darcs-mv-m3 new file mode 100644 --- /dev/null +++ b/darcs-mv-m3 @@ -0,0 +1,3 @@ +darcs replace $1 $2 $1.i3 $1.m3 +darcs mv $1.i3 $2.i3 +darcs mv $1.m3 $2.m3 diff --git a/darcs-mv-mg b/darcs-mv-mg new file mode 100644 --- /dev/null +++ b/darcs-mv-mg @@ -0,0 +1,3 @@ +darcs replace $1 $2 $1.ig $1.mg +darcs mv $1.ig $2.ig +darcs mv $1.mg $2.mg diff --git a/darcs-replace-finitemap b/darcs-replace-finitemap new file mode 100644 --- /dev/null +++ b/darcs-replace-finitemap @@ -0,0 +1,12 @@ +darcs replace Data.FiniteMap Data.Map $1 +darcs replace FiniteMap Map $1 +darcs replace emptyFM Map.empty $1 +darcs replace eltsFM Map.elems $1 +darcs replace keysFM Map.keys $1 +darcs replace fmToList Map.toList $1 +darcs replace listToFM Map.fromList $1 +darcs replace addToFM Map.insert $1 +darcs replace addListToFM Map.union $1 +darcs replace lookupFM Map.lookup $1 +darcs replace lookupWithDefaultFM Map.findWithDefault $1 +darcs replace mapFM Map.mapWithKey $1 diff --git a/darcs-replace-rec b/darcs-replace-rec new file mode 100644 --- /dev/null +++ b/darcs-replace-rec @@ -0,0 +1,3 @@ +# replace identifiers in the modules where they occur +# files are searched recursively in up to 7 directories +grep -rl --fixed-strings $1 $3 $4 $5 $6 $7 $8 $9 | xargs darcs replace $1 $2 diff --git a/darcs-scripts.cabal b/darcs-scripts.cabal new file mode 100644 --- /dev/null +++ b/darcs-scripts.cabal @@ -0,0 +1,73 @@ +Name: darcs-scripts +Version: 0.1 +License: BSD3 +License-File: LICENSE +Author: Henning Thielemann +Maintainer: darcs@henning-thielemann.de +Category: Development +Build-Type: Simple +Cabal-Version: >=1.6 +Synopsis: Shell scripts for support of darcs workflow +Description: + This is a collection of Bash shell scripts + for support of development using the revision control system Darcs. + The scripts are installed in your @cabal/share@ directory, + thus you may extend your command search path accordingly. + . + Within a Darcs working copy you may run: + . + * @editor `darcs-list-modified`@: + Open an editor with all files that are modified + with respect to the current local repository state. + . + * @darcs-replace-rec OLD NEW dirOrFileA dirOrFileB@: + Replace @OLD@ by @NEW@ in all files in @dirOrFileA@ and so on, + that contain @OLD@. + This calls @darcs replace@, that is, + the replacements are managed by Darcs as such. + . + * @darcs-mv-hs src\/Data\/Special.hs src\/Control\/Extra.hs@: + Move the file @src\/Data\/Special.hs@ to @src\/Control\/Extra.hs@ + and replace the according module name + @Data.Special@ by @Control.Extra@ + in all modules in directory @src@ and in the cabal file. + The first component must be a directory for source files. + If you do not have a source directory, you may use @.@, + but then files in @_darcs@ are also addressed, + and Darcs will warn you. + Nested source directories are not supported. + . + * @darcs-conv-latin-to-utf8 dirOrFile ...@: + Convert all files from Latin encoding to UTF8 encoding. + You may easily adapt the script in order + to convert between other encodings. + Instead of using non-ASCII encodings + you may replace non-ASCII symbols by Haskell string escape codes. + . + * @darcs-replace-finitemap@: + Convert old programs from use of @FiniteMap@ to @containers:Data.Map@. + . + * @darcs-mv-m3@ and @darcs-mv-mg@ are for Modula-3 development. + They rename both interface and implementation file of a module + and replace module names accordingly. + +Data-Files: + darcs-conv-latin-to-utf8 + darcs-list-modified + darcs-mv-hs + darcs-mv-m3 + darcs-mv-mg + darcs-replace-finitemap + darcs-replace-rec + +Source-Repository this + Tag: 0.1 + Type: darcs + Location: http://code.haskell.org/~thielema/darcs-scripts/ + +Source-Repository head + Type: darcs + Location: http://code.haskell.org/~thielema/darcs-scripts/ + +Library + Build-Depends: base>=1 && <10