|
|
@@ -1,5 +1,8 @@
|
|
|
program md2latex;
|
|
|
|
|
|
+{$mode objfpc}
|
|
|
+{$h+}
|
|
|
+
|
|
|
uses
|
|
|
classes,
|
|
|
markdown.utils,
|
|
|
@@ -15,27 +18,30 @@ uses
|
|
|
var
|
|
|
Source,Dest : TStringList;
|
|
|
Doc : TMarkDownDocument;
|
|
|
+ Renderer: TMarkDownLatexRenderer;
|
|
|
|
|
|
begin
|
|
|
Dest:=Nil;
|
|
|
+ Renderer:=Nil;
|
|
|
Source:=TStringList.Create;
|
|
|
try
|
|
|
Dest:=TStringList.Create;
|
|
|
Source.LoadFromFile(ParamStr(1));
|
|
|
Doc:=TMarkDownParser.FastParse(Source,[]);
|
|
|
- With TMarkDownLatexRenderer.Create(Nil) do
|
|
|
- begin
|
|
|
+ Renderer:=TMarkDownLatexRenderer.Create(Nil);
|
|
|
+ With Renderer do
|
|
|
+ begin
|
|
|
Options:=[loEnvelope];
|
|
|
If ParamStr(2)='' then
|
|
|
Writeln(RenderLaTeX(Doc))
|
|
|
else
|
|
|
begin
|
|
|
- Dest:=TStringList.Create;
|
|
|
RenderDocument(Doc,Dest);
|
|
|
Dest.SaveToFile(ParamStr(2));
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
+ Renderer.Free;
|
|
|
Source.Free;
|
|
|
Dest.Free;
|
|
|
end;
|