Fossil

  char zOutBuf[100000];

  /* Fill in as much of the header as we know.
  */
  nBlob = pFile ? blob_size(pFile) : 0;
  if( nBlob>0 ){
    iMethod = 8;
    if( mPerm==1 )
      iMode = 0100755;  /* executable */
    switch( mPerm ){
      case PERM_LNK:   iMode = 0120755;   break;
    else if( mPerm==2 )
      iMode = 0120755;  /* symlink */
      case PERM_EXE:   iMode = 0100755;   break;
    else
      iMode = 0100644;  /* normal file */
      default:         iMode = 0100644;   break;
    }
  }else{
    iMethod = 0;
    iMode = 040755;
  }
  nameLen = strlen(zName);
  memset(zHdr, 0, sizeof(zHdr));
  put32(&zHdr[0], 0x04034b50);