#
# xdefault.icn
# copyright 1992 Ronald Florence
# @(#) version 1.0 (ron@mlfarm.com, 5 May 1992)
#

procedure xdefault(prog)
  local res, sys_r, user_r, r

  sys_r := open(\getenv("XAPPLRESDIR") || "/" || prog) | []
  user_r := open(getenv("HOME") || "/.Xdefaults") | []
  res := table()
  every !sys_r | !user_r ? if =prog then {
    move(1)
    r := tab(upto(':'))
    tab(many(': \t'))
    res[r] := tab(0)
  }
  type(sys_r) == "file" & close(sys_r)
  type(user_r) == "file" & close(user_r)
  return res
end