commit 2bcbd3c72539ef121cbde5ccbe355171a0722381
author Roberto Ierusalimschy <roberto@inf.puc-rio.br> Tue Sep 06 14:20:25 2005 -0300
committer Roberto Ierusalimschy <roberto@inf.puc-rio.br> Tue Sep 06 14:20:25 2005 -0300
tree 18c1ec7eaba6281a9e803a23162d2dc6097e2094
parent 5fa6604f00f7ccf44b0c61d9d272ad5ea66082bd

avoid 'PathRemoveFileSpec' (not very portable)

loadlib.c

diff --git a/loadlib.c b/loadlib.c
index d378fdc..0ec2a91 100644
--- a/loadlib.c
+++ b/loadlib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: loadlib.c,v 1.42 2005/08/26 17:36:32 roberto Exp roberto $
+** $Id: loadlib.c,v 1.43 2005/08/31 23:17:29 roberto Exp roberto $
 ** Dynamic library loader for Lua
 ** See Copyright Notice in lua.h
 **
@@ -93,18 +93,18 @@
 */
 
 #include <windows.h>
-#include "Shlwapi.h"
 
 
 #undef setprogdir
 
 void setprogdir (lua_State *L) {
   char buff[MAX_PATH + 1];
+  char *lb;
   DWORD nsize = sizeof(buff)/sizeof(char);
   DWORD n = GetModuleFileName(NULL, buff, nsize);
-  if (n == 0 || n == nsize)
+  if (n == 0 || n == nsize || (lb = strrchr(buff, '\\')) == NULL)
     luaL_error(L, "unable to get ModuleFileName");
-  PathRemoveFileSpec(buff);
+  *lb = '\0';
   luaL_gsub(L, lua_tostring(L, -1), LUA_EXECDIR, buff);
   lua_remove(L, -2);  /* remove original string */
 }