692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
|
*/
Tcl_Command
TclInitBinaryCmd(
Tcl_Interp *interp)
{
const EnsembleImplMap binaryMap[] = {
{ "format", BinaryFormatCmd, NULL, NULL ,NULL },
{ "scan", BinaryScanCmd, NULL,NULL ,NULL },
{ "encode", NULL, NULL, NULL, NULL },
{ "decode", NULL, NULL, NULL, NULL },
{ NULL, NULL, NULL, NULL, NULL }
};
const EnsembleImplMap encodeMap[] = {
{ "hex", BinaryEncodeHex, NULL, NULL, (ClientData)HexDigits },
{ "uuencode", BinaryEncode64, NULL, NULL, (ClientData)UueDigits },
{ "base64", BinaryEncode64, NULL, NULL, (ClientData)B64Digits },
{ NULL, NULL, NULL, NULL, NULL }
};
const EnsembleImplMap decodeMap[] = {
{ "hex", BinaryDecodeHex, NULL, NULL, NULL },
{ "uuencode", BinaryDecodeUu, NULL, NULL, NULL },
{ "base64", BinaryDecode64, NULL, NULL, NULL },
{ NULL, NULL, NULL, NULL, NULL }
};
Tcl_Command binaryEnsemble;
binaryEnsemble = TclMakeEnsemble(interp, "binary", binaryMap);
TclMakeEnsemble(interp, "binary encode", encodeMap);
TclMakeEnsemble(interp, "binary decode", decodeMap);
return binaryEnsemble;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
|
*/
Tcl_Command
TclInitBinaryCmd(
Tcl_Interp *interp)
{
const EnsembleImplMap binaryMap[] = {
{ "format", BinaryFormatCmd, NULL, NULL },
{ "scan", BinaryScanCmd, NULL,NULL },
{ "encode", NULL, NULL, NULL },
{ "decode", NULL, NULL, NULL },
{ NULL, NULL, NULL, NULL }
};
const EnsembleImplMap encodeMap[] = {
{ "hex", BinaryEncodeHex, NULL, (ClientData)HexDigits },
{ "uuencode", BinaryEncode64, NULL, (ClientData)UueDigits },
{ "base64", BinaryEncode64, NULL, (ClientData)B64Digits },
{ NULL, NULL, NULL, NULL }
};
const EnsembleImplMap decodeMap[] = {
{ "hex", BinaryDecodeHex, NULL, NULL },
{ "uuencode", BinaryDecodeUu, NULL, NULL },
{ "base64", BinaryDecode64, NULL, NULL },
{ NULL, NULL, NULL, NULL }
};
Tcl_Command binaryEnsemble;
binaryEnsemble = TclMakeEnsemble(interp, "binary", binaryMap);
TclMakeEnsemble(interp, "binary encode", encodeMap);
TclMakeEnsemble(interp, "binary decode", decodeMap);
return binaryEnsemble;
|