#!/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;