1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Commit graph

11 commits

Author SHA1 Message Date
Jim Blandy
8f59c14e2c * more changes to expect.scm, to avoid the one-character lookhead
that was introduced to fix the $ problem:
* expect.scm (expect): call the match proc an extra time at end
of file and set the eof? argument appropriately.  call
expect-eof-proc only if the last call didn't match.
* expect.scm (expect-strings): change port to eof? in match proc.
* expect.scm (expect-regexec): take an eof indicator as an argument
instead of a port.
1999-06-14 16:54:15 +00:00
Jim Blandy
2645b7b835 * expect.scm (expect-regexec): define 'eof-next?'. I don't
know why it was missing.  also don't peek for end of lines
	unless expect-strings-exec-flags contains regexp/noteol.
	(expect-strings-exec-flags): initialise to regexp/noteol.
1999-06-09 12:54:59 +00:00
Jim Blandy
156ecad591 * * expect.scm (expect): call the match proc with the port instead.
(expect-strings): use peek-char to get the next char.  this has
	the advantage of getting the handling of $ "correct", but the
	disadvantage of needing to get (and maybe block for) an extra character
	from the port when it may not be needed.  hence:
*	(expect-strings-exec-flags): new variable/parameter, supplies
	flags for regexp-exec.  if this includes regexp/noteol, then
	automatic regexp/noteol handling (requiring an extra peeked char)
	is enabled.  default is regexp/noteol.
*       (expect-strings-compile-flags): new variable/parameter, supplies
	flags for make-regexp.  default is regexp/newline.
*	* expect.scm (expect): call the match proc with an extra char,
	peeked from the stream.
	(expect-strings): build a match proc which takes the extra char.
	(expect-regexec): take an extra arg "eof-next?" and use it
	to decide whether the regexp/noteol flag should be added.
1999-06-09 12:17:16 +00:00
Jim Blandy
9630e974d2 * boot-9.scm, debug.scm, expect.scm, hcons.scm, lineio.scm,
r4rs.scm, slib.scm, threads.scm: Update copyright years.
1998-10-19 21:23:31 +00:00
Gary Houston
28d8ab3c69 * boot-9.scm (set-batch-mode?!, batch-mode?): initialize more
usefully so they will work from a script.
1997-11-09 23:36:17 +00:00
Jim Blandy
6ac3c29227 * expect.scm (expect-strings): Pass regexp/newline flag to
make-regexp.
1997-06-24 05:33:29 +00:00
Jim Blandy
ec8469e7cb * expect.scm: Turn this into a module, (ice-9 expect).
(expect-port, expect-timeout, expect-timeout-proc,
expect-eof-proc, expect-char-proc, expect, expect-strings,
expect-select): Make these public definitions.
(expect-strings): Use make-regexp and regexp-exec, instead of
regcomp and regexec.  We've omitted the REG_NEWLINE flag; hope
that's okay.
1997-06-13 05:50:37 +00:00
Jim Blandy
1532804164 * COPYING, boot-9.scm, debug.scm, emacs.scm, expect.scm, gtcl.scm,
gwish.scm, hcons.scm, lineio.scm, mapping.scm, nonblocking.scm,
oldprint.scm, poe.scm, r4rs.scm, source.scm, tags.scm, test.scm,
threads.scm: New address for FSF.
1997-05-26 22:26:48 +00:00
Gary Houston
cafa4c681e * expect.scm: use gettimeofday instead of get-internal-real-time
and use a floating point timeout when calling select.  Untested,
since the regex library is currently AWOL.
1997-05-15 08:48:38 +00:00
Gary Houston
708bf0f343 * expect.scm (expect-select): correct the millisecond timeout
arithmetic (from Marko.Kohtala@ntc.nokia.com).
	* boot-9.scm (open-input-pipe, open-output-pipe): defined here
	instead of in libguile.
	(tm:sec etc.) new accessors for broken-down time.
	(set-tm:sec etc.) new setters for broken-down time.
1997-04-05 21:58:35 +00:00
Gary Houston
d7189b4983 * Makefile.in (scm_files): add expect.scm.
* expect.scm: new file ported from guile-iii.
1996-10-17 23:21:10 +00:00