github.com/decomp/exp@v0.0.0-20210624183419-6d058f5e1da6/cmd/bin2ll/callgraph.go

package main

import (
	"fmt"
	"io/ioutil"
	"log"
	"sort"

	"github.com/decomp/exp/bin"
	"github.com/decomp/exp/lift/x86"
	"github.com/graphism/simple"
	"github.com/llir/llvm/ir"
	"github.com/llir/llvm/ir/value"
	"github.com/pkg/errors"
	"gonum.org/v1/gonum/graph"
	"gonum.org/v1/gonum/graph/encoding"
	"gonum.org/v1/gonum/graph/encoding/dot"
)

// Source represents a source file.
type Source struct {
	Name  string
	Start bin.Address
	End   bin.Address
}

var sources = []Source{
	{Name: "_crt.cpp", Start: 0x401000, End: 0x401029},
	{Name: "appfat.cpp", Start: 0x40102A, End: 0x401DA3},
	{Name: "automap.cpp", Start: 0x401DA4, End: 0x40311A},
	{Name: "capture.cpp", Start: 0x40311B, End: 0x4034D8},
	{Name: "codec.cpp", Start: 0x4034D9, End: 0x4037D3},
	{Name: "control.cpp", Start: 0x4037D4, End: 0x407409},
	{Name: "cursor.cpp", Start: 0x40740A, End: 0x4084A5},
	{Name: "dead.cpp", Start: 0x4084A6, End: 0x4086F3},
	{Name: "debug.cpp", Start: 0x4086F4, End: 0x4087B0},
	{Name: "diablo.cpp", Start: 0x4087B1, End: 0x40ACAC},
	{Name: "doom.cpp", Start: 0x40ACAD, End: 0x40ADD5},
	{Name: "drlg_l1.cpp", Start: 0x40ADD6, End: 0x40D356},
	{Name: "drlg_l2.cpp", Start: 0x40D357, End: 0x40FF80},
	{Name: "drlg_l3.cpp", Start: 0x40FF81, End: 0x412654},
	{Name: "drlg_l4.cpp", Start: 0x412655, End: 0x415097},
	{Name: "dthread.cpp", Start: 0x415098, End: 0x415361},
	{Name: "dx.cpp", Start: 0x415362, End: 0x4158A8},
	{Name: "effects.cpp", Start: 0x4158A9, End: 0x415F42},
	{Name: "encrypt.cpp", Start: 0x415F43, End: 0x4161FB},
	{Name: "engine.cpp", Start: 0x4161FC, End: 0x41804D},
	{Name: "error.cpp", Start: 0x41804E, End: 0x4182AC},
	{Name: "exception.cpp", Start: 0x4182AD, End: 0x418865},
	{Name: "gamemenu.cpp", Start: 0x418866, End: 0x418C8A},
	{Name: "gendung.cpp", Start: 0x418C8B, End: 0x419E8A},
	{Name: "gmenu.cpp", Start: 0x419E8B, End: 0x41A552},
	{Name: "help.cpp", Start: 0x41A553, End: 0x41A7B2},
	{Name: "init.cpp", Start: 0x41A7B3, End: 0x41B18F},
	{Name: "interfac.cpp", Start: 0x41B190, End: 0x41B813},
	{Name: "inv.cpp", Start: 0x41B814, End: 0x41F095},
	{Name: "items.cpp", Start: 0x41F096, End: 0x425442},
	{Name: "lighting.cpp", Start: 0x425443, End: 0x426563},
	{Name: "loadsave.cpp", Start: 0x426564, End: 0x4279F1},
	{Name: "log.cpp", Start: 0x4279F2, End: 0x427E0D},
	{Name: "mainmenu.cpp", Start: 0x427E0E, End: 0x428055},
	{Name: "minitext.cpp", Start: 0x428056, End: 0x4283BF},
	{Name: "missiles.cpp", Start: 0x4283C0, End: 0x430FDE},
	{Name: "monster.cpp", Start: 0x430FDF, End: 0x43AD32},
	{Name: "movie.cpp", Start: 0x43AD33, End: 0x43AE8F},
	{Name: "mpqapi.cpp", Start: 0x43AE90, End: 0x43BBA3},
	{Name: "msg.cpp", Start: 0x43BBA4, End: 0x43F848},
	{Name: "msgcmd.cpp", Start: 0x43F849, End: 0x43FAC3},
	{Name: "multi.cpp", Start: 0x43FAC4, End: 0x440DAD},
	{Name: "nthread.cpp", Start: 0x440DAE, End: 0x44121C},
	{Name: "objects.cpp", Start: 0x44121D, End: 0x448754},
	{Name: "hero.cpp", Start: 0x448755, End: 0x448DF4},
	{Name: "palette.cpp", Start: 0x448DF5, End: 0x4493D3},
	{Name: "path.cpp", Start: 0x4493D4, End: 0x4498EB},
	{Name: "pfile.cpp", Start: 0x4498EC, End: 0x44A8E5},
	{Name: "player.cpp", Start: 0x44A8E6, End: 0x450D32},
	{Name: "plrmsg.cpp", Start: 0x450D33, End: 0x450FFD},
	{Name: "portal.cpp", Start: 0x450FFE, End: 0x45138D},
	{Name: "quests.cpp", Start: 0x45138E, End: 0x452830},
	{Name: "restricted.cpp", Start: 0x452831, End: 0x452974},
	{Name: "scrollrt.cpp", Start: 0x452975, End: 0x456624},
	{Name: "setmaps.cpp", Start: 0x456625, End: 0x456A15},
	{Name: "sha1.cpp", Start: 0x456A16, End: 0x456CBA},
	{Name: "sound.cpp", Start: 0x456CBB, End: 0x45744D},
	{Name: "spells.cpp", Start: 0x45744E, End: 0x457A00},
	{Name: "stores.cpp", Start: 0x457A01, End: 0x45C198},
	{Name: "sync.cpp", Start: 0x45C199, End: 0x45C86F},
	{Name: "themes.cpp", Start: 0x45C870, End: 0x45E08B},
	{Name: "tmsg.cpp", Start: 0x45E08C, End: 0x45E150},
	{Name: "town.cpp", Start: 0x45E151, End: 0x46019A},
	{Name: "towners.cpp", Start: 0x46019B, End: 0x4618A4},
	{Name: "track.cpp", Start: 0x4618A5, End: 0x4619A6},
	{Name: "trigs.cpp", Start: 0x4619A7, End: 0x462C6C},
	{Name: "wave.cpp", Start: 0x462C6D, End: 0x46305F},
	{Name: "world.cpp", Start: 0x463060, End: 0x469719},
	{Name: "_crt.cpp", Start: 0x46971A, End: 0x47746F},
	{Name: "pkware.cpp", Start: 0x477470, End: 0x478FFF},
}

// Node represents a call site node in a call graph.
type Node struct {
	graph.Node
	Name string
}

// Attributes returns the DOT attributes of the node.
func (n Node) Attributes() []encoding.Attribute {
	return []encoding.Attribute{
		{Key: "label", Value: fmt.Sprintf("%q", n.Name)},
	}
}

func genCallGraph(funcs map[bin.Address]*x86.Func) error {
	for _, source := range sources {
		nodes := make(map[string]graph.Node)
		g := simple.NewDirectedGraph()
		fmt.Println("source:", source.Name)
		for addr, f := range funcs {
			if !(source.Start <= addr && addr <= source.End) {
				continue
			}
			fmt.Println("   func:", addr, f.Name())
			fn, ok := nodes[f.Name()]
			if !ok {
				node := Node{
					Node: g.NewNode(),
					Name: f.Name(),
				}
				fn = node
				nodes[f.Name()] = node
				g.AddNode(fn)
			}
			// Callers.
			names := getCallerNames(funcs, f.Name())
			for _, name := range names {
				caller, ok := nodes[name]
				if !ok {
					node := Node{
						Node: g.NewNode(),
						Name: name,
					}
					caller = node
					nodes[name] = node
					g.AddNode(caller)
				}
				e := simple.Edge{
					F: caller,
					T: fn,
				}
				g.SetEdge(e)
			}
			// Callees.
			names = getCalleeNames(f.Func)
			for _, name := range names {
				callee, ok := nodes[name]
				if !ok {
					node := Node{
						Node: g.NewNode(),
						Name: name,
					}
					callee = node
					nodes[name] = node
					g.AddNode(callee)
				}
				e := simple.Edge{
					F: fn,
					T: callee,
				}
				g.SetEdge(e)
			}
		}
		data, err := dot.Marshal(g, "", "", "\t")
		if err != nil {
			return errors.WithStack(err)
		}
		path := fmt.Sprintf("call_graphs/%s.dot", source.Name)
		if err := ioutil.WriteFile(path, data, 0644); err != nil {
			return errors.WithStack(err)
		}
	}
	return nil
}

// calls returns the callers and callees of the given functions; where callers
// maps from callee to caller, and callees maps from caller to callee.
func calls(funcs map[bin.Address]*x86.Func) (callers, callees map[string]string) {
	callers = make(map[string]string)
	callees = make(map[string]string)
	for _, f := range funcs {
		caller := f.Name()
		for _, block := range f.Blocks {
			for _, inst := range block.Insts {
				if inst, ok := inst.(*ir.InstCall); ok {
					if c, ok := inst.Callee.(value.Named); ok {
						callee := c.Name()
						callers[callee] = caller
						callees[caller] = callee
					} else {
						log.Fatalf("unable to locate name of callee `%v` in function %q", inst.Callee, caller)
					}
				}
			}
		}
	}
	return callers, callees
}

func getCallerNames(funcs map[bin.Address]*x86.Func, name string) []string {
	m := make(map[string]bool)
	for _, f := range funcs {
		for _, block := range f.Blocks {
			for _, inst := range block.Insts {
				if inst, ok := inst.(*ir.InstCall); ok {
					if c, ok := inst.Callee.(value.Named); ok {
						if c.Name() == name {
							m[f.Name()] = true
						}
					} else {
						log.Fatalf("unable to locate name of callee `%v` in function %q", inst.Callee, f.Name())
					}
				}
			}
		}
	}
	var names []string
	for name := range m {
		names = append(names, name)
	}
	sort.Strings(names)
	return names
}

func getCalleeNames(f *ir.Func) []string {
	m := make(map[string]bool)
	for _, block := range f.Blocks {
		for _, inst := range block.Insts {
			if inst, ok := inst.(*ir.InstCall); ok {
				if c, ok := inst.Callee.(value.Named); ok {
					m[c.Name()] = true
				} else {
					log.Fatalf("unable to locate name of callee `%v`", inst.Callee)
				}
			}
		}
	}
	var names []string
	for name := range m {
		names = append(names, name)
	}
	sort.Strings(names)
	return names
}