This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/library/mpi/examples/mk_gmiconf.awk

20 lines
332 B
Awk
Raw Normal View History

#!/bin/awk
# mk_gmiconf.awk
#
# This file was originally created on 3/7/2003
# by Stasinos Konstantopoulos konstant@let.rug.nl
# as part of the YAP Prolog distribution.
#
# This file is in the Public Domain.
! /^$/ {
if( $0 in BUFF ) {
BUFF[$0] = BUFF[$0] + 2;
}
else {
BUFF[$0] = 2;
}
print $0 " " BUFF[$0];
}