/* ---------------------------------------------------------------------- */

#define ns__aproc0 "::aproc"
static void c__aproc0(Tcl_Channel x)
{

}

static int
tcl__aproc0(ClientData cd, Tcl_Interp *interp, Tcl_Size oc, Tcl_Obj *CONST ov[])
{
  Tcl_Channel _x;

  if (oc != 2) {
    Tcl_WrongNumArgs(interp, 1, ov, "x");
    return TCL_ERROR;
  }

  /* (unshared-channel x) - - -- --- ----- -------- */
	{
	int mode;
	_x = Tcl_GetChannel(interp, Tcl_GetString (ov[1]), &mode);
	if (_x == NULL) return TCL_ERROR;
	if (Tcl_IsChannelShared (_x)) {
	    Tcl_SetObjResult(interp, Tcl_NewStringObj("channel is shared", -1));
	    return TCL_ERROR;
	} }

  /* Call - - -- --- ----- -------- */
  c__aproc0(_x);

  /* (void return) - - -- --- ----- -------- */
	return TCL_OK;
}