/* CB reader for the stdin pipe, and follows the calling conventions for a pipe readers; it has one argument, the stdin pipe that it is reading.  */
static int l_read_stdin(lua_State *L)
/* CB reader for the stdin pipe, and follows the calling conventions for a pipe readers; it has one argument, the stdin pipe that it is reading.  */
static int l_read_stdin(lua_State *L)
{
    lua_insert(L, 1);
    lua_getfield(L, 2, "unread");
    lua_insert(L, 2);
    lua_call(L, 2, 0);
    return 1;
  }
  lua_pop(L, 1);
  lua_pushlstring(L, b, --l);
  lua_remove(L, 2);
  dojob(L);
  return 0;
}