1/*	$NetBSD: apptype.c,v 1.1.1.6 2023/08/18 18:36:50 christos Exp $	*/
2
3/*
4 * Adapted from: apptype.c, Written by Eberhard Mattes and put into the
5 * file_public domain
6 *
7 * Notes: 1. Qualify the filename so that DosQueryAppType does not do extraneous
8 * searches.
9 *
10 * 2. DosQueryAppType will return FAPPTYP_DOS on a file ending with ".com"
11 * (other than an OS/2 exe or Win exe with this name). Eberhard Mattes
12 * remarks Tue, 6 Apr 93: Moreover, it reports the type of the (new and very
13 * bug ridden) Win Emacs as "OS/2 executable".
14 *
15 * 3. apptype() uses the filename if given, otherwise a tmp file is created with
16 * the contents of buf. If buf is not the complete file, apptype can
17 * incorrectly identify the exe type. The "-z" option of "file" is the reason
18 * for this ugly code.
19 */
20
21/*
22 * amai: Darrel Hankerson did the changes described here.
23 *
24 * It remains to check the validity of comments (2.) since it's referred to an
25 * "old" OS/2 version.
26 *
27 */
28
29#include "file.h"
30
31#ifndef	lint
32#if 0
33FILE_RCSID("@(#)$File: apptype.c,v 1.17 2022/12/26 17:31:14 christos Exp $")
34#else
35__RCSID("$NetBSD: apptype.c,v 1.1.1.6 2023/08/18 18:36:50 christos Exp $");
36#endif
37#endif /* lint */
38
39#include <stdlib.h>
40#include <string.h>
41
42#ifdef __EMX__
43#include <io.h>
44#define INCL_DOSSESMGR
45#define INCL_DOSERRORS
46#define INCL_DOSFILEMGR
47#include <os2.h>
48typedef ULONG   APPTYPE;
49
50file_protected int
51file_os2_apptype(struct magic_set *ms, const char *fn, const void *buf,
52    size_t nb)
53{
54	APPTYPE         rc, type;
55	char            path[_MAX_PATH], drive[_MAX_DRIVE], dir[_MAX_DIR],
56			fname[_MAX_FNAME], ext[_MAX_EXT];
57	char           *filename;
58	FILE           *fp;
59
60	if (fn)
61		filename = strdup(fn);
62	else if ((filename = tempnam("./", "tmp")) == NULL) {
63		file_error(ms, errno, "cannot create tempnam");
64		return -1;
65	}
66	/* qualify the filename to prevent extraneous searches */
67	_splitpath(filename, drive, dir, fname, ext);
68	(void)sprintf(path, "%s%s%s%s", drive,
69		(*dir == '\0') ? "./" : dir,
70		fname,
71		(*ext == '\0') ? "." : ext);
72
73	if (fn == NULL) {
74		if ((fp = fopen(path, "wb")) == NULL) {
75			file_error(ms, errno, "cannot open tmp file `%s'", path);
76			return -1;
77		}
78		if (fwrite(buf, 1, nb, fp) != nb) {
79			file_error(ms, errno, "cannot write tmp file `%s'",
80			    path);
81			(void)fclose(fp);
82			return -1;
83		}
84		(void)fclose(fp);
85	}
86	rc = DosQueryAppType((unsigned char *)path, &type);
87
88	if (fn == NULL) {
89		unlink(path);
90		free(filename);
91	}
92#if 0
93	if (rc == ERROR_INVALID_EXE_SIGNATURE)
94		printf("%s: not an executable file\n", fname);
95	else if (rc == ERROR_FILE_NOT_FOUND)
96		printf("%s: not found\n", fname);
97	else if (rc == ERROR_ACCESS_DENIED)
98		printf("%s: access denied\n", fname);
99	else if (rc != 0)
100		printf("%s: error code = %lu\n", fname, rc);
101	else
102#else
103
104	/*
105	 * for our purpose here it's sufficient to just ignore the error and
106	 * return w/o success (=0)
107	 */
108
109	if (rc)
110		return (0);
111
112#endif
113
114	if (type & FAPPTYP_32BIT)
115		if (file_printf(ms, "32-bit ") == -1)
116			return -1;
117	if (type & FAPPTYP_PHYSDRV) {
118		if (file_printf(ms, "physical device driver") == -1)
119			return -1;
120	} else if (type & FAPPTYP_VIRTDRV) {
121		if (file_printf(ms, "virtual device driver") == -1)
122			return -1;
123	} else if (type & FAPPTYP_DLL) {
124		if (type & FAPPTYP_PROTDLL)
125			if (file_printf(ms, "file_protected ") == -1)
126				return -1;
127		if (file_printf(ms, "DLL") == -1)
128			return -1;
129	} else if (type & (FAPPTYP_WINDOWSREAL | FAPPTYP_WINDOWSPROT)) {
130		if (file_printf(ms, "Windows executable") == -1)
131			return -1;
132	} else if (type & FAPPTYP_DOS) {
133		/*
134		 * The API routine is partially broken on filenames ending
135		 * ".com".
136		 */
137		if (stricmp(ext, ".com") == 0)
138			if (strncmp((const char *)buf, "MZ", 2))
139				return (0);
140		if (file_printf(ms, "DOS executable") == -1)
141			return -1;
142		/* ---------------------------------------- */
143		/* Might learn more from the magic(4) entry */
144		if (file_printf(ms, ", magic(4)-> ") == -1)
145			return -1;
146		return (0);
147		/* ---------------------------------------- */
148	} else if (type & FAPPTYP_BOUND) {
149		if (file_printf(ms, "bound executable") == -1)
150			return -1;
151	} else if ((type & 7) == FAPPTYP_WINDOWAPI) {
152		if (file_printf(ms, "PM executable") == -1)
153			return -1;
154	} else if (file_printf(ms, "OS/2 executable") == -1)
155		return -1;
156
157	switch (type & (FAPPTYP_NOTWINDOWCOMPAT |
158			FAPPTYP_WINDOWCOMPAT |
159			FAPPTYP_WINDOWAPI)) {
160	case FAPPTYP_NOTWINDOWCOMPAT:
161		if (file_printf(ms, " [NOTWINDOWCOMPAT]") == -1)
162			return -1;
163		break;
164	case FAPPTYP_WINDOWCOMPAT:
165		if (file_printf(ms, " [WINDOWCOMPAT]") == -1)
166			return -1;
167		break;
168	case FAPPTYP_WINDOWAPI:
169		if (file_printf(ms, " [WINDOWAPI]") == -1)
170			return -1;
171		break;
172	}
173	return 1;
174}
175#endif
176