midfavila/awk
1
0
Fork 0
Code Issues Pull Requests Projects Releases 1 Wiki Activity

Additional fixes for DJGPP.

Browse Source
This commit is contained in:
Arnold D. Robbins 2020-08-16 18:48:05 +03:00
parent 9c63cb6ccd
commit 9804285af0
3 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
FIXES
View File

@ -25,6 +25,10 @@ THIS SOFTWARE.
This file lists all bug fixes, changes, etc., made since the AWK book This file lists all bug fixes, changes, etc., made since the AWK book
was sent to the printers in August, 1987. was sent to the printers in August, 1987.
August 16, 2020:
Additional fixes for DJGPP. Thanks to Eli Zaretskii for
the testing.
August 7, 2020: August 7, 2020:
Merge PR #93, which adds casts to (void*) for debug prints Merge PR #93, which adds casts to (void*) for debug prints
using the %p format specifier. Thanks to GitHub user YongHaoWu using the %p format specifier. Thanks to GitHub user YongHaoWu

2
main.c
View File

@ -22,7 +22,7 @@ ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
THIS SOFTWARE. THIS SOFTWARE.
****************************************************************/ ****************************************************************/
const char *version = "version 20200807"; const char *version = "version 20200816";
#define DEBUG #define DEBUG
#include <stdio.h> #include <stdio.h>

18
run.c
View File

@ -1568,6 +1568,24 @@ static char *nawk_convert(const char *s, int (*fun_c)(int),
} }
} }
#ifdef __DJGPP__
static wint_t towupper(wint_t wc)
{
if (wc >= 0 && wc < 256)
return toupper(wc & 0xFF);
return wc;
}
static wint_t towlower(wint_t wc)
{
if (wc >= 0 && wc < 256)
return tolower(wc & 0xFF);
return wc;
}
#endif
static char *nawk_toupper(const char *s) static char *nawk_toupper(const char *s)
{ {
return nawk_convert(s, toupper, towupper); return nawk_convert(s, toupper, towupper);