blob: 966a451c060c4d959aa73ccfee397b9b9f7ff80c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
{ stdenv, lib, glibcLocales, unzip, hasktags, ctags } : {
# optional srcDir
annotatedWithSourceAndTagInfo = x : (x ? passthru && x.passthru ? sourceWithTags
|| x ? meta && x.meta ? sourceWithTags );
# hack because passthru doesn't work the way I'd expect. Don't have time to spend on this right now
# that's why I'm abusing meta for the same purpose in ghcsAndLibs
sourceWithTagsFromDerivation = x : if x ? passthru && x.passthru ? sourceWithTags then x.passthru.sourceWithTags
else if x ? meta && x.meta ? sourceWithTags then x.meta.sourceWithTags
else null;
# createTagFiles = [ { name = "my_tag_name_without_suffix", tagCmd = "ctags -R . -o \$TAG_FILE"; } ]
# tag command must create file named $TAG_FILE
sourceWithTagsDerivation = {name, src, srcDir ? ".", tagSuffix ? "_tags", createTagFiles ? []} :
stdenv.mkDerivation {
phases = "unpackPhase buildPhase";
inherit src srcDir tagSuffix;
name = "${name}-source-with-tags";
nativeBuildInputs = [ unzip ];
# using separate tag directory so that you don't have to glob that much files when starting your editor
# is this a good choice?
buildPhase =
let createTags = lib.concatStringsSep "\n"
(map (a: ''
TAG_FILE="$SRC_DEST/${a.name}$tagSuffix"
echo running tag cmd "${a.tagCmd}" in `pwd`
${a.tagCmd}
TAG_FILES="$TAG_FILES''${TAG_FILES:+:}$TAG_FILE"
'') createTagFiles );
in ''
SRC_DEST=$out/src/$name
mkdir -p $SRC_DEST
pwd; ls
cp -r $srcDir $SRC_DEST
cd $SRC_DEST
${createTags}
mkdir -p $out/nix-support
echo "TAG_FILES=\"\$TAG_FILES\''${TAG_FILES:+:}$TAG_FILES\"" >> $out/nix-support/setup-hook
'';
};
# example usage
#testSourceWithTags = sourceWithTagsDerivation (ghc68extraLibs ghcsAndLibs.ghc68).happs_server_darcs.passthru.sourceWithTags;
# creates annotated derivation (comments see above)
addHasktagsTaggingInfo = deriv : deriv // {
passthru = {
sourceWithTags = {
inherit (deriv) src;
srcDir = if deriv ? srcDir then deriv.srcDir else ".";
name = deriv.name;
createTagFiles = [
{ name = "${deriv.name}_haskell";
# tagCmd = "${toString ghcsAndLibs.ghc68.ghc}/bin/hasktags --ignore-close-implementation --ctags `find . -type f -name \"*.*hs\"`; sort tags > \$TAG_FILE"; }
# *.*hs.* to catch gtk2hs .hs.pp files
tagCmd = "
srcs=\"`find . -type f -name \"*.*hs\"; find . -type f -name \"*.*hs*\";`\"
[ -z \"$srcs\" ] || {
# without this creating tag files for lifted-base fails
export LC_ALL=en_US.UTF-8
export LANG=en_US.UTF-8
${if stdenv.isLinux then "export LOCALE_ARCHIVE=${glibcLocales}/lib/locale/locale-archive;" else ""}
${toString hasktags}/bin/hasktags --ignore-close-implementation --ctags .
mv tags \$TAG_FILE
}";
}
];
};
};
};
addCTaggingInfo = deriv :
deriv // {
passthru = {
sourceWithTags = {
inherit (deriv) src;
name = "${deriv.name}-source-ctags";
createTagFiles = [
{ inherit (deriv) name;
tagCmd = "${toString ctags}/bin/ctags --sort=yes -o \$TAG_FILE -R ."; }
];
};
}; };
}
/*
experimental
idea:
a) Attach some information to a nexpression telling how to create a tag file which can then be used within your favourite editor
Do this in a way not affecting the expression (using passthru or meta which is ignored when calculating the hash)
implementations: addCTaggingInfo (C / C++) and addHasktagsTaggingInfo (Haskell)
b) use sourceWithTagsDerivation function to create a derivation installing the source along with the generated tag files
so that you can use them easily witihn your favourite text editor
*/
|