1: #! /usr/bin/awk -f
    2: # Generate topologically sorted list of manual chapters.
    3: # (C) Copyright 1998, 1999 Free Software Foundation, Inc.
    4: # Written by Ulrich Drepper <drepper@cygnus.com>, 1998.
    5: 
    6: BEGIN {
    7:   cnt = 0
    8:   dnt = 0
    9: }
   10: {
   11:   to[dnt] = $1
   12:   from[dnt] = $2
   13:   ++dnt
   14:   all[cnt++] = $1
   15: }
   16: END {
   17:   do {
   18:     moved = 0
   19:     for (i = 0; i < dnt; ++i) {
   20:       for (j = 0; j < cnt; ++j) {
   21:         if (all[j] == from[i]) {
   22:           for (k = j + 1; k < cnt; ++k) {
   23:             if (all[k] == to[i]) {
   24:               break;
   25:             }
   26:           }
   27:           if (k < cnt) {
   28:             for (l = k - 1; l >= j; --l) {
   29:               all[l + 1] = all[l]
   30:             }
   31:             all[j] = to[i]
   32:             break;
   33:           }
   34:         }
   35:       }
   36:       if (j < cnt) {
   37:         moved = 1
   38:         break
   39:       }
   40:     }
   41:   } while (moved)
   42: 
   43:   for (i = 0; i < cnt; ++i) {
   44:     print all[i];
   45:   }
   46: }