Merge with trunk r37849
[blender.git] / source / blender / blenloader / intern / writefile.c
index 34825af6c6a1bb7fe77fb6e4fa6e1ac3f95b2219..b8dbacdbef949b020d89cb0ec9673e34808e645c 100644 (file)
  * ***** END GPL LICENSE BLOCK *****
  */
 
+/** \file blender/blenloader/intern/writefile.c
+ *  \ingroup blenloader
+ */
+
+
 /*
 FILEFORMAT: IFF-style structure  (but not IFF compatible!)
 
@@ -94,6 +99,7 @@ Any case: direct data is ALWAYS after the lib block
 #include "DNA_cloth_types.h"
 #include "DNA_constraint_types.h"
 #include "DNA_controller_types.h"
+#include "DNA_dynamicpaint_types.h"
 #include "DNA_genfile.h"
 #include "DNA_group_types.h"
 #include "DNA_gpencil_types.h"
@@ -129,6 +135,7 @@ Any case: direct data is ALWAYS after the lib block
 #include "BLI_blenlib.h"
 #include "BLI_linklist.h"
 #include "BLI_bpath.h"
+#include "BLI_utildefines.h"
 
 #include "BKE_action.h"
 #include "BKE_blender.h"
@@ -140,7 +147,7 @@ Any case: direct data is ALWAYS after the lib block
 #include "BKE_node.h"
 #include "BKE_report.h"
 #include "BKE_sequencer.h"
-#include "BKE_utildefines.h" // for defines
+#include "BKE_utildefines.h"
 #include "BKE_modifier.h"
 #include "BKE_fcurve.h"
 #include "BKE_pointcache.h"
@@ -213,8 +220,6 @@ static void writedata_free(WriteData *wd)
 
 /***/
 
-int mywfile;
-
 /**
  * Low level WRITE(2) wrapper that buffers data
  * @param adr Pointer to new chunk of data
@@ -342,7 +347,7 @@ static void writedata(WriteData *wd, int filecode, int len, void *adr)      /* do not
 {
        BHead bh;
 
-       if(adr==0) return;
+       if(adr==NULL) return;
        if(len==0) return;
 
        len+= 3;
@@ -464,7 +469,7 @@ static void write_fmodifiers(WriteData *wd, ListBase *fmodifiers)
                                        
                                        /* write envelope data */
                                        if (data->data)
-                                               writedata(wd, DATA, sizeof(FCM_EnvelopeData)*(data->totvert), data->data);
+                                               writestruct(wd, DATA, "FCM_EnvelopeData", data->totvert, data->data);
                                }
                                        break;
                                case FMODIFIER_TYPE_PYTHON:
@@ -671,6 +676,12 @@ static void write_nodetree(WriteData *wd, bNodeTree *ntree)
        
        for(link= ntree->links.first; link; link= link->next)
                writestruct(wd, DATA, "bNodeLink", 1, link);
+       
+       /* external sockets */
+       for(sock= ntree->inputs.first; sock; sock= sock->next)
+               writestruct(wd, DATA, "bNodeSocket", 1, sock);
+       for(sock= ntree->outputs.first; sock; sock= sock->next)
+               writestruct(wd, DATA, "bNodeSocket", 1, sock);
 }
 
 static void current_screen_compat(Main *mainvar, bScreen **screen)
@@ -713,7 +724,8 @@ static void write_userdef(WriteData *wd)
        wmKeyMap *keymap;
        wmKeyMapItem *kmi;
        bAddon *bext;
-
+       uiStyle *style;
+       
        writestruct(wd, USER, "UserDef", 1, &U);
 
        for(btheme= U.themes.first; btheme; btheme=btheme->next)
@@ -732,6 +744,10 @@ static void write_userdef(WriteData *wd)
 
        for(bext= U.addons.first; bext; bext=bext->next)
                writestruct(wd, DATA, "bAddon", 1, bext);
+       
+       for(style= U.uistyles.first; style; style= style->next) {
+               writestruct(wd, DATA, "uiStyle", 1, style);
+       }
 }
 
 static void write_boid_state(WriteData *wd, BoidState *state)
@@ -767,9 +783,22 @@ static void write_boid_state(WriteData *wd, BoidState *state)
        //for(; cond; cond=cond->next)
        //      writestruct(wd, DATA, "BoidCondition", 1, cond);
 }
-/* TODO: replace *cache with *cachelist once it's coded */
-#define PTCACHE_WRITE_PSYS     0
-#define PTCACHE_WRITE_CLOTH    1
+
+/* update this also to readfile.c */
+static const char *ptcache_data_struct[] = {
+       "", // BPHYS_DATA_INDEX
+       "", // BPHYS_DATA_LOCATION
+       "", // BPHYS_DATA_VELOCITY
+       "", // BPHYS_DATA_ROTATION
+       "", // BPHYS_DATA_AVELOCITY / BPHYS_DATA_XCONST */
+       "", // BPHYS_DATA_SIZE:
+       "", // BPHYS_DATA_TIMES:        
+       "BoidData" // case BPHYS_DATA_BOIDS:
+};
+static const char *ptcache_extra_struct[] = {
+       "",
+       "ParticleSpring"
+};
 static void write_pointcaches(WriteData *wd, ListBase *ptcaches)
 {
        PointCache *cache = ptcaches->first;
@@ -782,13 +811,24 @@ static void write_pointcaches(WriteData *wd, ListBase *ptcaches)
                        PTCacheMem *pm = cache->mem_cache.first;
 
                        for(; pm; pm=pm->next) {
+                               PTCacheExtra *extra = pm->extradata.first;
+
                                writestruct(wd, DATA, "PTCacheMem", 1, pm);
-                               if(pm->index_array)
-                                       writedata(wd, DATA, MEM_allocN_len(pm->index_array), pm->index_array);
                                
                                for(i=0; i<BPHYS_TOT_DATA; i++) {
-                                       if(pm->data[i] && pm->data_types & (1<<i))
-                                               writedata(wd, DATA, MEM_allocN_len(pm->data[i]), pm->data[i]);
+                                       if(pm->data[i] && pm->data_types & (1<<i)) {
+                                               if(strcmp(ptcache_data_struct[i], "")==0)
+                                                       writedata(wd, DATA, MEM_allocN_len(pm->data[i]), pm->data[i]);
+                                               else
+                                                       writestruct(wd, DATA, ptcache_data_struct[i], pm->totpoint, pm->data[i]);
+                                       }
+                               }
+
+                               for(; extra; extra=extra->next) {
+                                       if(strcmp(ptcache_extra_struct[extra->type], "")==0)
+                                               continue;
+                                       writestruct(wd, DATA, "PTCacheExtra", 1, extra);
+                                       writestruct(wd, DATA, ptcache_extra_struct[extra->type], extra->totdata, extra->data);
                                }
                        }
                }
@@ -798,6 +838,7 @@ static void write_particlesettings(WriteData *wd, ListBase *idbase)
 {
        ParticleSettings *part;
        ParticleDupliWeight *dw;
+       int a;
 
        part= idbase->first;
        while(part) {
@@ -825,6 +866,10 @@ static void write_particlesettings(WriteData *wd, ListBase *idbase)
                        if(part->fluid && part->phystype == PART_PHYS_FLUID){
                                writestruct(wd, DATA, "SPHFluidSettings", 1, part->fluid); 
                        }
+
+                       for(a=0; a<MAX_MTEX; a++) {
+                               if(part->mtex[a]) writestruct(wd, DATA, "MTex", 1, part->mtex[a]);
+                       }
                }
                part= part->id.next;
        }
@@ -850,6 +895,9 @@ static void write_particlesystems(WriteData *wd, ListBase *particles)
 
                        if(psys->particles->boid && psys->part->phystype == PART_PHYS_BOIDS)
                                writestruct(wd, DATA, "BoidParticle", psys->totpart, psys->particles->boid);
+
+                       if(psys->part->fluid && psys->part->phystype == PART_PHYS_FLUID && (psys->part->fluid->flag & SPH_VISCOELASTIC_SPRINGS))
+                               writestruct(wd, DATA, "ParticleSpring", psys->tot_fluidsprings, psys->fluid_springs);
                }
                pt = psys->targets.first;
                for(; pt; pt=pt->next)
@@ -1183,7 +1231,7 @@ static void write_modifiers(WriteData *wd, ListBase *modbase)
 
                                        /* create fake pointcache so that old blender versions can read it */
                                        smd->domain->point_cache[1] = BKE_ptcache_add(&smd->domain->ptcaches[1]);
-                                       smd->domain->point_cache[1]->flag |= PTCACHE_DISK_CACHE;
+                                       smd->domain->point_cache[1]->flag |= PTCACHE_DISK_CACHE|PTCACHE_FAKE_SMOKE;
                                        smd->domain->point_cache[1]->step = 1;
 
                                        write_pointcaches(wd, &(smd->domain->ptcaches[1]));
@@ -1208,6 +1256,31 @@ static void write_modifiers(WriteData *wd, ListBase *modbase)
                        FluidsimModifierData *fluidmd = (FluidsimModifierData*) md;
                        
                        writestruct(wd, DATA, "FluidsimSettings", 1, fluidmd->fss);
+               }
+               else if(md->type==eModifierType_DynamicPaint) {
+                       DynamicPaintModifierData *pmd = (DynamicPaintModifierData*) md;
+                       
+                       if(pmd->type & MOD_DYNAMICPAINT_TYPE_CANVAS)
+                       {
+                               DynamicPaintSurface *surface;
+                               writestruct(wd, DATA, "DynamicPaintCanvasSettings", 1, pmd->canvas);
+                               
+                               /* write surfaces */
+                               for (surface=pmd->canvas->surfaces.first; surface; surface=surface->next)
+                                       writestruct(wd, DATA, "DynamicPaintSurface", 1, surface);
+                               /* write caches and effector weights */
+                               for (surface=pmd->canvas->surfaces.first; surface; surface=surface->next) {
+                                       write_pointcaches(wd, &(surface->ptcaches));
+
+                                       writestruct(wd, DATA, "EffectorWeights", 1, surface->effector_weights);
+                               }
+                       }
+                       else if(pmd->type & MOD_DYNAMICPAINT_TYPE_BRUSH && pmd->brush)
+                       {
+                               writestruct(wd, DATA, "DynamicPaintBrushSettings", 1, pmd->brush);
+                               writestruct(wd, DATA, "Material", 1, pmd->brush->mat);
+                               writestruct(wd, DATA, "ColorBand", 1, pmd->brush->paint_ramp);
+                       }
                } 
                else if (md->type==eModifierType_Collision) {
                        
@@ -1232,6 +1305,12 @@ static void write_modifiers(WriteData *wd, ListBase *modbase)
                        writestruct(wd, DATA, "MDefInfluence", mmd->totinfluence, mmd->dyninfluences);
                        writedata(wd, DATA, sizeof(int)*mmd->totvert, mmd->dynverts);
                }
+               else if (md->type==eModifierType_Warp) {
+                       WarpModifierData *tmd = (WarpModifierData*) md;
+                       if(tmd->curfalloff) {
+                               write_curvemapping(wd, tmd->curfalloff);
+                       }
+               }
        }
 }
 
@@ -1263,7 +1342,7 @@ static void write_objects(WriteData *wd, ListBase *idbase)
                        if (ob->type == OB_ARMATURE) {
                                bArmature *arm = ob->data;
                                if (arm && ob->pose && arm->act_bone) {
-                                       strcpy(ob->pose->proxy_act_bone, arm->act_bone->name);
+                                       BLI_strncpy(ob->pose->proxy_act_bone, arm->act_bone->name, sizeof(ob->pose->proxy_act_bone));
                                }
                        }
 
@@ -1656,6 +1735,7 @@ static void write_textures(WriteData *wd, ListBase *idbase)
                        if(tex->type == TEX_POINTDENSITY && tex->pd) {
                                writestruct(wd, DATA, "PointDensity", 1, tex->pd);
                                if(tex->pd->coba) writestruct(wd, DATA, "ColorBand", 1, tex->pd->coba);
+                               if(tex->pd->falloff_curve) write_curvemapping(wd, tex->pd->falloff_curve);
                        }
                        if(tex->type == TEX_VOXELDATA && tex->vd) writestruct(wd, DATA, "VoxelData", 1, tex->vd);
                        
@@ -1920,21 +2000,23 @@ static void write_gpencils(WriteData *wd, ListBase *lb)
        bGPDstroke *gps;
        
        for (gpd= lb->first; gpd; gpd= gpd->id.next) {
-               /* write gpd data block to file */
-               writestruct(wd, ID_GD, "bGPdata", 1, gpd);
-               
-               /* write grease-pencil layers to file */
-               for (gpl= gpd->layers.first; gpl; gpl= gpl->next) {
-                       writestruct(wd, DATA, "bGPDlayer", 1, gpl);
+               if (gpd->id.us>0 || wd->current) {
+                       /* write gpd data block to file */
+                       writestruct(wd, ID_GD, "bGPdata", 1, gpd);
                        
-                       /* write this layer's frames to file */
-                       for (gpf= gpl->frames.first; gpf; gpf= gpf->next) {
-                               writestruct(wd, DATA, "bGPDframe", 1, gpf);
+                       /* write grease-pencil layers to file */
+                       for (gpl= gpd->layers.first; gpl; gpl= gpl->next) {
+                               writestruct(wd, DATA, "bGPDlayer", 1, gpl);
                                
-                               /* write strokes */
-                               for (gps= gpf->strokes.first; gps; gps= gps->next) {
-                                       writestruct(wd, DATA, "bGPDstroke", 1, gps);
-                                       writestruct(wd, DATA, "bGPDspoint", gps->totpoints, gps->points);                               
+                               /* write this layer's frames to file */
+                               for (gpf= gpl->frames.first; gpf; gpf= gpf->next) {
+                                       writestruct(wd, DATA, "bGPDframe", 1, gpf);
+                                       
+                                       /* write strokes */
+                                       for (gps= gpf->strokes.first; gps; gps= gps->next) {
+                                               writestruct(wd, DATA, "bGPDstroke", 1, gps);
+                                               writestruct(wd, DATA, "bGPDspoint", gps->totpoints, gps->points);                               
+                                       }
                                }
                        }
                }
@@ -2079,8 +2161,8 @@ static void write_screens(WriteData *wd, ListBase *scrbase)
                                        writestruct(wd, DATA, "SpaceText", 1, sl);
                                }
                                else if(sl->spacetype==SPACE_SCRIPT) {
-                                       SpaceScript *sc = (SpaceScript*)sl;
-                                       sc->but_refs = NULL;
+                                       SpaceScript *scr = (SpaceScript*)sl;
+                                       scr->but_refs = NULL;
                                        writestruct(wd, DATA, "SpaceScript", 1, sl);
                                }
                                else if(sl->spacetype==SPACE_ACTION) {
@@ -2109,6 +2191,7 @@ static void write_screens(WriteData *wd, ListBase *scrbase)
                                        ConsoleLine *cl;
 
                                        for (cl=con->history.first; cl; cl=cl->next) {
+                                               /* 'len_alloc' is invalid on write, set from 'len' on read */
                                                writestruct(wd, DATA, "ConsoleLine", 1, cl);
                                                writedata(wd, DATA, cl->len+1, cl->line);
                                        }
@@ -2358,6 +2441,10 @@ static void write_global(WriteData *wd, int fileflags, Main *mainvar)
        bScreen *screen;
        char subvstr[8];
        
+       /* prevent mem checkers from complaining */
+       fg.pads= fg.pad= 0;
+       memset(fg.filename, 0, sizeof(fg.filename));
+
        current_screen_compat(mainvar, &screen);
 
        /* XXX still remap G */
@@ -2375,7 +2462,14 @@ static void write_global(WriteData *wd, int fileflags, Main *mainvar)
        fg.subversion= BLENDER_SUBVERSION;
        fg.minversion= BLENDER_MINVERSION;
        fg.minsubversion= BLENDER_MINSUBVERSION;
-       fg.pads= 0; /* prevent mem checkers from complaining */
+#ifdef NAN_BUILDINFO
+       {
+               extern char build_rev[];
+               fg.revision= atoi(build_rev);
+       }
+#else
+       fg.revision= 0;
+#endif
        writestruct(wd, GLOB, "FileGlobal", 1, &fg);
 }
 
@@ -2457,15 +2551,50 @@ static int write_file_handle(Main *mainvar, int handle, MemFile *compare, MemFil
        return endwrite(wd);
 }
 
+/* do reverse file history: .blend1 -> .blend2, .blend -> .blend1 */
+/* return: success(0), failure(1) */
+static int do_history(const char *name, ReportList *reports)
+{
+       char tempname1[FILE_MAXDIR+FILE_MAXFILE], tempname2[FILE_MAXDIR+FILE_MAXFILE];
+       int hisnr= U.versions;
+       
+       if(U.versions==0) return 0;
+       if(strlen(name)<2) {
+               BKE_report(reports, RPT_ERROR, "Unable to make version backup: filename too short");
+               return 1;
+       }
+               
+       while(hisnr > 1) {
+               BLI_snprintf(tempname1, sizeof(tempname1), "%s%d", name, hisnr-1);
+               BLI_snprintf(tempname2, sizeof(tempname2), "%s%d", name, hisnr);
+       
+               if(BLI_rename(tempname1, tempname2)) {
+                       BKE_report(reports, RPT_ERROR, "Unable to make version backup");
+                       return 1;
+               }       
+               hisnr--;
+       }
+
+       /* is needed when hisnr==1 */
+       BLI_snprintf(tempname1, sizeof(tempname1), "%s%d", name, hisnr);
+
+       if(BLI_rename(name, tempname1)) {
+               BKE_report(reports, RPT_ERROR, "Unable to make version backup");
+               return 1;
+       }
+
+       return 0;
+}
+
 /* return: success (1) */
-int BLO_write_file(Main *mainvar, char *dir, int write_flags, ReportList *reports, int *thumb)
+int BLO_write_file(Main *mainvar, const char *filepath, int write_flags, ReportList *reports, int *thumb)
 {
        char userfilename[FILE_MAXDIR+FILE_MAXFILE];
        char tempname[FILE_MAXDIR+FILE_MAXFILE+1];
        int file, err, write_user_block;
 
        /* open temporary file, so we preserve the original in case we crash */
-       BLI_snprintf(tempname, sizeof(tempname), "%s@", dir);
+       BLI_snprintf(tempname, sizeof(tempname), "%s@", filepath);
 
        file = open(tempname,O_BINARY+O_WRONLY+O_CREAT+O_TRUNC, 0666);
        if(file == -1) {
@@ -2477,68 +2606,83 @@ int BLO_write_file(Main *mainvar, char *dir, int write_flags, ReportList *report
        if(write_flags & G_FILE_RELATIVE_REMAP) {
                char dir1[FILE_MAXDIR+FILE_MAXFILE];
                char dir2[FILE_MAXDIR+FILE_MAXFILE];
-               BLI_split_dirfile(dir, dir1, NULL);
+               BLI_split_dirfile(filepath, dir1, NULL);
                BLI_split_dirfile(mainvar->name, dir2, NULL);
 
                /* just incase there is some subtle difference */
                BLI_cleanup_dir(mainvar->name, dir1);
                BLI_cleanup_dir(mainvar->name, dir2);
 
-               if(strcmp(dir1, dir2)==0)
+               if(BLI_path_cmp(dir1, dir2)==0) {
                        write_flags &= ~G_FILE_RELATIVE_REMAP;
-               else
-                       makeFilesAbsolute(mainvar, G.main->name, NULL);
+               }
+               else {
+                       if(G.relbase_valid) {
+                               /* blend may not have been saved before. Tn this case
+                                * we should not have any relative paths, but if there
+                                * is somehow, an invalid or empty G.main->name it will
+                                * print an error, dont try make the absolute in this case. */
+                               makeFilesAbsolute(mainvar, G.main->name, NULL);
+                       }
+               }
        }
 
        BLI_make_file_string(G.main->name, userfilename, BLI_get_folder_create(BLENDER_USER_CONFIG, NULL), BLENDER_STARTUP_FILE);
-       write_user_block= BLI_streq(dir, userfilename);
+       write_user_block= (BLI_path_cmp(filepath, userfilename) == 0);
 
        if(write_flags & G_FILE_RELATIVE_REMAP)
-               makeFilesRelative(mainvar, dir, NULL); /* note, making relative to something OTHER then G.main->name */
+               makeFilesRelative(mainvar, filepath, NULL); /* note, making relative to something OTHER then G.main->name */
 
        /* actual file writing */
        err= write_file_handle(mainvar, file, NULL,NULL, write_user_block, write_flags, thumb);
        close(file);
 
-       /* rename/compress */
-       if(!err) {
-               if(write_flags & G_FILE_COMPRESS) {
-                       /* compressed files have the same ending as regular files... only from 2.4!!! */
-                       char gzname[FILE_MAXDIR+FILE_MAXFILE+4];
-                       int ret;
+       if (err) {
+               BKE_report(reports, RPT_ERROR, strerror(errno));
+               remove(tempname);
+
+               return 0;
+       }
 
-                       /* first write compressed to separate @.gz */
-                       BLI_snprintf(gzname, sizeof(gzname), "%s@.gz", dir);
-                       ret = BLI_gzip(tempname, gzname);
-                       
-                       if(0==ret) {
-                               /* now rename to real file name, and delete temp @ file too */
-                               if(BLI_rename(gzname, dir) != 0) {
-                                       BKE_report(reports, RPT_ERROR, "Can't change old file. File saved with @.");
-                                       return 0;
-                               }
+       /* file save to temporary file was successful */
+       /* now do reverse file history (move .blend1 -> .blend2, .blend -> .blend1) */
+       if (write_flags & G_FILE_HISTORY) { 
+               int err_hist = do_history(filepath, reports);
+               if (err_hist) {
+                       BKE_report(reports, RPT_ERROR, "Version backup failed. File saved with @");
+                       return 0;
+               }
+       }
 
-                               BLI_delete(tempname, 0, 0);
-                       }
-                       else if(-1==ret) {
-                               BKE_report(reports, RPT_ERROR, "Failed opening .gz file.");
-                               return 0;
-                       }
-                       else if(-2==ret) {
-                               BKE_report(reports, RPT_ERROR, "Failed opening .blend file for compression.");
+       if(write_flags & G_FILE_COMPRESS) {
+               /* compressed files have the same ending as regular files... only from 2.4!!! */
+               char gzname[FILE_MAXDIR+FILE_MAXFILE+4];
+               int ret;
+
+               /* first write compressed to separate @.gz */
+               BLI_snprintf(gzname, sizeof(gzname), "%s@.gz", filepath);
+               ret = BLI_gzip(tempname, gzname);
+               
+               if(0==ret) {
+                       /* now rename to real file name, and delete temp @ file too */
+                       if(BLI_rename(gzname, filepath) != 0) {
+                               BKE_report(reports, RPT_ERROR, "Can't change old file. File saved with @.");
                                return 0;
                        }
+
+                       BLI_delete(tempname, 0, 0);
                }
-               else if(BLI_rename(tempname, dir) != 0) {
-                       BKE_report(reports, RPT_ERROR, "Can't change old file. File saved with @");
+               else if(-1==ret) {
+                       BKE_report(reports, RPT_ERROR, "Failed opening .gz file.");
+                       return 0;
+               }
+               else if(-2==ret) {
+                       BKE_report(reports, RPT_ERROR, "Failed opening .blend file for compression.");
                        return 0;
                }
-               
        }
-       else {
-               BKE_report(reports, RPT_ERROR, strerror(errno));
-               remove(tempname);
-
+       else if(BLI_rename(tempname, filepath) != 0) {
+               BKE_report(reports, RPT_ERROR, "Can't change old file. File saved with @");
                return 0;
        }
 
@@ -2555,197 +2699,3 @@ int BLO_write_file_mem(Main *mainvar, MemFile *compare, MemFile *current, int wr
        if(err==0) return 1;
        return 0;
 }
-
-
-       /* Runtime writing */
-
-#ifdef WIN32
-#define PATHSEPERATOR          "\\"
-#else
-#define PATHSEPERATOR          "/"
-#endif
-
-static char *get_runtime_path(char *exename) {
-       char *installpath= get_install_dir();
-
-       if (!installpath) {
-               return NULL;
-       } else {
-               char *path= MEM_mallocN(strlen(installpath)+strlen(PATHSEPERATOR)+strlen(exename)+1, "runtimepath");
-
-               if (path == NULL) {
-                       MEM_freeN(installpath);
-                       return NULL;
-               }
-
-               strcpy(path, installpath);
-               strcat(path, PATHSEPERATOR);
-               strcat(path, exename);
-
-               MEM_freeN(installpath);
-
-               return path;
-       }
-}
-
-#ifdef __APPLE__
-
-static int recursive_copy_runtime(char *outname, char *exename, ReportList *reports)
-{
-       char *runtime = get_runtime_path(exename);
-       char command[2 * (FILE_MAXDIR+FILE_MAXFILE) + 32];
-       int progfd = -1, error= 0;
-
-       if (!runtime) {
-               BKE_report(reports, RPT_ERROR, "Unable to find runtime");
-               error= 1;
-               goto cleanup;
-       }
-       //printf("runtimepath %s\n", runtime);
-               
-       progfd= open(runtime, O_BINARY|O_RDONLY, 0);
-       if (progfd==-1) {
-               BKE_report(reports, RPT_ERROR, "Unable to find runtime");
-               error= 1;
-               goto cleanup;
-       }
-
-       sprintf(command, "/bin/cp -R \"%s\" \"%s\"", runtime, outname);
-       //printf("command %s\n", command);
-       if (system(command) == -1) {
-               BKE_report(reports, RPT_ERROR, "Couldn't copy runtime");
-               error= 1;
-       }
-
-cleanup:
-       if (progfd!=-1)
-               close(progfd);
-       if (runtime)
-               MEM_freeN(runtime);
-
-       return !error;
-}
-
-int BLO_write_runtime(Main *mainvar, char *file, char *exename, ReportList *reports) 
-{
-       char gamename[FILE_MAXDIR+FILE_MAXFILE];
-       int outfd = -1, error= 0;
-
-       // remove existing file / bundle
-       //printf("Delete file %s\n", file);
-       BLI_delete(file, 0, TRUE);
-
-       if (!recursive_copy_runtime(file, exename, reports)) {
-               error= 1;
-               goto cleanup;
-       }
-
-       strcpy(gamename, file);
-       strcat(gamename, "/Contents/Resources/game.blend");
-       //printf("gamename %s\n", gamename);
-       outfd= open(gamename, O_BINARY|O_WRONLY|O_CREAT|O_TRUNC, 0777);
-       if (outfd != -1) {
-
-               write_file_handle(mainvar, outfd, NULL,NULL, 0, G.fileflags, NULL);
-
-               if (write(outfd, " ", 1) != 1) {
-                       BKE_report(reports, RPT_ERROR, "Unable to write to output file.");
-                       error= 1;
-                       goto cleanup;
-               }
-       } else {
-               BKE_report(reports, RPT_ERROR, "Unable to open blenderfile.");
-               error= 1;
-       }
-
-cleanup:
-       if (outfd!=-1)
-               close(outfd);
-
-       BKE_reports_prepend(reports, "Unable to make runtime: ");
-       return !error;
-}
-
-#else /* !__APPLE__ */
-
-static int handle_append_runtime(int handle, char *exename, ReportList *reports)
-{
-       char *runtime= get_runtime_path(exename);
-       unsigned char buf[1024];
-       int count, progfd= -1, error= 0;
-
-       if (!BLI_exists(runtime)) {
-               BKE_report(reports, RPT_ERROR, "Unable to find runtime.");
-               error= 1;
-               goto cleanup;
-       }
-
-       progfd= open(runtime, O_BINARY|O_RDONLY, 0);
-       if (progfd==-1) {
-               BKE_report(reports, RPT_ERROR, "Unable to find runtime.@");
-               error= 1;
-               goto cleanup;
-       }
-
-       while ((count= read(progfd, buf, sizeof(buf)))>0) {
-               if (write(handle, buf, count)!=count) {
-                       BKE_report(reports, RPT_ERROR, "Unable to write to output file.");
-                       error= 1;
-                       goto cleanup;
-               }
-       }
-
-cleanup:
-       if (progfd!=-1)
-               close(progfd);
-       if (runtime)
-               MEM_freeN(runtime);
-
-       return !error;
-}
-
-static int handle_write_msb_int(int handle, int i) 
-{
-       unsigned char buf[4];
-       buf[0]= (i>>24)&0xFF;
-       buf[1]= (i>>16)&0xFF;
-       buf[2]= (i>>8)&0xFF;
-       buf[3]= (i>>0)&0xFF;
-
-       return (write(handle, buf, 4)==4);
-}
-
-int BLO_write_runtime(Main *mainvar, char *file, char *exename, ReportList *reports)
-{
-       int outfd= open(file, O_BINARY|O_WRONLY|O_CREAT|O_TRUNC, 0777);
-       int datastart, error= 0;
-
-       if (!outfd) {
-               BKE_report(reports, RPT_ERROR, "Unable to open output file.");
-               error= 1;
-               goto cleanup;
-       }
-       if (!handle_append_runtime(outfd, exename, reports)) {
-               error= 1;
-               goto cleanup;
-       }
-
-       datastart= lseek(outfd, 0, SEEK_CUR);
-
-       write_file_handle(mainvar, outfd, NULL,NULL, 0, G.fileflags, NULL);
-
-       if (!handle_write_msb_int(outfd, datastart) || (write(outfd, "BRUNTIME", 8)!=8)) {
-               BKE_report(reports, RPT_ERROR, "Unable to write to output file.");
-               error= 1;
-               goto cleanup;
-       }
-
-cleanup:
-       if (outfd!=-1)
-               close(outfd);
-
-       BKE_reports_prepend(reports, "Unable to make runtime: ");
-       return !error;
-}
-
-#endif /* !__APPLE__ */