pygments.rb 0.6.3 → 1.0.0

data/vendor/pygments-main/tests/examplefiles/test.vb

@@ -1,407 +0,0 @@
-' Copyright (c) 2008 Silken Web - Free BSD License
-' 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 Silken Web 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.
-
-Imports System.Net.Mail
-Imports SilkenWeb.Entities
-Imports System.Text.RegularExpressions
-Imports System.Reflection
-Imports SilkenWeb.Validation
-Imports System.Globalization
-Imports SilkenWeb.Reflection
-
-Namespace SilkenWeb
-
-    ''' <summary>
-    ''' Represents an Email and what you can do with it.
-    ''' </summary>
-    ''' <remarks>
-    ''' Keith Jackson
-    ''' 11/04/2008
-    '''
-    ''' This class is intended to be inherrited for providing all manner of system generated emails, each represented by it's own class.
-    ''' </remarks>
-    Public MustInherit Class EmailBase : Implements IValidatable, IDisposable
-
-#Region " Constants "
-
-        Public Const LenientRegexPattern As String = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
-        Public Const StrictRegexPattern As String = "^(([^<>()[\]\\.,;:\s@\""]+(\.[^<>()[\]\\.,;:\s@\""]+)*)|(\"".+\""))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))$"
-        Public Const InvalidEmailAddressError As String = "The Email address provided was invalid"
-        Public Const InvalidEmailAddressErrorWithAddress As String = "The Email address, {0}, provided was invalid"
-        Public Const NullEmailAddressError As String = "The Email address was not provided"
-
-#End Region
-
-#Region " Fields "
-
-        Private disposedValue As Boolean
-
-        Private _message As MailMessage = New MailMessage()
-        Private _mailClient As SmtpClient
-
-        Private _useStrictValidation As Boolean
-
-#End Region
-
-#Region " Construction "
-
-        ''' <summary>
-        ''' Instantiates a new Email of the derived type.
-        ''' </summary>
-        ''' <param name="sender">The email address of the sender of the message.</param>
-        ''' <param name="recipients">The email addresses of the recipients of the message.</param>
-        ''' <param name="subject">The subject of the message.</param>
-        ''' <param name="body">The body of the message.</param>
-        Protected Sub New(ByVal sender As String, ByVal subject As String, ByVal body As String, ByVal ParamArray recipients As String())
-            _message.From = New MailAddress(sender)
-            For i As Integer = 0 To recipients.Length - 1
-                _message.To.Add(recipients(i))
-            Next
-            _message.Subject = subject
-            _message.Body = body
-        End Sub
-
-#End Region
-
-#Region " Properties "
-
-        ''' <summary>
-        ''' Gets the Attachments for the message.
-        ''' </summary>
-        Protected Overridable ReadOnly Property Attachments() As AttachmentCollection
-            Get
-                Return _message.Attachments
-            End Get
-        End Property
-
-        ''' <summary>
-        ''' The email addresses of the BCC recipients of the message.
-        ''' </summary>
-        Public Property BccRecipients() As String()
-            Get
-                Return _message.Bcc.ToAddressStringArray()
-            End Get
-            Set(ByVal value As String())
-                _message.Bcc.Clear()
-                _message.Bcc.Add(value.ToDelimitedString())
-            End Set
-        End Property
-
-        ''' <summary>
-        ''' The body of the message.
-        ''' </summary>
-        Protected Overridable Property Body() As String
-            Get
-                Return _message.Body
-            End Get
-            Set(ByVal value As String)
-                _message.Body = value
-            End Set
-        End Property
-
-        ''' <summary>
-        ''' The email addresses of the CC recipients of the message.
-        ''' </summary>
-        Public Property CCRecipients() As String()
-            Get
-                Return _message.CC.ToAddressStringArray()
-            End Get
-            Set(ByVal value As String())
-                _message.CC.Clear()
-                _message.CC.Add(value.ToDelimitedString())
-            End Set
-        End Property
-
-        ''' <summary>
-        ''' Gets or Sets a flag to indicate if the body of the message is HTML.
-        ''' </summary>
-        Public Property IsBodyHtml() As Boolean
-            Get
-                Return _message.IsBodyHtml
-            End Get
-            Set(ByVal value As Boolean)
-                _message.IsBodyHtml = value
-            End Set
-        End Property
-
-        ''' <summary>
-        ''' Gets the Mail message wrapped by the EmailBase class.
-        ''' </summary>
-        Protected ReadOnly Property Message() As MailMessage
-            Get
-                Return _message
-            End Get
-        End Property
-
-        ''' <summary>
-        ''' Gets or Sets the Priority of the message.
-        ''' </summary>
-        Public Property Priority() As MailPriority
-            Get
-                Return _message.Priority
-            End Get
-            Set(ByVal value As MailPriority)
-                _message.Priority = value
-            End Set
-        End Property
-
-        ''' <summary>
-        ''' The email addresses of the recipients of the message.
-        ''' </summary>
-        Public Property Recipients() As String()
-            Get
-                Return _message.To.ToAddressStringArray()
-            End Get
-            Set(ByVal value As String())
-                _message.To.Clear()
-                _message.To.Add(value.ToDelimitedString())
-            End Set
-        End Property
-
-        ''' <summary>
-        ''' The reply email address of the sender of the message.
-        ''' </summary>
-        Public Property ReplyTo() As String
-            Get
-                If _message.ReplyTo Is Nothing Then
-                    Return String.Empty
-                Else
-                    Return _message.ReplyTo.Address
-                End If
-            End Get
-            Set(ByVal value As String)
-                If _message.ReplyTo Is Nothing Then
-                    _message.ReplyTo = New MailAddress(value)
-                Else
-                    _message.ReplyTo = New MailAddress(value, _message.ReplyTo.DisplayName)
-                End If
-            End Set
-        End Property
-
-        ''' <summary>
-        ''' The reply display name of the sender of the message.
-        ''' </summary>
-        Public Property ReplyToDisplayName() As String
-            Get
-                If _message.ReplyTo Is Nothing Then
-                    Return String.Empty
-                Else
-                    Return _message.ReplyTo.DisplayName
-                End If
-            End Get
-            Set(ByVal value As String)
-                If _message.ReplyTo Is Nothing Then
-                    _message.ReplyTo = New MailAddress(_message.From.Address, value)
-                Else
-                    _message.ReplyTo = New MailAddress(_message.ReplyTo.Address, value)
-                End If
-            End Set
-        End Property
-
-        ''' <summary>
-        ''' The email address of the sender of the message.
-        ''' </summary>
-        Public Overridable Property Sender() As String
-            Get
-                Return _message.From.Address
-            End Get
-            Protected Set(ByVal value As String)
-                _message.From = New MailAddress(value, _message.From.DisplayName)
-            End Set
-        End Property
-
-        ''' <summary>
-        ''' The display name of the sender of the message.
-        ''' </summary>
-        Public Overridable Property SenderDisplayName() As String
-            Get
-                Return _message.From.DisplayName
-            End Get
-            Protected Set(ByVal value As String)
-                _message.From = New MailAddress(_message.From.Address, value)
-            End Set
-        End Property
-
-        ''' <summary>
-        ''' The subject of the message.
-        ''' </summary>
-        Public Overridable Property Subject() As String
-            Get
-                Return _message.Subject
-            End Get
-            Protected Set(ByVal value As String)
-                _message.Subject = value
-            End Set
-        End Property
-
-#End Region
-
-#Region " Methods "
-
-#Region " Send Methods "
-
-        ''' <summary>
-        ''' Sends this email
-        ''' </summary>
-        ''' <param name="mailServer">The SMTP server to use to send the email.</param>
-        Public Sub Send(ByVal mailServer As String)
-            _mailClient = New SmtpClient(mailServer)
-            _mailClient.Send(_message)
-        End Sub
-
-        ''' <summary>
-        ''' Sends this email asynchronously.
-        ''' </summary>
-        ''' <param name="mailServer">The SMTP server to use to send the email.</param>
-        ''' <param name="userToken">A user defined token passed to the recieving method on completion of the asynchronous task.</param>
-        Public Sub SendAsync(ByVal mailServer As String, ByVal userToken As Object)
-            _mailClient = New SmtpClient(mailServer)
-            _mailClient.SendAsync(_message, userToken)
-        End Sub
-
-        ''' <summary>
-        ''' Cancels an attempt to send this email asynchronously.
-        ''' </summary>
-        Public Sub SendAsyncCancel()
-            _mailClient.SendAsyncCancel()
-        End Sub
-
-#End Region
-
-#End Region
-
-#Region " IValidatable Implementation "
-
-        ''' <summary>
-        ''' gets and Sets a flag to indicate whether to use strict validation.
-        ''' </summary>
-        Public Property UseStrictValidation() As Boolean
-            Get
-                Return _useStrictValidation
-            End Get
-            Set(ByVal value As Boolean)
-                _useStrictValidation = value
-            End Set
-        End Property
-
-        ''' <summary>
-        ''' Validates this email.
-        ''' </summary>
-        ''' <returns>A ValidationResponse, containing a flag to indicate if validation was passed and a collection of Property Names and validation errors.</returns>
-        Public Function Validate() As ValidationResponse Implements IValidatable.Validate
-
-            Dim retVal As New ValidationResponse()
-            Dim mailRegEx As String = If(_useStrictValidation, StrictRegexPattern, LenientRegexPattern)
-
-            ValidateAddress("Sender", retVal, mailRegEx, True)
-            ValidateAddresses("Recipients", retVal, mailRegEx, True)
-            ValidateAddresses("CcRecipients", retVal, mailRegEx)
-            ValidateAddresses("BccRecipients", retVal, mailRegEx)
-            ValidateAddress("ReplyTo", retVal, mailRegEx)
-
-            Return retVal
-
-        End Function
-
-        ''' <summary>
-        ''' Validates a single Email Address property.
-        ''' </summary>
-        ''' <param name="propertyName">The name of the property to validate.</param>
-        ''' <param name="retVal">The validation response object.</param>
-        ''' <param name="mailRegEx">The regular expression pattern to use for validation.</param>
-        Private Overloads Sub ValidateAddress(ByVal propertyName As String, ByRef retVal As ValidationResponse, ByVal mailRegEx As String)
-            ValidateAddress(propertyName, retVal, mailRegEx, False)
-        End Sub
-
-        ''' <summary>
-        ''' Validates a single Email Address property.
-        ''' </summary>
-        ''' <param name="propertyName">The name of the property to validate.</param>
-        ''' <param name="retVal">The validation response object.</param>
-        ''' <param name="mailRegEx">The regular expression pattern to use for validation.</param>
-        ''' <param name="required">Indicates if the address is required; False if not specified.</param>
-        Private Overloads Sub ValidateAddress(ByVal propertyName As String, ByRef retVal As ValidationResponse, ByVal mailRegEx As String, ByVal required As Boolean)
-
-            Dim emailAddress As String = ReflectionHelper.Properties.GetProperty(Of String)(Me, propertyName)
-
-            If emailAddress Is Nothing OrElse emailAddress.Length = 0 Then
-                If required Then retVal.Add(New KeyValuePair(Of String, String)(propertyName, NullEmailAddressError))
-            Else
-                If (Not Regex.IsMatch(emailAddress, mailRegEx)) Then
-                    retVal.Add(New KeyValuePair(Of String, String)(propertyName, InvalidEmailAddressError))
-                End If
-            End If
-
-        End Sub
-
-        ''' <summary>
-        ''' Validates a string array of Email Address property.
-        ''' </summary>
-        ''' <param name="propertyName">The name of the property to validate.</param>
-        ''' <param name="retVal">The validation response object.</param>
-        ''' <param name="mailRegEx">The regular expression pattern to use for validation.</param>
-        Private Overloads Sub ValidateAddresses(ByVal propertyName As String, ByRef retVal As ValidationResponse, ByVal mailRegEx As String)
-            ValidateAddresses(propertyName, retVal, mailRegEx, False)
-        End Sub
-
-        ''' <summary>
-        ''' Validates a string array of Email Address property.
-        ''' </summary>
-        ''' <param name="propertyName">The name of the property to validate.</param>
-        ''' <param name="retVal">The validation response object.</param>
-        ''' <param name="mailRegEx">The regular expression pattern to use for validation.</param>
-        ''' <param name="required">Indicates if the address is required; False if not specified.</param>
-        Private Overloads Sub ValidateAddresses(ByVal propertyName As String, ByRef retVal As ValidationResponse, ByVal mailRegEx As String, ByVal required As Boolean)
-
-            Dim emailAddresses() As String = ReflectionHelper.Properties.GetProperty(Of String())(Me, propertyName)
-
-            If emailAddresses Is Nothing OrElse emailAddresses.Length = 0 Then
-                If required Then retVal.Add(New KeyValuePair(Of String, String)(propertyName, String.Format(CultureInfo.CurrentCulture, NullEmailAddressError)))
-            Else
-                For i As Integer = 0 To emailAddresses.Length - 1
-                    If (Not Regex.IsMatch(emailAddresses(i), mailRegEx)) Then
-                        retVal.Add(New KeyValuePair(Of String, String)(propertyName, String.Format(CultureInfo.CurrentCulture, InvalidEmailAddressErrorWithAddress, emailAddresses(i))))
-                    End If
-                Next
-            End If
-
-        End Sub
-
-#End Region
-
-#Region " IDisposable Implementation "
-
-        Protected Overridable Sub Dispose(ByVal disposing As Boolean)
-            If Not Me.disposedValue Then
-                If disposing Then
-                    _message.Dispose()
-                End If
-                _mailClient = Nothing
-                _message = Nothing
-            End If
-            Me.disposedValue = True
-        End Sub
-
-        Public Sub Dispose() Implements IDisposable.Dispose
-            ' Do not change this code.  Put cleanup code in Dispose(ByVal disposing As Boolean) above.
-            Dispose(True)
-            GC.SuppressFinalize(Me)
-        End Sub
-
-#End Region
-
-    End Class
-
-End Namespace

data/vendor/pygments-main/tests/examplefiles/test.vhdl

@@ -1,161 +0,0 @@
-library ieee;
-use ieee.std_logic_unsigned.all;
-use ieee.std_logic_1164.all;   
-use ieee.numeric_std.all;
-
-
-entity top_testbench is --test
-	generic ( -- test
-	    n : integer := 8 -- test
-	); -- test
-end top_testbench; -- test
-
-
-architecture top_testbench_arch of top_testbench is  
-
-    component top is
-        generic (
-            n : integer
-        )   ;
-        port (
-            clk : in std_logic;
-            rst : in std_logic;
-            d1 : in std_logic_vector (n-1 downto 0);
-            d2 : in std_logic_vector (n-1 downto 0);
-            operation : in std_logic;
-            result : out std_logic_vector (2*n-1 downto 0)
-        );
-    end component;
-
-    signal clk : std_logic;
-    signal rst : std_logic;
-	signal operation : std_logic;
-    signal d1 : std_logic_vector (n-1 downto 0);
-    signal d2 : std_logic_vector (n-1 downto 0);
-    signal result : std_logic_vector (2*n-1 downto 0);
-    
-    type test_type is ( a1, a2, a3, a4, a5, a6, a7, a8, a9, a10);
-    attribute enum_encoding of my_state : type is "001 010 011 100 111";
-begin
-
-    TESTUNIT : top generic map (n => n)
-                   port map (clk => clk,
-                             rst => rst,
-                             d1  => d1,
-                             d2  => d2,
-                             operation => operation,
-                             result => result);
-
-    clock_process : process
-    begin
-        clk <= '0';
-        wait for 5 ns;
-        clk <= '1';
-        wait for 5 ns;
-    end process;
-
-    data_process : process
-    begin       
-		
-		-- test case #1	
-	   	operation <= '0';
-		
-        rst <= '1';
-        wait for 5 ns;
-        rst <= '0';
-        wait for 5 ns;
-		
-		d1 <= std_logic_vector(to_unsigned(60, d1'length));
-		d2 <= std_logic_vector(to_unsigned(12, d2'length));
-		wait for 360 ns;
-		
-		assert (result = std_logic_vector(to_unsigned(720, result'length)))
-			report "Test case #1 failed" severity error; 
-            
-		-- test case #2	
-	   	operation <= '0';
-		
-        rst <= '1';
-        wait for 5 ns;
-        rst <= '0';
-        wait for 5 ns;
-		
-		d1 <= std_logic_vector(to_unsigned(55, d1'length));
-		d2 <= std_logic_vector(to_unsigned(1, d2'length));
-		wait for 360 ns;
-		
-		assert (result = std_logic_vector(to_unsigned(55, result'length)))
-			report "Test case #2 failed" severity error;
-            
-        -- etc 
-            
-    end process;
-
-end top_testbench_arch;
-
-
-configuration testbench_for_top of top_testbench is
-	for top_testbench_arch
-		for TESTUNIT : top
-			use entity work.top(top_arch);
-		end for;
-	end for;
-end testbench_for_top;
-
-
-function compare(A: std_logic, B: std_Logic) return std_logic is
-    constant pi : real := 3.14159;
-    constant half_pi : real := pi / 2.0;
-    constant cycle_time : time := 2 ns;
-    constant N, N5 : integer := 5;
-begin
-    if (A = '0' and B = '1') then
-        return B;
-    else
-        return A;
-    end if ;
-end compare;
-
-
-procedure print(P : std_logic_vector(7 downto 0);
-                U : std_logic_vector(3 downto 0)) is
-    variable my_line : line;
-    alias swrite is write [line, string, side, width] ;
-begin
-    swrite(my_line, "sqrt( ");
-    write(my_line, P);
-    swrite(my_line, " )= ");
-    write(my_line, U);
-    writeline(output, my_line);
-end print;
-
-
-entity add32csa is          -- one stage of carry save adder for multiplier
-  port(
-    b       : in  std_logic;                      -- a multiplier bit
-    a       : in  std_logic_vector(31 downto 0);  -- multiplicand
-    sum_in  : in  std_logic_vector(31 downto 0);  -- sums from previous stage
-    cin     : in  std_logic_vector(31 downto 0);  -- carrys from previous stage
-    sum_out : out std_logic_vector(31 downto 0);  -- sums to next stage
-    cout    : out std_logic_vector(31 downto 0)); -- carrys to next stage
-end add32csa;
-
-
-ARCHITECTURE circuits of add32csa IS
-  SIGNAL zero : STD_LOGIC_VECTOR(31 downto 0) := X"00000000";
-  SIGNAL aa : std_logic_vector(31 downto 0) := X"00000000";
-  
-  COMPONENT fadd    -- duplicates entity port
-    PoRT(a    : in  std_logic;
-         b    : in  std_logic;
-         cin  : in  std_logic;
-         s    : out std_logic;
-         cout : out std_logic);
-  end comPonent fadd;
-  
-begin  -- circuits of add32csa
-  aa <= a when b='1' else zero after 1 ns;
-  stage: for I in 0 to 31 generate
-    sta: fadd port map(aa(I), sum_in(I), cin(I) , sum_out(I), cout(I));
-  end generate stage;  
-end architecture circuits; -- of add32csa