//write_header(u,builder_name) //Entrée : u file descriptor // builder_name : name of builder //Sortie : néant function []=write_header(u,builder_name) tt_loader=['//Loader Script of modnum for scilab 3.0' '//Generated by '+builder_name '//'+date()+' Ircom Group A.Layec';''; '//Redefine stacksize' 'sz=stacksize(); //default 5e6'; 'while (sz(1)<50e6) then'; ' ierr=execstr(''stacksize(sz(1)+5e6)'',''errcatch'');'; ' if ierr<>0 then break, end'; ' sz=stacksize();'; 'end'; 'clear sz;'; 'clear ierr;';''; '//Define modnum root path'] if MSDOS then tt_loader=[tt_loader;'MODNUM=get_absolute_file_path(''loader.sce'');'; 'if part(MODNUM,length(MODNUM))==''\'' then'; ' MODNUM=part(MODNUM,1:length(MODNUM)-1);'; 'end'] //tt_loader=[tt_loader;'MODNUM=;'+MODNUM;] //end else //tt_loader=[tt_loader;'MODNUM='+""""+MODNUM+""";";'';] tt_loader=[tt_loader;'MODNUM=get_absolute_file_path(''loader.sce'');'; 'if part(MODNUM,length(MODNUM))==''/'' then'; ' MODNUM=part(MODNUM,1:length(MODNUM)-1);'; 'end'] end fprintf(u,"%s\n",tt_loader); endfunction