<commit_before>/*===================================================================
 |			alsglue.c		
 |		Copyright (c) 1994-5 Applied Logic Systems, Inc.
 |
 |		-- provides "glue" between dynamically loaded
 |			   shared objects and the rest of ALS-Prolog.
 |
 | Author: <NAME>
 | Created: 4/19/94
 | 01/15/95: C.Houpt - added prototype
 *==================================================================*/

#include "defs.h"

#ifndef KERNAL
/*
 * The following function should never be called, but if it is, we want
 * to be sure that nothing bad will happen.
 */

static int canthappen = 0;

static void
PI_alsglue(void)
{
    if (canthappen) {
	(void) PI_forceuia( (PWord *) 0, (int *) 0 );
	(void) PI_getan( (PWord *) 0, (int *) 0, (int) 0 );
	(void) PI_getargn( (PWord *) 0, (int *) 0, (PWord) 0, (int) 0 );
	(void) PI_gethead( (PWord *) 0, (int *) 0, (PWord) 0 );
	(void) PI_gettail( (PWord *) 0, (int *) 0, (PWord) 0 );
	(void) PI_getdouble( (double *) 0, (PWord) 0 );
	(void) PI_getstruct( (PWord *) 0, (int *) 0, (PWord) 0 );
	(void) PI_getsymname( (char *) 0, (PWord) 0, (int) 0 );
	(void) PI_getuianame( (char *) 0, (PWord) 0, (int) 0 );
	(void) PI_getuiasize( (PWord) 0, (int *) 0 );
	(void) PI_makedouble( (PWord *) 0, (int *) 0, (double) 0 );
	(void) PI_makelist( (PWord *) 0, (int *) 0 );
	(void) PI_makestruct( (PWord *) 0, (int *) 0, (PWord) 0, (int) 0 );
	(void) PI_makesym( (PWord *) 0, (int *) 0, (char *) 0 );
	(void) PI_makeuia( (PWord *) 0, (int *) 0, (char *) 0 );
	(void) PI_allocuia( (PWord *) 0, (int *) 0, (int) 0 );
	(void) PI_printf( 0 );
	(void) PI_aprintf( 0, 0 );
	(void) PI_rungoal( (PWord) 0, (PWord) 0, (int) 0 );
	(void) PI_rungoal_with_update( (PWord) 0, (PWord *) 0, (int *) 0 );
	(void) PI_unify( (PWord) 0 , (int) 0, (PWord) 0 , (int) 0 );
	(void) PrologInit( (PSTRUCT *) 0 );
	(void) PI_shutdown();
	(void) PI_toplevel();
	(void) PI_prolog_init((int) 0, (char **) 0 );
	(void) PI_app_printf( 0 );
    }
}
#endif /* KERNAL */<commit_msg>Added new PI_toplevel arg<commit_after>/*===================================================================
 |			alsglue.c		
 |		Copyright (c) 1994-5 Applied Logic Systems, Inc.
 |
 |		-- provides "glue" between dynamically loaded
 |			   shared objects and the rest of ALS-Prolog.
 |
 | Author: <NAME>
 | Created: 4/19/94
 | 01/15/95: C.Houpt - added prototype
 *==================================================================*/

#include "defs.h"

#ifndef KERNAL
/*
 * The following function should never be called, but if it is, we want
 * to be sure that nothing bad will happen.
 */

static int canthappen = 0;

static void
PI_alsglue(void)
{
    if (canthappen) {
	(void) PI_forceuia( (PWord *) 0, (int *) 0 );
	(void) PI_getan( (PWord *) 0, (int *) 0, (int) 0 );
	(void) PI_getargn( (PWord *) 0, (int *) 0, (PWord) 0, (int) 0 );
	(void) PI_gethead( (PWord *) 0, (int *) 0, (PWord) 0 );
	(void) PI_gettail( (PWord *) 0, (int *) 0, (PWord) 0 );
	(void) PI_getdouble( (double *) 0, (PWord) 0 );
	(void) PI_getstruct( (PWord *) 0, (int *) 0, (PWord) 0 );
	(void) PI_getsymname( (char *) 0, (PWord) 0, (int) 0 );
	(void) PI_getuianame( (char *) 0, (PWord) 0, (int) 0 );
	(void) PI_getuiasize( (PWord) 0, (int *) 0 );
	(void) PI_makedouble( (PWord *) 0, (int *) 0, (double) 0 );
	(void) PI_makelist( (PWord *) 0, (int *) 0 );
	(void) PI_makestruct( (PWord *) 0, (int *) 0, (PWord) 0, (int) 0 );
	(void) PI_makesym( (PWord *) 0, (int *) 0, (char *) 0 );
	(void) PI_makeuia( (PWord *) 0, (int *) 0, (char *) 0 );
	(void) PI_allocuia( (PWord *) 0, (int *) 0, (int) 0 );
	(void) PI_printf( 0 );
	(void) PI_aprintf( 0, 0 );
	(void) PI_rungoal( (PWord) 0, (PWord) 0, (int) 0 );
	(void) PI_rungoal_with_update( (PWord) 0, (PWord *) 0, (int *) 0 );
	(void) PI_unify( (PWord) 0 , (int) 0, (PWord) 0 , (int) 0 );
	(void) PrologInit( (PSTRUCT *) 0 );
	(void) PI_shutdown();
	(void) PI_toplevel(NULL);
	(void) PI_prolog_init((int) 0, (char **) 0 );
	(void) PI_app_printf( 0 );
    }
}
#endif /* KERNAL */
{'fraction_non_alphanumeric': 0.2634489693313223, 'fraction_numerical': 0.04022121669180493, 'mean_word_length': 3.9123456790123456, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, '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': '1340103', 'n_tokens_mistral': 1826, 'n_tokens_neox': 1647, 'n_words': 479}