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

#!/bin/env perl -w
#
# $Id: map2proto 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.
#
# map2proto - reformat a pkgmap as a prototype
#

use strict;

while (<>) {
    chomp ; my @F = split;
    next unless @F > 3;
    print join(" ", ($F[1] =~ /f|d|i/) ? @F[1..$#F-3] : @F[1..$#F]);
}
Revision:	1
Committed:	Sat Jun 20 14:58:51 2026 UTC (4 weeks, 3 days ago) by operz
File size:	599 byte(s)
Log Message:	Initial import of OZSW mgar build tree
#	Content
1	#!/bin/env perl -w
2	#
3	# $Id: map2proto 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	# map2proto - reformat a pkgmap as a prototype
14	#
15
16	use strict;
17
18	while (<>) {
19	chomp ; my @F = split;
20	next unless @F > 3;
21	print join(" ", ($F[1] =~ /f\|d\|i/) ? @F[1..$#F-3] : @F[1..$#F]);
22	}