public/nixpkgs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Don't sort the helper function sections.

Browse Source 
svn path=/nixpkgs/trunk/; revision=6763
This commit is contained in:
Eelco Dolstra 2006-10-18 14:04:41 +00:00
parent 5fb7ad141c
commit 7ee6cf21ea
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
maintainers/scripts/sort-attrs.str
View File

@ -61,7 +61,7 @@ rules
<map({x', x'', x''', xs', starts, starts': \[x | xs] -> [x''' | xs'] <map({x', x'', x''', xs', starts, starts': \[x | xs] -> [x''' | xs']
where where
<remove-section-start> x => (x', starts); <remove-section-start> x => (x', starts);
<map(regularise-empty-lines); qsort(compare-attrs)> [x' | xs] => [x'' | xs']; <map(regularise-empty-lines); if !starts; debug; sortable-section; debug then qsort(compare-attrs) else id end> [x' | xs] => [x'' | xs'];
<[] <+ \x -> ["\n\n\n" | x]\ > starts => starts'; <[] <+ \x -> ["\n\n\n" | x]\ > starts => starts';
<prepend-layout> (starts', x'') => x''' <prepend-layout> (starts', x'') => x'''
\ })> groups => attrs'; \ })> groups => attrs';
@ -79,9 +79,12 @@ strategies
<implode-string; is-substring(!"###")> cs; <implode-string; is-substring(!"###")> cs;
!x !x
rules rules
sortable-section = ?[s]; !s; explode-string; not(fetch({x: ?x; !(x, 97); geq}))
remove-section-start: remove-section-start:
(appl(prod([cf(layout())], cf(opt(layout())), no-attrs()), cs), attr) -> (appl(prod([cf(layout())], cf(opt(layout())), no-attrs()), cs), attr) ->
((appl(prod([cf(layout())], cf(opt(layout())), no-attrs()), cs'), attr), starts) ((appl(prod([cf(layout())], cf(opt(layout())), no-attrs()), cs'), attr), starts)