mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-07 09:00:35 +02:00
* Initial version. Same as Linux, and probably will be that way.
git-svn-id: trunk@120 -
This commit is contained in:
parent
a38cefe625
commit
30c39459e7
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -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
44
ide/include/freebsd/lazconf.inc
Normal 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.
|
||||
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user