A text "call graph" generator for SQR files. Checks procedures for calls to other procedures and prints the procedures and the calls they make.

sgraph.py

#!/usr/bin/python
import sys

f = open(sys.argv[1],'r').readlines()
arr = []
proc = False
for line in f:
    if "begin-pro" in line: 
        print line.strip()
        proc = True
    elif proc and "do " in line:
        try:
            if line.index("!") < line.index("d"):
                continue 
        except ValueError as error:
            pass
        line = line.strip()
        line = line.split("!")
        arr.append(line[0])
    elif "end-pro" in line:
        for l in arr: 
            print "\t- %s" % l
        print ""
        arr = []
        proc = False