AROS: removed PutTextToClip and GetTextFromClip from clipboard

removed circular dependancy from iifparse and clipboard unit, both functions still available in ami-extra/cliputils

packages/arosunits/src/clipboard.pas

@@ -79,108 +79,7 @@ type
     chm_ClipID : LongInt;        { the clip identifier of the new data }
    END;
 
-function GetTextFromClip(ClipUnit: Byte): AnsiString;
-function PutTextToClip(ClipUnit: Byte; Text: AnsiString): Boolean;
 
 implementation
 
-
-{$IFDEF FPC_DOTTEDUNITS}
-uses
-  Amiga.Core.Iffparse;
-{$ELSE FPC_DOTTEDUNITS}
-uses
-  iffparse;
-{$ENDIF FPC_DOTTEDUNITS}
-
-const
-  ID_FTXT = 1179932756;
-  ID_CHRS = 1128813139;
-
-function GetTextFromClip(ClipUnit: Byte): AnsiString;
-var
-  Iff: PIffHandle;
-  Error: LongInt;
-  Cn: PContextNode;
-  Buf: PAnsiChar;
-  Len: Integer;
-  Cu: LongInt;
-begin
-  GetTextFromClip := '';
-  Cu := ClipUnit;
-  Iff := AllocIff;
-  if Assigned(Iff) then
-  begin
-    Iff^.iff_Stream := LongWord(OpenClipboard(Cu));
-    if Iff^.iff_Stream<>0 then
-    begin
-      InitIffAsClip(iff);
-      if OpenIff(Iff, IFFF_READ) = 0 then
-      begin
-        if StopChunk(iff, ID_FTXT, ID_CHRS) = 0 then
-        begin
-          while True do
-          begin
-            Error := ParseIff(iff, IFFPARSE_SCAN);
-            if (Error <> 0) and (Error <> IFFERR_EOC) then
-              Break;
-            Cn := CurrentChunk(Iff);
-            if not Assigned(Cn) then
-            begin
-              Continue;
-            end;
-            Len := Cn^.cn_Size;
-            if (Cn^.cn_Type = ID_FTXT) and (Cn^.cn_ID = ID_CHRS) and (Len > 0) then
-            begin
-              GetMem(Buf, Len + 1);
-              FillChar(Buf^, Len + 1, #0);
-              ReadChunkBytes(Iff, Buf, Len);
-              GetTextFromClip := GetTextFromClip + AnsiString(Buf);
-              FreeMem(Buf);
-            end;
-          end;
-        end;
-        CloseIff(Iff);
-      end;
-      CloseClipboard(PClipBoardHandle(iff^.iff_Stream));
-    end;
-    FreeIFF(Iff);
-  end;
-end;
-
-function PutTextToClip(ClipUnit: Byte; Text: AnsiString): Boolean;
-var
-  Iff: PIffHandle;
-  TText: AnsiString;
-  Len: Integer;
-begin
-  PutTextToClip := False;
-  Iff := AllocIff;
-  if Assigned(Iff) then
-  begin
-    Iff^.iff_Stream := LongWord(OpenClipboard(ClipUnit));
-    if Iff^.iff_Stream <> 0 then
-    begin
-      InitIffAsClip(iff);
-      if OpenIff(Iff, IFFF_WRITE) = 0 then
-      begin
-        if PushChunk(iff, ID_FTXT, ID_FORM, IFFSIZE_UNKNOWN) = 0 then
-        begin
-          if PushChunk(iff, 0, ID_CHRS, IFFSIZE_UNKNOWN) = 0 then
-          begin
-            Len := Length(Text);
-            TText := Text + #0;
-            PutTextToClip := WriteChunkBytes(iff, @(TText[1]), Len) = len;
-            PopChunk(iff);
-          end;
-          PopChunk(iff);
-        end;
-        CloseIff(iff);
-      end;
-      CloseClipboard(PClipBoardHandle(iff^.iff_Stream));
-    end;
-    FreeIFF(Iff);
-  end;
-end;
-
 end.