Starts code to add support to cdr and svg to fpvectorial

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15793 3ad0048d-3df7-0310-abae-a5850022a9f2

2 files changed, 96 insertions, 0 deletions

diff --git a/packages/fpvectorial/src/cdrvectorialreader.pas b/packages/fpvectorial/src/cdrvectorialreader.pas
new file mode 100644
index 0000000000..ab8d0fb325
--- /dev/null
+++ b/packages/fpvectorial/src/cdrvectorialreader.pas
@@ -0,0 +1,53 @@
+{
+cdrvectorialreader.pas
+
+Reads a Corel Draw vectorial file
+
+CDR file format specification obtained from:
+
+ADOBE SYSTEMS INCORPORATED. PDF Reference: Adobe®
+Portable Document Format. San Jose, 2006. (Sixth edition).
+
+AUTHORS: Felipe Monteiro de Carvalho
+
+License: The same modified LGPL as the Free Pascal RTL
+         See the file COPYING.modifiedLGPL for more details
+}
+unit cdrvectorialreader;
+
+{$ifdef fpc}
+  {$mode delphi}
+{$endif}
+
+interface
+
+uses
+  Classes, SysUtils,
+  pdfvrlexico, pdfvrsintatico, pdfvrsemantico, avisozlib,
+  fpvectorial;
+
+type
+
+  { TvCDRVectorialReader }
+
+  TvCDRVectorialReader = class(TvCustomVectorialReader)
+  public
+    { General reading methods }
+    procedure ReadFromStream(AStream: TStream; AData: TvVectorialDocument); override;
+  end;
+
+implementation
+
+{ TvPDFVectorialReader }
+
+procedure TvCDRVectorialReader.ReadFromStream(AStream: TStream;
+  AData: TvVectorialDocument);
+begin
+end;
+
+initialization
+
+  RegisterVectorialReader(TvCDRVectorialReader, vfCorelDrawCDR);
+
+end.
+
diff --git a/packages/fpvectorial/src/svgvectorialwriter.pas b/packages/fpvectorial/src/svgvectorialwriter.pas
new file mode 100644
index 0000000000..cafd26c782
--- /dev/null
+++ b/packages/fpvectorial/src/svgvectorialwriter.pas
@@ -0,0 +1,43 @@
+{
+Writes an SVG Document
+
+License: The same modified LGPL as the Free Pascal RTL
+         See the file COPYING.modifiedLGPL for more details
+
+AUTHORS: Felipe Monteiro de Carvalho
+}
+unit svgvectorialwriter;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils,
+  fpvectorial;
+
+type
+  { TvSVGVectorialWriter }
+
+  TvSVGVectorialWriter = class(TvCustomVectorialWriter)
+  public
+    { General reading methods }
+    procedure WriteToStream(AStream: TStream; AData: TvVectorialDocument); virtual;
+  end;
+
+implementation
+
+{ TvSVGVectorialWriter }
+
+procedure TvSVGVectorialWriter.WriteToStream(AStream: TStream;
+  AData: TvVectorialDocument);
+begin
+
+end;
+
+initialization
+
+  RegisterVectorialWriter(TvSVGVectorialWriter, vfSVG);
+
+end.
+