Racket shell v0.1

racket 是一個許多人在用的 scheme 實作，但其 interpreter 在 interactive mode 時並沒有很方便的控制方式。既不能使用方向鍵移動修改，也沒有 history 的功能。要為 racket 直接加入這個功能其實也不難，但想到要先找出進入點就有點累...

剛好在系統程序員成長計畫中看到類似的問題（想讓命令列 jdb 的使用更方便），該作者提出了一個解法  - 增加一層 shell。這個想法很棒，可以在使用原本 binary 檔的情況下預作 readline 的動作，這麼一來就可達成我要的效果。溝通的機制則用 pipe 即可（若是要為 terminal-based program 做這件事，就得祭出 pseudo terminal 了）。OK，江湖一點訣，點破不值錢，實作如下：

1. #include <stdlib.h>
2. #include <stdio.h>
3. #include <unistd.h>
4. #include <readline/readline.h>
5. #include <readline/history.h>
7. int main()
8. {
9.         char* input;
10.         int pipe_fds[2];
11.         ssize_t input_bytes = 0;
12.         char output[1024];
14.         if (pipe(pipe_fds) == -1) {
15.                 fprintf(stderr, "pipe open fail\n");
16.                 exit(-1);
17.         }
19.         switch (fork()) {
20.                 case -1:
21.                         fprintf(stderr, "fork fail\n");
22.                         exit(-1);
23.                 case 0: // child
24.                         close(pipe_fds[1]);
25.                         dup2(pipe_fds[0], STDIN_FILENO);
26.                         close(pipe_fds[0]);
27.                         execlp("racket", "racket", (char *) NULL);          /* Writes to pipe */
28.                 default: // parent
29.                         break;
30.         }
32.         for(;;) {
33.                 char cmd[1024] = {'\0'};
35.                 // Display prompt and read input (n.b. input must be freed after use)...
36.                 input = readline("");
38.                 // Check for EOF.
39.                 if (!input) {
40.                         break;
41.                 }
43.                 // write to racket
44.                 sprintf(cmd, "%s\n", input);
45.                 write(pipe_fds[1], cmd, strlen(cmd));
47.                 // Add input to history.
48.                 add_history(input);
50.                 // Free input.
51.                 free(input);
52.         }
53. }