XCode.pas

unit XCode;

interface

uses
  Defines, Objects2, Streams, U_KeyMap
  ;

type

  PXCoder = ^TXCoder;
  {`2  ¡®â  á ¯¥à¥ª®¤¨à®¢ª ¬¨ ¢ ¯à®á¬®âà¥, dbf ¨ â.¯.}
  TXCoder = object(TObject)
    XLatCP: TXLatCP;
    KeyMap: TKeyMap;
      {` KeyMap=kmXlat ¤«ï ª®¤¨à®¢ª¨, § £à㦥­­®© ¨§ xlt-ä ©« `}
    MaxCodeTagLen: Byte;
      {` Œ ªá¨¬ «ì­ ï ¤«¨­  CodeTag. ¥ ¡®«¥¥ 8.`}
    CodeTag: Str8;
      {` Ž¡®§­ ç¥­¨¥ ª®¤¨à®¢ª¨ ¤«ï ¨­¤¨ª æ¨¨ ¢ à ¬ª¥.
      â® ¨¬ï ¯à¥¤®¯à¥¤¥«ñ­­®© ª®¤¨à®¢ª¨ ¨«¨ ¨¬ï ä ©«  § £à㦥­­®©
      xlt-â ¡«¨æë ¡¥§ ¯ã⨠`}
    constructor Init(AMaxCodeTagLen: Byte);
    constructor Load(var S: TStream);
    procedure Store(var S: TStream);
    procedure UseToAscii;
      {`  áâநâì ¢áñ ­  kmXlat ­  ®á­®¢ ­¨¨ XLatCP[ToAscii]`}
    procedure UseKeyMap;
      {`  áâநâì ¢áñ ­  ⥪ãéãî KeyMap (kmAscii ¨«¨ ¡®«¥¥)`}
    procedure LoadXlatTable;
    procedure NextXLat;
      {` ¥à¥ª«î祭¨¥ ¯® ªàã£ã ¯à¥¤®¯à¥¤¥«ñ­­ëå ª®¤¨à®¢®ª `}
    procedure FromHistory(fKeyMap: TKeyMap;
      fToAscii: TXLat; fCodeTag: Str8);
    procedure ToHistory(var fKeyMap: TKeyMap;
      var fToAscii: TXLat; var fCodeTag: Str8);
    end;
    {`}

implementation
uses
  Advance, Advance1, Lfn, DNStdDlg, DnApp, Commands, DnIni
  ;

constructor TXCoder.Init;
  begin
  inherited Init;
  KeyMap := kmAscii;
  UseKeyMap;
  if (AMaxCodeTagLen > 8) then
    AMaxCodeTagLen := 8;
  MaxCodeTagLen := AMaxCodeTagLen;
  end;

procedure TXCoder.Store;
  begin
  S.Write(KeyMap, SizeOf(KeyMap));
  S.Write(MaxCodeTagLen, SizeOf(MaxCodeTagLen));
  S.Write(CodeTag, SizeOf(CodeTag));
  if KeyMap = kmXlat then
    S.Write(XLatCP[ToAscii], SizeOf(TXLat));
  end;

constructor TXCoder.Load;
  var
    FName: PString;
  begin
  S.Read(KeyMap, SizeOf(KeyMap));
  S.Read(MaxCodeTagLen, SizeOf(MaxCodeTagLen));
  S.Read(CodeTag, SizeOf(CodeTag));
  if KeyMap <> kmXlat then
    UseKeyMap
  else
    begin
    S.Read(XLatCP[ToAscii], SizeOf(TXLat));
    UseToAscii;
    end;
  end;

procedure TXCoder.UseToAscii;
  begin
  KeyMap := kmXlat;
  AcceptToAscii(XLatCP);
  end;

procedure TXCoder.UseKeyMap;
  begin
  XLatCP := KeyMapDescr[KeyMap].XLatCP^;
  CodeTag := KeyMapDescr[KeyMap].Tag;
  end;

procedure TXCoder.LoadXlatTable; {JO}
  var
    FN: String;
    More: Boolean;
    None: Boolean;
    Dr: String;
    Nm: String;
    Xt: String;
  label
    SkipMenu;
  begin
  More := True;
  None := KeyMap = kmXlat;
   if SkipXLatMenu then
     goto SkipMenu;
  FN := GetFileNameMenu(SourceDir+'XLT\', '*.XLT', FN, True, More, None);
  if None then
    begin
    UseKeyMap;
    Exit;
    end;
  if More then
SkipMenu:
    FN := GetFileNameDialog(SourceDir+'XLT\*.XLT',
        GetString(dlSelectXLT),
        GetString(dlOpenFileName),
        fdOKButton+fdHelpButton,
        hsOpenXLT);
  if BuildCodeTable(FN, XLatCP) then
    begin
    lFSplit(FN, Dr, Nm, Xt);
    CodeTag := Cut(Nm, MaxCodeTagLen);
    KeyMap := kmXlat;
    end;
  end { LoadXlatTable }; {JO}

procedure TXCoder.NextXLat;
  begin
  KeyMap := RollKeyMap[KeyMap];
  UseKeyMap;
  end;

procedure TXCoder.FromHistory(fKeyMap: TKeyMap;
      fToAscii: TXLat; fCodeTag: Str8);
  begin
  KeyMap := fKeyMap;
  CodeTag := fCodeTag;
  XLatCP[ToAscii] := fToAscii;
  if KeyMap = kmXlat then
    UseToAscii
  else
    UseKeyMap;
  end;

procedure TXCoder.ToHistory(var fKeyMap: TKeyMap;
      var fToAscii: TXLat; var fCodeTag: Str8);
  begin
  fKeyMap := KeyMap;
  fCodeTag := CodeTag;
  fToAscii := XLatCP[ToAscii];
  end;

end.