Mercurial > vim
view src/dehqx.py @ 9177:ee0564e3257d v7.4.1872
commit https://github.com/vim/vim/commit/c4bc0e6542185b659d2a165b635f9561549071ea
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Jun 2 13:54:49 2016 +0200
patch 7.4.1872
Problem: Still build problem with old version of Perl.
Solution: Also define SvREFCNT_inc_void_NN if needed. (Ken Takata)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 02 Jun 2016 14:00:08 +0200 |
parents | f90bb88c2615 |
children | 54756c29118c |
line wrap: on
line source
# Python script to get both the data and resource fork from a BinHex encoded # file. # Author: MURAOKA Taro <koron.kaoriya@gmail.com> # Last Change: 2012 Jun 29 # # Copyright (C) 2003,12 MURAOKA Taro <koron.kaoriya@gmail.com> # THIS FILE IS DISTRIBUTED UNDER THE VIM LICENSE. import sys import binhex input = sys.argv[1] conv = binhex.HexBin(input) info = conv.FInfo out = conv.FName out_data = out out_rsrc = out + '.rsrcfork' #print 'out_rsrc=' + out_rsrc print 'In file: ' + input outfile = open(out_data, 'wb') print ' Out data fork: ' + out_data while 1: d = conv.read(128000) if not d: break outfile.write(d) outfile.close() conv.close_data() d = conv.read_rsrc(128000) if d: print ' Out rsrc fork: ' + out_rsrc outfile = open(out_rsrc, 'wb') outfile.write(d) while 1: d = conv.read_rsrc(128000) if not d: break outfile.write(d) outfile.close() conv.close() # vim:set ts=8 sts=4 sw=4 et: