1
2
3
4
5
6
7
8
9
10
11
12
|
1
2
3
4
5
6
7
8
9
10
11
12
|
-
+
|
/* ==================================================================
FILE: "/home/joze/src/tclreadline/tclreadline.c"
LAST MODIFICATION: "Sun Aug 22 19:06:26 1999 (joze)"
LAST MODIFICATION: "Sun Aug 22 21:26:05 1999 (joze)"
(C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
$Id$
---
tclreadline -- gnu readline for tcl
Copyright (C) 1999 Johannes Zellner
|
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
|
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
|
-
+
-
+
|
{
rl_readline_name = "tclreadline";
rl_special_prefixes = "${";
using_history();
/**
* default is " \t\n\"\\'`@$><=;|&{("
* removed '{'.
* removed "{(.
*/
rl_basic_word_break_characters = " \t\n\"\\'`@$><=;|&(";
rl_basic_word_break_characters = " \t\n\"\\'`@$><=;|&";
if (!tclrl_eof_string)
tclrl_eof_string = strdup("puts {}; exit");
/*
* try to read historyfile in home
* directory. If this failes, this
* is *not* an error.
|