Xcos code generation: log the uid into the call comment 57/10657/2
Clément DAVID [Fri, 1 Mar 2013 13:08:25 +0000 (14:08 +0100)]
Change-Id: I89101ca844cec1ca025c294b9e7aaa3dfc49d797

scilab/modules/scicos/macros/scicos_scicos/do_compile_superblock42.sci

index edf514d..b561ee4 100644 (file)
@@ -104,7 +104,8 @@ function txt=call_block42(bk,pt,flag)
   end
 
   //** add comment
-  txt=[get_comment('call_blk',list(funs(bk),funtyp(bk),bk));]
+  txt=[txt;
+       get_comment('call_blk',list(funs(bk),funtyp(bk),bk,labels(bk)));]
 
   //** set nevprt and flag for called block
   txt=[txt;
@@ -389,7 +390,7 @@ function txt=call_block4(bk)
   end
 
   //** add comment
-  txt=[get_comment('call_blk',list(funs(bk),funtyp(bk),bk));]
+  txt=[get_comment('call_blk',list(funs(bk),funtyp(bk),bk,labels(bk)));]
 
   //** write nevprt activation
 //   nclock=abs(pt);
@@ -726,7 +727,7 @@ function ok=gen_ccode42();
 
   mputl(['/*';
          '**    Copyright (c) 1989 - 2012 (INRIA)';
-         '**    Copyright (c) 2011 - 2012 (Scilab Enterprises)';
+         '**    Copyright (c) 2011 - 2013 (Scilab Enterprises)';
          '**';
          '**    Generated by Code_Generation toolbox of Xcos with '+getversion();
          '**    Date : '+date();
@@ -856,7 +857,7 @@ function ok=gen_ccode42();
   if (readGlobal <> [] | writeGlobal <> [])
       fd = mopen(rpat+'/'+rdnom+'_read_write_global.c', "wt")
       mputl(['/*'
-             '**    Copyright (c) 2012 - 2012 (Scilab Enterprises)'
+             '**    Copyright (c) 2012 - 2013 (Scilab Enterprises)'
              '**'
              '**    Generated by Code_Generation toolbox of Xcos with '+getversion()
              '**    Date :'+date()
@@ -1104,7 +1105,7 @@ function ok=gen_gui42();
   //outtb($+1) = zeros(nblk,1);
   Code=['//';
         '//    Copyright (c) 1989 - 2012 (INRIA)';
-        '//    Copyright (c) 2011 - 2012 (Scilab Enterprises)';
+        '//    Copyright (c) 2011 - 2013 (Scilab Enterprises)';
         '//';
         '//    Generated by Code_Generation toolbox of Xcos with '+getversion();
         '//    Date : '+date();
@@ -1600,6 +1601,7 @@ function  [ok,XX,alreadyran,flgcdgen,szclkINTemp,freof] = do_compile_superblock4
   nblk=cpr.sim.nb;
   ztyp=cpr.sim.ztyp;
   clkptr=cpr.sim.clkptr
+  labels=cpr.sim.labels;
   //taille totale de z : nztotal
   nztotal=size(z,1);
 
@@ -1864,7 +1866,7 @@ function [txt]=BlockProto(bk)
   end
 
   //** add comment
-  txt=[get_comment('proto_blk',list(funs(bk),funtyp(bk),bk));]
+  txt=[get_comment('proto_blk',list(funs(bk),funtyp(bk),bk,labels(bk)));]
 
   select ftyp
     //** zero funtyp
@@ -1969,7 +1971,7 @@ endfunction
 function Code=make_actuator(standalone)
   Call=['/*'
         '**    Copyright (c) 1989 - 2012 (INRIA)'
-        '**    Copyright (c) 2011 - 2012 (Scilab Enterprises)'
+        '**    Copyright (c) 2011 - 2013 (Scilab Enterprises)'
         '**'
         '**    Generated by Code_Generation toolbox of Xcos with '+getversion()
         '**    Date : '+date()
@@ -2272,7 +2274,7 @@ function make_computational42(filename)
   mputl(['/*'
         '**    SCILAB Computational function'
         '**    Copyright (c) 1989 - 2012 (INRIA)'
-        '**    Copyright (c) 2011 - 2012 (Scilab Enterprises)'
+        '**    Copyright (c) 2011 - 2013 (Scilab Enterprises)'
         '**'
         '**    Generated by Code_Generation toolbox of Xcos with '+getversion()
         '**    Date : '+date()
@@ -2411,7 +2413,7 @@ function make_computational42(filename)
 
     //** add comment
     mputl([''
-           '      '+get_comment('set_blk',list(funs(kf),funtyp(kf),kf));], fd);
+           '      '+get_comment('set_blk',list(funs(kf),funtyp(kf),kf,labels(kf)));], fd);
 
     for k=1:nin
       lprt=inplnk(inpptr(kf)-1+k);
@@ -2657,7 +2659,7 @@ function make_computational42(filename)
 
     //** add comment
     mputl([''
-           '    '+get_comment('set_blk',list(funs(kf),funtyp(kf),kf));], fd);
+           '    '+get_comment('set_blk',list(funs(kf),funtyp(kf),kf,labels(kf)));], fd);
 
     mputl(['    block_'+rdnom+'['+string(kf-1)+'].type   = '+...
            string(funtyp(kf))+';';
@@ -2932,7 +2934,7 @@ function make_computational42(filename)
 
      //** add comment
      txt=mputl([''
-                '    '+get_comment('set_blk',list(funs(kf),funtyp(kf),kf));], fd);
+                '    '+get_comment('set_blk',list(funs(kf),funtyp(kf),kf,labels(kf)));], fd);
 
      for k=1:nin
         lprt=inplnk(inpptr(kf)-1+k);
@@ -3429,7 +3431,7 @@ function make_standalone42(filename)
          '**    Code prototype for standalone use'
          '**'
          '**    Copyright (c) 1989 - 2012 (INRIA)'
-         '**    Copyright (c) 2011 - 2012 (Scilab Enterprises)'
+         '**    Copyright (c) 2011 - 2013 (Scilab Enterprises)'
          '**'
          '**    Generated by Code_Generation toolbox of Xcos with '+getversion()
          '**    Date : '+date()
@@ -3743,7 +3745,7 @@ function make_standalone42(filename)
 
     //** add comment
     mputl([''
-           '  '+get_comment('set_blk',list(funs(kf),funtyp(kf),kf));], fd);
+           '  '+get_comment('set_blk',list(funs(kf),funtyp(kf),kf,labels(kf)));], fd);
 
     mputl(['  block_'+rdnom+'['+string(kf-1)+'].type   = '+string(funtyp(kf))+';';
            '  block_'+rdnom+'['+string(kf-1)+'].ztyp   = '+string(ztyp(kf))+';';
@@ -4747,7 +4749,7 @@ function [txt]=get_comment(typ,param)
     case 'call_blk' then
         txt = ['/* Call of '''+param(1) + ...
                ''' (type '+string(param(2))+' - blk nb '+...
-                    string(param(3))];
+                    string(param(3))+' - uid '+param(4)];
         if ztyp(param(3)) then
           txt=txt+' - with zcross) */';
         else
@@ -4774,7 +4776,7 @@ function [txt]=get_comment(typ,param)
     case 'set_blk' then
         txt = ['/* set blk struc. of '''+param(1) + ...
                ''' (type '+string(param(2))+' - blk nb '+...
-                    string(param(3))+') */'];
+                    string(param(3))++' - uid '+param(4)+') */'];
     //** Update xd vector ptr
     case 'update_xd' then
         txt = ['/* Update xd vector ptr */'];