diff options
author | John Ankarström <john@ankarstrom.se> | 2021-07-12 13:24:49 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2021-07-12 13:27:07 +0200 |
commit | 03d827e2fbc409ef97829f25b8eeca5204f81a3c (patch) | |
tree | 6099f0feb9adf3425fba87549b164043e18bd0c7 /isort | |
parent | 45cddd072119c5abd7ec076cf28d51ee01f125b7 (diff) | |
download | xutil-03d827e2fbc409ef97829f25b8eeca5204f81a3c.tar.gz |
Re-organize files
Diffstat (limited to 'isort')
-rwxr-xr-x | isort | 21 |
1 files changed, 0 insertions, 21 deletions
@@ -1,21 +0,0 @@ -#!/usr/bin/perl -p - -# isort -- sort C variable declarations separated by commas - -# Extract words, save prefix. -s/([^,]*?)(\S+[,;])/$2/; -$prefix = $1; - -# Ensure all words end with comma. -$semicolon = s/;$/,/; - -# Sort words. -@words = sort { - ($x = $a) =~ s/^\*+//; - ($y = $b) =~ s/^\*+//; - $x cmp $y -} split /\s+/; - -# Join words, add prefix and semicolon. -$_ = $prefix . (join ' ', @words) . "\n"; -s/,$/;/ if $semicolon; |