File: mk_gmiconf.awk

package info (click to toggle)
yap 5.1.1-3
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 16,124 kB
  • ctags: 14,650
  • sloc: ansic: 122,796; perl: 22,545; sh: 3,768; java: 1,277; makefile: 1,191; xml: 739; tcl: 624; lisp: 142; awk: 9
file content (19 lines) | stat: -rw-r--r-- 332 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/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];
}