From f8e7d0bc097fdae022c6e4e2fc22ee61cbf63ecd Mon Sep 17 00:00:00 2001 From: florian Date: Thu, 7 May 2020 20:36:09 +0000 Subject: [PATCH] - remove unused files, resolves #37032 git-svn-id: trunk@45306 - --- .gitattributes | 2 - compiler/cpid.pas | 191 ------------------------------------------- compiler/cwindirs.pp | 123 ---------------------------- 3 files changed, 316 deletions(-) delete mode 100644 compiler/cpid.pas delete mode 100644 compiler/cwindirs.pp diff --git a/.gitattributes b/.gitattributes index aa8f3ef9bf..52de829804 100644 --- a/.gitattributes +++ b/.gitattributes @@ -165,14 +165,12 @@ compiler/compiler.pas svneol=native#text/plain compiler/compinnr.pas svneol=native#text/plain compiler/comprsrc.pas svneol=native#text/plain compiler/constexp.pas svneol=native#text/x-pascal -compiler/cpid.pas svneol=native#text/plain compiler/cprofile.pas svneol=native#text/pascal compiler/crefs.pas svneol=native#text/plain compiler/cresstr.pas svneol=native#text/plain compiler/cscript.pas svneol=native#text/plain compiler/cstreams.pas svneol=native#text/plain compiler/cutils.pas svneol=native#text/plain -compiler/cwindirs.pp svneol=native#text/plain compiler/dbgbase.pas svneol=native#text/plain compiler/dbgcodeview.pas svneol=native#text/plain compiler/dbgdwarf.pas svneol=native#text/plain diff --git a/compiler/cpid.pas b/compiler/cpid.pas deleted file mode 100644 index 0811a36570..0000000000 --- a/compiler/cpid.pas +++ /dev/null @@ -1,191 +0,0 @@ -{ - Copyright (c) 2008 by Florian Klaempfl - - Basic stuff for encoding sensitive strings - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. - **************************************************************************** -} -unit cpid; - - -{$i fpcdefs.inc} - - interface - - type - TEncodingEntry = record - id : TStringEncoding; - name : Ansistring; - end; - - const Encodings : array[0..150] of TEncodingEntry = ( - id : 037; name : 'IBM037'; - id : 437; name : 'IBM437'; - id : 500; name : 'IBM500'; - id : 708; name : 'ASMO-708'; - id : 709; name : 'ASMO-449+'; - id : 710; name : 'Arabic'; - id : 720; name : 'DOS-720'; - id : 737; name : 'ibm737'; - id : 775; name : 'ibm775'; - id : 850; name : 'ibm850'; - id : 852; name : 'ibm852'; - id : 855; name : 'IBM855'; - id : 857; name : 'ibm857'; - id : 858; name : 'IBM00858'; - id : 860; name : 'IBM860'; - id : 861; name : 'ibm861'; - id : 862; name : 'DOS-862'; - id : 863; name : 'IBM863'; - id : 864; name : 'IBM864'; - id : 865; name : 'IBM865'; - id : 866; name : 'cp866'';; - id : 869; name : 'ibm869'; - id : 870; name : 'IBM870'; - id : 874; name : 'windows-874'; - id : 875; name : 'cp875'; - id : 932; name : 'shift_jis'; - id : 936; name : 'gb2312'; - id : 949; name : 'ks_c_5601-1987'; - id : 950; name : 'big5'; - id : 1026; name : 'IBM1026'; - id : 1047; name : 'IBM01047'; - id : 1140; name : 'IBM01140'; - id : 1141; name : 'IBM01141'; - id : 1142; name : 'IBM01142'; - id : 1143; name : 'IBM01143'; - id : 1144; name : 'IBM01144'; - id : 1145; name : 'IBM01145'; - id : 1146; name : 'IBM01146'; - id : 1147; name : 'IBM01147'; - id : 1148; name : 'IBM01148'; - id : 1149; name : 'IBM01149'; - id : 1200; name : 'utf-16'; - id : 1201; name : 'unicodeFFFE'; - id : 1250; name : 'windows-1250'; - id : 1251; name : 'windows-1251'; - id : 1252; name : 'windows-1252'; - id : 1253; name : 'windows-1253'; - id : 1254; name : 'windows-1254'; - id : 1255; name : 'windows-1255'; - id : 1256; name : 'windows-1256'; - id : 1257; name : 'windows-1257'; - id : 1258; name : 'windows-1258'; - id : 1361; name : 'Johab'; - id : 10000; name : 'macintosh'; - id : 10001; name : 'x-mac-japanese'; - id : 10002; name : 'x-mac-chinesetrad'; - id : 10003; name : 'x-mac-korean'; - id : 10004; name : 'x-mac-arabic'; - id : 10005; name : 'x-mac-hebrew'; - id : 10006; name : 'x-mac-greek'; - id : 10007; name : 'x-mac-cyrillic'; - id : 10008; name : 'x-mac-chinesesimp'; - id : 10010; name : 'x-mac-romanian'; - id : 10017; name : 'x-mac-ukrainian'; - id : 10021; name : 'x-mac-thai'; - id : 10029; name : 'x-mac-ce'; - id : 10079; name : 'x-mac-icelandic'; - id : 10081; name : 'x-mac-turkish'; - id : 10082; name : 'x-mac-croatian'; - id : 12000; name : 'utf-32'; - id : 12001; name : 'utf-32BE'; - id : 20000; name : 'x-Chinese_CNS'; - id : 20001; name : 'x-cp20001'; - id : 20002; name : 'x_Chinese-Eten'; - id : 20003; name : 'x-cp20003'; - id : 20004; name : 'x-cp20004'; - id : 20005; name : 'x-cp20005'; - id : 20105; name : 'x-IA5'; - id : 20106; name : 'x-IA5-German'; - id : 20107; name : 'x-IA5-Swedish'; - id : 20108; name : 'x-IA5-Norwegian'; - id : 20127; name : 'us-ascii'; - id : 20261; name : 'x-cp20261'; - id : 20269; name : 'x-cp20269'; - id : 20273; name : 'IBM273'; - id : 20277; name : 'IBM277'; - id : 20278; name : 'IBM278'; - id : 20280; name : 'IBM280'; - id : 20284; name : 'IBM284'; - id : 20285; name : 'IBM285'; - id : 20290; name : 'IBM290'; - id : 20297; name : 'IBM297'; - id : 20420; name : 'IBM420'; - id : 20423; name : 'IBM423'; - id : 20424; name : 'IBM424'; - id : 20833; name : 'x-EBCDIC-KoreanExtended'; - id : 20838; name : 'IBM-Thai'; - id : 20866; name : 'koi8-r'; - id : 20871; name : 'IBM871'; - id : 20880; name : 'IBM880'; - id : 20905; name : 'IBM905'; - id : 20924; name : 'IBM00924'; - id : 20932; name : 'EUC-JP'; - id : 20936; name : 'x-cp20936'; - id : 20949; name : 'x-cp20949'; - id : 21025; name : 'cp1025'; - id : 21866; name : 'koi8-u'; - id : 28591; name : 'iso-8859-1'; - id : 28592; name : 'iso-8859-2'; - id : 28593; name : 'iso-8859-3'; - id : 28594; name : 'iso-8859-4'; - id : 28595; name : 'iso-8859-5'; - id : 28596; name : 'iso-8859-6'; - id : 28597; name : 'iso-8859-7'; - id : 28598; name : 'iso-8859-8'; - id : 28599; name : 'iso-8859-9'; - id : 28603; name : 'iso-8859-13'; - id : 28605; name : 'iso-8859-15'; - id : 29001; name : 'x-Europa'; - id : 38598; name : 'iso-8859-8-i'; - id : 50220; name : 'iso-2022-jp'; - id : 50221; name : 'csISO2022JP'; - id : 50222; name : 'iso-2022-jp'; - id : 50225; name : 'iso-2022-kr'; - id : 50227; name : 'x-cp50227'; - id : 50229; name : 'ISO 2022'; - { not unique - id : 50930; name : 'EBCDIC - id : 50931; name : 'EBCDIC - id : 50933; name : 'EBCDIC - id : 50935; name : 'EBCDIC - id : 50936; name : 'EBCDIC - id : 50937; name : 'EBCDIC - id : 50939; name : 'EBCDIC - } - id : 51932; name : 'euc-jp'; - id : 51936; name : 'EUC-CN'; - id : 51949; name : 'euc-kr'; - id : 51950; name : 'EUC'; - id : 52936; name : 'hz-gb-2312'; - id : 54936; name : 'GB18030'; - id : 57002; name : 'x-iscii-de'; - id : 57003; name : 'x-iscii-be'; - id : 57004; name : 'x-iscii-ta'; - id : 57005; name : 'x-iscii-te'; - id : 57006; name : 'x-iscii-as'; - id : 57007; name : 'x-iscii-or'; - id : 57008; name : 'x-iscii-ka'; - id : 57009; name : 'x-iscii-ma'; - id : 57010; name : 'x-iscii-gu'; - id : 57011; name : 'x-iscii-pa'; - id : 65000; name : 'utf-7'; - id : 65001; name : 'utf-8'); - - implementation - -end. diff --git a/compiler/cwindirs.pp b/compiler/cwindirs.pp deleted file mode 100644 index 077697d2a8..0000000000 --- a/compiler/cwindirs.pp +++ /dev/null @@ -1,123 +0,0 @@ -{ this unit is temporarily included in the compiler sources till stable releases with - windirs from the rtl are shipped -} -unit cwindirs; - -{$mode objfpc} -{$H+} - -interface - -uses - windows, - strings; - -Const - CSIDL_PROGRAMS = $0002; { %SYSTEMDRIVE%\Program Files } - CSIDL_PERSONAL = $0005; { %USERPROFILE%\My Documents } - CSIDL_FAVORITES = $0006; { %USERPROFILE%\Favorites } - CSIDL_STARTUP = $0007; { %USERPROFILE%\Start menu\Programs\Startup } - CSIDL_RECENT = $0008; { %USERPROFILE%\Recent } - CSIDL_SENDTO = $0009; { %USERPROFILE%\Sendto } - CSIDL_STARTMENU = $000B; { %USERPROFILE%\Start menu } - CSIDL_MYMUSIC = $000D; { %USERPROFILE%\Documents\My Music } - CSIDL_MYVIDEO = $000E; { %USERPROFILE%\Documents\My Videos } - CSIDL_DESKTOPDIRECTORY = $0010; { %USERPROFILE%\Desktop } - CSIDL_NETHOOD = $0013; { %USERPROFILE%\NetHood } - CSIDL_TEMPLATES = $0015; { %USERPROFILE%\Templates } - CSIDL_COMMON_STARTMENU = $0016; { %PROFILEPATH%\All users\Start menu } - CSIDL_COMMON_PROGRAMS = $0017; { %PROFILEPATH%\All users\Start menu\Programs } - CSIDL_COMMON_STARTUP = $0018; { %PROFILEPATH%\All users\Start menu\Programs\Startup } - CSIDL_COMMON_DESKTOPDIRECTORY = $0019; { %PROFILEPATH%\All users\Desktop } - CSIDL_APPDATA = $001A; { %USERPROFILE%\Application Data (roaming) } - CSIDL_PRINTHOOD = $001B; { %USERPROFILE%\Printhood } - CSIDL_LOCAL_APPDATA = $001C; { %USERPROFILE%\Local Settings\Application Data (non roaming) } - CSIDL_COMMON_FAVORITES = $001F; { %PROFILEPATH%\All users\Favorites } - CSIDL_INTERNET_CACHE = $0020; { %USERPROFILE%\Local Settings\Temporary Internet Files } - CSIDL_COOKIES = $0021; { %USERPROFILE%\Cookies } - CSIDL_HISTORY = $0022; { %USERPROFILE%\Local settings\History } - CSIDL_COMMON_APPDATA = $0023; { %PROFILESPATH%\All Users\Application Data } - CSIDL_WINDOWS = $0024; { %SYSTEMROOT% } - CSIDL_SYSTEM = $0025; { %SYSTEMROOT%\SYSTEM32 (may be system on 95/98/ME) } - CSIDL_PROGRAM_FILES = $0026; { %SYSTEMDRIVE%\Program Files } - CSIDL_MYPICTURES = $0027; { %USERPROFILE%\My Documents\My Pictures } - CSIDL_PROFILE = $0028; { %USERPROFILE% } - CSIDL_PROGRAM_FILES_COMMON = $002B; { %SYSTEMDRIVE%\Program Files\Common } - CSIDL_COMMON_TEMPLATES = $002D; { %PROFILEPATH%\All Users\Templates } - CSIDL_COMMON_DOCUMENTS = $002E; { %PROFILEPATH%\All Users\Documents } - CSIDL_COMMON_ADMINTOOLS = $002F; { %PROFILEPATH%\All Users\Start Menu\Programs\Administrative Tools } - CSIDL_ADMINTOOLS = $0030; { %USERPROFILE%\Start Menu\Programs\Administrative Tools } - CSIDL_COMMON_MUSIC = $0035; { %PROFILEPATH%\All Users\Documents\my music } - CSIDL_COMMON_PICTURES = $0036; { %PROFILEPATH%\All Users\Documents\my pictures } - CSIDL_COMMON_VIDEO = $0037; { %PROFILEPATH%\All Users\Documents\my videos } - CSIDL_CDBURN_AREA = $003B; { %USERPROFILE%\Local Settings\Application Data\Microsoft\CD Burning } - CSIDL_PROFILES = $003E; { %PROFILEPATH% } - - CSIDL_FLAG_CREATE = $8000; { (force creation of requested folder if it doesn't exist yet) } - -Function GetWindowsSpecialDir(ID : Integer) : String; - -implementation - -uses - sysutils; - -Type - PFNSHGetFolderPath = Function(Ahwnd: HWND; Csidl: Integer; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall; - - -var - SHGetFolderPath : PFNSHGetFolderPath = Nil; - CFGDLLHandle : THandle = 0; - -Procedure InitDLL; - -Var - pathBuf: array[0..MAX_PATH-1] of char; - pathLength: Integer; -begin - { Load shfolder.dll using a full path, in order to prevent spoofing (Mantis #18185) - Don't bother loading shell32.dll because shfolder.dll itself redirects SHGetFolderPath - to shell32.dll whenever possible. } - pathLength:=GetSystemDirectory(pathBuf, MAX_PATH); - if (pathLength>0) and (pathLength0) then - begin - Pointer(ShGetFolderPath):=GetProcAddress(CFGDLLHandle,'SHGetFolderPathA'); - If @ShGetFolderPath=nil then - begin - FreeLibrary(CFGDLLHandle); - CFGDllHandle:=0; - end; - end; - end; - If (@ShGetFolderPath=Nil) then - Raise Exception.Create('Could not determine SHGetFolderPath Function'); -end; - -Function GetWindowsSpecialDir(ID : Integer) : String; - -Var - APath : Array[0..MAX_PATH] of char; - -begin - Result:=''; - if (CFGDLLHandle=0) then - InitDLL; - If (SHGetFolderPath<>Nil) then - begin - if SHGetFolderPath(0,ID or CSIDL_FLAG_CREATE,0,0,@APATH[0])=S_OK then - Result:=IncludeTrailingPathDelimiter(StrPas(@APath[0])); - end; -end; - -Initialization -Finalization - if CFGDLLHandle<>0 then - FreeLibrary(CFGDllHandle); -end. -