<commit_before>/****************************************************************/
/* eus.h	Etl, Umezono, Sakura-mura Lisp
/*	@(#)$Id$
/*	Copyright(c)1988, <NAME>, Electrotechnical Laboratory,
/*	all rights reserved, all wrongs left.
/*	created on:	1986-May
/*	needed to be included by all euslisp kernel (.c) files and
/*	user functions compiled by euscomp.
/****************************************************************/


#if (alpha || IRIX6 || x86_64)
#define WORD_SIZE 64
#else
#define WORD_SIZE 32
#endif

#if (WORD_SIZE == 64)
typedef long eusinteger_t;
typedef double eusfloat_t;
#define WORDSHIFT 3
#else
typedef int eusinteger_t;
typedef float eusfloat_t;
#define WORDSHIFT 2
#endif
#define wordsizeof(type) (sizeof(type)>>WORDSHIFT)

#if GCC || Solaris2 || IRIX || Linux || IRIX6
#define USE_STDARG
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <ctype.h>
#endif

#if alpha
#include <stdlib.h>
#include <unistd.h>
#include <values.h>
#define	USE_STDARG
#endif

#ifdef Darwin
#define cfree free
#endif

#ifdef USE_STDARG
#include <stdarg.h>
#else
#include <varargs.h>
#endif

#if Cygwin
#define T	LISPT
#define READ	LISPREAD
#define cfree	free
#endif

#if vxworks
#include <vxWorks.h>
#include <stdioLib.h>
#define errno errnoGet()
#else
#include <stdio.h>
#define min(x,y) ((x<y)?x:y)
#define max(x,y) ((x<y)?y:x)
#endif

#if (WORD_SIZE == 64)
extern eusinteger_t setjmp_val;
#define eussetjmp(buf) (_setjmp(buf)?setjmp_val:(eusinteger_t)0)
#define euslongjmp(buf,val) (setjmp_val=(eusinteger_t)(val),_longjmp(buf,1))
#else
#if (Solaris2 || vxworks)
#define eussetjmp(buf) (eusinteger_t)setjmp(buf)
#define euslongjmp(buf,val) longjmp(buf,(int)(val))
#include <synch.h>
#else
#define eussetjmp(buf) (eusinteger_t)_setjmp(buf)
#define euslongjmp(buf,val) _longjmp(buf,(int)(val))
#endif
#endif

#include <setjmp.h>
#include <string.h>
<commit_msg>avoiding conflict with std::min, std::max when using c++<commit_after>/****************************************************************/
/* eus.h	Etl, Umezono, Sakura-mura Lisp
/*	@(#)$Id$
/*	Copyright(c)1988, <NAME>, Electrotechnical Laboratory,
/*	all rights reserved, all wrongs left.
/*	created on:	1986-May
/*	needed to be included by all euslisp kernel (.c) files and
/*	user functions compiled by euscomp.
/****************************************************************/


#if (alpha || IRIX6 || x86_64)
#define WORD_SIZE 64
#else
#define WORD_SIZE 32
#endif

#if (WORD_SIZE == 64)
typedef long eusinteger_t;
typedef double eusfloat_t;
#define WORDSHIFT 3
#else
typedef int eusinteger_t;
typedef float eusfloat_t;
#define WORDSHIFT 2
#endif
#define wordsizeof(type) (sizeof(type)>>WORDSHIFT)

#if GCC || Solaris2 || IRIX || Linux || IRIX6
#define USE_STDARG
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <ctype.h>
#endif

#if alpha
#include <stdlib.h>
#include <unistd.h>
#include <values.h>
#define	USE_STDARG
#endif

#ifdef Darwin
#define cfree free
#endif

#ifdef USE_STDARG
#include <stdarg.h>
#else
#include <varargs.h>
#endif

#if Cygwin
#define T	LISPT
#define READ	LISPREAD
#define cfree	free
#endif

#if vxworks
#include <vxWorks.h>
#include <stdioLib.h>
#define errno errnoGet()
#else
#include <stdio.h>
#ifndef __cplusplus
#define min(x,y) ((x<y)?x:y)
#define max(x,y) ((x<y)?y:x)
#endif
#endif

#if (WORD_SIZE == 64)
extern eusinteger_t setjmp_val;
#define eussetjmp(buf) (_setjmp(buf)?setjmp_val:(eusinteger_t)0)
#define euslongjmp(buf,val) (setjmp_val=(eusinteger_t)(val),_longjmp(buf,1))
#else
#if (Solaris2 || vxworks)
#define eussetjmp(buf) (eusinteger_t)setjmp(buf)
#define euslongjmp(buf,val) longjmp(buf,(int)(val))
#include <synch.h>
#else
#define eussetjmp(buf) (eusinteger_t)_setjmp(buf)
#define euslongjmp(buf,val) _longjmp(buf,(int)(val))
#endif
#endif

#include <setjmp.h>
#include <string.h>

{'fraction_non_alphanumeric': 0.20955114822546972, 'fraction_numerical': 0.014613778705636743, 'mean_word_length': 6.681362725450902, 'pattern_counts': {'":': 0, '<': 39, '<?xml version=': 0, '>': 39, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1589516', 'n_tokens_mistral': 1618, 'n_tokens_neox': 1518, 'n_words': 378}