Mercurial > hg > octave-nkf > gnulib-hg
changeset 17824:542f0c385022
find_executable: port to EMX
* lib/progreloc.c (find_executable): Implement on EMX.
Signed-off-by: Eric Blake <eblake@redhat.com>
author | KO Myung-Hun <komh78@gmail.com> |
---|---|
date | Wed, 03 Dec 2014 16:02:50 +0900 |
parents | d5f7ba4d8d44 |
children | 37e2854ec84c |
files | ChangeLog lib/progreloc.c |
diffstat | 2 files changed, 25 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2014-12-08 KO Myung-Hun <komh78@gmail.com> + find_executable: port to EMX + * lib/progreloc.c (find_executable): Implement on EMX. + sched: check struct sched_param in spawn.h as well * lib/sched.in.h: Include spawn.h on kLIBC. * lib/sched_h.m4: Check struct sched_param in spawn.h as well.
--- a/lib/progreloc.c +++ b/lib/progreloc.c @@ -44,6 +44,11 @@ # include <windows.h> #endif +#ifdef __EMX__ +# define INCL_DOS +# include <os2.h> +#endif + #include "relocatable.h" #ifdef NO_XMALLOC @@ -157,6 +162,23 @@ /* Shouldn't happen. */ return NULL; return xstrdup (location); +#elif defined __EMX__ + PPIB ppib; + char location[CCHMAXPATH]; + + /* See http://cyberkinetica.homeunix.net/os2tk45/cp1/619_L2H_DosGetInfoBlocksSynt.html + for specification of DosGetInfoBlocks(). */ + if (DosGetInfoBlocks (NULL, &ppib)) + return NULL; + + /* See http://cyberkinetica.homeunix.net/os2tk45/cp1/1247_L2H_DosQueryModuleNameSy.html + for specification of DosQueryModuleName(). */ + if (DosQueryModuleName (ppib->pib_hmte, sizeof (location), location)) + return NULL; + + _fnslashify (location); + + return xstrdup (location); #else /* Unix */ # ifdef __linux__ /* The executable is accessible as /proc/<pid>/exe. In newer Linux