home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / compress / misc / xfh / source.lha / src / xobj.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-03-09  |  11.2 KB  |  415 lines
  1. /* xobj.c - 'wrapper' calls for directing requests through to
  2.    the underlying file system. 
  3.    Copyright (C) 1991, 1992, 1993 Kristian Nielsen.
  4.  
  5.    This file is part of XFH, the compressing file system handler.
  6.  
  7.    This program is free software; you can redistribute it and/or modify
  8.    it under the terms of the GNU General Public License as published by
  9.    the Free Software Foundation; either version 2 of the License, or
  10.    (at your option) any later version.
  11.  
  12.    This program is distributed in the hope that it will be useful,
  13.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.    GNU General Public License for more details.
  16.  
  17.    You should have received a copy of the GNU General Public License
  18.    along with this program; if not, write to the Free Software
  19.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.            */
  20.  
  21. #include "CFS.h"
  22.  
  23. #include <dossupport.h>
  24.  
  25. LONG XObjClose( glb glob, struct CFSFH *fh ){
  26.   LONG res;
  27.   
  28.   if(!(res=xClose(glob, fh->xfh))){
  29.     return res;  /* Dare not free the file handle. */
  30.   }
  31.   fh->xfh = NULL;
  32.   
  33.   /* Check whether we need to compress the file (signified by a non-NULL
  34.    * fh->filename field). */
  35.   if(fh->filename){
  36.     debug(("Attempting to compress file '%s'...",fh->filename));
  37. #ifdef DEBUG
  38.     res=TransformFile(glob,fh->parent->xlock,fh->filename,PackFile2File,NULL);
  39.     debug(("result: %ld (ioerr=%ld).\n",res,glob->ioerr));
  40. #else
  41.     (void)TransformFile(glob,fh->parent->xlock,fh->filename,PackFile2File,NULL);
  42. #endif
  43.     /* Even if the compressing fails, we still have the file intact. */
  44.   }
  45.   XObjFreeFH(glob, fh);
  46.   return DOSTRUE;
  47. }
  48.  
  49.  
  50. LONG XObjRead( glb glob, struct CFSFH *fh, UBYTE *buf, LONG len ){
  51.    return xRead( glob, fh->xfh, buf, len );
  52. }
  53.  
  54.  
  55. LONG XObjWrite( glb glob, struct CFSFH *fh, UBYTE *buf, LONG len ){
  56.    return xWrite( glob, fh->xfh, buf, len );
  57. }
  58.  
  59.  
  60. LONG XObjSeek( glb glob, struct CFSFH *fh, LONG pos, LONG offset ){
  61.    return xSeek( glob, fh->xfh, pos, offset );
  62. }
  63.  
  64.  
  65. /* Allocate and partly initialise a struct CFSFH (should ONLY be called
  66.  * from XObjCreateFH()!).
  67.  */
  68. static struct CFSFH *XObjAllocFH(glb glob, struct FileHandle *xfh, LONG mode){
  69.    struct CFSFH *newfh;
  70.  
  71.    if( !dalloc(newfh) ){
  72.       debug(("Error: XObjAllocFH(): No memory for file handle.\n"));
  73.       OUTOFMEM;
  74.       return NULL;
  75.    }
  76.  
  77.    newfh->objtype = XOBJECT;
  78.    newfh->mode = mode;
  79.    newfh->xfh = xfh;
  80.    newfh->f = &Xfunc;
  81.    /* Other fields are NULL by default. */
  82.    return newfh;
  83. }
  84.  
  85.  
  86. /* This function is needed to convert from XpkFH to CFSFH in Xpk_Write(). */
  87. void XObjStealXpkFH(glb glob, struct CFSFH *fh){
  88.   fh->objtype = XOBJECT;
  89.   fh->f = &Xfunc;
  90. }  
  91.  
  92.  
  93. /* Stuff the filename / parentdir thingies into a CFSFH file handle. Must
  94.  * be 'undone' with XObjUnStuffFH().
  95.  */
  96. BOOL XObjStuffFH(glb glob, struct CFSFH *fh, char *name,
  97.          struct CFSLock *parent){
  98.  
  99.   debug(("Setting up fields in fh for autocompressing at Close().\n"));
  100.   if(!(fh->filename = copystr(name))){
  101.     debug(("Error: XObjStuffFH(): No memory for file name.\n"));
  102.     OUTOFMEM;
  103.     return FALSE;
  104.   }
  105.   if(!(fh->parent = CFSDupLock(glob, parent))){
  106.     /* Couldn't DupLock() it, so just hold a reference. */
  107.     debug(("XObjStuffFH(): Couldn't DupLock() parent, adding reference.\n"));
  108.     XObjAddReferenceToLock(glob, parent);
  109.     fh->parent = parent;
  110.     /* NOTE: We now have a dangerous double reference to the
  111.      * lock. Notably, the lock will be CFSUnLock()'ed two
  112.      * times.
  113.      */
  114.   }
  115.   return TRUE;
  116. }
  117.  
  118.  
  119. void XObjUnStuffFH(glb glob, struct CFSFH *fh){
  120.   if(fh->filename){
  121.     freestr(fh->filename);
  122.     CFSUnLock(glob, fh->parent);
  123.     fh->filename = NULL;
  124.     fh->parent = NULL;
  125.   }
  126. }
  127.   
  128.  
  129. /* Free CFSFH allocated with XObjCreateFH() (will not close the file handle).*/
  130. void XObjFreeFH(glb glob, struct CFSFH *fh){
  131.   XObjUnStuffFH(glob, fh);
  132.   dfree(fh);
  133. }
  134.  
  135.  
  136. /* Create a file handle to an xObj file. If 'name' is non-NULL,
  137.  * and autocompression is ON, will prepare filehandle for autocompression
  138.  * at Close() time (assuming 'parent' to be a lock on the parentdir of
  139.  * the file).
  140.  */
  141. struct CFSFH *XObjCreateFH(glb glob, struct FileHandle *xfh, LONG mode,
  142.                                  char *name,struct CFSLock *parent){
  143.   struct CFSFH *newfh;
  144.  
  145.   if( !( newfh = XObjAllocFH(glob, xfh, mode) ) ){
  146.     return NULL;
  147.   }
  148.  
  149.   /* Prepare for compressing the file at Close() time if needed. */
  150.   if(glob->autocompress && name){
  151.     if(!XObjStuffFH(glob, newfh, name, parent)){
  152.       SAVEIOERR;
  153.       XObjFreeFH(glob, newfh);
  154.       RESTIOERR;
  155.       return NULL;
  156.     }
  157.   }
  158.   return newfh;
  159. }
  160.  
  161.  
  162. /* Wraps a CFSLock around an xLock. */
  163. struct CFSLock *XObjMakeLock( glb glob, struct FileLock *xlock, LONG mode ){
  164.    struct CFSLock *newlock;
  165.  
  166.    if( !dalloc(newlock) ){
  167.       OUTOFMEM;
  168.       return NULL;
  169.    }
  170. debug(("XObjMakeLock(): xlock=%lx, procid=%lx.\n",xlock,xlock->fl_Task));
  171.    newlock->objtype = XOBJECT;
  172.    newlock->mode = mode;
  173.    newlock->xlock = xlock;
  174.    newlock->f = &Xfunc;
  175.    newlock->refcount = 0;
  176.    return newlock;
  177. }
  178.  
  179. struct CFSLock *XObjDupLock( glb glob, struct CFSLock *lock ){
  180.    struct CFSLock *newlock;
  181.  
  182.    /* XOBJECT locks have their xLocks xDupLock'ed, and the rest of
  183.     * the fields are just copied vanilla.
  184.     * Special case for the refcount; it must be set to 0 in the new lock.
  185.     */
  186.    if( !dalloc(newlock) ){
  187.       OUTOFMEM;
  188.       return 0L;
  189.    }
  190.    *newlock = *lock;
  191.    newlock->refcount = 0;   /* IMPORTANT!!! */
  192.    if( !(newlock->xlock = xDupLock(glob, lock->xlock)) ){
  193.       dfree(newlock);
  194.       return 0L;
  195.    }
  196.    return newlock;   
  197. }
  198.  
  199. /* This nasty function adds a reference to a CFSLock. FOR EACH CALL TO
  200.  * THIS FUNCTION THERE MUST BE A CORRESPONDING CALL TO XObjUnLock(), as
  201.  * well as a final one to match the original XObjLock(), XObjDupLock() or
  202.  * whatever.
  203.  */
  204. void XObjAddReferenceToLock(glb glob, struct CFSLock *lock){
  205.    lock->refcount++;
  206. }
  207.  
  208.  
  209. struct CFSLock *XObjParentDir( glb glob, struct CFSLock *lock ){
  210.     struct FileLock *xlock;
  211.     struct CFSLock *newlock;
  212.     
  213.     if( xSameLock(glob, glob->xrootlock, lock->xlock) == LOCK_SAME ){
  214.         debug(("- ParentDir() of root lock. -"));
  215.         glob->ioerr = 0L;
  216.         return NULL;
  217.     }
  218.     if( !(xlock = xParentDir(glob, lock->xlock)) ){
  219.         return 0L;
  220.     }
  221.     newlock = XObjMakeLock( glob, xlock, ACCESS_READ );
  222.     if( !newlock ){
  223.         LONG saveioerr = glob->ioerr;
  224.         xUnLock(glob, xlock);
  225.         glob->ioerr = saveioerr;
  226.     }
  227.     return newlock;
  228. }
  229.  
  230.  
  231. struct CFSLock *XObjParentFH( glb glob,  struct CFSFH *fh ){
  232.     struct FileLock *xlock;
  233.     struct CFSLock *newlock;
  234.     
  235.     if( !(xlock = xParentFH(glob, fh->xfh)) ){
  236.         return 0L;
  237.     }
  238.     newlock = XObjMakeLock( glob, xlock, ACCESS_READ );
  239.     if( !newlock ){
  240.         LONG saveioerr = glob->ioerr;
  241.         xUnLock(glob, xlock);
  242.         glob->ioerr = saveioerr;
  243.     }
  244.     return newlock;
  245. }
  246.  
  247.  
  248. BOOL XObjUnLock( glb glob, struct CFSLock *lock ){
  249.     BOOL err;
  250.  
  251.    /* Have to check if there are outstanding references to the lock. */
  252.    if(lock->refcount){
  253.       debug(("XObjUnLock: Just decrementing the refcount (%ld).\n",lock->refcount));
  254.       lock->refcount--;
  255.       return DOSTRUE;
  256.    }
  257.    
  258.     err = xUnLock(glob, lock->xlock);
  259.       
  260.     /* Now, what if the UnLock fails? I guess it's best to return FALSE
  261.      * and let the lock live.
  262.      */
  263.     if(!err) return DOSFALSE;
  264.     dfree(lock);
  265.     return DOSTRUE;
  266. }
  267.  
  268.  
  269. BOOL XObjSameLock(glb glob, struct CFSLock *l1, struct CFSLock *l2 ){
  270.     return (BOOL) (xSameLock( glob, l1->xlock, l2->xlock ) == LOCK_SAME);
  271. }
  272.  
  273.  
  274. BOOL XObjExamine( glb glob, struct CFSLock *lock, struct FileInfoBlock *fib ){
  275.    BOOL err, fix=FALSE;
  276.    
  277.    if(xSameLock(glob, glob->xrootlock, lock->xlock) == LOCK_SAME) fix=TRUE;
  278.    err = xExamine(glob, lock->xlock, fib);
  279.    debug(("XObjExamine(): %ld,'%s'\n",err,fib->fib_FileName));
  280.    
  281.    /* Check if Examine()'ing the root dir (if so, fix name). */
  282.    if(fix){
  283.       /* ARRGHH! Nasty BCPL stuff around... */
  284.       bstr2c(glob->volnode->dl_Name, &fib->fib_FileName[0]);
  285.       debug(("XObjExamine(): Changing name in FIB to '%s'.\n",
  286.                                                  &fib->fib_FileName[0]));
  287.    }
  288.    return err;
  289. }
  290.  
  291. BOOL XObjExNext( glb glob, struct CFSLock *lock, struct FileInfoBlock *fib ){
  292.    BOOL err, err2;
  293.    
  294.    err = xExamineNext(glob, lock->xlock, fib);
  295.    debug(("CFSExamineNext(): %ld,'%s'\n",err,fib->fib_FileName));
  296.    if( !err ) return err;
  297.    err2 = ModifyFIB( glob, lock, fib );
  298.    if(!glob->FailOnExNext){
  299.       /* The error return from ModifyFIB is discarded. This way, a directory
  300.        * scan won't fail in flaky programs that don't test IOERR for
  301.        * ERROR_NO_MORE_ENTRIES.
  302.        */
  303.    }else{
  304.       err = err2;
  305.    }
  306.    return err;
  307. }
  308.  
  309.  
  310. BOOL ModifyFIB( glb glob, struct CFSLock *lock, struct FileInfoBlock *fib ){
  311.    LONG saveioerr;
  312.    
  313.    if( fib->fib_DirEntryType < 0 ){
  314.       LONG filetype;
  315.       struct FileHandle *xfh;
  316.       BOOL err;
  317.  
  318.       if ( XpkFastModifyFIB(fib) ) return DOSTRUE;
  319.  
  320.       /* A plain file. This needs a closer look.*/
  321.       xfh = xOpen( glob, lock->xlock, fib->fib_FileName, MODE_OLDFILE );
  322.       if( !xfh ){
  323.          debug(("Error: ModifyFIB(): Couldn't open file: %ld\n",glob->ioerr));
  324.          return DOSFALSE;
  325.       }
  326.       filetype = xFileType( glob, xfh );
  327.       err = ModifyFIB_type( glob, filetype, lock, fib, xfh );
  328.       if( !err ) saveioerr = glob->ioerr;
  329.       xClose(glob, xfh);
  330.       if( !err ) glob->ioerr = saveioerr;
  331.       return err;
  332.    }else{
  333.       /* Do nothing for a directory.*/
  334.       return DOSTRUE;
  335.    }
  336. }
  337.  
  338. /* XObjModifyFIB() is just a NO-OP.*/
  339. BOOL XObjModifyFIB( glb glob, struct CFSLock *lock,struct FileInfoBlock *fib, struct FileHandle *xfh ){
  340.    return DOSTRUE;
  341. }
  342.  
  343.  
  344. struct CFSLock *XObjCreateDir( glb glob, struct CFSLock *parentlock, char *name ){
  345.    struct CFSLock *newlock;
  346.    struct FileLock *xlock;
  347.    
  348.    if( !(xlock = xCreateDir(glob, parentlock->xlock, name)) ){
  349.       return 0L;
  350.    }
  351.    newlock = XObjMakeLock( glob, xlock, xlock->fl_Access );
  352.    if( !newlock ){
  353.       LONG saveioerr = glob->ioerr;
  354.  
  355.       /* Oh No! We're left with a dangling directory...
  356.        * Try to remove it before returning.
  357.        */
  358.       debug(("XObjCreateDir(): Trying to delete dangling directory..."));
  359.       xUnLock(glob, xlock);
  360.       if( CFSDeleteFile( glob, parentlock, name ) )
  361.          debug(("Succes!\n"));
  362.       else
  363.          debug(("Failure...\n"));
  364.       glob->ioerr = saveioerr;
  365.    }
  366.    return newlock;
  367. }
  368.  
  369.  
  370. BOOL XObjSetProtection(glb glob, struct CFSLock *parent, char *name, LONG mask){
  371.    BOOL err;
  372.    
  373.    err = xSetProtection(glob, parent->xlock, name, mask);
  374.    return err;
  375. }
  376.  
  377. BOOL XObjSetComment(glb glob, struct CFSLock *parent, char *name, char *comment){
  378.    BOOL err;
  379.    
  380.    err = xSetComment(glob, parent->xlock, name, comment);
  381.    return err;
  382. }
  383.  
  384. BOOL XObjSetFileDate(glb glob, struct CFSLock *parent, char *name, struct DateStamp *ds){
  385.    BOOL err;
  386.    
  387.    err = xSetFileDate(glob, parent->xlock, name, ds);
  388.    return err;
  389. }
  390.  
  391.  
  392. BOOL XObjDeleteFile(glb glob, struct CFSLock *parent, char *name){
  393.    BOOL err;
  394.    
  395.    err = xDeleteFile(glob, parent->xlock, name);
  396.    return err;
  397. }
  398.  
  399.  
  400. BOOL XObjRename(glb glob, struct CFSLock *p1, char *n1, struct CFSLock *p2, char *n2){
  401.    BOOL err;
  402.    
  403.    if(p2->objtype != XOBJECT){
  404.       debug(("XObjRename(): Error: rename to lock of type %ld\n",p2->objtype));
  405.       glob->ioerr = ERROR_RENAME_ACROSS_DEVICES;
  406.       return DOSFALSE;
  407.    }else{
  408.       err = xRename(glob, p1->xlock, n1, p2->xlock, n2);
  409.       return err;
  410.    }
  411. }
  412.  
  413.  
  414. /* End of xobj.c */
  415.