117 lines
2.5 KiB
Plaintext
117 lines
2.5 KiB
Plaintext
|
{
|
||
|
|
$Project$
|
||
|
|
$Workfile$
|
||
|
|
$Revision$
|
||
|
|
$DateUTC$
|
||
|
|
$Id$
|
||
|
|
|
||
|
|
This file is part of the Indy (Internet Direct) project, and is offered
|
||
|
|
under the dual-licensing agreement described on the Indy website.
|
||
|
|
(http://www.indyproject.org/)
|
||
|
|
|
||
|
|
Copyright:
|
||
|
|
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
|
||
|
|
}
|
||
|
|
{
|
||
|
|
$Log$
|
||
|
|
}
|
||
|
|
{
|
||
|
|
Rev 1.6 1/21/2004 1:44:16 PM JPMugaas
|
||
|
|
InitComponent
|
||
|
|
|
||
|
|
Rev 1.5 10/16/2003 11:11:18 PM DSiders
|
||
|
|
Added localization comments.
|
||
|
|
|
||
|
|
Rev 1.4 2003.06.13 6:57:12 PM czhower
|
||
|
|
Speed improvement
|
||
|
|
|
||
|
|
Rev 1.2 6/13/2003 07:58:48 AM JPMugaas
|
||
|
|
Should now compile with new decoder design.
|
||
|
|
|
||
|
|
Rev 1.1 2003.06.13 3:41:20 PM czhower
|
||
|
|
Optimizaitions.
|
||
|
|
|
||
|
|
Rev 1.0 11/14/2002 02:15:06 PM JPMugaas
|
||
|
|
}
|
||
|
|
|
||
|
|
unit IdCoderUUE;
|
||
|
|
|
||
|
|
{$i IdCompilerDefines.inc}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
{$IFDEF WORKAROUND_INLINE_CONSTRUCTORS}
|
||
|
|
Classes,
|
||
|
|
{$ENDIF}
|
||
|
|
IdCoder00E, IdCoder3to4;
|
||
|
|
|
||
|
|
type
|
||
|
|
TIdDecoderUUE = class(TIdDecoder00E)
|
||
|
|
protected
|
||
|
|
procedure InitComponent; override;
|
||
|
|
{$IFDEF WORKAROUND_INLINE_CONSTRUCTORS}
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); reintroduce; overload;
|
||
|
|
{$ENDIF}
|
||
|
|
end;
|
||
|
|
|
||
|
|
TIdEncoderUUE = class(TIdEncoder00E)
|
||
|
|
protected
|
||
|
|
procedure InitComponent; override;
|
||
|
|
{$IFDEF WORKAROUND_INLINE_CONSTRUCTORS}
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); reintroduce; overload;
|
||
|
|
{$ENDIF}
|
||
|
|
end;
|
||
|
|
|
||
|
|
const
|
||
|
|
// Note the embedded '
|
||
|
|
GUUECodeTable: string = '`!"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_'; {do not localize}
|
||
|
|
|
||
|
|
var
|
||
|
|
GUUEDecodeTable: TIdDecodeTable;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses
|
||
|
|
IdGlobal;
|
||
|
|
|
||
|
|
{ TIdEncoderUUE }
|
||
|
|
|
||
|
|
{$IFDEF WORKAROUND_INLINE_CONSTRUCTORS}
|
||
|
|
constructor TIdEncoderUUE.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
{$ENDIF}
|
||
|
|
|
||
|
|
procedure TIdEncoderUUE.InitComponent;
|
||
|
|
begin
|
||
|
|
inherited InitComponent;
|
||
|
|
FCodingTable := ToBytes(GUUECodeTable);
|
||
|
|
FFillChar := GUUECodeTable[1];
|
||
|
|
end;
|
||
|
|
|
||
|
|
{ TIdDecoderUUE }
|
||
|
|
|
||
|
|
{$IFDEF WORKAROUND_INLINE_CONSTRUCTORS}
|
||
|
|
constructor TIdDecoderUUE.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
{$ENDIF}
|
||
|
|
|
||
|
|
procedure TIdDecoderUUE.InitComponent;
|
||
|
|
begin
|
||
|
|
inherited InitComponent;
|
||
|
|
FDecodeTable := GUUEDecodeTable;
|
||
|
|
FFillChar := GUUECodeTable[1];
|
||
|
|
end;
|
||
|
|
|
||
|
|
initialization
|
||
|
|
TIdDecoder00E.ConstructDecodeTable(GUUECodeTable, GUUEDecodeTable);
|
||
|
|
// Older UUEncoders use space instead of `. This way we account for both.
|
||
|
|
GUUEDecodeTable[Ord(' ')] := GUUEDecodeTable[Ord('`')];
|
||
|
|
end.
|