You can edit this page using wiki syntax for markup.

Article contents:== Outdated egg! This is an egg for CHICKEN 4, the unsupported old release. You're almost certainly looking for [[/eggref/5/parley|the CHICKEN 5 version of this egg]], if it exists. If it does not exist, there may be equivalent functionality provided by another egg; have a look at the [[https://wiki.call-cc.org/chicken-projects/egg-index-5.html|egg index]]. Otherwise, please consider porting this egg to the current version of CHICKEN. [[tags: egg]] [[toc:]] == parley - Negotiate your input === Introduction {{parley}} is a BSD licensed line editing module implemented in scheme which integrates nicely with CHICKEN's scheduler. As of version 0.9 either single line editing mode or multiline editing mode is supported. See ''(refresh-line)'' in the parameter listing below. === Usage <enscript highlight=scheme> (require-extension parley) (require-extension parley-auto-completion) ;; Add when needed </enscript> === Requirements [[stty]] and core units. === Source code The parley source code repository is hosted on bitbucket: [[https://bitbucket.org/ckeen/parley]] === Documentation ==== parley <procedure>(parley STRING)</procedure> Prompts the user with prompt STRING and reads a whole line. This uses non-blocking I/O and returns a string or {{#eof!}}. ==== terminal-supported? <procedure>(terminal-supported? PORT STRING)</procedure> Checks if the terminal connected on PORT with name STRING is supported. If not {{parley}} will resort back to a dumb (non-blocking) readline implementation. Unsupported terminals will not trigger any user defined key-bindings. ==== history-to-file <procedure>(history-to-file STRING)</procedure> Dumps the current history to a file named in STRING. The file is overwritten if it already exists. ==== history-from-file <procedure>(history-from-file STRING)</procedure> Reads a previously saved history into memory. Note that currently {{parley}}'s history is global. ==== add-key-binding! <procedure>(add-key-binding! CHAR PROC #!key (esc-sequence #f))</procedure> Register's PROC to be executed when CHAR is entered. If {{esc-sequence}} is {{#t}}, PROC will be called upon the sequence {{#\1b[CHAR}}. ==== make-parley-port <procedure>(make-parley-port PORT #!key (prompt #f) (prompt2 #f) (history-file #f))</procedure> Creates a scheme port that reads from PORT and writes to {{(current-output-port)}}. See below for a usage example in CSI. ==== Example <enscript highlight="scheme"> #;1> (parley "> ") > Hello, World! "Hello, World!" #;2> </enscript> ==== Parameters: <parameter>(history-max-lines NUMBER)</parameter> Number of lines the history will hold. If this maximum is exceeded the oldest line will be discarded. <parameter>(mark-more-input? STRING)</parameter> If not set to ''#f'' the string will be printed over the left and right edges, when there is more input hidden on either side of the screen. Defaults to "…" and is effective in single line mode only. <parameter>(refresh-line REFRESH-PROCEDURE)</parameter> This parameter sets the editing mode for parley. It is either ''singleline-refresh'' the default or ''multiline-refresh''. ==== Core Keybindings Currently the following keybindings are implemented: * Cursor movement: Arrow keys (left right), CTRL-A, CTRL-E * History: Arrow keys (up down), CTRL-P, CTRL-N for previous and next in history * Editing / Deletion: CTRL-U for the current line, CTRL-K for everything after the cursor, CTRL-T swap current char with previous * Terminal handling: CTRL-L clears the screen ==== User defined key bindings A handler for a character is a procedure that accepts and returns a parley state record. The following getters and setters for the record ''state'' are exported: ; prompt : The shown prompt for the line or "", getter only ; line : The current line as string ; pos : The current (0-based) cursor position wrt to line ; return : A continuation that should be called if the input is done. This usually breaks out of the prompt loop. ; offset : The offset of the current line. This is non zero if earlier function printed something on our line (like ''display'') New keybindings are added with the ''add-key-binding!'' procedure, which will override the current handler for the given key if present. If you like to add an escape sequence set the ''esc-sequence:'' keyword parameter to ''#t''. This will match on ESQ Sequences like '\x1b[<char>'. ===== Example key binding This handler deletes the all the text from the cursor position to the end of the line: <enscript highlight="scheme"> (use parley srfi-14) (define (delete-last-word line pos) (let* ((del-pos (or (string-index-right line (char-set-union char-set:whitespace char-set:punctuation) 0 pos) 0)) (left-part (if (> del-pos 0) (string-take line del-pos) "")) (npos (- pos (- pos del-pos)))) (values (string-append left-part (string-drop line pos)) npos))) (define (cw parley-state) (receive (l p) (delete-last-word (state-line parley-state) (state-pos parley-state)) (state-pos-set! parley-state p) (state-line-set! parley-state l) parley-state)) (add-key-binding! #\x17 cw) </enscript> ==== Using parley in CSI Parley of course can also be used within csi. Just add this to .csirc: <enscript highlight="scheme> (use parley) (let ((old (current-input-port))) (current-input-port (make-parley-port old))) </enscript> ==== Using parley-auto-completion Parley offers by default no support for autocompletion. One could add her own handler and bind this to a convenient key, but as this might be of a more general interest this module is provided to enable programmers to add completion to their input prompts. The behaviour of the completion mechanism can be tweaked through a small number of parameters. The items to look for completions can either be a simple list of strings (by using the '''completion-list''' procedure) or a more sophisticated handler procedure that can react to the already written input, cursor position and last word. This makes command/argument completions possible that are depending on the context. Of course one can also define what a word actually means for the running application. ===== auto-completion-handler A procedure to pass to '''add-key-binding!''' (see above). ===== beep? <parameter>(beep? #t)</parameter> If #t (the default) a alarm character is sent when there are more than one possible completions. ===== completion-choices <parameter>(completion-choices (lambda (input position last-word) '()))</parameter> A parameter holding the selection procedure. The procedure is called to actually return a list of possible completions depending on the whole '''input''' line, the current cursor '''position''' and the detected '''last-word'''. Should return either the empty list if no completions can be found or a list of strings. ===== completion-list <procedure>(completion-list list-of-strings)</procedure> Convenience procedure to provide a simple string list to look for possible completions. Sets the '''completion-choices''' parameter. ===== print-completions <parameter>(print-completions (lambda (completions) ...))</parameter> Handles how the completions are handled. By default it prints the number of completions a newline and each completion separated by a space character, ending with a newline. ===== word-class <parameter>(word-class '($ (+ (~ whitespace))))</parameter> This defines how the last word in the input string is found. '''word-class''' takes any '''irregex''' expression. === Author [[/users/christian kellermann|Christian Kellermann]] === License Copyright 2014 Christian Kellermann <ckeen@pestilenz.org>. All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. THIS SOFTWARE IS PROVIDED BY CHRISTIAN KELLERMANN ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL CHRISTIAN KELLERMANN OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. The views and conclusions contained in the software and documentation are those of the authors and should not be interpreted as representing official policies, either expressed or implied, of Christian Kellermann. === Version History ; 0.9 : Multiline edit and incompatible handler API change, fixed single line mode ; 0.8.2 : Bugfix which has been shadowed by a flaw in stty ; 0.8 : Add input history, mark when there's off the screen input, thanks Jean Snell-Pym, parley-auto-completion module added ; 0.7 : Internal refactoring and support for CTRL-L thanks to Moritz Heidkamp ; 0.6 : Bugfix for bug 721 (thanks to Alan Post for the report), improved pasting support. ; 0.5 : Do not overwrite output on the same line, when starting. Thanks to Matthias Bauer. ; 0.4 : Handle eof correctly ; 0.3 : do not flush input when setting terminal attributes, thanks again certainty ; 0.2 : bugfix release, thanks to certainty ; 0.1 : initial release Description of your changes:

I would like to authenticate

Spam control

What do you get when you multiply 2 by 3?