From 9e0ca10baba2700d19bd3a3b81500b73bd4013d0 Mon Sep 17 00:00:00 2001
From: watcherhd <watcherhd@e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb>
Date: Sun, 15 May 2011 15:36:29 +0000
Subject: unneeded delphi folder removed

git-svn-id: http://miranda-plugins.googlecode.com/svn/trunk@107 e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb
---
 delphi/Awkward/utils/base64.pas | 108 ----------------------------------------
 1 file changed, 108 deletions(-)
 delete mode 100644 delphi/Awkward/utils/base64.pas

(limited to 'delphi/Awkward/utils/base64.pas')

diff --git a/delphi/Awkward/utils/base64.pas b/delphi/Awkward/utils/base64.pas
deleted file mode 100644
index 73ce09b..0000000
--- a/delphi/Awkward/utils/base64.pas
+++ /dev/null
@@ -1,108 +0,0 @@
-unit Base64;
-
-interface
-
-uses windows;
-
-{ Base64 encode and decode a string }
-function BASE64Encode(src:pByte;len:integer):PAnsiChar;
-function BASE64Decode(src:PAnsiChar;var dst:pByte):integer;
-
-{******************************************************************************}
-{******************************************************************************}
-implementation
-
-uses common;
-
-const
-  base64chars{:array [0..63] of AnsiChar}:PAnsiChar =
-    'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
-
-function BASE64Encode(src:pByte;len:integer):PAnsiChar;
-var
-  dst:PAnsiChar;
-begin
-  if (src=nil) or (len<=0) then
-  begin
-    result:=nil;
-    exit;
-  end;
-  mGetMem(result,((len*4+11) div (12*4))+1);
-  dst:=result;
-
-  while len>0 do
-  begin
-    dst^:=base64chars[src^ shr 2]; inc(dst);
-    if len=1 then
-    begin
-      dst^:=base64chars[(src^ and 3) shl 4]; inc(dst);
-      dst^:='='; inc(dst);
-      dst^:='='; inc(dst);
-      break;
-    end;
-    dst^:=base64chars[((src^ and 3) shl 4) or (pbyte(PAnsiChar(src)+1)^ shr 4)]; inc(dst); inc(src);
-    if len=2 then
-    begin
-      dst^:=base64chars[(src^ and $F) shl 2]; inc(dst);
-      dst^:='='; inc(dst);
-      break;
-    end;
-    dst^:=base64chars[((src^ and $F) shl 2) or (pbyte(PAnsiChar(src)+1)^ shr 6)]; inc(dst); inc(src);
-    dst^:=base64chars[src^ and $3F]; inc(dst); inc(src);
-    dec(len,3);
-  end;
-  dst^:=#0;
-end;
-
-function Base64CharToInt(c:AnsiChar):byte;
-begin
-  case c of
-    'A'..'Z': result:=ord(c)-ord('A');
-    'a'..'z': result:=ord(c)-ord('a')+26;
-    '0'..'9': result:=ord(c)-ord('0')+52;
-    '+': result:=62;
-    '/': result:=63;
-    '=': result:=64;
-  else
-    result:=255;
-  end;
-end;
-
-function BASE64Decode(src:PAnsiChar;var dst:pByte):integer;
-var
-  slen:integer;
-  ptr:pByte;
-  b1,b2,b3,b4:byte;
-begin
-  if (src=nil) or (src^=#0) then
-  begin
-    result:=0;
-    dst:=nil;
-    exit;
-  end;
-  ptr:=pbyte(src);
-  while ptr^<>0 do inc(ptr);
-  slen:=ptr-src;
-  mGetMem(ptr,(slen*3) div 4);
-  dst:=ptr;
-  result:=0;
-  while slen>0 do
-  begin
-    b1:=Base64CharToInt(src^); inc(src);
-    b2:=Base64CharToInt(src^); inc(src);
-    b3:=Base64CharToInt(src^); inc(src);
-    b4:=Base64CharToInt(src^); inc(src);
-    dec(slen,4);
-    if (b1=255) or (b1=64) or (b2=255) or (b2=64) or (b3=255) or (b4=255) then
-      break;
-    ptr^:=(b1 shl 2) or (b2 shr 4); inc(ptr); inc(result);
-    if b3=64 then
-      break;
-    ptr^:=(b2 shl 4) or (b3 shr 2); inc(ptr); inc(result);
-    if b4=64 then
-      break;
-    ptr^:=b4 or (b3 shl 6); inc(ptr); inc(result);
-  end;
-end;
-
-end.
-- 
cgit v1.2.3