From f3c3dafa569b7d2fdd7913eba157438ec166e972 Mon Sep 17 00:00:00 2001
From: Jose Alonso Cardenas Marquez <acm@FreeBSD.org>
Date: Tue, 7 Aug 2018 07:06:04 +0000
Subject: - New port: editors/picpas

PicPas is a Pascal compiler, written in Lazarus, which generates executable
code for midrange PIC microcontrollers (the 16F series).

WWW: https://github.com/t-edson/PicPas

Differential Revision:	https://reviews.freebsd.org/D15242
---
 editors/picpas/files/patch-miconfig_MiConfigXML.pas | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 editors/picpas/files/patch-miconfig_MiConfigXML.pas

(limited to 'editors/picpas/files/patch-miconfig_MiConfigXML.pas')

diff --git a/editors/picpas/files/patch-miconfig_MiConfigXML.pas b/editors/picpas/files/patch-miconfig_MiConfigXML.pas
new file mode 100644
index 000000000000..a3d261d04ba1
--- /dev/null
+++ b/editors/picpas/files/patch-miconfig_MiConfigXML.pas
@@ -0,0 +1,20 @@
+--- miconfig/MiConfigXML.pas	2018-04-26 21:42:01.343702000 -0500
++++ miconfig/MiConfigXML.pas	2018-04-26 21:43:20.791884000 -0500
+@@ -20,7 +20,7 @@
+ {$mode objfpc}{$H+}
+ interface
+ uses
+-  Classes, SysUtils, Graphics, Forms, Laz2_XMLCfg, MisUtils, MiConfigBasic;
++  Classes, SysUtils, Graphics, Forms, Laz2_XMLCfg, MisUtils, MiConfigBasic, LazFileUtils, LazUTF8;
+ type
+   { TMiConfigXML }
+   {Clase base que es usada para manejar los campos de configuración.}
+@@ -75,7 +75,7 @@
+ function TMiConfigXML.DefaultFileName: string;
+ {Devuelve el nombre por defecto del archvio de configuración}
+ begin
+-  Result := ChangeFileExt(Application.ExeName,'.xml');
++  Result := ChangeFileExt(GetEnvironmentVariableUTF8('HOME')+'/.config/PicPas/'+Application.ExeName,'.xml');
+ end;
+ procedure TMiConfigXML.VerifyFile;
+ //Verifica si el archivo XML "FileName" existe. Si no, muestra un mensaje y lo crea.
-- 
cgit v1.2.3