if (line && *line)
{
add_history (line);
- scm_write (scm_from_locale_string ("("), send_channel);
+ //scm_write (scm_from_locale_string ("("), send_channel);
scm_write (scm_from_locale_string (line), send_channel);
- scm_write (scm_from_locale_string (")"), send_channel);
+ //scm_write (scm_from_locale_string (")"), send_channel);
+ scm_force_output (send_channel);
while (scm_char_ready_p (rec_channel) == SCM_BOOL_F) {
if (ctrl_c) break;
if (ctrl_c)
ctrl_c = 0;
else {
- buffer = scm_read_line (rec_channel);
+ buffer = scm_read (rec_channel);
printf ("%s\n", scm_to_locale_string (buffer));
}
}
char *host;
int port = 0;
int i;
- SCM pipes;
+ SCM fd1, fd2;
int pid;
- char *string = "prueba\n";
- int p[2];
- char buffer[150];
-
// Checking arguments
for (i = 1; i < argc; i++) {
if (strcmp (argv[i], "--shell-mode") == 0)
//start_remote_client (host, port);
return;
else {
- /*
- pipes = scm_pipe ();
+ fd1 = scm_pipe ();
+ fd2 = scm_pipe ();
pid = fork ();
- if (pid == 0)
- start_local_server (dirname (argv[0]), pipes);
- else
- gacela_client (SCM_CAR (pipes), SCM_CDR (pipes));
- */
- /*
if (pid == 0) {
- scm_write (scm_from_locale_string ("prueba"), SCM_CDR (pipes));
- sleep (10);
+ scm_close (SCM_CAR (fd1));
+ scm_close (SCM_CDR (fd2));
+ start_local_server (dirname (argv[0]), scm_cons (SCM_CAR (fd2), SCM_CDR (fd1)));
}
else {
- while (scm_char_ready_p (SCM_CAR (pipes)) == SCM_BOOL_F) {
- sleep (1);
- printf ("1\n");
- }
- SCM buffer;
- buffer = scm_read_line (SCM_CAR (pipes));
- printf ("%s\n", scm_to_locale_string (buffer));
+ scm_close (SCM_CDR (fd1));
+ scm_close (SCM_CAR (fd2));
+ gacela_client (SCM_CAR (fd1), SCM_CDR (fd2));
+ kill (pid, SIGKILL);
}
- */
- FILE *stream;
- pipe (p);
+
+ /*
+ SCM buffer;
if (pid == 0) {
- close (p[1]);
- stream = fdopen (p[0], "w");
- fprintf (stream, "prueba\n");
- fclose (stream);
- printf ("1\n");
- sleep (10);
+ printf ("Hijo: 0\n");
+ scm_write (scm_from_locale_string ("Hola mundo\n"), SCM_CDR (pipes));
+ scm_force_output (SCM_CDR (pipes));
+ printf ("Hijo: 1\n");
}
else {
- int c;
- close (p[0]);
- stream = fdopen (p[1], "r");
- while ((c = fgetc (stream)) != EOF)
- putchar (c);
+ printf ("Padre: 0\n");
+ buffer = scm_read (SCM_CAR (pipes));
+ printf ("%s\n", scm_to_locale_string (buffer));
+ printf ("Padre: 1\n");
}
+ */
}
}