diff options
| author | Alexey Dokuchaev <danfe@FreeBSD.org> | 2017-05-02 18:50:35 +0000 |
|---|---|---|
| committer | Alexey Dokuchaev <danfe@FreeBSD.org> | 2017-05-02 18:50:35 +0000 |
| commit | 70e85d336e8c92376ad36cf266f164db1271dd50 (patch) | |
| tree | d85a8789de4686b1b74eddebae3966fe406e3acf /cad/zcad/files/patch-cad__source_zcad_commands_uzccombase.pas | |
| parent | - Update to 6.1.3 (diff) | |
Add a port of ZCAD, simple CAD program with AutoCAD DXF 2000 file format
support. It is developed with Free Pascal and Lazarus.
The project has not released any distfiles yet, so this release is based
on r2259 checked out from http://svn.shamangrad.net/zcad/trunk/, cleaned
up (most importantly, converted to Unix line endings), and tar+xz'ed.
https://sourceforge.net/projects/zcad/
Diffstat (limited to 'cad/zcad/files/patch-cad__source_zcad_commands_uzccombase.pas')
| -rw-r--r-- | cad/zcad/files/patch-cad__source_zcad_commands_uzccombase.pas | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/cad/zcad/files/patch-cad__source_zcad_commands_uzccombase.pas b/cad/zcad/files/patch-cad__source_zcad_commands_uzccombase.pas new file mode 100644 index 000000000000..ce7f0c427844 --- /dev/null +++ b/cad/zcad/files/patch-cad__source_zcad_commands_uzccombase.pas @@ -0,0 +1,17 @@ +--- cad_source/zcad/commands/uzccombase.pas.orig 2017-05-01 09:49:51 UTC ++++ cad_source/zcad/commands/uzccombase.pas +@@ -332,7 +332,14 @@ begin + itautoseve:=false; + if operands='QS' then + begin ++{$IFDEF UNIX} ++ // On Unix, force saving under ~/.zcad/autosave ++ s1:=sysvar.SAVE.SAVE_Auto_FileName^; ++ if s1[1]='*' then ++ s1:=UserPath+copy(s1,2,length(s1)-1); ++{$ELSE} + s1:=ExpandPath(sysvar.SAVE.SAVE_Auto_FileName^); ++{$ENDIF} + s:=rsAutoSave+': '''+s1+''''; + HistoryOutStr(s); + itautoseve:=true; |