home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / contrib / menu / xdefault.icn < prev    next >
Text File  |  1993-04-29  |  513b  |  24 lines
  1. #
  2. # xdefault.icn
  3. # copyright 1992 Ronald Florence
  4. # @(#) version 1.0 (ron@mlfarm.com, 5 May 1992)
  5. #
  6.  
  7. procedure xdefault(prog)
  8.   local res, sys_r, user_r, r
  9.  
  10.   sys_r := open(\getenv("XAPPLRESDIR") || "/" || prog) | []
  11.   user_r := open(getenv("HOME") || "/.Xdefaults") | []
  12.   res := table()
  13.   every !sys_r | !user_r ? if =prog then {
  14.     move(1)
  15.     r := tab(upto(':'))
  16.     tab(many(': \t'))
  17.     res[r] := tab(0)
  18.   }
  19.   type(sys_r) == "file" & close(sys_r)
  20.   type(user_r) == "file" & close(user_r)
  21.   return res
  22. end
  23.  
  24.