[Pkg-jed-commit] r166 - in trunk/packages/jed-extra: . debian utils
Guenter Milde
milde-guest at costa.debian.org
Thu Nov 10 08:15:00 UTC 2005
Author: milde-guest
Date: 2005-11-10 08:14:59 +0000 (Thu, 10 Nov 2005)
New Revision: 166
Added:
trunk/packages/jed-extra/utils/
trunk/packages/jed-extra/utils/build-orig.tar_gz
trunk/packages/jed-extra/utils/sort-modes.sl
Removed:
trunk/packages/jed-extra/build-orig.tar_gz
trunk/packages/jed-extra/debian/sort-modes.sl
Log:
utils: directory for helper scripts that should not go into the source package
build-orig.tar_gz: obsoleted by the 'get-orig-source' clause in 'rules'
but kept here for the record
Deleted: trunk/packages/jed-extra/build-orig.tar_gz
===================================================================
--- trunk/packages/jed-extra/build-orig.tar_gz 2005-11-10 08:03:47 UTC (rev 165)
+++ trunk/packages/jed-extra/build-orig.tar_gz 2005-11-10 08:14:59 UTC (rev 166)
@@ -1,55 +0,0 @@
-#!/bin/sh
-
-set -e
-
-if [ $# -eq 0 ]; then
- echo "usage: $(basename $0) version [cvs-date] (e.g. \"1.2 2005-07-08\")"
- exit 1
-fi
-
-VER=$1 # 1.2
-DATE=$2 # 2005-07-08
-
-# cvs -d:pserver:anonymous at cvs.sourceforge.net:/cvsroot/jedmodes export \
-# ${DATE:+-D$DATE} mode
-cp -r ~/programmieren/mode/ .
-mv mode jed-extra-$VER
-
-cd jed-extra-$VER
-
-checker() { sed 1,/^[^%]/p $1 | grep -Eq 'GPL|GNU General Public License'; }
-no_gpl=
-for i in *; do
- [ -d $i ] || continue;
- if [ -f $i/$i.sl ]; then
- if ! checker $i/$i.sl; then
- case $i in
- bufed|calc|custmode|email|jedasp|keywords|sql|tar|temabbrv)
- echo "($i misses the gpl licence note)";;
- *) echo "$i not gpl"; no_gpl=1;;
- esac
- fi;
- else
- for j in $i/*.sl; do
- if ! checker $j; then
- echo "$j not gpl"
- no_gpl=1
- fi
- done
- fi
-done
-
-cd ..
-
-if [ -n "$no_gpl" ]; then
- echo
- echo "There is at least one file with unsettled copyright"
- printf "Continue [y/N] "
- read choise
- case "$choise" in
- y|Y) ;;
- *) exit 2;;
- esac
-fi
-
-tar -czf jed-extra_$VER.orig.tar.gz jed-extra-$VER
Deleted: trunk/packages/jed-extra/debian/sort-modes.sl
===================================================================
--- trunk/packages/jed-extra/debian/sort-modes.sl 2005-11-10 08:03:47 UTC (rev 165)
+++ trunk/packages/jed-extra/debian/sort-modes.sl 2005-11-10 08:14:59 UTC (rev 166)
@@ -1,149 +0,0 @@
-% TODO?: slsh or jed-script shebang line
-
-_debug_info = 1;
-
-% Semi-Constants
-% --------------
-%
-% customize these ...
-
-% the list of modes and their categories
-private variable modelist = "jedmodes-list.txt";
-
-private variable orig_dir = "jed-extra-1.2";
-
-% the dir to build the package. New Maintainer guide recomments tmp
-private variable build_dir = "tmp";
-%these will become subdirs of `build_dir'
-private variable lib_dir = "/usr/share/jed/jed-extra";
-private variable colors_dir = path_concat(lib_dir, "colors");
-private variable drop_in_dir = path_concat(lib_dir, "drop-in");
-
-private variable verbose = 1;
-% Types
-% -----
-%
-% *A*ddition *C*olor *D*rop-In *E*nhancement
-% *O*bsolete *U*tils e*X*perimental (or e*X*otic)
-
-private variable destinations = Assoc_Type[String_Type, ""];
-destinations["A"] = lib_dir;
-destinations["C"] = colors_dir;
-destinations["D"] = drop_in_dir;
-destinations["E"] = lib_dir;
-destinations["U"] = lib_dir;
-
-
-% Main
-% ----
-
-% Variables for internale use
-private variable cwd=getcwd(), rv, line, mode, file, dest, fp;
-private variable category, modes = Assoc_Type[String_Type, ""];
-
-% Preparation
-% -----------
-
-rv = chdir(buffer_dirname());
-show(getcwd);
-% set up a working directory hierarchy
-
-% create a dir under build-dir, creating parent dirs on the fly (as `mkdir -p`)
-static define mk_build_dir(dir)
-{
- variable d, path="";
- % prepend the build dir and parse
- dir = [build_dir, strtok(dir, "/")];
- % show(dir);
- foreach (dir)
- {
- d = ();
- path = path_concat(path, d);
- if (file_status(path) != 2)
- rv = mkdir(path);
- }
- if (rv != 0)
- vshow("error creating '%s', %s", path, errno_string());
-}
-
-mk_build_dir(""); % create build_dir itself
-mk_build_dir(lib_dir);
-mk_build_dir(colors_dir);
-mk_build_dir(drop_in_dir);
-
-
-% read in modelist
-% ----------------
-
-% 'modelist' contains a list of modes at Jedmodes and their categorization.
-
-fp = fopen(modelist, "r");
-if (fp == NULL)
- verror("fopen %s failed, %s", modelist, errno_string());
-
-while (-1 != fgets(&line, fp))
-{
- line = strtok(line);
- % skip comments, empty lines, and continuations
- if (orelse{length(line) < 2 }{line[0] == "#"})
- continue;
- % show(line[0], line[1]);
- modes[line[1]] = line[0];
-}
-
-% show(modes);
-
-rv = fclose(fp);
-
-
-% Sorting
-% -------
-
-% The source files are in subdirs of 'jed-extra-$VER' and should be sorted to
-% 'libdir', colors_dir, and 'drop_in_dir'.
-
-foreach (listdir(orig_dir))
-{
- mode = ();
- category = modes[mode];
- if (andelse{category == ""}{file_status(path_concat(orig_dir, mode)) == 2})
- {
- vshow("skipping: unknown '%s'", mode);
- continue;
- }
- dest = destinations[category];
- if (dest == "")
- {
- if (verbose)
- vshow("skipping: %s '%s'", category, mode);
- continue;
- }
- % prepend the common part of the path
- mode = path_concat(orig_dir, mode);
- dest = path_concat(build_dir, strtrim_beg(dest, "/"));
- % show(mode, dest);
- rv = system(sprintf("cp --backup %s/* %s", mode, dest));
- if (rv == -1 or rv == 127)
- vshow("error copying '%s/*' to '%s', %s", mode, dest, errno_string());
-
- % OS independent SLang variant of sorting
- % foreach (listdir(mode))
- % {
- % file = ();
- % file = path_concat(mode, file);
- % !if (file_status(file))
- % verror("file %s missing %d", file, file_status(file));
- % !if (file_status(dest))
- % verror("dest %s missing %d", dest, file_status(dest));
- % if (verbose)
- % vshow("copying %s", file);
- % rv = copy_file(file,
- % path_concat(dest, file));
- % if (rv == 0)
- % vshow("error copying '%s' to '%s', %s",
- % file, dest, errno_string());
- % }
-}
-
-% reset the working dir
-rv = chdir(cwd);
Copied: trunk/packages/jed-extra/utils/build-orig.tar_gz (from rev 164, trunk/packages/jed-extra/build-orig.tar_gz)
===================================================================
--- trunk/packages/jed-extra/build-orig.tar_gz 2005-11-09 12:49:44 UTC (rev 164)
+++ trunk/packages/jed-extra/utils/build-orig.tar_gz 2005-11-10 08:14:59 UTC (rev 166)
@@ -0,0 +1,58 @@
+#!/bin/sh
+
+# this file is superseded by the get-orig-version clause in 'rules'
+# but kept here for the record
+
+set -e
+
+if [ $# -eq 0 ]; then
+ echo "usage: $(basename $0) version [cvs-date] (e.g. \"1.2 2005-07-08\")"
+ exit 1
+fi
+
+VER=$1 # 1.2
+DATE=$2 # 2005-07-08
+
+# cvs -d:pserver:anonymous at cvs.sourceforge.net:/cvsroot/jedmodes export \
+# ${DATE:+-D$DATE} mode
+cp -r ~/programmieren/mode/ .
+mv mode jed-extra-$VER
+
+cd jed-extra-$VER
+
+checker() { sed 1,/^[^%]/p $1 | grep -Eq 'GPL|GNU General Public License'; }
+no_gpl=
+for i in *; do
+ [ -d $i ] || continue;
+ if [ -f $i/$i.sl ]; then
+ if ! checker $i/$i.sl; then
+ case $i in
+ bufed|calc|custmode|email|jedasp|keywords|sql|tar|temabbrv)
+ echo "($i misses the gpl licence note)";;
+ *) echo "$i not gpl"; no_gpl=1;;
+ esac
+ fi;
+ else
+ for j in $i/*.sl; do
+ if ! checker $j; then
+ echo "$j not gpl"
+ no_gpl=1
+ fi
+ done
+ fi
+done
+
+cd ..
+
+if [ -n "$no_gpl" ]; then
+ echo
+ echo "There is at least one file with unsettled copyright"
+ printf "Continue [y/N] "
+ read choise
+ case "$choise" in
+ y|Y) ;;
+ *) exit 2;;
+ esac
+fi
+
+tar -czf jed-extra_$VER.orig.tar.gz jed-extra-$VER
Copied: trunk/packages/jed-extra/utils/sort-modes.sl (from rev 164, trunk/packages/jed-extra/debian/sort-modes.sl)
More information about the Pkg-jed-commit
mailing list