From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: 103376,4c17e6ae73bd8c51
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!news1.google.com!postnews.google.com!k17g2000prf.googlegroups.com!not-for-mail
From: =?ISO-8859-1?Q?Hibou57_=28Yannick_Duch=EAne=29?=
 <yannick_duchene@yahoo.fr>
Newsgroups: comp.lang.ada
Subject: Re: Ada and UML
Date: Fri, 3 Sep 2010 06:18:38 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: 
 <156c1bf7-8744-43a0-b620-017244d4763d@k17g2000prf.googlegroups.com>
References: <op.viarzhr2ule2fv@garhos> <op.viauftlrule2fv@garhos>
 <op.viawo1r3ule2fv@garhos>
 <e6746ed7-5984-431c-be85-bdc999fe0d0a@h19g2000yqb.googlegroups.com>
 <op.vibr57wyule2fv@garhos>
 <dd02ebde-76cf-4d79-8214-5059b121bc82@i31g2000yqm.googlegroups.com>
 <op.vidqx0p4ule2fv@garhos>
 <4c7f5735$0$6766$9b4e6d93@newsspool3.arcor-online.net>
 <op.vifg29tnule2fv@garhos> <op.vifvmexfule2fv@garhos>
NNTP-Posting-Host: 77.198.58.12
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1283519918 31420 127.0.0.1 (3 Sep 2010 13:18:38
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Fri, 3 Sep 2010 13:18:38 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: k17g2000prf.googlegroups.com; posting-host=77.198.58.12;
 posting-account=vrfdLAoAAAAauX_3XwyXEwXCWN3A1l8D
User-Agent: G2/1.0
X-HTTP-UserAgent: Opera/9.80 (Windows NT 5.1; U;
 fr) Presto/2.6.30 Version/10.61,gzip(gfe)
Xref: g2news1.google.com comp.lang.ada:13930
Date: 2010-09-03T06:18:38-07:00
List-Id: <comp.lang.ada>

On 3 sep, 06:19, Yannick Duch=EAne (Hibou57) <yannick_duch...@yahoo.fr>
wrote:
> No, that is solved. You can do Ada with it

Here is a tiny example, just to show to people with curiosity. This
lack many and many things, this is just to show.

First, the Model to Text transformation. It is able to generate a
package with contained classes implemented as records whose full view
is private. Methods which are not of UML public visibility are
declared in the Ada package private part, the others, in the public
part. Generate the *.ads source only.


   <%metamodel http://www.eclipse.org/uml2/2.0.0/UML%>

   <%script type=3D"uml.NamedElement" name=3D"asTypeName" post=3D"trim()"%>
   <%args(0).name%>_Type

   <%script type=3D"uml.Operation" name=3D"asParameterList"
post=3D"trim()"%>
   Self : <%asTypeName(args(0).parent())%>
   <%if (eAllContents("Parameter")) {%>
      <%for (eAllContents("Parameter")) {%>
         <%if (!name.equalsIgnoreCase("return")) {%>
         ; <%name%> : <%asTypeName(type)%>
         <%}%>
      <%}%>
   <%}%>)

   <%script type=3D"uml.Operation" name=3D"asSignature" post=3D"trim()"%>
   <%if (type =3D=3D "") {%>
      procedure <%name%> (
      <%asParameterList(current)%>;
   <%}else{%>
      function <%name%> (
      <%asParameterList(current)%>
      return <%asTypeName(type)%>;
   <%}%>

   <%script type=3D"uml.Package" name=3D"Generator_1" file=3D"<%name%>.ads"
%>

   package <%name%> is

      <%for (eAllContents("Class")) {%>
         type <%asTypeName(current)%> is private;

         <%for (eAllContents("Operation")) {%>
            <%if (visibility =3D=3D "public") {%>
               <%asSignature(current)%>
            <%}%>
         <%}%>
      <%}%>

   private

      <%for (eAllContents("Class")) {%>
         type <%asTypeName(current)%> is record
            <%for (eAllContents("Property")) {%>
               <%name%> : <%asTypeName(type)%>;
            <%}%>
         end record; --  <%asTypeName(current)%>

         <%for (eAllContents("Operation")) {%>
            <%if (visibility !=3D "public") {%>
               <%asSignature(current)%>
            <%}%>
         <%}%>
      <%}%>

   end <%name%>;




Then, a sample UML model it can be applied to (to access XML source of
a model, just access it as a text file):


   <?xml version=3D"1.0" encoding=3D"UTF-8"?>
   <uml:Model xmi:version=3D"2.1" xmlns:xmi=3D"http://schema.omg.org/spec/
XMI/2.1" xmlns:uml=3D"http://www.eclipse.org/uml2/3.0.0/UML"
xmi:id=3D"_qb8akM37EdqwVrslYOdUDA">
     <packagedElement xmi:type=3D"uml:Package"
xmi:id=3D"_w8IxIM37EdqwVrslYOdUDA" name=3D"Greetings">
       <ownedComment xmi:id=3D"_c4EW8LcvEd-uHOxBOe6bQQ"
annotatedElement=3D"_yjuScLcsEd-uHOxBOe6bQQ">
         <body>Your three cents here.</body>
       </ownedComment>
       <packagedElement xmi:type=3D"uml:Class" xmi:id=3D"_yjuScLcsEd-
uHOxBOe6bQQ" name=3D"Greeting_Box" clientDependency=3D"_fD-ewLc4Ed-
uHOxBOe6bQQ">
         <ownedAttribute xmi:id=3D"_gbfysrc1Ed-uHOxBOe6bQQ"
name=3D"Greating_Counter" visibility=3D"package" type=3D"_ImL_4Lc0Ed-
uHOxBOe6bQQ"/>
         <ownedOperation xmi:id=3D"_pudakLcvEd-uHOxBOe6bQQ"
name=3D"Say_Hi"/>
         <ownedOperation xmi:id=3D"_m3Xp8rc1Ed-uHOxBOe6bQQ"
name=3D"Set_Greeting_Counter">
           <ownedParameter xmi:id=3D"_AFKIELc2Ed-uHOxBOe6bQQ"
name=3D"Value" type=3D"_ImL_4Lc0Ed-uHOxBOe6bQQ"/>
         </ownedOperation>
         <ownedOperation xmi:id=3D"_P3XxsLc4Ed-uHOxBOe6bQQ"
name=3D"Get_Greeting_Counter">
           <ownedParameter xmi:id=3D"_lddJULc4Ed-uHOxBOe6bQQ"
name=3D"return" type=3D"_ImL_4Lc0Ed-uHOxBOe6bQQ" direction=3D"return"/>
         </ownedOperation>
         <ownedOperation xmi:id=3D"_NMRYMLdKEd--x_e0zw638A"
name=3D"Have_A_Private_Time" visibility=3D"private"/>
       </packagedElement>
       <packagedElement xmi:type=3D"uml:PrimitiveType"
xmi:id=3D"_ImL_4Lc0Ed-uHOxBOe6bQQ" name=3D"Natural"/>
       <packagedElement xmi:type=3D"uml:Dependency" xmi:id=3D"_fD-ewLc4Ed-
uHOxBOe6bQQ" name=3D"Dependency1" supplier=3D"_ImL_4Lc0Ed-uHOxBOe6bQQ"
client=3D"_yjuScLcsEd-uHOxBOe6bQQ"/>
     </packagedElement>
   </uml:Model>




Sample output. Note that I did not work the generated source
formating ; I know it's ugly.


   package Greetings is

         type Greeting_Box_Type is private;

               procedure Say_Hi (
      Self : Greeting_Box_Type
      );
               procedure Set_Greeting_Counter (
      Self : Greeting_Box_Type
            ; Value : Natural_Type
      );
               function Get_Greeting_Counter (
      Self : Greeting_Box_Type
      )
      return Natural_Type;

   private

         type Greeting_Box_Type is record
               Greating_Counter : Natural_Type;
         end record; --  Greeting_Box_Type

               procedure Have_A_Private_Time (
      Self : Greeting_Box_Type
      );

   end Greetings;


Has a taste of both ASIS (due to semantic access of an UML "source")
and XSLT (due to transform). Never seen like this before.

There may be provision to generate full source when an implementation
is a pure state machine. At least, this is able to generate a more or
less detailed skeleton, but with a better view on the overall types +
tagged + packages architecture/cooperation and probably more.

The limitation I feel: not as much easy and clean to access UML
diagrams semantic this way as it is to access Ada sources semantic
using ASIS. May be this is partly due to the script-like language
which is involved.


Well, any one can now push Ada in UML shops (or perhaps this is UML
pushing in an Ada shop, lol)


How does it work with HOOD ? Does it work the same way ?