+++ /dev/null
-#!/usr/bin/perl -w
-
-#
-# Copyright (c) 2007, Cameron Rich
-#
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are met:
-#
-# * Redistributions of source code must retain the above copyright notice,
-# this list of conditions and the following disclaimer.
-# * Redistributions in binary form must reproduce the above copyright
-# notice, this list of conditions and the following disclaimer in the
-# documentation and/or other materials provided with the distribution.
-# * Neither the name of the axTLS project nor the names of its
-# contributors may be used to endorse or promote products derived
-# from this software without specific prior written permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
-# TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
-# OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
-# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-#
-
-#===============================================================
-# This application transforms ssl.h into interfaces that can be used by
-# other language bindings. It is "SWIG"-like in nature in that various
-# files are generated based on the axTLS API.
-#
-# The file produced is axInterface.? (depending on the file extension).
-#
-#===============================================================
-
-use strict;
-
-my $CSHARP = 0;
-my $VBNET = 1;
-
-my $binding;
-my $skip = 0;
-my $signature_ret_type;
-
-# Transforms function signature into an Interface format
-sub transformSignature
-{
- my $item;
- my ($line) = @_;
-
- foreach $item ($line)
- {
- # our very basic preprocessor
- if ($binding == $CSHARP)
- {
- $line =~ s/STDCALL //;
- $line =~ s/EXP_FUNC/ [DllImport ("axtls")]\n public static extern/;
- $line =~ s/uint32_t/uint/g;
- $line =~ s/uint8_t \*\*/ref IntPtr /g;
- $line =~ s/const uint8_t \* /IntPtr /g;
- $line =~ s/const uint8_t \*/byte[] /g; # note: subtle diff
- $line =~ s/uint8_t \* ?/byte[] /g;
- $line =~ s/uint8_t ?/byte /g;
- $line =~ s/const char \* ?/string /g;
- $line =~ s/const SSL_CTX \* ?/IntPtr /g;
- $line =~ s/SSL_CTX \* ?/IntPtr /g;
- $line =~ s/SSLObjLoader \* ?/IntPtr /g;
- $line =~ s/const SSL \* ?/IntPtr /g;
- $line =~ s/SSL \* ?/IntPtr /g;
- $line =~ s/\(void\)/()/g;
- }
- elsif ($binding == $VBNET)
- {
- if ($line =~ /EXP_FUNC/)
- {
- # Procedure or function?
- my $invariant = $line =~ /void /;
-
- my $proc = $invariant ? "Sub" : "Function";
- ($signature_ret_type) = $line =~ /EXP_FUNC (.*) STDCALL/;
- $line =~ s/EXP_FUNC .* STDCALL / <DllImport("axtls")> Public Shared $proc _\n /;
-
- $signature_ret_type =~ s/const uint8_t \*/As IntPtr/;
- $signature_ret_type =~ s/const char \*/As String/;
- $signature_ret_type =~ s/SSL_CTX \*/As IntPtr/;
- $signature_ret_type =~ s/SSLObjLoader \*/As IntPtr/;
- $signature_ret_type =~ s/SSL \*/As IntPtr/;
- $signature_ret_type =~ s/uint8_t/As Byte/;
- $signature_ret_type =~ s/int/As Integer/;
- $signature_ret_type =~ s/void//;
- $signature_ret_type .= "\n End $proc\n\n";
- }
-
- $line =~ s/uint32_t (\w+)/ByVal $1 As Integer/g;
- $line =~ s/int (\w+)/ByVal $1 As Integer/g;
- $line =~ s/uint8_t \*\* ?(\w+)/ByRef $1 As IntPtr/g;
- $line =~ s/const uint8_t \* ?(\w+)/ByVal $1() As Byte/g;
- $line =~ s/uint8_t \* ?(\w+)/ByVal $1() As Byte/g;
- $line =~ s/uint8_t ?(\w+)/ByVal $1 As Byte/g;
- $line =~ s/const char \* ?(\w+)/ByVal $1 As String/g;
- $line =~ s/const SSL_CTX \* ?(\w+)/ByVal $1 As IntPtr/g;
- $line =~ s/SSL_CTX \* ?(\w+)/ByVal $1 As IntPtr/g;
- $line =~ s/SSLObjLoader \* ?(\w+)/ByVal $1 As IntPtr/g;
- $line =~ s/const SSL \* ?(\w+)/ByVal $1 As IntPtr/g;
- $line =~ s/SSL \* ?(\w+)/ByVal $1 As IntPtr/g;
- $line =~ s/void \* ?(\w+)/Byval $1 As IntPtr/g;
- $line =~ s/\(void\)/()/g;
- $line =~ s/void//g;
- $line =~ s/;\n/ $signature_ret_type;/;
- }
- }
-
- return $line;
-}
-
-# Parse input file
-sub parseFile
-{
- my (@file) = @_;
- my $line;
- my $splitDefine = 0;
- my $splitFunctionDeclaration;
- my $vb_hack = " ";
- my $vb_line_hack = 0;
-
- $skip = 0;
-
- foreach $line (@file)
- {
- next if $line =~ /sl_x509_create/; # ignore for now
-
- # test for a #define
- if (!$skip && $line =~ m/^#define/)
- {
- $splitDefine = 1 if $line =~ m/\\$/;
-
- if ($binding == $VBNET)
- {
- $line =~ s/\|/Or/g;
- $line =~ s/ 0x/ &H/;
- }
-
- my ($name, $value) = $line =~ /#define (\w+) +([^\\]*)[\\]?\n/;
-
- if (defined $name && defined $value)
- {
- # C# constant translation
- if ($binding == $CSHARP)
- {
- $line = " public const int $name = $value";
- }
- # VB.NET constant translation
- elsif ($binding == $VBNET)
- {
- $line = " Public Const $name As Integer = $value";
- }
- }
-
- next if $line =~ /#define/; # ignore any other defines
-
- print DATA_OUT $line;
-
- # check line is not split
- next if $splitDefine == 1;
- print DATA_OUT ";" if $binding == $CSHARP;
- print DATA_OUT "\n";
- }
-
- # pick up second line of #define statement
- if ($splitDefine)
- {
- if ($line !~ /\\$/)
- {
- $line =~ s/$/;/ if $binding == $CSHARP; # add the ";"
- }
-
- $line =~ s/ ?\| ?/ Or /g
- if ($binding == $VBNET);
-
- # check line is not split
- $splitDefine = ($line =~ m/\\$/);
-
- # ignore trailing "\"
- $line =~ s/\\$// if $binding == $CSHARP;
- $line =~ s/\\$/_/ if $binding == $VBNET;
- print DATA_OUT $line;
- next;
- }
-
- # test for function declaration
- if (!$skip && $line =~ /EXP_FUNC/ && $line !~ /\/\*/)
- {
- $line = transformSignature($line);
- $splitFunctionDeclaration = $line !~ /;/;
- $line =~ s/;// if ($binding == $VBNET);
- $line =~ s/\n$/ _\n/ if ($binding == $VBNET) &&
- $splitFunctionDeclaration;
- print DATA_OUT $line;
- next;
- }
-
- if ($splitFunctionDeclaration)
- {
- $line = transformSignature($line);
- $splitFunctionDeclaration = $line !~ /;/;
- $line =~ s/;// if ($binding == $VBNET);
- $line =~ s/\n/ _\n/ if ($binding == $VBNET) &&
- $splitFunctionDeclaration == 1;
- print DATA_OUT $line;
- next;
- }
- }
-}
-
-#===============================================================
-
-# Determine which module to build from command-line options
-use strict;
-use Getopt::Std;
-
-my $binding_prefix;
-my $binding_suffix;
-my $data_file;
-my @raw_data;
-
-if (not defined $ARGV[0])
-{
- goto ouch;
-}
-
-if ($ARGV[0] eq "-csharp")
-{
- print "Generating C# interface file\n";
- $binding_prefix = "csharp";
- $binding_suffix = "cs";
- $binding = $CSHARP;
-}
-elsif ($ARGV[0] eq "-vbnet")
-{
- print "Generating VB.NET interface file\n";
- $binding_prefix = "vbnet";
- $binding_suffix = "vb";
- $binding = $VBNET;
-}
-else
-{
-ouch:
- die "Usage: $0 [-csharp | -vbnet]\n";
-}
-
-my $interfaceFile = "$binding_prefix/axInterface.$binding_suffix";
-
-# Input file required to generate interface file.
-$data_file = "../ssl/ssl.h";
-
-# Open input files
-open(DATA_IN, $data_file) || die("Could not open file ($data_file)!");
-@raw_data = <DATA_IN>;
-
-
-# Open output file
-if ($binding == $CSHARP || $binding == $VBNET)
-{
- open(DATA_OUT, ">$interfaceFile") || die("Cannot Open File");
-}
-
-# SPEC interface file header
-if ($binding == $CSHARP)
-{
- # generate the C#/C interface file
- print DATA_OUT << "END";
-// The C# to C interface definition file for the axTLS project
-// Do not modify - this file is generated
-
-using System;
-using System.Runtime.InteropServices;
-
-namespace axTLS
-{
- public class axtls
- {
-END
-}
-elsif ($binding == $VBNET)
-{
- # generate the VB.NET/C interface file
- print DATA_OUT << "END";
-' The VB.NET to C interface definition file for the axTLS project
-' Do not modify - this file is generated
-
-Imports System
-Imports System.Runtime.InteropServices
-
-Namespace axTLSvb
- Public Class axtls
-END
-}
-
-parseFile(@raw_data);
-
-# finish up
-if ($binding == $CSHARP)
-{
- print DATA_OUT " };\n";
- print DATA_OUT "};\n";
-}
-elsif ($binding == $VBNET)
-{
- print DATA_OUT " End Class\nEnd Namespace\n";
-}
-
-close(DATA_IN);
-close(DATA_OUT);
-
-#===============================================================
-
projects / project / luci.git / blobdiff