home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2XLSP1.ZIP / ENUMDLL.LSP < prev    next >
Text File  |  1988-07-19  |  549b  |  24 lines
  1. ; enumdll.lsp
  2.  
  3. (define buf (make-string 32 128))
  4. (define dosgetmodname (getprocaddr doscalls "DOSGETMODNAME"))
  5.  
  6. (dotimes
  7.     (i #xFFFF)
  8.     (if
  9.         (call dosgetmodname ~i ~128 buf t)
  10.     ; then
  11.         (format stdout "~A\t~A\n" i buf)))
  12.  
  13. ;;; sample output:
  14. ;;; > (load 'enumdll)
  15. ;;; ; loading "ENUMDLL.lsp"
  16. ;;; (450 "A:\\HARDERR.EXE")
  17. ;;; (620 "D:\\OS2\\SYS\\SHELL.EXE")
  18. ;;; (740 "D:\\OS2\\DLL\\BKSCALLS.DLL")
  19. ;;; (940 "D:\\OS2\\DLL\\ANSICALL.DLL")
  20. ;;; T
  21.  
  22. ; takes a long time, but not much longer than in C!
  23. ; perfect to run in the background
  24.