Posted to tcl by Bradipo at Sun Mar 20 05:33:48 GMT 2011view pretty

                if (0 >= (rc = read(0,line,BUFSIZ))) {
                        if (!newcmd) line[0] = 0;
                        else exit(0);
                } else line[rc] = '\0';