From 03d827e2fbc409ef97829f25b8eeca5204f81a3c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Mon, 12 Jul 2021 13:24:49 +0200
Subject: Re-organize files

---
 etc/isort | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 etc/isort

(limited to 'etc/isort')

diff --git a/etc/isort b/etc/isort
new file mode 100755
index 0000000..eecde11
--- /dev/null
+++ b/etc/isort
@@ -0,0 +1,21 @@
+#!/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;
-- 
cgit v1.2.3