You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
98 lines
1.6 KiB
98 lines
1.6 KiB
//+-------------------------------------------------------------------------
|
|
//
|
|
// Microsoft Windows
|
|
//
|
|
// Copyright (C) Microsoft Corporation, 1998 - 1999
|
|
//
|
|
// File: tclhelp.h
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
#include <tcl.h>
|
|
// #include "tcldllUtil.h"
|
|
#if 15 != _ANSI_ARGS_(15)
|
|
#error Missing argument definitions
|
|
#endif
|
|
|
|
typedef enum {
|
|
format_undefined,
|
|
format_text,
|
|
format_hexidecimal,
|
|
format_file,
|
|
format_octal,
|
|
format_binary,
|
|
format_decimal,
|
|
format_empty
|
|
} formatType;
|
|
|
|
extern int
|
|
commonParams(
|
|
Tcl_Interp *interp,
|
|
int argc,
|
|
char *argv[],
|
|
DWORD *cmdIndex,
|
|
formatType *inFormat,
|
|
formatType *outFormat);
|
|
|
|
extern int
|
|
inParam(
|
|
Tcl_Interp *interp,
|
|
BYTE **output,
|
|
BYTE *length,
|
|
char *input,
|
|
formatType format);
|
|
|
|
extern int
|
|
setResult(
|
|
Tcl_Interp *interp,
|
|
BYTE *aResult,
|
|
BYTE aResultLen,
|
|
formatType outFormat);
|
|
|
|
extern BOOL
|
|
ParamCount(
|
|
Tcl_Interp *interp,
|
|
DWORD argc,
|
|
DWORD cmdIndex,
|
|
DWORD dwCount);
|
|
|
|
extern void
|
|
badSyntax(
|
|
Tcl_Interp *interp,
|
|
char *argv[],
|
|
DWORD cmdIndex);
|
|
|
|
extern void
|
|
cardError(
|
|
Tcl_Interp *interp,
|
|
DWORD sc_status,
|
|
BYTE classId);
|
|
|
|
extern void
|
|
SetMultiResult(
|
|
Tcl_Interp *interp,
|
|
LPTSTR mszResult);
|
|
|
|
extern LPWSTR
|
|
Unicode(
|
|
LPCSTR sz);
|
|
|
|
extern char
|
|
outfile[FILENAME_MAX];
|
|
static const DWORD dwUndefined = (DWORD)(-1);
|
|
|
|
extern char *
|
|
ErrorString(
|
|
long theError);
|
|
|
|
extern void
|
|
FreeErrorString(
|
|
void);
|
|
|
|
extern int
|
|
poption(
|
|
const char *opt,
|
|
...);
|
|
|
|
|
|
|