diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-09-05 23:23:46 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-09-05 23:23:46 -0700 |
| commit | 591329b9ec120941bf2852c5e794e5bc2b0d8f22 (patch) | |
| tree | 09ec9605d7c5ab7de0c58d298ce6585e6083b318 /lib.c | |
| parent | a4a89fb9816a5560cc396bcf3c8c5bfc66aae3f2 (diff) | |
| download | txr-591329b9ec120941bf2852c5e794e5bc2b0d8f22.tar.gz txr-591329b9ec120941bf2852c5e794e5bc2b0d8f22.tar.bz2 txr-591329b9ec120941bf2852c5e794e5bc2b0d8f22.zip | |
linenoise completion for txr symbols
Implement basic tab completion.
* lib.c (package_alist, package_name, package_symbols): New
functions.
* lib.h (package_alist, package_name, package_symbols):
Declared.
* parser.c (find_matching_syms, provide_completions):
New static functions.
(repl): Register provide_completions as completion callback
with linenoise.
Diffstat (limited to 'lib.c')
| -rw-r--r-- | lib.c | 17 |
1 files changed, 17 insertions, 0 deletions
@@ -3784,6 +3784,23 @@ val delete_package(val package) return nil; } +val package_alist(void) +{ + return packages; +} + +val package_name(val package) +{ + type_check (package, PKG); + return package->pk.name; +} + +val package_symbols(val package) +{ + type_check (package, PKG); + return hash_values(package->pk.symhash); +} + val intern(val str, val package) { val new_p; |