paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 12:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Initial version. Same as Linux, and probably will be that way.

Browse Source 
git-svn-id: trunk@120 -
This commit is contained in:
marco 2001-01-14 20:50:23 +00:00
parent a38cefe625
commit 30c39459e7
2 changed files with 45 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -119,6 +119,7 @@ ide/formeditor.pp svneol=native#text/pascal
ide/global.inc svneol=native#text/pascal
ide/global.pp svneol=native#text/pascal
ide/idecomp.pp svneol=native#text/pascal
ide/include/freebsd/lazconf.inc svneol=native#text/pascal
ide/include/linux/lazconf.inc svneol=native#text/pascal
ide/include/win32/lazconf.inc svneol=native#text/pascal
ide/lazarus.pp svneol=native#text/pascal

44
ide/include/freebsd/lazconf.inc Normal file
View File

@ -0,0 +1,44 @@
{Should become unit Unix in the future. For both Linux and FreeBSD}
uses
linux;
{***************************************************************************
lazconf.inc
***************************************************************************}
{---------------------------------------------------------------------------
getPrimaryConfigPath function
---------------------------------------------------------------------------}
function GetPrimaryConfigPath: String;
begin
{ Return the primary config directory }
Result := FExpand('~/.lazarus');
end;
{---------------------------------------------------------------------------
getSecondaryConfigPath function
---------------------------------------------------------------------------}
function GetSecondaryConfigPath: String;
begin
{ Return the secondary config directory. This one is checked
if the primary does not exist }
Result := '/etc';
end;
{---------------------------------------------------------------------------
createPrimaryConfigPath function
---------------------------------------------------------------------------}
procedure CreatePrimaryConfigPath;
begin
{ Create the primary directory }
CreateDir(GetPrimaryConfigPath);
//MkDir(GetPrimaryConfigPath);
end;
{
$Log$
Revision 1.1 2001/01/14 20:50:23 marco
* Initial version. Same as Linux, and probably will be that way.
}