add generation of graphviz file

totoro
1 parent f9e53009
Showing 6 changed files with 250 additions and 0 deletions Show diff stats
densaku.aproj
src/generation/files.anubis
src/generation/graphviz/graphviz_header.anubis
src/generation/graphviz/graphviz_main.anubis
src/generation/graphviz/graphviz_type.anubis
src/generation/types.anubis
@@ -103,6 +103,7 @@
     <Folder Include="src\generation" />
     <Folder Include="src\generation\anubis" />
     <Folder Include="src\generation\javascript" />
+    <Folder Include="src\generation\graphviz" />
     <Compile Include="calexium_lib\asterisk\ami.anubis" />
     <Compile Include="calexium_lib\asterisk\ami_commands.anubis" />
     <Compile Include="calexium_lib\asterisk\ami_types.anubis" />
@@ -164,6 +165,7 @@
     <Compile Include="calexium_lib\web\CXM_web_arg_encode.anubis" />
     <Compile Include="calexium_lib\web\CXM_web_arg_utils.anubis" />
     <Compile Include="calexium_lib\web\CXM_web_dump.anubis" />
+    <Compile Include="calexium_lib\web\CXM_web_session.anubis" />
     <Compile Include="calexium_lib\web\CXM_widgets.anubis" />
     <Compile Include="calexium_lib\web\CXM_xml_rpc.anubis" />
     <Compile Include="calexium_lib\web\CXM_xml_rpc_parser.anubis" />
@@ -561,6 +563,9 @@
     <Compile Include="library\xml\xml_parser.apg.anubis" />
     <Compile Include="library\xml\xml_parser_types.anubis" />
     <Compile Include="src\generation\files.anubis" />
+    <Compile Include="src\generation\graphviz\graphviz_header.anubis" />
+    <Compile Include="src\generation\graphviz\graphviz_main.anubis" />
+    <Compile Include="src\generation\graphviz\graphviz_type.anubis" />
     <Compile Include="src\generation\messages.anubis" />
     <Compile Include="src\generation\message_header.anubis" />
     <Compile Include="src\generation\message_messages.anubis" />
@@ -13,6 +13,7 @@ read tools/basis.anubis
 read types_checking.anubis
 read generation/types.anubis    //generate all types and the message for these types
 read generation/messages.anubis //generate all messages collection
+read generation/graphviz/graphviz_main.anubis
 public define Maybe(One)
   generate_message_files
@@ -57,6 +58,10 @@ public define Maybe(One)
       println("Generating messages collection");
       make_all_messages(messages, destination_dir);
+      
+      println("Generating graphviz");
+      forget(make_graphviz_types(types, destination_dir));
+      
         writeString(ini, "TYPES",    "SHA1", current_types_SHA1);
         writeString(ini, "MESSAGES", "SHA1", current_messages_SHA1);        
         writeIniInfo(ini);      
+/*
+ * Created by PyramIDE.
+ * User: フランスのトトロ aka (David RENÉ) 
+ * Date: 05/04/2017
+ * Time: 20:37
+ * © Calexium 
+ */
+
+read tools/basis.anubis
+read tools/streams.anubis
+read tools/ISO-8601.anubis
+read system/string.anubis
+
+public define Maybe(One)
+  generate_graphviz_header
+  (
+    Stream   stream
+   )=
+  write_string(stream,
+"/*
+ * Created by 伝作 (Densaku).
+ * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
+ * Date: "+_Int_to_ISO_8601_date(now)+"
+ * Time: "+_Int_to_ISO_8601_time(now)+"
+ * 
+ */
+
+digraph DS {
+  splines=true;
+  edge [color=gray50, fontname=\"verdana\", fontsize=10]
+  node [shape=none, bgcolor=gray40, fontname=\"verdana\", fontsize=10]
+
+"
+  )
+.
+
+public define Maybe(One)
+  generate_graphviz_footer
+  (
+    Stream   stream
+   )=
+  write_string(stream,"\n}\n")
+.
+/*
+ * Created by PyramIDE.
+ * User: フランスのトトロ aka (David RENÉ) 
+ * Date: 05/04/2017
+ * Time: 20:33
+ * © Calexium 
+ */
+
+read tools/basis.anubis
+read tools/streams.anubis
+read densaku_lib/types/densaku.anubis
+read generation/graphviz/graphviz_header.anubis
+read generation/graphviz/graphviz_type.anubis
+
+public define Maybe(One)
+  make_graphviz_types
+  (
+    List(DS_Type) types,
+    String        destination_dir
+  )=
+  with file_name = destination_dir+"types/generated/graphviz.gv",
+
+  if file(file_name, new) is
+  {
+    failure     then  println("can't create file "+file_name);failure,
+    success(fd) then 
+      with strm = make_stream(fd),
+      
+      if generate_graphviz_header(strm)                     is { failure then failure, success(_) then
+      if generate_graphviz_types(strm, types)               is { failure then failure, success(_) then
+      if generate_graphviz_footer(strm)                     is { failure then failure, success(_) then
+        success(unique)
+      }}}
+  }
+.
+/*
+ * Created by PyramIDE.
+ * User: フランスのトトロ aka (David RENÉ) 
+ * Date: 05/04/2017
+ * Time: 20:48
+ * © Calexium 
+ */
+
+read tools/basis.anubis
+read tools/streams.anubis
+read densaku_lib/types/densaku.anubis
+read generation/graphviz/graphviz_type.anubis
+
+
+public define One
+  generate_graphviz_DS_Anubis_Type_relation
+  (
+    DS_Anubis_Type  anb_type,
+    String          type_name,
+    String          alternative_name,
+    String          component_name,
+    Var(String)     type_relation
+  )=
+  
+  if anb_type is
+  {
+    one     then  unique,
+    bool    then  unique,
+    int     then  unique,
+    word8   then  unique,
+    word16  then  unique,
+    word32  then  unique,
+    string  then  unique,
+    float   then  unique,
+//    float32 then  "Float32",  reserved for future implementation in Anubis (still under construction in Anubis)
+//    float64 then  "Float64",  reserved for future implementation in Anubis (still under construction in Anubis)
+    ds_type(foreign_type_name)            then  
+      type_relation <- *type_relation + "  "+type_name+":"+alternative_name+"_"+component_name+" -> "+foreign_type_name+":TYPE\n",
+//      println("* "+*type_relation),
+    extern_type(foreign_type_name, read)  then  
+      type_relation <- *type_relation + "  "+type_name+":"+alternative_name+"_"+component_name+" -> "+foreign_type_name+":TYPE\n",
+//      println("* "+*type_relation),
+  }
+.
+
+public define String
+  generate_graphviz_DS_Anubis_Type_color
+  (
+    DS_Anubis_Type  anb_type
+  )=
+  
+  if anb_type is
+  {
+    one     then  "darkviolet",
+    bool    then  "darkviolet",
+    int     then  "darkviolet",
+    word8   then  "darkviolet",
+    word16  then  "darkviolet",
+    word32  then  "darkviolet",
+    string  then  "darkviolet",
+    float   then  "darkviolet",
+//    float32 then  "Float32",  reserved for future implementation in Anubis (still under construction in Anubis)
+//    float64 then  "Float64",  reserved for future implementation in Anubis (still under construction in Anubis)
+    ds_type(type_name)            then  "mediumblue",
+    extern_type(type_name, read)  then  "mediumblue",
+  }
+.
+
+public define String
+  generate_graphviz_DS_Component_list
+  (
+    List(DS_Component)  components,
+    String              type_name,
+    String              alternative_name,
+    Var(String)         type_relation
+  )=
+
+  if components is
+  {
+    []      then 
+      //close the alternative with ")"
+      "    <TR><TD COLSPAN=\"2\" VALIGN=\"MIDDLE\"  ALIGN=\"LEFT\"><FONT COLOR=\"orangered\"><B>)</B></FONT></TD></TR>\n",
+    [h . t] then
+      since h is component(b_list, anb_type, name, _),
+      generate_graphviz_DS_Anubis_Type_relation(anb_type, type_name, alternative_name, name, type_relation);
+      with line_head = if b_list is list then
+        // <-               TYPE                         ->
+          "      <TR><TD  ALIGN=\"LEFT\"><B><FONT COLOR=\"darkviolet\">List</FONT>(<FONT COLOR=\""+generate_graphviz_DS_Anubis_Type_color(anb_type)+"\">"+dump(anb_type)+"</FONT>)</B></TD>"
+        else
+          "      <TR><TD  ALIGN=\"LEFT\"><B><FONT COLOR=\""+generate_graphviz_DS_Anubis_Type_color(anb_type)+"\">"+dump(anb_type)+"</FONT></B></TD>",
+        
+      //construct the complete line
+      line_head+"<TD  ALIGN=\"LEFT\"  PORT=\""+alternative_name+"_"+name+"\" >"+name+"</TD></TR>\n" +
+
+      generate_graphviz_DS_Component_list(t, type_name, alternative_name, type_relation)
+  }
+.
+
+public define String
+  generate_graphviz_DS_Alternative_list
+  (
+    List(DS_Alternative)  ds_alts,
+    String                type_name,
+    Var(String)           type_relation
+  )=
+  with prefix = "\n    ",
+  if ds_alts is
+  {
+    []       then println("empty");"\n",
+    [h . t]  then
+      if h is
+      {
+        enum(name, _comment)           then  
+          "\n    <TR><TD COLSPAN=\"2\" PORT=\"alt:"+name+"\" VALIGN=\"MIDDLE\" BGCOLOR=\"bisque\"   ALIGN=\"LEFT\"><FONT COLOR=\"orangered\"><B>"+name+"</B></FONT></TD></TR>\n"+
+          generate_graphviz_DS_Alternative_list(t, type_name, type_relation),
+          
+        alternative(name, comment, components) then  
+          "\n    <TR><TD COLSPAN=\"2\" PORT=\"alt:"+name+"\" VALIGN=\"MIDDLE\" BGCOLOR=\"bisque\"   ALIGN=\"LEFT\"><FONT COLOR=\"orangered\"><B>"+name+" (</B></FONT></TD></TR>\n"+
+          //dump(components, true, type_length, name_length)+
+          generate_graphviz_DS_Component_list(components, type_name, name, type_relation)+
+          generate_graphviz_DS_Alternative_list(t, type_name, type_relation)
+      }
+  }
+.
+
+public define String
+  generate_graphviz_type
+  (
+    DS_Type   _ds_type,    //list of type description
+    String    indent
+  )=
+  since _ds_type is ds_type(type_name, _, ds_alts),
+  with type_relation = var(""),
+  
+  with start = "\n\n"+
+  "  "+type_name+" [ label=<\n"+
+  "  <TABLE BORDER=\"1\" CELLBORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"2\"  BGCOLOR=\"gray95\">\n"+
+  "    <TR><TD COLSPAN=\"2\" PORT=\"TYPE\" VALIGN=\"MIDDLE\" ALIGN=\"CENTER\" BGCOLOR=\"lightblue\" ><FONT COLOR=\"mediumblue\"><B>"+type_name+"</B></FONT></TD></TR>\n"+
+  generate_graphviz_DS_Alternative_list(ds_alts, type_name, type_relation)+
+  "  </TABLE>\n"+
+  "  >];\n"+
+  "\n",
+  start+*type_relation
+.
+
+public define Maybe(One)
+  generate_graphviz_types
+  (
+    Stream        stream,
+    List(DS_Type) types    //list of type description
+  )=
+
+  map_forget((DS_Type type) |-> 
+    since type is ds_type(type_name, _, ds_alts),
+    println("generating graphviz for Type ["+type_name+"]");
+    write_string(stream,
+    generate_graphviz_type(type, "      "))
+  , 
+  types);
+  success(unique)
+.
@@ -8,6 +8,7 @@
 read generation/types_header.anubis
 read generation/types_messages.anubis
+read generation/graphviz/graphviz_main.anubis
 read system/files.anubis
 read system/string.anubis