Convert files to unix format. Convert C++ header names to C header names.

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>

1 files changed, 49 insertions, 49 deletions

diff --git a/indenters/example.vb b/indenters/example.vb
index 2ecbdc0..94adf39 100755
--- a/indenters/example.vb
+++ b/indenters/example.vb
@@ -1,50 +1,50 @@
-Dim docRoot As New ChilkatXml

-

-Dim success As Long

-

-docRoot.Tag = "myDoc"

-

-'  To zip compress the content, set this flag to 1

-Dim zipContent As Long

-zipContent = 0

-'  To 128-bit AES encrypt the content, set this flag to 1

-Dim encryptContent As Long

-encryptContent = 0

-Dim encryptPassword As String

-encryptPassword = ""

-

-Dim pdfNode As ChilkatXml

-

-Set pdfNode = docRoot.NewChild("pdf","")

-

-'  Embed a PDF into XML

-success = pdfNode.SetBinaryContentFromFile("sample.pdf",zipContent,encryptContent,encryptPassword)

-If (success <> 1) Then

-    MsgBox pdfNode.LastErrorText

-

-    Exit Sub

-End If

-

-MsgBox pdfNode.LastErrorText

-

-'  Display the entire XML document:

-Text1.Text = Text1.Text & docRoot.GetXml() & vbCrLf

-

-'  Get the Base64-encoded content and display it:

-Text1.Text = Text1.Text & pdfNode.Content & vbCrLf

-

-'  Extract the binary content from XML:

-Dim unzipContent As Long

-unzipContent = 0

-Dim decryptContent As Long

-decryptContent = 0

-Dim decryptPassword As String

-decryptPassword = ""

-success = pdfNode.SaveBinaryContent("out.pdf",unzipContent,decryptContent,decryptPassword)

-If (success <> 1) Then

-    MsgBox pdfNode.LastErrorText

-

-    Exit Sub

-End If

-

+Dim docRoot As New ChilkatXml
+
+Dim success As Long
+
+docRoot.Tag = "myDoc"
+
+'  To zip compress the content, set this flag to 1
+Dim zipContent As Long
+zipContent = 0
+'  To 128-bit AES encrypt the content, set this flag to 1
+Dim encryptContent As Long
+encryptContent = 0
+Dim encryptPassword As String
+encryptPassword = ""
+
+Dim pdfNode As ChilkatXml
+
+Set pdfNode = docRoot.NewChild("pdf","")
+
+'  Embed a PDF into XML
+success = pdfNode.SetBinaryContentFromFile("sample.pdf",zipContent,encryptContent,encryptPassword)
+If (success <> 1) Then
+    MsgBox pdfNode.LastErrorText
+
+    Exit Sub
+End If
+
+MsgBox pdfNode.LastErrorText
+
+'  Display the entire XML document:
+Text1.Text = Text1.Text & docRoot.GetXml() & vbCrLf
+
+'  Get the Base64-encoded content and display it:
+Text1.Text = Text1.Text & pdfNode.Content & vbCrLf
+
+'  Extract the binary content from XML:
+Dim unzipContent As Long
+unzipContent = 0
+Dim decryptContent As Long
+decryptContent = 0
+Dim decryptPassword As String
+decryptPassword = ""
+success = pdfNode.SaveBinaryContent("out.pdf",unzipContent,decryptContent,decryptPassword)
+If (success <> 1) Then
+    MsgBox pdfNode.LastErrorText
+
+    Exit Sub
+End If
+
 MsgBox "Success!"
\ No newline at end of file