view tests/DLL/dltest.c @ 4647:e4ed58cb0e5b

Fix bugs with #'find-file, 0-length files, & coding-system-for-read specified. src/ChangeLog addition: 2009-07-11 Aidan Kehoe <kehoea@parhasard.net> * file-coding.c (undecided_canonicalize_after_coding): If no data have been seen, or if coding_stream_canonicalize_after_coding gives nil, pass back str->codesys, which will be of type undecided (the same as the old behaviour) but will reflect any CODESYS argument passed to make_coding_input_stream. See also the change in lisp/code-files.el lisp/ChangeLog addition: 2009-07-11 Aidan Kehoe <kehoea@parhasard.net> * code-files.el (insert-file-contents): Take advantage of more sensible behaviour from #'insert-file-contents-internal, allowing us to actually follow the documented coding system behaviour for nonexistent files (that is, buffer-file-coding-system reflects coding-system-for-read &c., not becoming undecided for either zero-length or nonexistent files). tests/ChangeLog addition: 2009-07-11 Aidan Kehoe <kehoea@parhasard.net> * automated/mule-tests.el: Check for Richard Zidlicky's bug of http://mid.gmane.org/20090602194123.GA5163@linux-m68k.org; also check that supplying CODESYS to #'find-file is respected both for nonexistent files and zero-length existing files.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 11 Jul 2009 16:33:35 +0100
parents abe6d1db359e
children
line wrap: on
line source

/*
Make a symbolic link to ${blddir}/src/config.h in this directory and do:

gcc -shared -fPIC -Demacs -DHAVE_CONFIG_H -I. \
		-I/home/xemacs/xemacs-20.0/src -g dltest.c -o dltest
*/

# include <config.h>
# include "lisp.h"

Lisp_Object Qdltest_counter;

DEFUN ("dltest", Fdltest, 0, 0, 0, /*
Simple test function.
*/
())
{
	Qdltest_counter = make_int(XINT(Qdltest_counter) + 1);

	return Qdltest_counter;
}

void
vars_of()
{
	DEFVAR_LISP("dltest-counter", &Qdltest_counter /*
counter.
*/ );

	printf("Ten = %d\n", 10);

	Qdltest_counter = make_int(10);
}

void
syms_of()
{
	DEFSUBR(Fdltest);
}