window开源asn.1

/*
 * file: tcl-p.c
 * purpose: check and return via exit code whether the tcl interface needs to be made
 *
 * $Header: /baseline/SNACC/tcl-p.cv 1.2 2003/12/17 19:05:02 gronej Exp $
 * $Log: tcl-p.cv $
 * Revision 1.2  2003/12/17 19:05:02  gronej
 * SNACC baseline merged with PER v1_7 tag
 *
 * Revision 1.1.2.1  2003/11/05 14:58:53  gronej
 * working PER code merged with esnacc_1_6
 *
 * Revision 1.1.1.1  2000/08/21 20:35:46  leonberp
 * First CVS Version of SNACC.
 *
 * Revision 1.1  1995/07/25  22:24:48  rj
 * new file
 *
 */

#define COMPILER	1

#include “snacc.h“

main（）
{
#if TCL
  return 0;
#else
  return 1;
#endif
}