ftp.nice.ch/pub/next/unix/developer/pcn.2.0.s.tar.gz#/src/linker/link_dout.c

This is link_dout.c in view mode; [Download] [Up]

/*
 * PCN System Linker -- pcnlink
 * Author:      Steve Tuecke
 *              Argonne National Laboratory
 *
 * Please see the DISCLAIMER file in the top level directory of the
 * distribution regarding the provisions under which this software
 * is distributed.
 *
 * link_dout.c		- Support routines for link_dout.pcn
 *
 * Foreign procedures used for information generation
 * into the custom info file.
 */

#include "link_internal.h"


/*
 * _p_link_dout_for_table()
 */
void _p_link_dout_for_table(buf, buf_len, for_table_size)
char_t *buf;
int_t *buf_len;
int_t *for_table_size;
{
    sprintf((char *) buf,
	    "int _p_foreign_table_size = %ld;\n",
	    (long) *for_table_size);
#ifdef DEBUG_BUF_OVERFLOW
    if (strlen((char *) buf) >= *buf_len)
    {
	fprintf(stderr,
		"Fatal Error: _p_link_dout_for_table(): Buffer overflow\n");
	exit_from_c(1);
    }
#endif    
} /* _p_link_dout_for_table() */


/*
 * _p_link_dout_exported_table()
 */
void _p_link_dout_exported_table(buf, buf_len, table_size)
char_t *buf;
int_t *buf_len;
int_t *table_size;
{
    sprintf((char *) buf,
	    "int_t _p_exported_table_size = %ld;\n",
	    (long) *table_size);
#ifdef DEBUG_BUF_OVERFLOW
    if (strlen((char *) buf) >= *buf_len)
    {
	fprintf(stderr,
		"Fatal Error: _p_link_dout_exported_table(): Buffer overflow\n");
	exit_from_c(1);
    }
#endif    
} /* _p_link_dout_exported_table() */

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Marcel Waldvogel and Netfuture.ch.