Index: CHANGES.txt
==================================================================
--- CHANGES.txt
+++ CHANGES.txt
@@ -1,5 +1,14 @@
+Version 0.10.0
+2022-03-10
+
+[Feature] Log file creation.
+[Changed] Replaced the build output window by a status window.
+[Bugfix] Windows builds erroneously showed "-1" in the update status field.
+[Bugfix] Building a document without a macro package works now.
+
+
Version 0.9.9.1
2022-03-10
[Feature] macOS builds are working now.
[Feature] First macOS release.
Index: README.md
==================================================================
--- README.md
+++ README.md
@@ -2,11 +2,11 @@
You know what was missing with `groff`? A good alternative to TeXstudio. Here we go.
## Screenshot
-
+
## Features
* Written in Lazarus (Free Pascal).
* Should be cross-platform (but Windows support is mediocre yet).
ADDED screenshot.png
Index: screenshot.png
==================================================================
--- /dev/null
+++ screenshot.png
cannot compute difference between binary files
Index: src/buildoutputwindow.lfm
==================================================================
--- src/buildoutputwindow.lfm
+++ src/buildoutputwindow.lfm
@@ -1,20 +1,21 @@
object BuildStatusWindow: TBuildStatusWindow
- Left = 2050
- Height = 367
- Top = 149
- Width = 432
+ Left = 493
+ Height = 80
+ Top = 160
+ Width = 168
BorderStyle = bsDialog
- Caption = 'build output'
- ClientHeight = 367
- ClientWidth = 432
- LCLVersion = '2.2.0.4'
- object mBuildOutput: TMemo
- Left = 0
- Height = 367
- Top = 0
- Width = 432
- Align = alClient
- ScrollBars = ssAutoBoth
- TabOrder = 0
+ Caption = 'building'
+ ClientHeight = 80
+ ClientWidth = 168
+ LCLVersion = '2.3.0.0'
+ object Label1: TLabel
+ Left = 32
+ Height = 37
+ Top = 16
+ Width = 117
+ Caption = 'building...'
+ Font.Height = -27
+ ParentColor = False
+ ParentFont = False
end
end
Index: src/buildoutputwindow.pas
==================================================================
--- src/buildoutputwindow.pas
+++ src/buildoutputwindow.pas
@@ -25,35 +25,35 @@
type
{ TBuildStatusWindow }
TBuildStatusWindow = class(TForm)
- mBuildOutput: TMemo;
+ Label1: TLabel;
private
public
- function BuildDocument(CommandLine: String): Boolean;
+ function BuildDocument(CommandLine: String; LogFile: String): Boolean;
end;
var
OutputText: String;
- BuildStatusWindow: TBuildStatusWindow;
implementation
{$R *.lfm}
-function TBuildStatusWindow.BuildDocument(CommandLine: String): Boolean;
+function TBuildStatusWindow.BuildDocument(CommandLine: String; LogFile: String): Boolean;
var
p: TProcess;
- AStringList: TStringList;
+ n: LongInt;
+ str: String;
+ lh: TextFile;
begin
p := TProcess.Create(nil);
- p.Options := p.Options + [poWaitOnExit, poUsePipes];
+ p.Options := p.Options + [poUsePipes, poStderrToOutPut];
- AStringList := TStringList.Create;
{$IFDEF WINDOWS}
p.Executable := 'cmd';
p.Parameters.Add('/c');
{$ENDIF}
{$IFDEF UNIX}
@@ -61,26 +61,41 @@
p.Parameters.Add('-c');
{$ENDIF}
p.Parameters.Add(CommandLine);
p.Execute;
- AStringList.LoadFromStream(p.Output);
+ if LogFile <> '' then
+ begin
+ AssignFile(lh, LogFile);
+ Rewrite(lh);
+
+ while p.Running do
+ begin
+ n := p.Output.Read(str, 2048);
+ if n > 0 then
+ begin
+ writeln(lh, str);
+ end
+ else Sleep(100);
+ end;
+
+ { We might have some buffer contents left. }
+ repeat
+ n := p.Output.Read(str, 2048);
+ if n > 0 then
+ begin
+ writeln(lh, str);
+ end;
+ until n <= 0;
+
+ CloseFile(lh);
+ end;
+
+ result := p.ExitStatus > 0;
p.Free;
- mBuildOutput.Text := AStringList.Text;
- AStringList.Free;
-
- if Length(mBuildOutput.Text) = 0 then begin
- // We don't have any output. We can close the window.
- BuildStatusWindow.Close;
- result := True
- end
- else begin
- // There was some output. Chances are that warnings occurred.
- // Keep it shown.
- // TODO: This does not always work well...
- result := False
- end;
+ { Close the status window: }
+ Close;
end;
end.
Index: src/groffstudio.lpi
==================================================================
--- src/groffstudio.lpi
+++ src/groffstudio.lpi
@@ -20,13 +20,11 @@
-
-
-
+