#!perl -w
# 
# sortparas
# 
# Sort by paragraphs, rather than whole lines.
# 
# -- Ed Avis, epa98@doc.ic.ac.uk, 1999-10-20
# 


$para = '';

while (<>)
{
  s#/\*.*\*/##g;
  tr/\000//d;

  if (/^\s*$/)
  {
    push @paras, $para unless $para eq '';
    $para = '';
  }
  else
  {
    $para .= $_;
  }
}

open(SORT, '| sort -bdfz | tr -d \000');

foreach (@paras)
{
  print SORT $_;
  print SORT "\n";
  print SORT "\000";
}