[ViewVC] Annotation 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
#	User	Rev	Content
1	operz	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			}