summaryrefslogtreecommitdiffstats
path: root/tksao/fitsy++/channel.C
blob: 8d0b8da83709ed92ff69398978c8f338d855e4da (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
// Copyright (C) 1999-2016
// Smithsonian Astrophysical Observatory, Cambridge, MA, USA
// For conditions of distribution and use, see copyright notice in "copyright"

#include <tcl.h>

#include "channel.h"

FitsChannel::FitsChannel(Tcl_Interp* interp, const char* ch, const char* ext) 
{
  parse(ext);
  if (!valid_)
    return;

  int tclMode;
  stream_ = Tcl_GetChannel(interp, (char*)ch, &tclMode);

  valid_ = stream_ ? 1 : 0;
}