//Save context function wlog_ctxt(u,flag) tt=">> Context of scicos diagram : \n"; tt=tt+"<scs_m.props.context>\n!\n" for i=1:size(scs_m.props.context,1) tt=tt+string(subst_strC(scs_m.props.context(i)))+"\n"; end tt=tt+"!\n"; mfprintf(u,tt); if (flag==1) then printf(tt); elseif(flag==2) then ts=msprintf(tt); put_list(ts); end endfunction