[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/wisi d0eac6a 34/35: Forgot some new files in wisi
From: |
Stefan Monnier |
Subject: |
[elpa] externals/wisi d0eac6a 34/35: Forgot some new files in wisi |
Date: |
Sat, 28 Nov 2020 14:47:59 -0500 (EST) |
branch: externals/wisi
commit d0eac6a9f2dde34d44c380b1cf9f3bbfd41a3fc8
Author: Stephen Leake <stephen_leake@stephe-leake.org>
Commit: Stephen Leake <stephen_leake@stephe-leake.org>
Forgot some new files in wisi
* packages/wisi/wisi.el: Bump version to 3.1.3 for packaging fix.
* packages/wisi/sal-gen_unconstrained_array_image.adb: New file.
* packages/wisi/sal-gen_unconstrained_array_image.ads: New file.
* packages/wisi/sal-gen_unconstrained_array_image_aux.adb: New file.
* packages/wisi/sal-gen_unconstrained_array_image_aux.ads: New file.
---
sal-gen_unconstrained_array_image.adb | 34 +++++++++++++++++++++++++++++++
sal-gen_unconstrained_array_image.ads | 24 ++++++++++++++++++++++
sal-gen_unconstrained_array_image_aux.adb | 33 ++++++++++++++++++++++++++++++
sal-gen_unconstrained_array_image_aux.ads | 25 +++++++++++++++++++++++
wisi.el | 2 +-
5 files changed, 117 insertions(+), 1 deletion(-)
diff --git a/sal-gen_unconstrained_array_image.adb
b/sal-gen_unconstrained_array_image.adb
new file mode 100644
index 0000000..7ea1c83
--- /dev/null
+++ b/sal-gen_unconstrained_array_image.adb
@@ -0,0 +1,34 @@
+-- Abstract :
+--
+-- See spec.
+--
+-- Copyright (C) 2019 Free Software Foundation, Inc.
+--
+-- This library is free software; you can redistribute it and/or modify it
+-- under terms of the GNU General Public License as published by the Free
+-- Software Foundation; either version 3, or (at your option) any later
+-- version. This library is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN-
+-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+-- As a special exception under Section 7 of GPL version 3, you are granted
+-- additional permissions described in the GCC Runtime Library Exception,
+-- version 3.1, as published by the Free Software Foundation.
+
+pragma License (Modified_GPL);
+
+with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
+function SAL.Gen_Unconstrained_Array_Image (Item : in Array_Type) return String
+is
+ Result : Unbounded_String := To_Unbounded_String ("(");
+begin
+ for I in Item'Range loop
+ Result := Result & Element_Image (Item (I));
+ if I = Item'Last then
+ Result := Result & ")";
+ else
+ Result := Result & ", ";
+ end if;
+ end loop;
+ return To_String (Result);
+end SAL.Gen_Unconstrained_Array_Image;
diff --git a/sal-gen_unconstrained_array_image.ads
b/sal-gen_unconstrained_array_image.ads
new file mode 100644
index 0000000..226ba00
--- /dev/null
+++ b/sal-gen_unconstrained_array_image.ads
@@ -0,0 +1,24 @@
+-- Abstract :
+--
+-- Image for unconstrained Ada array types
+--
+-- Copyright (C) 2019 Free Software Foundation, Inc.
+--
+-- This library is free software; you can redistribute it and/or modify it
+-- under terms of the GNU General Public License as published by the Free
+-- Software Foundation; either version 3, or (at your option) any later
+-- version. This library is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN-
+-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+-- As a special exception under Section 7 of GPL version 3, you are granted
+-- additional permissions described in the GCC Runtime Library Exception,
+-- version 3.1, as published by the Free Software Foundation.
+
+pragma License (Modified_GPL);
+generic
+ type Index_Type is (<>);
+ type Element_Type is private;
+ type Array_Type is array (Index_Type range <>) of Element_Type;
+ with function Element_Image (Item : in Element_Type) return String;
+function SAL.Gen_Unconstrained_Array_Image (Item : in Array_Type) return
String;
diff --git a/sal-gen_unconstrained_array_image_aux.adb
b/sal-gen_unconstrained_array_image_aux.adb
new file mode 100644
index 0000000..9e4c5cd
--- /dev/null
+++ b/sal-gen_unconstrained_array_image_aux.adb
@@ -0,0 +1,33 @@
+-- Abstract :
+--
+-- See spec.
+--
+-- Copyright (C) 2019, 2020 Free Software Foundation, Inc.
+--
+-- This library is free software; you can redistribute it and/or modify it
+-- under terms of the GNU General Public License as published by the Free
+-- Software Foundation; either version 3, or (at your option) any later
+-- version. This library is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN-
+-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+-- As a special exception under Section 7 of GPL version 3, you are granted
+-- additional permissions described in the GCC Runtime Library Exception,
+-- version 3.1, as published by the Free Software Foundation.
+
+pragma License (Modified_GPL);
+
+with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
+function SAL.Gen_Unconstrained_Array_Image_Aux (Item : in Array_Type; Aux : in
Aux_Data) return String
+is
+ Result : Unbounded_String := To_Unbounded_String ("(");
+begin
+ for I in Item'Range loop
+ Result := Result & Element_Image (Item (I), Aux);
+ if I < Item'Last then
+ Result := Result & ", ";
+ end if;
+ end loop;
+ Result := Result & ")";
+ return To_String (Result);
+end SAL.Gen_Unconstrained_Array_Image_Aux;
diff --git a/sal-gen_unconstrained_array_image_aux.ads
b/sal-gen_unconstrained_array_image_aux.ads
new file mode 100644
index 0000000..ad2b9cb
--- /dev/null
+++ b/sal-gen_unconstrained_array_image_aux.ads
@@ -0,0 +1,25 @@
+-- Abstract :
+--
+-- Image for unconstrained Ada array types
+--
+-- Copyright (C) 2019, 2020 Free Software Foundation, Inc.
+--
+-- This library is free software; you can redistribute it and/or modify it
+-- under terms of the GNU General Public License as published by the Free
+-- Software Foundation; either version 3, or (at your option) any later
+-- version. This library is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN-
+-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+-- As a special exception under Section 7 of GPL version 3, you are granted
+-- additional permissions described in the GCC Runtime Library Exception,
+-- version 3.1, as published by the Free Software Foundation.
+
+pragma License (Modified_GPL);
+generic
+ type Index_Type is (<>);
+ type Element_Type is private;
+ type Array_Type is array (Index_Type range <>) of Element_Type;
+ type Aux_Data (<>) is private;
+ with function Element_Image (Item : in Element_Type; Aux : in Aux_Data)
return String;
+function SAL.Gen_Unconstrained_Array_Image_Aux (Item : in Array_Type; Aux : in
Aux_Data) return String;
diff --git a/wisi.el b/wisi.el
index 2032f93..a7b88ff 100644
--- a/wisi.el
+++ b/wisi.el
@@ -7,7 +7,7 @@
;; Keywords: parser
;; indentation
;; navigation
-;; Version: 3.1.2
+;; Version: 3.1.3
;; package-requires: ((emacs "25.0") (seq "2.20"))
;; URL: http://stephe-leake.org/ada/wisitoken.html
;;
- [elpa] externals/wisi 60b8ef1 15/35: Update ada-mode, wisi, (continued)
- [elpa] externals/wisi 60b8ef1 15/35: Update ada-mode, wisi, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi d10db37 22/35: Release ada-mode version 6.0. Release wisi version 2.0, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi a4e4907 01/35: Add ada-mode, wisi packages, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi 922e27f 04/35: * wisi: Fix warnings and a few 80-columns overruns, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi 0635f1a 14/35: * packages/wisi: Use lexical binding. Fix dos EOL. Fix EOB markers, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi 7cb03cb 10/35: * packages/ada-mode/* : version 5.1.5, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi cb45dd5 07/35: * packages/ada-mode: version 5.1.1: fix wisi packaging bug, add -a in gnat-find, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi 8bdcee1 11/35: publish ada-mode 5.1.6, wisi 1.0.6, new package ada-ref-man, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi 364da46 20/35: Update ada-mode to version 5.2.2, wisi to version 1.1.5, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi 89eee25 23/35: Release ada-mode 6.0.1, wisi 2.0.1; fix copyright, packaging bugs, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi d0eac6a 34/35: Forgot some new files in wisi,
Stefan Monnier <=
- [elpa] externals/wisi a6b3115 24/35: * ada-mode, wisi: Fix file access rights, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi bd1884c 02/35: Fix up copyright notices., Stefan Monnier, 2020/11/28
- [elpa] externals/wisi c282a4b 13/35: update ada-mode, wisi, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi 27db81d 17/35: Fix some quoting problems in doc strings, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi 724a763 31/35: In wisi sal-gen_unbounded_definite_red_black_trees.adb, correct WORKAROUND, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi abbb0c2 19/35: Release wisi 1.1.4, ada-mode 5.2.1, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi 5becb56 29/35: Release ada-mode 7.0.1, wisi 3.0.1, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi 2114f5a 28/35: In ada-mode and wisi, release ada-mode 6.2.1, wisi 2.2.1; fix packaging bugs, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi 2636b79 25/35: Release ada-mode 6.1.0, wisi 2.1.0, Stefan Monnier, 2020/11/28
- [elpa] externals/wisi dd09dcf 35/35: * .gitignore: New file, Stefan Monnier, 2020/11/28