readkbuf.m

新的神经网络算法源程序

function [char, bufstat]=readkbuf()
%  Readkbuf: Read the keyboard buffer.
%
%	This if a C-mex function for MATLAB and UNIX system.
%
%  Synopsis: char = readkbuf
%	     [char, bufstat] = readkbuf
%
%	char is the first character stored in the keyboard buffer if any,
%	and it is deleted from the buffer by Readkbuf.
%	If the buffer was empty, char=[].
%
%	bufstat = 0 if the keyboard buffer was empty, 1 otherwise.
%
%	If you cannot successfully compile the C-mex file "readkbuf.c", this
%	m-function will be in action and always give char=[], bufstat=0.

%	By Qinghua Zhang. October 21, 1992.

char=[]; bufstat=0;