[ViewVC] Contents of: ozone/mgar/gar/bin/specreform

#!/bin/env perl -pln
#
# $Id: specreform 830 2006-09-19 18:23:08Z comand $
#
# Copyright 2006 Cory Omand <comand@blastwave.org>
# All rights reserved.  Use is subject to license terms.
#
# Redistribution and/or use, with or without modification, is
# permitted.  This software is without warranty of any kind.  The
# author(s) shall not be liable in the event that use of the
# software causes damage.
#
# specreform - Reformat gspec files to a common format.
#
# Usage: specreform < orig.gspec > new.gspec
#

# All items line up on 3x tabstop (ts=4)
$fmt_col = "16";

if (/^%/) {
    @a = split; $d = shift @a;
    $p = $fmt_col - length($d);
    $_ = $d . " "x$p . join(" ", @a);
}
Revision:	1
Committed:	Sat Jun 20 14:58:51 2026 UTC (4 weeks, 3 days ago) by operz
File size:	684 byte(s)
Log Message:	Initial import of OZSW mgar build tree
#	Content
1	#!/bin/env perl -pln
2	#
3	# $Id: specreform 830 2006-09-19 18:23:08Z comand $
4	#
5	# Copyright 2006 Cory Omand <comand@blastwave.org>
6	# All rights reserved. Use is subject to license terms.
7	#
8	# Redistribution and/or use, with or without modification, is
9	# permitted. This software is without warranty of any kind. The
10	# author(s) shall not be liable in the event that use of the
11	# software causes damage.
12	#
13	# specreform - Reformat gspec files to a common format.
14	#
15	# Usage: specreform < orig.gspec > new.gspec
16	#
17
18	# All items line up on 3x tabstop (ts=4)
19	$fmt_col = "16";
20
21	if (/^%/) {
22	@a = split; $d = shift @a;
23	$p = $fmt_col - length($d);
24	$_ = $d . " "x$p . join(" ", @a);
25	}