blob: de092a4e47b4a70be6fa7c6eb92db9b0571c8747 (
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-2017
// 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;
}
|