root/src/getdir_win.c

DEFINITIONS

1. get_install_dir

   1 /*
   2  * getdir_win.c - get the library directory at runtime (fow windows)
   3  *  included from paths.c
   4  *
   5  * $Id: getdir_win.c,v 1.2 2005/10/27 13:16:55 shirok Exp $
   6  */
   8 #include <windows.h>
   9 #include <shlwapi.h>
  10 #include <string.h>
  12 static int get_install_dir(char *buf, int buflen,
  13                            void (*errfn)(const char *msg, ...))
  14 {
HMODULE mod;
DWORD r;
  17     char path[MAX_PATH];
  18     int len;
  20     if ((mod = GetModuleHandle("libgauche.dll")) == NULL) {
errfn("GetModuleHandle failed");
  22     }
  23     if ((r = GetModuleFileName(mod, path, MAX_PATH)) == 0) {
errfn("GetModuleFileName failed");
  25     }
  26     /* remove \libgauche.dll */
  27     if (!PathRemoveFileSpec(path)) {
errfn("PathRemoveFileSpec failed on %s", path);
  29     }
  30     /* remobe \bin */
  31     if (!PathRemoveFileSpec(path)) {
errfn("PathRemoveFileSpec failed on %s", path);
  33     }
len = strlen(path);
  35     if (len >= buflen-1) {
errfn("Pathname too long: %s", path);
  37     }
strcpy(buf, path);
  39     return len;
  40 }