D 2017-10-19T10:55:18.569
J assignee nobody
J closer nobody
J cmimetype text/plain
J comment It\sseems\sthat\sreturn\svalue\sdescription\sof\s`Tcl_Flush`\sin\sdocument[1]\sis\snot\sconsistent\swith\sthe\simplementation,\sit\ssays\sresult\swill\sbe\s`TCL_OK`\sor\s`TCL_ERROR`,\sbut\ssometimes\s`-1`\sis\sreturned.\se.g.:\r\n\r\n```\r\n#include\s<tcl.h>\r\n\r\n\r\nint\smain()\r\n{\r\n\s\s\s\s\s\s\s\sTcl_Interp\s*interp\s=\sTcl_CreateInterp();\r\n\r\n\s\s\s\s\s\s\s\sTcl_Channel\schannel\s=\sTcl_GetStdChannel(TCL_STDIN);\r\n\r\n\s\s\s\s\s\s\s\sprintf("TCL_OK\s=\s%d\\n",\sTCL_OK);\r\n\s\s\s\s\s\s\s\sprintf("TCL_ERROR\s=\s%d\\n",\sTCL_ERROR);\r\n\s\s\s\s\s\s\s\sprintf("Tcl_Flush(stdin)\s=\s%d\\n",\sTcl_Flush(channel));\r\n\r\n\s\s\s\s\s\s\s\sTcl_DeleteInterp(interp);\r\n\r\n\s\s\s\s\s\s\s\sreturn\s0;\r\n}\r\n```\r\n\r\nOutput:\r\n\r\n```\r\nTCL_OK\s=\s0\r\nTCL_ERROR\s=\s1\r\nTcl_Flush(stdin)\s=\s-1\r\n```\r\n\r\n[1]\shttps://tcl.tk/man/tcl8.6/TclLib/OpenFileChnl.htm#M19
J is_private 0
J login dram
J priority 5\sMedium
J resolution None
J severity Minor
J status Open
J submitter dram
J subsystem -\sNew\sBuiltin\sCommands
J title Return\svalue\sof\s`Tcl_Flush`
J type Bug
K b58e6897034fc5292c9d36ba8099d9a835c98172
U dram
Z 5e374c54a6ad9d1b7cdf2c017b43ab85
