Scilab Function
eng


write_header

File content


//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