bar_codes

Some features:

• 1D bar codes supported: Code 128, EAN-13, MSI, UPC-A
• 2D bar codes supported: Data Matrix, QR Codes
• Task safe
• Endian-neutral
• Multi-platform, but native code build
• Standalone (no dependency on other libraires, bindings, etc.; no extra component needed for running)
• Unconditionally portable code: OS-, CPU-, compiler- independent code.
• Pure Ada 2012: this package can be used in projects in Ada 2012 and later versions of the Ada language
• Tests and demos included
• Free, open-source

The creation of a bar code is as simple as this small procedure:

with Ada.Text_IO, Bar_Codes, Bar_Codes_Media;

procedure Small_Demo is
  use Ada.Text_IO;
  svg : File_Type;
begin
  Create (svg, Out_File, "qr_code.svg");
  Put_Line
    (svg,
     Bar_Codes_Media.SVG_Bar_Code
       (Bar_Codes.Code_QR_Low, (5.0, 5.0, 100.0, 100.0), "mm", "Hello"));
  Close (svg);
end Small_Demo;