Xd,@s2ddlmZdZdZdZddlZddlZddlZddlZddl Z ddl Z e e k reZny eZWneZYnXejdjdkrdZnNejdjdkrdZn-ejd jdkrd Zn ed yeWnek r+e ZYnXd Zejdd krNd ZndZdaddZddZeaddZdZ dZ!dZ"dZ#dZ$dZ%dZ&dZ'dZ(dZ)dZ*d Z+dZ,dZ-dZ.dZ/dZ0d Z1dZ2dZ3dZ4dZ5d Z6d!Z7d"Z8d#Z9d$Z:d%Z;d&Z<d'Z=d(Z>d)Z?d*Z@d+ZAd,ZBd-ZCd.ZDd/ZEd0ZFd1ZGd2ZHd3ZId4ZJd5ZKd6ZLd7ZMd8ZNd9ZOd:ZPd;ZQd<ZRd=ZSd>ZTd?ZUd@ZViZWxFeXeYjZD]/\Z[Z\e[dd dAkre[eWe\Need to fix a bug with 32 bit arrays, please contact author...Tzutf-8FcCst|dS)N)print)msgr J/home/ubuntu/projects/ifolica/lib/python3.4/site-packages/PIL/OleFileIO.py debug_printNsr cCsdS)Nr )r r r r debug_passRsr cCs|a|rtantadS)zl Set debug mode on or off, to control display of debugging messages. :param mode: True or False N) DEBUG_MODEr debugr )Z debug_moder r r set_debug_modeYs rsࡱlllll @ABCDEFGHiZVT_z$00020900-0000-0000-C000-000000000046(icCst|dr4|jtt}|jdnXt|trnt|tkrn|dtt}nt|djtt}|tkrdSdSdS)aH Test if a file is an OLE container (according to the magic bytes in its header). :param filename: string-like or file-like object, OLE file to parse - if filename is a string smaller than 1536 bytes, it is the path of the file to open. (bytes or unicode string) - if filename is a string longer than 1535 bytes, it is parsed as the content of an OLE file in memory. (bytes type only) - if filename is a file-like object (with read and seek methods), it is parsed as-is. :returns: True if OLE, False otherwise. readrNrbTF) hasattrr7lenMAGICseek isinstancebytesMINIMAL_OLEFILE_SIZEopen)filenameheaderr r r isOleFiles! rCcCs t|S)N)ord)cr r r i8srFcCs|jtkr|S|dS)Nr) __class__int)rEr r r rFscCs"tjd|||ddS)z Converts a 2-bytes (16 bits) string to an integer. c: string containing bytes to convert o: offset of bytes to convert in string zlines paragraphsslidesnotes hidden_slidesmm_clips scale_crop heading_pairstitles_of_partsmanagercompany links_dirtychars_with_spacesunused shared_doc link_basehlinkshlinks_changedversiondig_sig content_typecontent_statuslanguage doc_versioncCsd|_d|_d|_d|_d|_d|_d|_d|_d|_d|_ d|_ d|_ d|_ d|_ d|_d|_d|_d|_d|_d|_d|_d|_d|_d|_d|_d|_d|_d|_d|_d|_d|_d|_d|_ d|_!d|_"d|_#d|_$d|_%d|_&d|_'d|_(d|_)d|_*d|_+d|_,d|_-d|_.dS)z_ Constructor for OleMetadata All attributes are set to None by default N)/r[r\r]r^r_r`rarbrcrdrerfrgrhrirjrkrlrmrnrorpr>rqrrrsrtrurvrwrxryrzr{r|r}r~rrrrrrrrrr)selfr r r __init__?s^                                              zOleMetadata.__init__cCs x(|j|jD]}t||dqW|jdr|jdddddg}xMtt|jD]3}|j|dd}t||j||qnWn|jdr|jddd}xMtt|jD]3}|j|dd}t||j||qWndS) a3 Parse standard properties of an OLE file, from the streams "SummaryInformation" and "DocumentSummaryInformation", if present. Properties are converted to strings, integers or python datetime objects. If a property is not present, its value is set to None. NzSummaryInformation convert_timeT no_conversionrrzDocumentSummaryInformation)SUMMARY_ATTRIBSDOCSUM_ATTRIBSsetattrexists getpropertiesranger:get)rolefileZattribpropsrvaluer r r parse_propertiesvs    zOleMetadata.parse_propertiescCstdx:|jD]/}t||}td|t|fqWtdx:|jD]/}t||}td|t|fq[WdS)z< Dump all metadata, for debugging purposes. z*Properties from SummaryInformation stream:z- %s: %sz2Properties from DocumentSummaryInformation stream:N)rrgetattrreprr)rproprr r r dumps  zOleMetadata.dumpN) __name__ __module__ __qualname____doc__rrrrrr r r r rZ s        7 rZc@s"eZdZdZddZdS) _OleStreama OLE2 Stream Returns a read-only file object which can be used to read the contents of a OLE stream (instance of the BytesIO class). To open a stream, use the openstream method in the OleFile class. This function can be used with either ordinary streams, or ministreams, depending on the offset, sectorsize, and fat table arguments. Attributes: - size: actual size of data stream, after it was opened. c Cs]tdtd|||||t|t|fd}|dkrnt||}d}tdn||d|} td| | t|krtd ng} |d kr|tkrtd td nxt| D]} |tkr(|rPq(td tdn|d ksF|t|krtd||t|ftd| | ftdny|j|||Wn3td|||||ftdYnX|j|} t| |krl|t|dkrltd|t|||||t| ftd|||t| tdn| j| y||d@}Wqt k rtdYqXqW|tkrtdndj | } t| |kr| d|} ||_ n>|r t| |_ n&tdt| |ftdt j j|| dS)a Constructor for _OleStream class. :param fp: file object, the OLE container or the MiniFAT stream :param sect: sector index of first sector in the stream :param size: total size of the stream :param offset: offset in bytes for the first FAT or MiniFAT sector :param sectorsize: size of one sector :param fat: array/list of sector indexes (FAT or MiniFAT) :param filesize: size of OLE file (for debugging) :returns: a BytesIO instance containing the OLE stream z_OleStream.__init__:zE sect=%d (%X), size=%d, offset=%d, sectorsize=%d, len(fat)=%d, fp=%sFiTz stream with UNKNOWN SIZErznb_sectors = %dz(malformed OLE document, stream too largerz!size == 0 and sect != ENDOFCHAIN:z+incorrect OLE sector index for empty streamz$sect=ENDOFCHAIN before expected sizezincomplete OLE streamzsect=%d (%X) / len(fat)=%dzi=%d / nb_sectors=%dz,incorrect OLE FAT, sector index out of rangezsect=%d, seek=%d, filesize=%dzOLE sector index out of rangez9sect=%d / len(fat)=%d, seek=%d / filesize=%d, len read=%dzseek+len(read)=%dzincomplete OLE sectorlz)incorrect last sector index in OLE streamNzlen(data)=%d, size=%dz%OLE stream size is less than declared)rr:rIOError ENDOFCHAINrr<r7append IndexErrorjoinsizeioBytesIOr) rfpsectroffset sectorsizefatfilesizeZ unknown_size nb_sectorsdatarZ sector_datar r r rsl )     (+      z_OleStream.__init__N)rrrrrr r r r rs rc@seZdZdZdZdZejeeks9tddZ ddZ dd Z d d Z d d Z ddZddZdddZddZddZdS)_OleDirectoryEntryz OLE2 Directory Entry z<64sHBBIII16sIQQIIIc Cs||_||_g|_i|_d|_tjtj|\}}|_ |_ |_ |_ |_ }|_|_|_|_}}|j ttttgkr|jtdn|j tkr|dkr|jtdn|dkr|j tkr|jtdn|dkr6|jtdd}n|d|d }|j||_td |jt|jftd |j td |jtd |j |j |j f|jdkr!|dkr|dkrtd|j|||f|jtdn||_n|t|d>|_td|j||ft ||_!|j tkr|jdkr|jt"dn|j ttfkr|jdkr|j|j#kr|j tkrd} nd} |j$|j| ndS)aJ Constructor for an _OleDirectoryEntry object. Parses a 128-bytes entry from the OLE Directory stream. :param entry : string (must be 128 bytes long) :param sid : index of this directory entry in the OLE file directory :param olefile: OleFileIO containing this directory entry Fzunhandled OLE storage typerzduplicate OLE root entryzincorrect OLE root entryr-zincorrect DirEntry name lengthNrzDirEntry SID=%d: %sz - type: %dz - sect: %dz% - SID left: %d, right: %d, child: %dilz+sectorsize=%d, sizeLow=%d, sizeHigh=%d (%X)zincorrect OLE stream size z% - size: %d (sizeLow=%d, sizeHigh=%d)zOLE storage with size>0T)%sidrkids kids_dictusedrIrJrSTRUCT_DIRENTRY entry_typeZcolorsid_left sid_right sid_childZ dwUserFlags createTime modifyTime isectStart STGTY_ROOT STGTY_STORAGE STGTY_STREAM STGTY_EMPTY raise_defectDEFECT_INCORRECT_decode_utf16_strnamerrr DEFECT_UNSURErlongrTrSDEFECT_POTENTIALminisectorcutoff_check_duplicate_stream) rentryrrrZ namelengthrSZsizeLowZsizeHighminifatr r r rHsN     Z     $ z_OleDirectoryEntry.__init__cCsYtd|jt|j|jf|jtkrU|j|j|jjndS)z Read and build the red-black tree attached to this _OleDirectoryEntry object, if it is a storage. Note that this method builds a tree of all subentries, so it should only be called for the root object once. z.build_storage_tree: SID=%d - %s - sid_child=%dN) rrrrrNOSTREAM append_kidsrsort)rr r r build_storage_trees   z%_OleDirectoryEntry.build_storage_treecCs5|tkrdS|dks4|t|jjkrJ|jjtdn|jj|}td|jt |j |j |j |j f|j|j |j j}||jkr|jjtdn|jj|||j|<|jr|jjtdnd|_|j|j |jdS)a* Walk through red-black tree of children of this directory entry to add all of them to the kids list. (recursive method) :param child_sid : index of child directory entry to use, or None when called first time for the root. (only used during recursion) NrzOLE DirEntry index out of rangezHappend_kids: child_sid=%d - %s - sid_left=%d, sid_right=%d, sid_child=%dz!Duplicate filename in OLE storagez#OLE Entry referenced more than onceT)rr:r direntriesr DEFECT_FATAL_load_direntryrrrrrrrrlowerrrrrrr)rZ child_sidchildZ name_lowerr r r rs( $,       z_OleDirectoryEntry.append_kidscCs|j|jkS)zCompare entries by name)r)rotherr r r __eq__sz_OleDirectoryEntry.__eq__cCs|j|jkS)zCompare entries by name)r)rrr r r __lt__sz_OleDirectoryEntry.__lt__cCs|j| S)N)r)rrr r r __ne__sz_OleDirectoryEntry.__ne__cCs|j|p|j|S)N)rr)rrr r r __le__sz_OleDirectoryEntry.__le__rcCsddddddg}td|t|j||jdd|jttfkrqt|jd ddnt|jttfkr|jrtd|d |jnx"|j D]}|j |d qWd S) zADump this entry, and all its subentries (for debug purposes only)z (invalid)z (storage)z(stream)z (lockbytes)z (property)z(root) endr>z{%s}rN) rrrrrrrrrSrr)rtabZTYPESkidr r r rs  +z_OleDirectoryEntry.dumpcCs |jdkrdSt|jS)z Return modification time of a directory entry. :returns: None if modification time is null, a python datetime object otherwise (UTC timezone) new in version 0.26 rN)rrY)rr r r getmtime s z_OleDirectoryEntry.getmtimecCs |jdkrdSt|jS)z Return creation time of a directory entry. :returns: None if modification time is null, a python datetime object otherwise (UTC timezone) new in version 0.26 rN)rrY)rr r r getctimes z_OleDirectoryEntry.getctimeN)rrrrrZ DIRENTRY_SIZErIcalcsizerOrrrrrrrrrrr r r r r*s  _  +     rc@seZdZdZdeddeddZeddZdd d Z dd d Z d dZ dddZ dddZ dddZddZddZddZddZddZd d!d"Zd#d$Zd%d&Zd'd(Zd)dd*d+Zd,dd-d.Zd,dd/d0Zd1d2Zd3d4Zd5d6Zd7d8Zd9d:Zd;d<Z d=d>Z!d?d@Z"dAdBZ#dddCdDZ$dEdFZ%dS)G OleFileIOa OLE container object This class encapsulates the interface to an OLE 2 structured storage file. Use the :py:meth:`~PIL.OleFileIO.OleFileIO.listdir` and :py:meth:`~PIL.OleFileIO.OleFileIO.openstream` methods to access the contents of this file. Object names are given as a list of strings, one for each subentry level. The root entry should be omitted. For example, the following code extracts all image streams from a Microsoft Image Composer file:: ole = OleFileIO("fan.mic") for entry in ole.listdir(): if entry[1:2] == "Image": fin = ole.openstream(entry) fout = open(entry[0:1], "wb") while True: s = fin.read(8192) if not s: break fout.write(s) You can use the viewer application provided with the Python Imaging Library to view the resulting files (which happens to be standard TIFF files). NFcCs`t|||_g|_||_||_d|_d|_|r\|j|d|ndS)a Constructor for the OleFileIO class. :param filename: file to open. - if filename is a string smaller than 1536 bytes, it is the path of the file to open. (bytes or unicode string) - if filename is a string longer than 1535 bytes, it is parsed as the content of an OLE file in memory. (bytes type only) - if filename is a file-like object (with read, seek and tell methods), it is parsed as-is. :param raise_defects: minimal level for defects to be raised as exceptions. (use DEFECT_FATAL for a typical application, DEFECT_INCORRECT for a security-oriented application, see source code for details) :param write_mode: bool, if True the file is opened in read/write mode instead of read-only by default. :param debug: bool, set debug mode :param path_encoding: None or str, name of the codec to use for path names (streams and storages), or None for Unicode. Unicode by default on Python 3+, UTF-8 on Python 2.x. (new in olefile 0.42, was hardcoded to Latin-1 until olefile v0.41) N write_mode)r_raise_defects_levelparsing_issuesr path_encoding _filesizerr@)rrAZ raise_defectsrrrr r r rEs       zOleFileIO.__init__cCs8||jkr||n|jj||fdS)a This method should be called for any defect found during file parsing. It may raise an IOError exception according to the minimal level chosen for the OleFileIO object. :param defect_level: defect level, possible values are: - DEFECT_UNSURE : a case which looks weird, but not sure it's a defect - DEFECT_POTENTIAL : a potential defect - DEFECT_INCORRECT : an error according to specifications, but parsing can go on - DEFECT_FATAL : an error which cannot be ignored, parsing is impossible :param message: string describing the defect, used with raised exception. :param exception_type: exception class to be raised, IOError by default N)rrr)rZ defect_levelmessageZexception_typer r r rnszOleFileIO.raise_defectreplacecCs6|jd|}|jr.|j|j|S|SdS)a Decode a string encoded in UTF-16 LE format, as found in the OLE directory or in property streams. Return a string encoded according to the path_encoding specified for the OleFileIO object. :param utf16_str: bytes string encoded in UTF-16 LE format :param errors: str, see python documentation for str.decode() :return: str, encoded according to path_encoding zUTF-16LEN)decoderencode)rZ utf16_strerrorsZ unicode_strr r r rs  zOleFileIO._decode_utf16_strc Cs||_t|dr$||_n`t|trZt|tkrZtj||_n*|jrld}nd}t |||_d}|jj dt j z|jj }Wd|jj dX||_g|_g|_|jjd}t|dks|ddtkr/|jtdnd }tj|}td ||d/f|d|}tj||\|_|_|_|_|_|_|_|_ |_!|_"|_#|_$|_%|_&|_'|_(|_)|_*ttj|||jtkr"|jtd n|jt+dkrJ|jt,dntd|jtd|j|jd0kr|jt,dntd|j|jdkr|jtdnd|j|_-td|j-|j-d1kr|jt,dn|jdkr"|j-dks@|jd krS|j-dkrS|jt,dnd|j|_.td|j.|j.d2kr|jt,dn|j dks|j!dkr|jt,dntd |j"|j-dkr |j"dkr |jt,d!ntd"|j#td#|j$td$|j%|j%dkr^|jt/d%ntd&|j&|j&dkr|jt,d'ntd(|j'td)|j(td*|j)td+|j*||j-d,|j-d,|_0td-|j0t1|dd.|_|j-|_2|j.|_3|j&|_4|j5|j$|j(rn|j5|j'n|j*r|j5|j)n|j6||j7|j$d|_8|j'|_9dS)3a Open an OLE2 file in read-only or read/write mode. Read and parse the header, FAT and directory. :param filename: string-like or file-like object, OLE file to parse - if filename is a string smaller than 1536 bytes, it is the path of the file to open. (bytes or unicode string) - if filename is a string longer than 1535 bytes, it is parsed as the content of an OLE file in memory. (bytes type only) - if filename is a file-like object (with read, seek and tell methods), it is parsed as-is. :param write_mode: bool, if True the file is opened in read/write mode instead of read-only by default. (ignored if filename is not a path) r7zr+br8rNrz#not an OLE2 structured storage filez<8s16sHHHHHHLLLLLLLLLLzfmt_header size = %d, +FAT = %dmrzincorrect OLE signaturerzincorrect CLSID in OLE headerzMinorVersion = %dzDllVersion = %drz"incorrect DllVersion in OLE headerzByteOrder = %Xiz!incorrect ByteOrder in OLE headerrzSectorSize = %dz"incorrect SectorSize in OLE headerz2SectorSize does not match DllVersion in OLE headerzMiniSectorSize = %dr-z&incorrect MiniSectorSize in OLE headerz.incorrect OLE header (non-null reserved bytes)zcsectDir = %dz incorrect csectDir in OLE headerzcsectFat = %dzsectDirStart = %Xzsignature = %dz"incorrect OLE header (signature>0)zMiniSectorCutoff = %dz(incorrect MiniSectorCutoff in OLE headerzMiniFatStart = %XzcsectMiniFat = %dzsectDifStart = %XzcsectDif = %drz!Number of sectors in the file: %dr%i)rr)rr)r-):rr9rr=r>r:r?rrr@r<osSEEK_ENDtellr_used_streams_fat_used_streams_minifatr7r;rrrIrrrJZSigrSZ MinorVersionZ DllVersionZ ByteOrderZ SectorShiftZMiniSectorShiftZReservedZ Reserved1ZcsectDircsectFatZ sectDirStartZ signatureZMiniSectorCutoffZ MiniFatStart csectMiniFat sectDifStartcsectDif bytearrayr SectorSizeMiniSectorSizernb_sectrTrminisectorsizerrloadfat loaddirectory ministream minifatsect) rrArmoderrBZ fmt_headerZ header_sizeZheader1r r r r@s  !     ('~       zOleFileIO.opencCs|jjdS)z@ close the OLE file, to release the file object N)rclose)rr r r rnszOleFileIO.closecCs|r td||j}n3td||ttttfkrJdS|j}||krr|jtdn |j |dS)ag Checks if a stream has not been already referenced elsewhere. This method should only be called once for each known stream, and only if stream size is not null. :param first_sect: int, index of first sector of the stream in FAT :param minifat: bool, if True, stream is located in the MiniFAT, else in the FAT z+_check_duplicate_stream: sect=%d in MiniFATz'_check_duplicate_stream: sect=%d in FATNzStream referenced twice) rrDIFSECTFATSECTrFREESECTrrrr)rZ first_sectrZ used_streamsr r r rts    z!OleFileIO._check_duplicate_streamrc Csdts dSd}idt6dt6dt6dt6}t|}||d|}tdd d x(t|D]}td |d d qmWtxt|D]}||} td || d d xt| | |D]v}||krPn||} | d @} | |kr|| } n#| |dkr7d} n d | } t| d d qWtqWdS)zCDisplays a part of FAT in human-readable form for debugging purposeNrz..free..z[ END. ]zFATSECT zDIFSECT rindexrrz%8Xz%8X:lz --->)rr rrrr:rr) rr firstindexVPLZfatnamesnbsectnlinesrlr rZauxrr r r dumpfats:          zOleFileIO.dumpfatc Cs4ts dSd}tjt|}tjdkr>|jnt|}||d|}tdddx(t|D]}td|ddqyWtxt|D]}||} td || ddxOt| | |D]:}||krPn||} d| } t| ddqWtqWdS) zBDisplays a sector in a human-readable form, for debugging purpose.Nrbigrr rrz%8Xz%8X:) rarrayUINT32sys byteorderbyteswapr:rr) rsectorr r rr rrrr rrr r r dumpsects,      zOleFileIO.dumpsectcCs2tjt|}tjdkr.|jn|S)z convert a sector to an array of 32 bits unsigned integers, swapping bytes on big endian CPUs such as PowerPC (old Macs) r)rrrrr)rrar r r sect2arrays zOleFileIO.sect2arraycCst|tjr|}n|j|}|j|xz|D]r}|d@}td||tkst|tkrtdPn|j|}|j|}|j||_q>W|S)z Adds the indexes of the given sector to the FAT :param sect: string containing the first FAT sector, or array of long integers :returns: index of last FAT sector. lz isect = %Xzfound end of sector chain) r=rrrrrr getsectr)rrZfat1ZisectsZnextfatr r r loadfat_sects     zOleFileIO.loadfat_sectc Cs-|dd}tdt|t|dftjt|_|j||jdkr|jdkr|jt dn|j |j kr|jt dntd |j dd }|jd|d |}td ||j|kr td n|j }xt|D]t}td ||f|j|}|j|}|j||j|d|||}td|qW|ttgkrtdqnt|j|j krtdt|j|j f|jd|j |_ntd|j|jdS)z% Load the FAT table. Lizlen(sect)=%d, so %d integersrrrz#incorrect DIFAT, not enough sectorsz)incorrect DIFAT, first index out of rangezDIFAT analysis...rz nb_difat = %dzincorrect DIFATzDIFAT block %d, sector %XNznext DIFAT sector: %Xzincorrect end of DIFATz!len(fat)=%d, shrunk to nb_sect=%dz FAT:)rr:rrrrrrrrrrrrr iterrangerrrrr r) rrBrZnb_difat_sectorsZnb_difatZ isect_difatrZ sector_difatZdifatr r r rs> $       zOleFileIO.loadfatcCs|j|j}|jj|jd|j}|d}td|j|j|||f||krz|jtdn|j |j|ddj }|j ||_ tdt |j |f|j d||_ td t |j td |j|j dS) z) Load the MiniFAT table. rrzaloadminifat(): minifatsect=%d, nb FAT sectors=%d, used_size=%d, stream_size=%d, nb MiniSectors=%dz%OLE MiniStream is larger than MiniFAT force_FATTz$MiniFAT shrunk from %d to %d sectorsNzloadminifat(): len=%dz MiniFAT:)rrrootrrrrrr_openr7rrr:r)rZ stream_sizeZnb_minisectorsZ used_sizerr r r loadminifat?s   ! zOleFileIO.loadminifatc Csy|jj|j|dWn=td||j|d|jf|jtdYnX|jj|j}t||jkrtd|t||jf|jtdn|S)z Read given sector from file on disk. :param sect: int, sector index :returns: a string containing the sector data. rz(getsect(): sect=%X, seek=%d, filesize=%dzOLE sector index out of rangez*getsect(): sect=%X, read=%d, sectorsize=%dzincomplete OLE sector) rr<rrrrrr7r:)rrrr r r raszOleFileIO.getsectsc Cst|tstdnt|t s@t|dkrOtdny|jj|j|dWn=td||j|d|jf|j t dYnXt||jkr|||jt|7}n$t||jkrt dn|jj |dS)z Write given sector to file on disk. :param sect: int, sector index :param data: bytes, sector data :param padding: single byte, padding character if data < sector size z'write_sect: data must be a bytes stringrz4write_sect: padding must be a bytes string of 1 charz+write_sect(): sect=%X, seek=%d, filesize=%dzOLE sector index out of rangezData is larger than sector sizeN) r=r> TypeErrorr:rr<rrrrr ValueErrorwrite)rrrpaddingr r r write_sects"zOleFileIO.write_sectcCs||j||_|jjd}td|jj|fdg||_|jd}|jd|_|jjdS)z] Load the directory. :param sect: sector index of directory stream. rz&loaddirectory: size=%d, max_entries=%dNr)r" directory_fprrrrr!r)rrZ max_entriesZ root_entryr r r rs zOleFileIO.loaddirectorycCs|dks!|t|jkr4|jtdn|j|dk rb|jtd|j|S|jj|d|jjd}t||||j|<|j|S)aZ Load a directory entry from the directory. This method should only be called once for each storage/stream when loading the directory. :param sid: index of storage/stream in the directory. :returns: a _OleDirectoryEntry object :exception IOError: if the entry has always been referenced. rz OLE directory index out of rangeNz'double reference for OLE stream/storager) r:rrrrr)r<r7r)rrrr r r rs !  zOleFileIO._load_direntrycCs|jjdS)z5 Dump directory (for debugging only) N)r!r)rr r r dumpdirectoryszOleFileIO.dumpdirectoryicCstd||t|f||jkr| r|js|j|jj}td|jj|f|j|jj|dd|_nt d|jd|d|dd d |j d |j d |jjSt d|j d|d|d|j d |j d |jd |jSd S)a| Open a stream, either in FAT or MiniFAT according to its size. (openstream helper) :param start: index of first sector :param size: size of stream (or nothing if size is unknown) :param force_FAT: if False (default), stream will be opened in FAT or MiniFAT according to size. If True, it will always be opened in FAT. z0OleFileIO.open(): sect=%d, size=%d, force_FAT=%sz$Opening MiniStream: sect=%d, size=%dr TrrrrrrrrN)rstrrrr#r!rrr"rrrrrrr)rstartrr Zsize_ministreamr r r r"s"     zOleFileIO._openTcCs||jg}x|jD]}|jtkru|rY|j|dd|jgn|j|||||q|jtkr|r|j|dd|jgqq|jtdqWdS)a listdir helper :param files: list of files to fill in :param prefix: current location in storage tree (list of names) :param node: current node (_OleDirectoryEntry object) :param streams: bool, include streams if True (True by default) - new in v0.26 :param storages: bool, include storages if True (False by default) - new in v0.26 (note: the root storage is never included) rNzIThe directory tree contains an entry which is not a stream nor a storage.) rrrrr_listrrr)rfilesprefixnodestreamsstoragesrr r r r-s $'zOleFileIO._listcCs&g}|j|g|j|||S)am Return a list of streams and/or storages stored in this file :param streams: bool, include streams if True (True by default) - new in v0.26 :param storages: bool, include storages if True (False by default) - new in v0.26 (note: the root storage is never included) :returns: list of stream and/or storage paths )r-r!)rr1r2r.r r r listdirs zOleFileIO.listdircCst|tr!|jd}n|j}xS|D]K}x<|jD]%}|jj|jkrAPqAqAWtd|}q1W|jS)a* Returns directory entry of given filename. (openstream helper) Note: this method is case-insensitive. :param filename: path of stream in storage tree (except root entry), either: - a string using Unix path syntax, for example: 'storage_1/storage_1.2/stream' - or a list of storage filenames, path to the desired stream/storage. Example: ['storage_1', 'storage_1.2', 'stream'] :returns: sid of requested filename :exception IOError: if file not found /zfile not found) r= basestringsplitr!rrrrr)rrAr0rrr r r _find(s    zOleFileIO._findcCsP|j|}|j|}|jtkr:tdn|j|j|jS)a; Open a stream as a read-only file object (BytesIO). Note: filename is case-insensitive. :param filename: path of stream in storage tree (except root entry), either: - a string using Unix path syntax, for example: 'storage_1/storage_1.2/stream' - or a list of storage filenames, path to the desired stream/storage. Example: ['storage_1', 'storage_1.2', 'stream'] :returns: file object (read-only) :exception IOError: if filename not found, or if this is not a stream. zthis file is not a stream)r7rrrrr"rr)rrArrr r r openstreamGs  zOleFileIO.openstreamc Cst|tstdn|j|}|j|}|jtkrXtdn|j}|t |krt dn||j krt dn|j }||jd|j}td|x t|D]}||dkr2|||j|d|j} t | |jkstng|||jd} td||jt | ||jft | |j||jkst|j|| y|j|}Wqtk rtd YqXqW|tkrtd ndS) aD Write a stream to disk. For now, it is only possible to replace an existing stream by data of the same size. :param stream_name: path of stream in storage tree (except root entry), either: - a string using Unix path syntax, for example: 'storage_1/storage_1.2/stream' - or a list of storage filenames, path to the desired stream/storage. Example: ['storage_1', 'storage_1.2', 'stream'] :param data: bytes, data to be written, must be the same size as the original stream. z)write_stream: data must be a bytes stringzthis is not a streamz?write_stream: data must be the same size as the existing streamz2Writing a stream in MiniFAT is not implemented yetrznb_sectors = %dNzFwrite_stream: size=%d sectorsize=%d data_sector=%d size%%sectorsize=%dz,incorrect OLE FAT, sector index out of rangez)incorrect last sector index in OLE stream)r=r>r$r7rrrrrr:r%rNotImplementedErrorrrrrrOr(rrr) rZ stream_namerrrrrrrZ data_sectorr r r write_stream\s:   "$&  zOleFileIO.write_streamc Cs:y'|j|}|j|}|jSWn dSYnXdS)a Test if given filename exists as a stream or a storage in the OLE container, and return its type. :param filename: path of stream in storage tree. (see openstream for syntax) :returns: False if object does not exist, its entry type (>0) otherwise: - STGTY_STREAM: a stream - STGTY_STORAGE: a storage - STGTY_ROOT: the root entry FN)r7rr)rrArrr r r get_types   zOleFileIO.get_typecCs&|j|}|j|}|jS)a9 Return modification time of a stream/storage. :param filename: path of stream/storage in storage tree. (see openstream for syntax) :returns: None if modification time is null, a python datetime object otherwise (UTC timezone) new in version 0.26 )r7rr)rrArrr r r rs  zOleFileIO.getmtimecCs&|j|}|j|}|jS)a1 Return creation time of a stream/storage. :param filename: path of stream/storage in storage tree. (see openstream for syntax) :returns: None if creation time is null, a python datetime object otherwise (UTC timezone) new in version 0.26 )r7rr)rrArrr r r rs  zOleFileIO.getctimec Cs*y|j|}dSWn dSYnXdS)a Test if given filename exists as a stream or a storage in the OLE container. Note: filename is case-insensitive. :param filename: path of stream in storage tree. (see openstream for syntax) :returns: True if object exist, else False. TFN)r7)rrArr r r rs zOleFileIO.existscCsA|j|}|j|}|jtkr:tdn|jS)a2 Return size of a stream in the OLE container, in bytes. :param filename: path of stream in storage tree (see openstream for syntax) :returns: size in bytes (long integer) :exception IOError: if file not found :exception TypeError: if this is not a stream. zobject is not an OLE stream)r7rrrr$r)rrArrr r r get_sizes  zOleFileIO.get_sizecCs |jjS)zp Return root entry name. Should usually be 'Root Entry' or 'R' in most implementations. )r!r)rr r r get_rootentry_nameszOleFileIO.get_rootentry_namec CsR|dkrg}n|}t|ts<dj|}n|j|}i}y|jd}t|dd}|jd}t|dd} |jt|dd|jt|jd d }t|d } WnXtk rD} z8d t || f} |j t | | | |SWYdd} ~ XnXxt | D]}yd }t|d|d}t|d |d}t||} t d || |f| tkrt||d }|dkr|d}qn| tkrt||d }n| tttfkr=t||d }n| ttfkret||d }n| ttfkrt||d }||d|d|d}|jdd}n&| tkrt||d }||d|d|}n| tkrHt||d }|j||d|d|d}n| tkrtt||d tt||dd>}|r||krt d||t|dftjdddd d d }t d|d!|tj d|d}q|d}n| t!kr8t"||d }n| t#kret||d |d}n| t$krt||d }||d|d|}nB| t%krt&t||d }nd}t d|| f||| [file2 ...] Options: -d : debug mode (displays a lot of debug information, for developers only) -c : check all streams (for debugging purposes) For more information, see http://www.decalage.info/olefile z-dz-c-z : propertiesr2z (binary data)z z Checking streams...r4rrzsize %dzNOT a stream : type=%dz5Modification/Creation times of all directory entries:z- %s: mtime=%s ctime=%szRoot entry name: "%s"Z worddocumentzThis is a Word document.ztype of stream 'WordDocument':zsize :z macros/vbaz%This document may contain VBA macros.z( Non-fatal issues raised during parsing:z- %s: %sNone) __future__r __author____date__ __version__rrrIros.pathrrVr+r>rHrxrangerritemsizerr%r5 NameErrorZKEEP_UNICODE_NAMES version_inforWrr r rrr;Z MAXREGSECTrrrr Z MAXREGSIDrrrrZSTGTY_LOCKBYTESZSTGTY_PROPERTYrZVT_EMPTYZVT_NULLr?rAZVT_R4ZVT_R8ZVT_CYZVT_DATErFZ VT_DISPATCHrCrOZ VT_VARIANTZ VT_UNKNOWNZ VT_DECIMALZVT_I1rLr@rDZVT_I8ZVT_UI8rBrEZVT_VOIDZ VT_HRESULTZVT_PTRZ VT_SAFEARRAYZ VT_CARRAYZVT_USERDEFINEDrGrIrJrHZ VT_STREAMZ VT_STORAGEZVT_STREAMED_OBJECTZVT_STORED_OBJECTZVT_BLOB_OBJECTrNrMZ VT_VECTORZVTlistvarsitemskeywordvarZ WORD_CLSIDrrrrr?rCrFrLrMrTrYobjectrZrrrrrr:argvrexitZ check_streamsrAZoler*r3Z streamnamerrsortedkvr=rErrrr;Zst_typer<r8rrrrrrVmetarr=r!rrexctyper r r r r sn                    " !     r          3+  %     !