Return to loadmap.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / src / cmd

Annotation of 43BSD/contrib/icon/src/cmd/loadmap.icn, revision 1.1.1.1

1.1       root        1: #      LOADMAP(1)
                      2: #
                      3: #      Produce load map of object file
                      4: #
                      5: #      Stephen B. Wampler
                      6: #
                      7: #      Last modified 7/10/83
                      8: #
                      9: 
                     10: record entry(name,address)
                     11: 
                     12: procedure main(args)
                     13:    local maptype, arg, file, nm, ldmap, tname, line, text, data, bss
                     14:    local SPACE, COLON, DIGITS, HEXDIGITS, usize, address, name
                     15:    initial {
                     16:       if *args = 0 then stop("usage: loadmap -tdbuac file")
                     17:       SPACE := '\t '
                     18:       COLON := ':'
                     19:       DIGITS := '0123456789'
                     20:       HEXDIGITS := DIGITS ++ 'abcdef'
                     21:       ldmap := table(6)
                     22:       ldmap["u"] := []
                     23:       ldmap["d"] := []
                     24:       ldmap["a"] := []
                     25:       ldmap["b"] := []
                     26:       ldmap["t"] := []
                     27:       ldmap["c"] := []
                     28:       tname := table(6)
                     29:       tname["u"] := "Undefined symbols"
                     30:       tname["a"] := "Absolute locations"
                     31:       tname["t"] := "Text segment symbols"
                     32:       tname["d"] := "Data segment symbols"
                     33:       tname["b"] := "BSS segment symbols"
                     34:       tname["c"] := "Common symbols"
                     35:       }
                     36:    maptype := ""
                     37:    every arg := !args do
                     38:       if arg[1] ~== "-" then file := arg
                     39:       else if arg[1] == "-" then maptype ||:= (!"tdbuac" == arg[2:0]) |
                     40:          stop("usage:  loadmap -tdbuac file")
                     41:    maptype := if *maptype = 0 then "t" else string(cset(maptype))
                     42:    write("\n",file,"\n")
                     43:    usize := open("size " || file,"rp") | stop("loadmap: cannot execute size")
                     44:    !usize ? {
                     45:       writes("Text space: ",right(text := tab(many(DIGITS)),6),"   ")
                     46:       move(1)
                     47:       writes("Initialized Data: ",right(data := tab(many(DIGITS)),6),"   ")
                     48:       move(1)
                     49:       write("Uninitialized Data: ",right(bss := tab(many(DIGITS)),6))
                     50:       }
                     51:    close(usize)
                     52:    nm := open("nm -gno " || file,"rp") | stop("loadmap: cannot execute nm")
                     53:    every line := !nm do
                     54:       line ? {
                     55:          tab(upto(COLON)) & move(1)
                     56:          address := integer("16r" || tab(many(HEXDIGITS))) | "????"
                     57:          tab(many(SPACE))
                     58:          type := map(move(1))
                     59:          tab(many(SPACE))
                     60:          name := tab(0)
                     61:          if find(type,maptype) then put(ldmap[type],entry(name,address))
                     62:          }
                     63:    every type := !maptype do {
                     64:       if *ldmap[type] > 0 then {
                     65:          write("\n\n\n")
                     66:          write(tname[type],":")
                     67:          write()
                     68:          show(ldmap[type],(type == "t" & text) |
                     69:             (type == "d" & data) | (type == "b" & bss) | &null,
                     70:             ldmap[type][1].address)
                     71:          }
                     72:       }
                     73: end
                     74: 
                     75: procedure show(l,ssize,base)
                     76:    local i1, i2, nrows
                     77:    static ncols
                     78:    initial ncols := 3
                     79:    write(repl(repl(" ",3) || left("name",9) || right("addr",7) ||
                     80:       right("size",6),ncols))
                     81:    write()
                     82:    nrows := (*l + (ncols - 1)) / ncols
                     83:    every i1 := 1 to nrows do {
                     84:       every i2 := i1 to *l by nrows do
                     85:          writes(repl(" ",3),left(l[i2].name,9),right(l[i2].address,7),
                     86:             right(area(l[i2 + 1].address,l[i2].address) |
                     87:             if /ssize then "rem" else base + ssize - l[i2].address,6))
                     88:          write()
                     89:          }
                     90:    return
                     91: end
                     92: 
                     93: procedure area(high,low)
                     94:    if integer(low) & integer(high) then return high - low
                     95:    else return "????"
                     96: end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.