Overview
Comment: | changes for 8.1 |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
dfae39d1f30e7e7fce43655c59256469 |
User & Date: | johannes@zellner.org on 1999-05-08 14:22:49 |
Other Links: | manifest | tags |
Context
1999-05-10
| ||
11:10 | before initial relase check-in: 8e3e39bef5 user: johannes@zellner.org tags: trunk | |
1999-05-08
| ||
14:22 | changes for 8.1 check-in: dfae39d1f3 user: johannes@zellner.org tags: trunk | |
1999-03-01
| ||
12:38 | *** empty log message *** check-in: 701dc63beb user: johannes@zellner.org tags: trunk | |
Changes
Modified Makefile.in from [8b163bbc13] to [52046d456f].
1 | # -*- make -*- | < | | | < | | > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | # -*- make -*- # FILE: "/krispc6/home/joze/src/tclreadline/Makefile.in" # LAST MODIFICATION: "Sat May 8 15:10:15 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 # of the License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # johannes@zellner.org # http://www.zellner.org/tclreadline/ # # ================================================================== MAJOR_VERSION = @TCLREADLINE_MAJOR_VERSION@ MINOR_VERSION = @TCLREADLINE_MINOR_VERSION@ VERSION = @TCLREADLINE_VERSION@ |
︙ | ︙ | |||
128 129 130 131 132 133 134 | #---------------------------------------------------------------- # The information below is modified by the configure script when # Makefile is generated from Makefile.in. You shouldn't normally # modify any of this stuff by hand. #---------------------------------------------------------------- RANLIB = @RANLIB@ | | > > > | 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 | #---------------------------------------------------------------- # The information below is modified by the configure script when # Makefile is generated from Makefile.in. You shouldn't normally # modify any of this stuff by hand. #---------------------------------------------------------------- RANLIB = @RANLIB@ TOP_DIR = $(srcdir) TCL_INCLUDE_DIR = @TCL_INCLUDE_DIR@ READLINE_INCLUDE_DIR = @READLINE_INCLUDE_DIR@ TCLREADLINE_LIB_FILE = @TCLREADLINE_LIB_FILE@ READLINE_LIB = -L@READLINE_LIB_DIR@ -lreadline TERMCAP_LIB = -L@TERMCAP_LIB_DIR@ -l@TERMCAP_LIB@ #---------------------------------------------------------------- # The information below should be usable as is. The configure # script won't modify it and you shouldn't need to modify it # either. #---------------------------------------------------------------- |
︙ | ︙ | |||
182 183 184 185 186 187 188 | .SUFFIXES: .c .o .so .sl .tcl all: $(TCLREADLINE_LIB_FILE) pkgIndex.tcl @TCLREADLINE_LIB_FILE@: ${OBJS} rm -f $(TCLREADLINE_LIB_FILE) | | | 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 | .SUFFIXES: .c .o .so .sl .tcl all: $(TCLREADLINE_LIB_FILE) pkgIndex.tcl @TCLREADLINE_LIB_FILE@: ${OBJS} rm -f $(TCLREADLINE_LIB_FILE) @MAKE_LIB@ $(TERMCAP_LIB) $(READLINE_LIB) $(RANLIB) $(TCLREADLINE_LIB_FILE) install: install-binaries install-libraries install-man install-man: $(MANN_INSTALL_DIR)/$(MAN) install-binaries: $(TCLREADLINE_LIB_FILE) @$(MKINSTALLDIRS) $(LIBRARY_INSTALL_DIR) |
︙ | ︙ | |||
210 211 212 213 214 215 216 | $(INSTALL_DATA) tclreadlineConfig.sh $(LIBRARY_INSTALL_DIR) FORCE: $(MANN_INSTALL_DIR)/$(MAN): FORCE - $(INSTALL_DATA) $(srcdir)/$(MAN) $@ && chmod 644 $@ | | | 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 | $(INSTALL_DATA) tclreadlineConfig.sh $(LIBRARY_INSTALL_DIR) FORCE: $(MANN_INSTALL_DIR)/$(MAN): FORCE - $(INSTALL_DATA) $(srcdir)/$(MAN) $@ && chmod 644 $@ pkgIndex.tcl: @echo "eval pkg_mkIndex $(TOP_DIR) tclreadline*.tcl" | tclsh Makefile: $(TOP_DIR)/Makefile.in $(SHELL) config.status clean: rm -f *.a *.o core errs *~ \#* tags* *.E a.out errors so_locations |
︙ | ︙ |
Modified README from [9b0fb9d8aa] to [e9f79be895].
1 |
| | | | < | < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | FILE: "/krispc6/home/joze/src/tclreadline/README" LAST MODIFICATION: "Sat May 8 14:05:41 1999 (joze)" (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> $Id$ --- tclreadline -- gnu readline for tcl Copyright (C) 1999 Johannes Zellner This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. <johannes@zellner.org>, http://www.zellner.org/tclreadline/ tclreadline 1. Introduction --------------- |
︙ | ︙ |
Added sample.tclshrc version [693bb1ae82].
> > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | #!/usr/local/bin/tclsh # # FILE: "/krispc6/home/joze/src/tclreadline/sample.tclshrc" # LAST MODIFICATION: "Sat May 8 14:02:19 1999 (joze)" # (C) 1999 by Johannes Zellner # johannes@zellner.org # $Id$ if {$tcl_interactive} { package require tclreadline namespace import ::tclreadline::Print # ::tclreadline::Print no ::tclreadline::Loop } |
Modified tclreadline.c from [83b24cf018] to [73a4a8f6a3].
1 2 | /* ================================================================== | > | | | < | | > > | | | > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | /* ================================================================== FILE: "/krispc6/home/joze/src/tclreadline/tclreadline.c" LAST MODIFICATION: "Sat May 8 16:20:59 1999 (joze)" (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> $Id$ --- tclreadline -- gnu readline for tcl Copyright (C) 1999 Johannes Zellner This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. <johannes@zellner.org>, http://www.zellner.org/tclreadline/ ================================================================== */ #include <tcl.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #define READLINE_LIBRARY #include <readline.h> #include <history.h> #include <tclreadline.h> #define MALLOC(size) Tcl_Alloc ((int) size) #define FREE(ptr) if (ptr) Tcl_Free ((char *) ptr) enum { _CMD_SET = (1 << 0), _CMD_GET = (1 << 1), _CMD_SUB_GET = (1 << 2) }; typedef struct cmds_t { struct cmds_t *prev; char **cmd; struct cmds_t *next; } cmds_t; |
︙ | ︙ | |||
70 71 72 73 74 75 76 | } while (0) #define STRIPWHITE(ptr) \ do { \ STRIPLEFT (ptr); \ STRIPRIGHT (ptr); \ } while (0) | < < < | 73 74 75 76 77 78 79 80 81 82 83 84 85 86 | } while (0) #define STRIPWHITE(ptr) \ do { \ STRIPLEFT (ptr); \ STRIPRIGHT (ptr); \ } while (0) /* * forward declarations. */ int TclReadlineCmd (ClientData clientData, Tcl_Interp *interp, int argc, char **argv); |
︙ | ︙ | |||
122 123 124 125 126 127 128 | for (c = 0; c < argc; c++) fprintf (stderr, "argv[%d] = %s\n", c, argv[c]); return TCL_ERROR; } c = argv[1][0]; length = strlen(argv[1]); | < | 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | for (c = 0; c < argc; c++) fprintf (stderr, "argv[%d] = %s\n", c, argv[c]); return TCL_ERROR; } c = argv[1][0]; length = strlen(argv[1]); if (c == 'r' && strncmp (argv[1], "read", length) == 0) { char *expansion = (char *) NULL; int status; |
︙ | ︙ | |||
226 227 228 229 230 231 232 | int Tclreadline_SafeInit (Tcl_Interp *interp) { return (Tclreadline_Init (interp)); } int Tclreadline_Init (Tcl_Interp *interp) { | < < | 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 | int Tclreadline_SafeInit (Tcl_Interp *interp) { return (Tclreadline_Init (interp)); } int Tclreadline_Init (Tcl_Interp *interp) { Tcl_CreateCommand (interp, "::tclreadline::readline", TclReadlineCmd, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); return (Tcl_PkgProvide (interp, "tclreadline", TCLREADLINE_VERSION)); } char *TclReadlineInitialize (char *historyfile) { rl_readline_name = "tclreadline"; |
︙ | ︙ | |||
416 417 418 419 420 421 422 | */ while ((*buf == ' ') || (*buf == '\t') || (*buf == '\n')) *buf++ = '\0'; if (!(*buf)) /* don't count the terminating NULL */ break; | < < < < < < < < | 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 | */ while ((*buf == ' ') || (*buf == '\t') || (*buf == '\n')) *buf++ = '\0'; if (!(*buf)) /* don't count the terminating NULL */ break; *args++ = buf; nr++; while ((*buf!='\0') && (*buf!=' ') && (*buf!='\t') && (*buf!='\n')) buf++; } *args = '\0'; return nr; } |
Modified tclreadline.h.in from [9edfb6a933] to [a6316a5a56].
1 2 3 | /* ================================================================== | | | | < | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | /* ================================================================== FILE: "/krispc6/home/joze/src/tclreadline/tclreadline.h.in" LAST MODIFICATION: "Sat May 8 14:03:02 1999 (joze)" (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> $Id$ --- tclreadline -- gnu readline for tcl Copyright (C) 1999 Johannes Zellner This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. johannes@zellner.org http://www.zellner.org/tclreadline/ ================================================================== */ static char *TCLREADLINE_VERSION = "@TCLREADLINE_VERSION@"; |
Modified tclreadline.n.in from [9557ae4fe6] to [7f71db01a7].
1 2 | .TH tclreadline n "@TCLREADLINE_VERSION@" "Johannes Zellner" | > | | | < | < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | .TH tclreadline n "@TCLREADLINE_VERSION@" "Johannes Zellner" .\" (C) 1999 by Johannes Zellner .\" FILE: "/krispc6/home/joze/src/tclreadline/tclreadline.n.in" .\" LAST MODIFICATION: "Sat May 8 14:07:46 1999 (joze)" .\" (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> .\" $Id$ .\" --- .\" .\" tclreadline -- gnu readline for the tcl scripting language .\" Copyright (C) 1999 Johannes Zellner .\" .\" This program is free software; you can redistribute it and/or .\" modify it under the terms of the GNU General Public License .\" as published by the Free Software Foundation; either version 2 .\" of the License, or (at your option) any later version. .\" .\" This program is distributed in the hope that it will be useful, .\" but WITHOUT ANY WARRANTY; without even the implied warranty of .\" MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the .\" GNU General Public License for more details. .\" .\" You should have received a copy of the GNU General Public License .\" along with this program; if not, write to the Free Software .\" Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. .\" .\" <johannes@zellner.org>, http://www.zellner.org/tclreadline/ .SH NAME tclreadline \- gnu readline for the tcl scripting language .SH SYNOPSIS |
︙ | ︙ | |||
190 191 192 193 194 195 196 | .PP The official \fBtclreadline\fP web site at: .PP .RS 4 | | | | 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 | .PP The official \fBtclreadline\fP web site at: .PP .RS 4 http://www.zellner.org/tclreadline/ .RE .SH AUTHOR(S) Johannes Zellner .br <johannes@zellner.org> .br If you want to be listed here, you have to contribute to the code :-) (see below). .SH HISTORY This version of \fBtclreadline\fP is still a development version. Pretty a lot of features and ideas are not implemented yet. The reason for this is the lack of time and manpower. So you are welcome to modify and contribute to the code. If you have suggestions, please let me know. |
Modified tclreadlineConfig.sh.in from [6ae67959cd] to [b0b13d39ee].
|
| < | | | | < | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | #!/bin/sh # FILE: "/krispc6/home/joze/src/tclreadline/tclreadlineConfig.sh.in" # LAST MODIFICATION: "Sat May 8 14:03:17 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 # of the License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # johannes@zellner.org # http://www.zellner.org/tclreadline/ # # ================================================================== # # This shell script (for sh) is generated automatically by tclreadline's # configure script. It will create shell variables for most of # the configuration options discovered by the configure script. # This script is intended to be included by the configure scripts |
︙ | ︙ |
Modified tclreadlineInit.tcl.in from [bd7543348e] to [49ecba8dbd].
1 | #!/usr/local/bin/tclsh | < | | | < | | < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | #!/usr/local/bin/tclsh # FILE: "/krispc6/home/joze/src/tclreadline/tclreadlineInit.tcl.in" # LAST MODIFICATION: "Sat May 8 15:02:23 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 # of the License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # johannes@zellner.org # http://www.zellner.org/tclreadline/ # # ================================================================== package provide tclreadline @TCLREADLINE_VERSION@ namespace eval tclreadline:: { namespace export Init } proc ::tclreadline::Init {} { global tclreadline_version global tclreadline_library set tclreadline_version @TCLREADLINE_VERSION@ set tclreadline_library @TCLREADLINE_LIBRARY@ if [catch {load @TCLREADLINE_LIBRARY@/@TCLREADLINE_LIB_FILE@} msg] { puts stderr $msg exit 2 } } |
Modified tclreadlineSetup.tcl.in from [b4f2d71b1d] to [e96ff9502d].
1 | #!/usr/local/bin/tclsh | < | | | < | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | #!/usr/local/bin/tclsh # FILE: "/krispc6/home/joze/src/tclreadline/tclreadlineSetup.tcl.in" # LAST MODIFICATION: "Sat May 8 14:03:47 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 # of the License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # johannes@zellner.org # http://www.zellner.org/tclreadline/ # # ================================================================== package provide tclreadline @TCLREADLINE_VERSION@ proc unknown args { |
︙ | ︙ |