Blame manual/tsort.awk

Packit Service 82fcde
#!/usr/bin/awk -f
Packit Service 82fcde
# Generate topologically sorted list of manual chapters.
Packit Service 82fcde
# Copyright (C) 1998-2018 Free Software Foundation, Inc.
Packit Service 82fcde
# Written by Ulrich Drepper <drepper@cygnus.com>, 1998.
Packit Service 82fcde
Packit Service 82fcde
BEGIN {
Packit Service 82fcde
  cnt = 0
Packit Service 82fcde
  dnt = 0
Packit Service 82fcde
}
Packit Service 82fcde
{
Packit Service 82fcde
  to[dnt] = $1
Packit Service 82fcde
  from[dnt] = $2
Packit Service 82fcde
  ++dnt
Packit Service 82fcde
  all[cnt++] = $1
Packit Service 82fcde
}
Packit Service 82fcde
END {
Packit Service 82fcde
  do {
Packit Service 82fcde
    moved = 0
Packit Service 82fcde
    for (i = 0; i < dnt; ++i) {
Packit Service 82fcde
      for (j = 0; j < cnt; ++j) {
Packit Service 82fcde
	if (all[j] == from[i]) {
Packit Service 82fcde
	  for (k = j + 1; k < cnt; ++k) {
Packit Service 82fcde
	    if (all[k] == to[i]) {
Packit Service 82fcde
	      break;
Packit Service 82fcde
	    }
Packit Service 82fcde
	  }
Packit Service 82fcde
	  if (k < cnt) {
Packit Service 82fcde
	    for (l = k - 1; l >= j; --l) {
Packit Service 82fcde
	      all[l + 1] = all[l]
Packit Service 82fcde
	    }
Packit Service 82fcde
	    all[j] = to[i]
Packit Service 82fcde
	    break;
Packit Service 82fcde
	  }
Packit Service 82fcde
	}
Packit Service 82fcde
      }
Packit Service 82fcde
      if (j < cnt) {
Packit Service 82fcde
	moved = 1
Packit Service 82fcde
	break
Packit Service 82fcde
      }
Packit Service 82fcde
    }
Packit Service 82fcde
  } while (moved)
Packit Service 82fcde
Packit Service 82fcde
  for (i = 0; i < cnt; ++i) {
Packit Service 82fcde
    print all[i];
Packit Service 82fcde
  }
Packit Service 82fcde
}