ADVANCE.PAS

{/////////////////////////////////////////////////////////////////////////
//
//  Dos Navigator Open Source 1.51.08
//  Based on Dos Navigator (C) 1991-99 RIT Research Labs
//
//  This programs is free for commercial and non-commercial use as long as
//  the following conditions are aheared to.
//
//  Copyright remains RIT Research Labs, and as such any Copyright notices
//  in the code are not to be removed. If this package is used in a
//  product, RIT Research Labs should be given attribution as the RIT Research
//  Labs of the parts of the library used. This can be in the form of a textual
//  message at program startup or in documentation (online or textual)
//  provided with the package.
//
//  Redistribution and use in source and binary forms, with or without
//  modification, are permitted provided that the following conditions are
//  met:
//
//  1. Redistributions of source code must retain the copyright
//     notice, this list of conditions and the following disclaimer.
//  2. Redistributions in binary form must reproduce the above copyright
//     notice, this list of conditions and the following disclaimer in the
//     documentation and/or other materials provided with the distribution.
//  3. All advertising materials mentioning features or use of this software
//     must display the following acknowledgement:
//     "Based on Dos Navigator by RIT Research Labs."
//
//  THIS SOFTWARE IS PROVIDED BY RIT RESEARCH LABS "AS IS" AND ANY EXPRESS
//  OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
//  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
//  DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
//  ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
//  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
//  GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
//  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
//  IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
//  OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
//  ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
//
//  The licence and distribution terms for any publically available
//  version or derivative of this code cannot be changed. i.e. this code
//  cannot simply be copied and put under another distribution licence
//  (including the GNU Public Licence).
//
//////////////////////////////////////////////////////////////////////////}
{$I STDEFINE.INC}
{AK155 = Alexey Korop, 2:461/155@fidonet}
{Cat = Aleksej Kozlov, 2:5030/1326.13@fidonet}

unit Advance;

interface

uses
  Dos,
  Strings,
  Objects2, Lfn {DataCompBoy}
  , Defines, Streams
  ;

{$IFDEF DNPRG}
{$I Version.Inc}
{DataCompBoy: DO NOT INCLUDE Version.inc IN OTHER UNITS!}
{simple add in USES Advance}
{$ENDIF}

type
  TNameFormatMode = (nfmNull, nfmHidden, nfmSystem, nfmHiddenSystem);

const
  NameFormatChar: array[TNameFormatMode] of Char =
    ('.', #176, #177, #178);

(*  flnPreferName = 1;  { ¥ ⠡㫨஢ ­­®¥ à áè¨à¥­¨¥;
        ¯à¨ í⮬ ¢á¥£¤  ExtSize = 0}
  flnHardExtArea = 2; { ’ ¡ã«¨à®¢ âì à áè¨à¥­¨¥
        ¯à¨ í⮬ ¢á¥£¤  ExtSize <> 0}
{  flnUseCutChar = 8; Ž­ ¢á¥£¤  ­ã¦¥­ }
*)
  flnPreserveExt = 1; { ¥á«¨ ¯à¨ ­¥â ¡ã«¨à®¢ ­­®¬ ¯®ª §¥ à áè¨à¥­¨¥
    楫¨ª®¬ ­¥ ¯®¬¥é ¥âáï, â® á®åà ­¨âì ExtSize ᨬ¢®«®¢ ¤«ï
    ¯®«ï à áè¨à¥­¨ï (¢ª«îç ï ᨬ¢®« ®¡à¥§ª¨)}
  flnAutoHideDot = 4; { ‡ ¬¥­ïâì â®çªã ¯¥à¥¤ à áè¨à¥­¨¥¬ ­  ¯à®¡¥«;
    ¡ë¢ ¥â ⮫쪮 ¯à¨ ExtSize <> 0}
  flnHighlight = 16;
  flnUpCase = 32;
  flnLowCase = 64;
  flnCapitalCase = 128;
  flnPadRight = 256;
  flnHandleTildes = 512;
  flnSelected = 1024;

const
  TextReaderBufSize = $1000;

type
  TTextReaderBuf = array[0..TextReaderBufSize-1] of Char;

  PTextReader = ^TTextReader;
  TTextReader = object
    Eof: Boolean;
    constructor Init(const FName: String); {DataCompBoy}
    function GetStr: String;
    function FileName: String; {DataCompBoy}
    destructor Done; virtual;
  private
    Handle: lFile; {DataCompBoy}
    BufSz: Integer;
    BufPos: Integer;
    Buf: TTextReaderBuf;
    Skip1: Boolean;
    end;

  { TColorIndexes }

  PColorIndex = ^TColorIndex;
  TColorIndex = record
    GroupIndex: Byte;
    ColorSize: Byte;
    ColorIndex: array[0..255] of Byte;
    end;

  { TCharImage = array [0..15] of Byte;}

type
  TCountryInfo = record
    {`„ ­­ë¥ ¤«ï ¤¨ «®£  ­ áâ஥ª áâà ­ë }
    DateFmt: Word; {Radiobuttons}
      {`0:MM-DD-YY, 1: DD-MM-YY, 2: YY-MM-DD`}
    TimeFmt: Word; {Radiobuttons}
      {`0:12hour, 1: 24hour`}
    DateSep: String[1]; {Inputline}
    TimeSep: String[1]; {Inputline}
    ThouSep: String[1]; {Inputline}
    DecSep: String[1]; {Inputline}
    DecSign: String[1]; {Inputline}
    CurrencyFmt: Word; {Radiobuttons}
      {` 0:'$123.00', 1:'123.00$', 2:'$ 123.00', 3:'123.00 $' 4: 123$00 `}
    Currency: String[4]; {Inputline}
    KbdToggleLayout: String[79]; {Inputline}
    ABCSortTable: String[79]; {Inputline}
    WinCodeTable: String[79]; {Inputline}
    CodeTables: String[255]; {Inputline}
    end; {`}

var
  RK: Byte;

const

  ColorIndexes: PColorIndex = nil;

  opUnk = 0; { Unknown  }
  opDOS = 1; { DOS      }
  opOS2 = 2; { OS/2     }
  opWin = 4; { Wind0ze  }
  opDV = 8; { DesqView }
  opWNT = 16; { Win NT & Win y2k }
  opDPMI32 = 32; { DPMI32 }
  {Cat: ­¥çâ® á।­¥¥ ¬¥¦¤ã DOS ¨ Win32, ¯®í⮬㠮⤥«ì­® ®â DOS}

  Abort: Boolean = False;

  opSys: Byte = opUnk;

  { useful under OS2 with WinAPI emulator: if (opSys and opWin)=opWin then ...}

procedure CheckOS;
{ Check for OS - For checking API please use error codes }
{ Automatically called while program started }

procedure ClrIO;
  inline;
  begin
  InOutRes := 0;
  DosError := 0;
  Abort := False;
  end;

function MemOK: Boolean;
  inline;
  begin
  MemOK := True
  end; {JO}
function GetMeMemoStream: PStream; {-$VOL}
function MemAdjust(L: LongInt): LongInt;
procedure FillWord(var B; Count, W: Word);
procedure TinySlice;
  {` Žâ¤ ç  á¨á⥬¥ ª¢ ­â  ¢à¥¬¥­¨. â  ¯à®æ¥¤ãà  ¢ë§ë¢ ¥âáï ¨§
  横«  ᮡë⨩ TGroup.Execute,   áâ «® ¡ëâì, ¢ «î¡®© á¨âã æ¨¨,
  ª®£¤  à ¡®â ¥â Desktop ¨«¨ ¤¨ «®£. …᫨ ¦¥ ªâ®-â® á ¬ ªàãâ¨â
  横« (­ ¯à¨¬¥à, á GetEvent), â® ®­ á ¬ ¤®«¦¥­ ¨ TinySlice ¢ë§ë¢ âì,
  ¥á«¨ ­ã¦­®. à¨¬¥à ⮣®, ª ª íâ® ¤¥« ¥âáï, á¬. ¢ TView.MouseEvent `}

function FormatLongName(Name: String; Size, ExtSize: Byte;
  {` ”®à¬ â¨à®¢ âì ¤«¨­­®¥ ¨¬ï ¯®¤ ®¡éãî ¤«¨­ã Size, ¢ ⮬ ç¨á«¥
  ¯®¤ ⠡㫨஢ ­­®¥ à áè¨à¥­¨¥ - ExtSize.
    Žâ¤¥«ì­ë¥ ¡¨âë Options § ¤ î⠮ᮡ¥­­®á⨠ä®à¬ â¨à®¢ ­¨ï (ª®­áâ ­âë
  á ¨¬¥­ ¬¨ ¢à®¤¥ flnHighlight.
    FormatMode ®¯à¥¤¥«ï¥â ᨬ¢®«, ¢ë¢®¤¨¬ë© ¢¬¥áâ® â®çª¨.}
     Options: Word;
    FormatMode: TNameFormatMode): String; (* X-Man *)
    {`}
{ ¥à¥¬¥­­ë¥ FormatLongName, ®áâ â®ç­ë¥ §­ ç¥­¨ï ª®â®àëå ¬®£ãâ
  ¯à¥¤áâ ¢«ïâì ¨­â¥à¥á: }
var
  flnNLength: Integer;
    {` ®á«¥ FormatLongName ¤«¨­  ᮡá⢥­­® ¨¬¥­¨, ¡¥§ ®¡à¥§ ­¨ï `}
  flnNSize: Integer;
    {` ®á«¥ FormatLongName  ¤«¨­  ¨¬¥­¨ ¯®á«¥ ®¡à¥§ ­¨ï `}
  flnDotPos: Integer;
    {` ®á«¥ FormatLongName  १ã«ìâ¨àãîé ï ¯®§¨æ¨ï â®çª¨ (¥á«¨
      ­¥ ⠡㫨à㥬) ¨«¨ ¯®á«¥¤­¥£® ¯à®¡¥«  ¯¥à¥¤ ¯®«¥¬ à áè¨à¥­¨ï
      (¥á«¨ ⠡㫨à㥬) `}
  flnPanelName: String;
    {` ®á«¥ FormatLongName ®âä®à¬ â¨à®¢ ­­®¥ ¨¬ï (¡¥§ ¤®¡ ¢®ç­ëå
      ᨬ¢®«®¢ ã¯à ¢«¥­¨ï ¯®¤á¢¥âª®© `}

const
  BreakChars: set of Char = [',', ' ', '[', ']', '{', '}', '(', ')',
   ':', ';', '.', '^',
  '&', '*', '!', '#', '$', '/', '\', '"', '%', '>', '<',
  '-', '+', '=', '|', '?', #13, #10, #9, #26, #12, '@'];

  HexStr: array[0..$F] of Char = '0123456789ABCDEF';
  N_O_E_M_S: array[1..5] of Char = 'NOEMS';
  cTEMP_: String[5] = 'TEMP:';
  cLINK_: String[5] = 'LINK:';
  cNET_: String[7] = 'Network';
  {.$IFNDEF OS2}
  x_x: String[3] = '*.*';
  {.$ELSE}
  {x_x     : string[3] = '*';}
  {.$ENDIF}

var
  FreeStr: String;
  FreeLongStr: LongString;
  InterfaceStr: String;
    {` ‘â â¨ç¥áª ï áâப  ¤«ï ¯¥à¥¤ ç¨ ¤ ­­ëå ¬¥¦¤ã ¯à®£à ¬¬ ¬¨.
    ˆá¯®«ì§®¢ âì ¥ñ ¡¥§ ªà ©­¥© ­¥®¡å®¤¨¬®á⨠­¥ á«¥¤ã¥â. `}
  DNNumber: Byte;

  {Cat: ¯®à冷ª ¯¥à¥¬¥­­ëå ­¥ ¬¥­ïâì, ¨­ ç¥ ¡ã¤ã⠯஡«¥¬ë á ¯« £¨­ ¬¨}

var
  {-DataCompBoy-}
  StartupDir: String;
    {` Š â «®£, ®âªã¤  ¢ë§¢ ­ DN.EXE. ‘ '\' ¢ ª®­æ¥ `}
  SourceDir: String;
    {` Š â «®£, £¤¥ «¥¦ â ª®­ä¨£¨ ¨ ¨áâ®à¨¨. ‘ '\' ¢ ª®­æ¥.
      “¯à ¢«ï¥âáï Env-¯¥à¥¬¥­­®© DN2. `}
  TempDir: String;
    {` ‚६¥­­ë© ª â «®£. ‘ '\' ¢ ª®­æ¥ `}
  TempFile: String;
  TempFileSWP: String; {JO}
  LngFile: String;
  SwpDir: String;
    {` Š â «®£ ¤«ï ¢à¬¥­­ëå ª®¬ ­¤­ëå ä ©«®¢ ¨ ᯨ᪮¢,
      ¢ DPMI32 - ¤«ï ᢮¯  ­  ¢à¥¬ï ¢ë¯®«­¥­¨ï ¢­¥è­¥© ¯à®£à ¬¬ë.
    ‘ '\' ¢ ª®­æ¥. “¯à ¢«ï¥âáï Env-¯¥à¥¬¥­­®© DNSWAP ¨ ª«î稪®¬ /S. `}
  {-DataCompBoy-}
const
  DirToChange: String = ''; {DataCompBoy}
{$IFDEF DPMI32}
  DirToMoveContent: String = ''; {JO}
{$ENDIF}

const
  CL_SafeBuf = $8000;

  Linker: Pointer = nil;
  NeedLocated: LongInt = 0;

const
  CountryInfo: TCountryInfo =
    {`‘â â¨ç¥áª ï ¯¥à¥¬¥­­ ï; ¢á¥£¤  ª®à४⭮ § ¯®«­¥­ `}
   (DateFmt: 0;
    TimeFmt: 0;
    DateSep: '.';
    TimeSep: ':';
    ThouSep: ' ';
    DecSep: '.';
    DecSign: '$';
    CurrencyFmt: 0;
    Currency: '$';
    KbdToggleLayout: 'ru441.xlt';
    ABCSortTable: 'sort866.xlt';
{$IFDEF DPMI32}
    WinCodeTable: 'win866r.xlt';
{$ELSE} {$IFDEF Win32}
    WinCodeTable: '0';
{$ELSE} //OS2
    WinCodeTable: '1251';
{$ENDIF}
{$ENDIF}
    CodeTables: 'KOI:koi8-r.xlt'
    );



type
  TCrc_Table = array[0..255] of LongInt;
const
  Crc_Table_Empty: Boolean = True;
  Crc_Table: ^TCrc_Table = nil;

type
  TPosArray = array[1..9] of TPoint;

  TFPos = record X: Integer; Y: TFileSize end;
  TFPosArray = array [1..9] of TFPos;

implementation

uses
  xTime, Startup, Advance1, VPUtils,
  VpSysLow, Advance2,
  Commands
  ;

{-DataCompBoy-}
constructor TTextReader.Init;
  var
    FileSz: TFileSize;
    ToRead: Integer;
  begin
  ClrIO;
  FileMode := $40;
  lAssignFile(Handle, FName);
  lResetFile(Handle);
  if  (IOResult <> 0) or Abort then
    Fail;
  FileSz := Handle.FSize;
  if  (IOResult <> 0) or Abort then
    Fail;
  Eof := FileSz = 0;
  if not Eof then
    begin
    ToRead := MinBufSize(FileSz, TextReaderBufSize);
    Handle.Read(Buf, ToRead, BufSz);
    if  (IOResult <> 0) or Abort or (ToRead <> BufSz) then
      begin
      ClrIO;
      Handle.Close;
      ClrIO;
      Fail;
      end;
    end;
  BufPos := 0;
  end { TTextReader.Init };
{-DataCompBoy-}

{-DataCompBoy-}
function TTextReader.FileName: String;
  begin
  FileName := lFileNameOf(Handle);
  end;
{-DataCompBoy-}

{-DataCompBoy-}
function TTextReader.GetStr: String;
  var
    CurStr: String;
    BufBeg: Integer;
    Was: Boolean;

  procedure aStr(D: Integer);
    var
      Grow: Integer;
    begin
    Grow := Min((BufPos-BufBeg)-D-Byte(Was), 255-Length(CurStr));
    if Grow > 0 then
      begin
      Move(Buf[BufBeg], CurStr[Length(CurStr)+1], Grow);
      SetLength(CurStr, Length(CurStr)+Grow);
      end;
    end;

  var
    PrevC: Integer;
    C: Char;

  begin { TTextReader.GetStr: }
  CurStr := '';
  if not Eof then
    begin
    PrevC := -1;
    SetLength(CurStr, 0);
    BufBeg := BufPos;
    Was := False;
    repeat
      if BufPos = BufSz then
        begin
        aStr(0);
        ClrIO;
        Handle.Read(Buf, TextReaderBufSize, BufSz);
        if BufSz = 0 then
          begin
          Eof := True;
          Break;
          end;
        BufPos := 0;
        BufBeg := 0;
        if Was then
          begin
          Skip1 := True;
          Break
          end;
        end;
      C := Buf[BufPos];
      Inc(BufPos);
      case C of
        #0, #10, #13:
          begin
          if Skip1 then
            begin
            BufBeg := BufPos;
            Skip1 := False;
            Continue;
            end;
          if Was then
            begin
            aStr(1);
            Dec(BufPos, Integer(PrevC = Integer(C)));
            Break;
            end
          else
            Was := True;
          PrevC := Integer(C);
          end;
        else {case}
          begin
          if Was then
            begin
            aStr(1);
            Dec(BufPos);
            Break;
            end;
          Skip1 := False
          end;
      end {case};
    until False;
    end;
  GetStr := CurStr;
  end { TTextReader.GetStr: };
{-DataCompBoy-}

{-DataCompBoy-}
destructor TTextReader.Done;
  begin
  ClrIO;
  Handle.Close;
  ClrIO;
  end;
{-DataCompBoy-}

{AK155 19.05.05 ‚ᥠ¤¨­ ¬¨ç¥áª¨¥ PString § ¬¥­¨« ­  á⥪®¢ë¥ String.
Ÿ ᮬ­¥¢ îáì ¢ ¯®«¥§­®á⨠íâ¨å PString ¤ ¦¥ ¢ 16bit ¢¥àᨨ,
  ¢ 32bit - í⮠ᮢ¥à襭­® «¨è­¥¥.
   € â ª¦¥ ¢¢ñ« ¯ àã ¬¥«ª¨å ®¯â¨¬¨§ æ¨© ¨ ¤®¡ ¢¨« ª®¬¬¥­â à¨¥¢.}
function FormatLongName(Name: String; Size, ExtSize: Byte;
     Options: Word;
    FormatMode: TNameFormatMode): String;

  var
    PSize, ESize: Integer; {PathSize, ExtensionSize}
    P, N, E: String; { Path, Name, Extension }
    EFlag, i: Byte;
    LastDot: Boolean;
    Hi: Boolean;
    Hi1, Hi2, Hi3: Integer; { ®§¨æ¨¨, ª®â®àë¥ ¤®«¦­ë ¡ëâì ¢ë¤¥¤¥­ë 梥⮬.
      Hi1 - ᨬ¢®« ®¡à¥§ª¨ ¯ã⨠(¯®¤®§à¥¢ î, ç⮠ॠ«ì­® ­¥ ­ã¦¥­,
        â ª ª ª ¯ãâì ­¨ª®£¤  ­¥ ¡ë¢ ¥â ¢¬¥á⥠á 梥⮬);
      Hi2 - ᨬ¢®« ®â¬¥âª¨ ä ©«  ¨«¨ ®¡à¥§ª¨ ¨¬¥­¨ ¯¥à¥¤ à áè¨à¥­¨¥¬;
      Hi3 - ᨬ¢®« ®¡à¥§ª¨ ­  ¯à ¢®¬ ª®­æ¥ ¯®«ï.
      }
    l: Integer;
  label
    MakeResult;
  begin { FormatLongName }
  if (Name = '..') or (Name = '.' {¡ë¢ ¥â ¢­ãâਠçã¦¨å  à娢®¢}) then
    begin
    Result := AddSpace(Name, Size);
    Exit;
    end;
  if  (Options and flnUpCase) <> 0 then
    UpStr(Name)
  else if (Options and (flnLowCase or flnCapitalCase)) <> 0 then
    LowStr(Name);
  lFSplit(Name, P, N, E);
  LastDot := E = '.';
    { '.' ¢ ª®­æ¥ Name (¡ë¢ ¥â ¢ ®¡à §æ¥ ¯®¨áª ), ¥ñ 㤠«ïâì ­¥ ­ ¤® }
  Delete(E, 1, 1);
  if  (Options and flnCapitalCase) <> 0 then
    N[1] := UpCase(N[1]);
  SetLength(flnPanelName, Size);
  Hi1 := 0;
  Hi2 := 0;
  Hi3 := 0;
  if Size < 5+ExtSize then
    begin
    FillChar(flnPanelName[1], Size, FMSetup.RestChar[1]);
    Hi1 := Size;
    goto MakeResult;
    end;
  flnNLength := Length(N);
  flnNSize := flnNLength;
  ESize := Length(E); { 㦥 ¡¥§ â®çª¨ }
  EFlag := Byte(ESize > 0);

  if Options and flnPreserveExt <> 0 then
    begin
    l := (Length(N) + Min(3, Length(P)));
      { ᪮«ìª® å®ç¥âáï ­  ¯ãâì ¨ ¨¬ï ¯à¨ ¬ ªá¨¬ «ì­®© ®¡à¥§ª¥ ¯ã⨠}
    if (Size - l > ESize) {  áè¨à¥­¨¥ ¯®¬¥é ¥âáï } or
       (l < Size-ExtSize) { ˆ¬ï ­¥ ­ã¦­® ®¡à¥§ âì }
    then
      ExtSize := 0 { ¥ ⠡㫨à㥬 }
    else if ESize < ExtSize then
      ExtSize := ESize; { ’ ¡ã«¨à㥬, ­® ¬¨­¨¬¨§¨à㥬 ®¡à¥§ªã ¨¬¥­¨ }
    end;

  if (ExtSize <> 0) and (ESize > ExtSize) then
    begin { Ž¡à¥§ª  à áè¨à¥­¨ï ¯à¨ ⠡㫨஢ ­­®¬ ¯®ª §¥ }
    ESize := ExtSize;
    Hi3 := Size;
    end;

  PSize := Max(3, Size-(ESize+EFlag)-flnNSize);
  if PSize >= Length(P) then
    PSize := Length(P)
  else
    begin { Ž¡à¥§ª  ¯ã⨠}
    P[PSize] := FMSetup.RestChar[1];
    Hi1 := PSize
    end;

  {  Ž¡à¥§ª  à áè¨à¥­¨ï ¯à¨ ­¥â ¡ã«¨à®¢ ­­®¬ ¯®ª §¥.
  …ñ ­¥«ì§ï ®¡ê¥¤¨­¨âì á ®¡à¥§ª®© ¨¬¥­¨, â ª ª ª ¢ ¯®§¨æ¨î ¯®á«¥¤­¥©
  â®çª¨ ¬®¦¥â § ­®á¨âìáï ¯à¨§­ ª áªàë⮣®-á¨á⥬­®£® ä ©« .}
  if (ExtSize <> 0) or LastDot then
    i := ExtSize+1
  else
    begin
    ESize := Min(Length(E), Max(0, Size-EFlag-PSize-flnNSize));
    EFlag := Byte(ESize > 0);
    i := ESize+EFlag;
    if ESize < Length(E) then
      Hi3 := Size;
    end;
  { ‘¥©ç á i - è¨à¨­  ¯®«ï à áè¨à¥­¨ï, ¢ª«îç ï ¯®§¨æ¨î â®çª¨ }

  { Ž¡à¥§ª  ¨¬¥­¨ }
  flnNSize := Min(Length(N), Max(1, Size-i-PSize));

  FillChar(flnPanelName[1], Size, ' ');
  if ExtSize = 0 then
    flnDotPos := PSize+flnNSize+1
  else
    flnDotPos := Size-ExtSize;
  { ‘¥©ç á flnDotPos - íâ® ¯®§¨æ¨ï â®çª¨, ¥á«¨ ®­  ¢ ¯à¥¤¥« å ¯®«ï,
    «¨¡® Size+1, ¥á«¨ â®çª  ¢ë室¨â §  ¯®«¥ ¨§-§  ᫨誮¬ ¤«¨­­®£®
    ¨¬¥­¨ ¢ ०¨¬¥ ¡¥§ â ¡ã«ï樨 à áè¨à¥­¨© }
  for i := 1 to PSize do
    flnPanelName[i] := P[i];
  for i := 1 to flnNSize do
    flnPanelName[PSize+i] := N[i];
  for i := 1 to ESize do
    flnPanelName[flnDotPos+i] := E[i];
  if LastDot or (FormatMode <> nfmNull) or
     ((Options and flnAutoHideDot = 0) and (ESize <> 0))
  then
    flnPanelName[flnDotPos] := NameFormatChar[FormatMode];
      { ‡ ­¥á¥­¨¥ ¯à¨§­ ª   âਡã⮢ ¨«¨ ¢®ááâ ­®¢«¥­¨¥ â®çª¨.
        …᫨ ¯®§¨æ¨ï â®çª¨ ¢­¥ ¯®«ï (â® ¥áâì ¡ã¤¥â ®¡à¥§ª ), â®  âਡãâë
        ­¥ ¡ã¤ãâ ¨­¤¨æ¨à®¢ âìáï. Œ®¦¥â, íâ® ¨ ­¥¯à ¢¨«ì­®, ­® â ª
        ¡ë«® ¢á¥£¤ .}
  if flnNSize < Length(N) then
    begin { Ž¡à¥§ª  ¨¬¥­¨ }
    Hi2 := PSize+flnNSize + byte(flnDotPos <= Size);
      {…᫨ ¯®§¨æ¨ï â®çª¨ ¨­¤¨æ¨àã¥âáï, â® ®¡à¥§ªã áâ ¢¨¬ ¢¬¥áâ® ­¥ñ,  
      ¥á«¨ ­¥â - ¯à¨å®¤¨âáï ®¡à¥§ âì ­  1 ᨬ¢®« ¡®«ìè¥ }
    flnPanelName[Hi2] := FMSetup.RestChar[1];
    end;
  if Hi3 <> 0 then {Ž¡à¥§ª  à áè¨à¥­¨ï. Ž­  ¬®¦¥â ­  á ¬®¬ ¤¥«¥
      ®¡à¥§ âì ¨¬ï, ¥á«¨ ¯®ª § ­¥â ¡ã«¨à®¢ ­­ë©. ‚ í⮬ á«ãç ¥ ®â¬¥âª 
      (¥á«¨ ®­ ¥áâì) ¤®«¦­  «¥çì ¯®¢¥àå ®¡à¥§ª¨, ¯®í⮬ã
      ¤ ­­ë© äà £¬¥­â ¤®«¦¥­ áâ®ïâì ¤® § ­¥á¥­¨ï ᨬ¢®«  ®â¬¥âª¨. }
    flnPanelName[Hi3] := FMSetup.RestChar[1];
  if (Options and flnSelected) <> 0 then
    begin { Žâ¬¥âª  }
    Hi2 := flnDotPos - byte(flnDotPos > Size);
      {…᫨ ¯®§¨æ¨ï â®çª¨ ¨­¤¨æ¨àã¥âáï, â® ®â¬¥âªã áâ ¢¨¬ ¢¬¥áâ® ­¥ñ,  
      ¥á«¨ ­¥â - ­  ¯®á«¥¤­¨© ¨­¤¨æ¨àã¥¬ë© á¨¬¢®«. Ž¡à¥§ª  ¯à¨ í⮬
      ¯®¤ ¢«ï¥âáï }
    flnPanelName[Hi2] := FMSetup.TagChar[1];
    end;

MakeResult:
  Result := '';
  if  (Options and flnPadRight) = 0 then
    DelRight(flnPanelName);
{AK155 13.05.2005 ‡¤¥áì, ¨ ¢ ª®­æ¥ ¯®¤¯à®£à ¬¬ë, ⨫ì¤ë ¤®¡ ¢«ïîâáï,
  ¢ GetFull á ­¨¬¨ ¢¥¤ñâáï ¡®àì¡  ¯à¨ ¯®¬®é¨ ª®¤  梥â . à®é¥ ­¥
¤®¡ ¢«ïâì ¨ ­¥ ¡®à®âìáï.
  if  ( (Options and flnSelected) <> 0) and
      ( (Options and flnHighlight) <> 0)
  then
    AddStr(Res^, '~');
/AK155}

  for i := 1 to Length(flnPanelName) do
    begin
    Hi := { ¯à¨§­ ª ⮣®, çâ® ¤ ­­ë© ᨬ¢®« ­ ¤® ¯®¤á¢¥â¨âì }
       ( (Options and flnHighlight) <> 0) and
       ( (i = Hi1) or (i = Hi2) or (i = Hi3));
    if Hi then
      AddStr(Result, '~');
    if  (flnPanelName[i] = '~') and ((Options and flnHandleTildes) <> 0) then
      AddStr(Result, #0);
    AddStr(Result, flnPanelName[i]);
    {AK155: § ç¥¬ íâ®â ¢â®à®© #0 - ¯à¨¤ã¬ âì ­¥ ᬮ£, ¯®í⮬ã ã¡à « ¥£®.
€ ®â­®á¨â¥«ì­® ¯¥à¢®£® #0 ¤®£ ¤ «áï, çâ® ®­ ¤®«¦¥­ ®¡¥á¯¥ç¨¢ âì
®âà¨á®¢ªã ⨫ì¤ë. ˆ ¢­¥á ᮮ⢥âáâ¢ãîéãî ª®à४æ¨î ¢
drivers._vp.MoveCStr. 06.01.2001}
    {
          if (flnPanelName[i]='~') and ((Options and flnHandleTildes)<>0)
          then AddStr(Res^,#0);}

    {/AK155}
    if Hi then
      AddStr(Result, '~');
    end;
{AK155 13.05.2005 - á¬. ¢ëè¥
  if  ( (Options and flnSelected) <> 0) and
      ( (Options and flnHighlight) <> 0)
  then
    AddStr(Res^, '~');
/AK155}
  end { FormatLongName };

procedure CheckOS;
  begin
  {$IFDEF OS2}opSys := opOS2; {$ENDIF}
  {$IFDEF WIN32}
  if SysPlatformId = 1 then
    opSys := opWin
  else
    opSys := opWNT;
  {$ENDIF}
  {$IFDEF DPMI32}
  opSys := opDPMI32;
  asm
  {OS2}
    mov   AX, 4010h
    int   2Fh
    cmp   AX, 4010h
    JZ    @nonOS2
    {OS2 detected}
    or    opSys, opOS2
  @nonOS2:
    mov   ax, 3306h
    int   21h           { get true dos version }
  {WinNT}{since WinNT don't support GetWinVer via int2f}
    cmp   bx,3205h
    jne   @nonWNT
    {Win NT based OS detected }
    or    opSys, opWNT+opWin
  @nonWNT:
  {DOS}
    cmp   bl,3
    jb    @nonDOS
    cmp   bl,7
    ja    @nonDOS
    {DOS detected}
    or    opSys, opDos
  @nonDOS:
  {DV}
    mov   ax, 2B01h
    mov   cx, 4445h
    mov   dx, 5351h
    int   21h           { Desqview Installed? }
    cmp   al, 255
    je    @nonDV
    {DesqView detected}
    or    opSys, opDV
  @nonDV:
  {WIN 3.x and 9x}
    mov   ax, 160Ah
    int   2Fh           { Windows Install? }
    or    ax,ax
    jne   @nonWin
    {Windows detected}
    or    opSys, opWin
  @nonWin:
  end; { checkos }
  {$ENDIF}
  end;


function GetMeMemoStream: PStream; {-$VOL begin}
  const
    _1: Byte = 1;
  var
    S: PStream;
    Pos: LongInt;
  begin
  S := New(PMemoryStream, Init(2048, 2048));
  {Cat:   ⥯¥àì § ¯¨è¥¬ â㤠 ¥¤¨­¨çªã, çâ®¡ë ¤à㣨¥ £«ã¯ë¥ ¯à®æ¥¤ãàë,     }
  {     ª®â®àë¥ ç¨â îâ ¨§ ¯®â®ª  â®, çâ® ®­¨ â㤠 ­¥ § ¯¨á뢠«¨, áç¨â «¨,  }
  {     çâ® ­ è ¯®â®ª ᮤ¥à¦¨â ¤«¨­­ë¥ áâப¨                              }
  S^.Seek(0);
  S^.Write(_1, 1);
  S^.Seek(0);
  {/Cat}
  if S^.Status <> stOK then
    begin
    Dispose(S, Done);
    S := nil
    end;
  GetMeMemoStream := S;
  end; {-$VOL end}

function MemAdjust(L: LongInt): LongInt;
  begin
  if Linker <> nil then
    begin
    if L > CL_SafeBuf then
      L := L-CL_SafeBuf
    else
      L := 0;
    end;
  MemAdjust := L;
  end;

procedure FillWord(var B; Count, W: Word);
  assembler;
  {&Frame-} {$USES EDI, ECX}
asm
    cld
    mov  eax, W
    mov  edi, B
    mov  ecx, Count
    rep  stosw
 end;

procedure TinySlice;
  begin
  {$IFNDEF DPMI32}
  SysCtrlSleep(1);
{ ‚®®¡é¥-â®, Idle-横« ¢ DN ¢¥á쬠 âï¦ñ«ë©, ¯®í⮬㠯 ã§ã ¦¥« â¥«ì­®
¤¥« âì ª ª ¬®¦­® ¡®«ìè¥. ® ¯à¨ í⮬ ­ã¦­® á®åà ­ïâì ¤®áâ â®ç­® ¡ëáâàãî
ॠªæ¨î ­   ¢â®¯®¢â®à¥­¨ï ª« ¢¨ âãàë (¯¥à¨®¤ 33 ¬á), ¨­ ç¥ ¢áñ ­ ç¨­ ¥â
à §¤à ¦ îé¥ â®à¬®§¨âì ¨«¨ ¤ñ࣠âìáï. ’ ª ¢®â, ¯®¤ Win NT (ª¢ ­â 10 ¬á)
¤ ¦¥ 9 ¯à¨¢®¤¨â ª § ¬¥â­®¬ã ¤ñ࣠­¨î. ’ ª çâ® ¯ãáâì ¡ã¤¥â 1. € ¯®¤ OS/2
(32 ¬á ®¡ëç­®) ¤ñ࣠¥âáï ¢áñ à ¢­®, ¨ ¥á«¨ 㢥«¨ç¨âì ç¨á«®, â® ¤ñ࣠¥âáï
¥éñ ᨫ쭥¥.
}
  {$ELSE}
//  give_up_cpu_time;
//piwamoto: it crashes under W2K, so i get code from DN OSP
{AK155 ®¤ OS/2 int $28 à §£à㧪¨ ¯à®æ¥áá®à  ­¥ ¤ ñâ,  
 int $2f (DPMI Idle) - ¤ ñâ. ‚¥à®ïâ­®, ¤«ï DPMI32 int $2f
 ­¥¯à¨¬¥­¨¬®. ’ ª çâ® ®áâ ¢¨« ¡¥§ãá«®¢­® DPMI Idle}
  asm
    mov ax,$1680
    int $2f
  end;
  {$ENDIF}
  end;

begin
CheckOS;
end.