summaryrefslogtreecommitdiffstats
path: root/fitsy/channel.C
blob: 7fb106fd7973176af7c76685ab0d8ff356885db1 (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-2018
// 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;
}