Artifact d50892509580c12c55a56e158b728d661f366487782556c75e695a61d08ea0b7:

• File mttroot/ntt/bin/trans/m/mttWriteSystemApps.m — part of check-in [745f0b3e31] at 2003-10-20 17:10:30 on branch origin/master — Added initial revision of ntt:
  new transformation tools for using bond graphs with Matlab.
  Copyright 2003 Dr. Dominic J. Diston. (user: geraint@users.sourceforge.net, size: 655) [annotate] [blame] [check-ins using] [more...]
• File ntt/bin/trans/m/mttWriteSystemApps.m — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 655) [annotate] [blame] [check-ins using]

function mttWriteSystemApps(model)
	if ~isfield(model,'app')
    	return ;
	end

    filename = [model.source,'_include_apps.h'] ;
    fid = fopen(filename,'w') ;
    
    mttNotify(['...creating ',filename]) ;
    mttWriteNewLine ;
    
    fprintf(fid,['// Applications for Ordinary Differential Equations\n']) ;
    fprintf(fid,'\n') ;
    fprintf(fid,['// file: ',filename,'\n']) ;
    fprintf(fid,['// written by MTT on ',datestr(now),'\n']) ;
    
    fprintf(fid,'\n\n') ;
    
    for i = 1:length(model.app)
        app_inclusion = ['#include "',model.app{i},'"\n'] ;
        fprintf(fid,app_inclusion) ;
    end
    
    fclose(fid) ;