git » unicorn-sparkle-basic.git » commit ae84cb7

WIP readline hook

author Alan Dipert
2024-01-11 17:52:55 UTC
committer Alan Dipert
2024-01-11 17:52:55 UTC
parent 9d4eac112fdf461d398ec4499a6acd27cf24e574

WIP readline hook

parse.c +7 -0

diff --git a/parse.c b/parse.c
index 4ceb2bf..f6eb2a7 100644
--- a/parse.c
+++ b/parse.c
@@ -60,9 +60,16 @@ struct node_tag *read_line(char *line) {
   return yyparse_failed ? NULL : ast_last_numbered_line;
 }
 
+int set_initial_buffer() {
+  rl_replace_line("custom!", 1);
+  rl_redisplay();
+  return 0;
+}
+
 struct node_tag *read_line_stdin(char *prompt) {
   char *line = NULL;
   struct node_tag *read_node;
+  rl_startup_hook = set_initial_buffer;
   line = readline(prompt);
   if (strlen(line) == 0)
     return NULL;