xref: /freebsd/crypto/openssl/ms/applink.c (revision 95eb4b873b6a8b527c5bd78d7191975dfca38998)
1 /*
2  * Copyright 2004-2021 The OpenSSL Project Authors. All Rights Reserved.
3  *
4  * Licensed under the Apache License 2.0 (the "License").  You may not use
5  * this file except in compliance with the License.  You can obtain a copy
6  * in the file LICENSE in the source distribution or at
7  * https://www.openssl.org/source/license.html
8  */
9 
10 #define APPLINK_STDIN   1
11 #define APPLINK_STDOUT  2
12 #define APPLINK_STDERR  3
13 #define APPLINK_FPRINTF 4
14 #define APPLINK_FGETS   5
15 #define APPLINK_FREAD   6
16 #define APPLINK_FWRITE  7
17 #define APPLINK_FSETMOD 8
18 #define APPLINK_FEOF    9
19 #define APPLINK_FCLOSE  10      /* should not be used */
20 
21 #define APPLINK_FOPEN   11      /* solely for completeness */
22 #define APPLINK_FSEEK   12
23 #define APPLINK_FTELL   13
24 #define APPLINK_FFLUSH  14
25 #define APPLINK_FERROR  15
26 #define APPLINK_CLEARERR 16
27 #define APPLINK_FILENO  17      /* to be used with below */
28 
29 #define APPLINK_OPEN    18      /* formally can't be used, as flags can vary */
30 #define APPLINK_READ    19
31 #define APPLINK_WRITE   20
32 #define APPLINK_LSEEK   21
33 #define APPLINK_CLOSE   22
34 #define APPLINK_MAX     22      /* always same as last macro */
35 
36 #ifndef APPMACROS_ONLY
37 # include <stdio.h>
38 # include <io.h>
39 # include <fcntl.h>
40 
41 # ifdef __BORLANDC__
42    /* _lseek in <io.h> is a function-like macro so we can't take its address */
43 #  undef _lseek
44 #  define _lseek lseek
45 # endif
46 
47 static void *app_stdin(void)
48 {
49     return stdin;
50 }
51 
52 static void *app_stdout(void)
53 {
54     return stdout;
55 }
56 
57 static void *app_stderr(void)
58 {
59     return stderr;
60 }
61 
62 static int app_feof(FILE *fp)
63 {
64     return feof(fp);
65 }
66 
67 static int app_ferror(FILE *fp)
68 {
69     return ferror(fp);
70 }
71 
72 static void app_clearerr(FILE *fp)
73 {
74     clearerr(fp);
75 }
76 
77 static int app_fileno(FILE *fp)
78 {
79     return _fileno(fp);
80 }
81 
82 static int app_fsetmod(FILE *fp, char mod)
83 {
84     return _setmode(_fileno(fp), mod == 'b' ? _O_BINARY : _O_TEXT);
85 }
86 
87 #ifdef __cplusplus
88 extern "C" {
89 #endif
90 
91 __declspec(dllexport)
92 void **
93 # if defined(__BORLANDC__)
94 /*
95  * __stdcall appears to be the only way to get the name
96  * decoration right with Borland C. Otherwise it works
97  * purely incidentally, as we pass no parameters.
98  */
99 __stdcall
100 # else
101 __cdecl
102 # endif
103 OPENSSL_Applink(void)
104 {
105     static int once = 1;
106     static void *OPENSSL_ApplinkTable[APPLINK_MAX + 1] =
107         { (void *)APPLINK_MAX };
108 
109     if (once) {
110         OPENSSL_ApplinkTable[APPLINK_STDIN] = app_stdin;
111         OPENSSL_ApplinkTable[APPLINK_STDOUT] = app_stdout;
112         OPENSSL_ApplinkTable[APPLINK_STDERR] = app_stderr;
113         OPENSSL_ApplinkTable[APPLINK_FPRINTF] = fprintf;
114         OPENSSL_ApplinkTable[APPLINK_FGETS] = fgets;
115         OPENSSL_ApplinkTable[APPLINK_FREAD] = fread;
116         OPENSSL_ApplinkTable[APPLINK_FWRITE] = fwrite;
117         OPENSSL_ApplinkTable[APPLINK_FSETMOD] = app_fsetmod;
118         OPENSSL_ApplinkTable[APPLINK_FEOF] = app_feof;
119         OPENSSL_ApplinkTable[APPLINK_FCLOSE] = fclose;
120 
121         OPENSSL_ApplinkTable[APPLINK_FOPEN] = fopen;
122         OPENSSL_ApplinkTable[APPLINK_FSEEK] = fseek;
123         OPENSSL_ApplinkTable[APPLINK_FTELL] = ftell;
124         OPENSSL_ApplinkTable[APPLINK_FFLUSH] = fflush;
125         OPENSSL_ApplinkTable[APPLINK_FERROR] = app_ferror;
126         OPENSSL_ApplinkTable[APPLINK_CLEARERR] = app_clearerr;
127         OPENSSL_ApplinkTable[APPLINK_FILENO] = app_fileno;
128 
129         OPENSSL_ApplinkTable[APPLINK_OPEN] = _open;
130         OPENSSL_ApplinkTable[APPLINK_READ] = _read;
131         OPENSSL_ApplinkTable[APPLINK_WRITE] = _write;
132         OPENSSL_ApplinkTable[APPLINK_LSEEK] = _lseek;
133         OPENSSL_ApplinkTable[APPLINK_CLOSE] = _close;
134 
135         once = 0;
136     }
137 
138     return OPENSSL_ApplinkTable;
139 }
140 
141 #ifdef __cplusplus
142 }
143 #endif
144 #endif
145