can't appear inside
try:
if len(lines) == 1 and \
TARGET in ('html', 'xhtml') and \
re.match('^\s*
.* \s*$', lines[0]):
result = [lines[0]]
except: pass
return result
def verb(self):
"Verbatim lines are not masked, so there's no need to unmask"
result = []
result.append(TAGS['blockVerbOpen'])
for line in self.hold():
if self.prop('mapped') == 'table':
line = MacroMaster().expand(line)
if not rules['verbblocknotescaped']:
line = doEscape(TARGET,line)
if rules['indentverbblock']:
line = ' '+line
if rules['verbblockfinalescape']:
line = doFinalEscape(TARGET, line)
result.append(line)
#TODO maybe use if not TAGS['blockVerbClose']
if TARGET != 'pm6':
result.append(TAGS['blockVerbClose'])
return result
def table(self):
# Rewrite all table cells by the unmasked and escaped data
lines = self._get_escaped_hold()
for i in xrange(len(lines)):
cells = string.split(lines[i], SEPARATOR)
self.tableparser.rows[i]['cells'] = cells
return self.tableparser.dump()
def quote(self):
result = []
myre = regex['quote']
open = TAGS['blockQuoteOpen'] # block based
close = TAGS['blockQuoteClose']
qline = TAGS['blockQuoteLine'] # line based
indent = tagindent = '\t'*self.depth
if rules['tagnotindentable']: tagindent = ''
if not rules['keepquoteindent']: indent = ''
if open: result.append(tagindent+open) # open block
for item in self.hold():
if type(item) == type([]):
result.extend(item) # subquotes
else:
item = myre.sub('', item) # del TABs
if rules['barinsidequote']:
item = get_tagged_bar(item)
item = self._last_escapes(item)
item = qline*self.depth + item
result.append(indent+item) # quote line
if close: result.append(tagindent+close) # close block
return result
def deflist(self): return self.list('deflist')
def numlist(self): return self.list('numlist')
def list(self, name='list'):
result = []
items = self.hold()
indent = self.prop('indent')
tagindent = indent
listopen = TAGS.get(name+'Open')
listclose = TAGS.get(name+'Close')
listline = TAGS.get(name+'ItemLine')
itemcount = 0
if rules['tagnotindentable']: tagindent = ''
if not rules['keeplistindent']: indent = ''
if name == 'deflist':
itemopen = TAGS[name+'Item1Open']
itemclose = TAGS[name+'Item2Close']
itemsep = TAGS[name+'Item1Close']+\
TAGS[name+'Item2Open']
else:
itemopen = TAGS[name+'ItemOpen']
itemclose = TAGS[name+'ItemClose']
itemsep = ''
# ItemLine: number of leading chars identifies list depth
if listline:
itemopen = listline*self.depth
# Dirty fix for mgp
if name == 'numlist': itemopen = itemopen + '\a. '
# Remove two-blanks from list ending mark, to avoid
items[-1] = self._remove_twoblanks(items[-1])
# Open list (not nestable lists are only opened at mother)
if listopen and not \
(rules['listnotnested'] and BLOCK.depth != 1):
result.append(tagindent+listopen)
# Tag each list item (multiline items)
itemopenorig = itemopen
for item in items:
# Add "manual" item count for noautonum targets
itemcount = itemcount + 1
if name == 'numlist' and not rules['autonumberlist']:
n = str(itemcount)
itemopen = regex['x'].sub(n, itemopenorig)
del n
item[0] = self._last_escapes(item[0])
if name == 'deflist':
z,term,rest = string.split(item[0],SEPARATOR,2)
item[0] = rest
if not item[0]: del item[0] # to avoid
result.append(tagindent+itemopen+term+itemsep)
else:
fullitem = tagindent+itemopen
result.append(string.replace(
item[0], SEPARATOR, fullitem))
del item[0]
# Process next lines for this item (if any)
for line in item:
if type(line) == type([]): # sublist inside
result.extend(line)
else:
line = self._last_escapes(line)
# Blank lines turns to
if not line and rules['parainsidelist']:
line = string.rstrip(indent +\
TAGS['paragraphOpen']+\
TAGS['paragraphClose'])
if not rules['keeplistindent']:
line = string.lstrip(line)
result.append(line)
# Close item (if needed)
if itemclose: result.append(tagindent+itemclose)
# Close list (not nestable lists are only closed at mother)
if listclose and not \
(rules['listnotnested'] and BLOCK.depth != 1):
result.append(tagindent+listclose)
if rules['blankendmotherlist'] and BLOCK.depth == 1:
result.append('')
return result
##############################################################################
class MacroMaster:
def __init__(self, config={}):
self.name = ''
self.config = config or CONF
self.infile = self.config['sourcefile']
self.outfile = self.config['outfile']
self.currdate = time.localtime(time.time())
self.rgx = regex.get('macros') or getRegexes()['macros']
self.fileinfo = { 'infile': None, 'outfile': None }
self.dft_fmt = MACROS
def walk_file_format(self, fmt):
"Walks the %%{in/out}file format string, expanding the % flags"
i = 0; ret = '' # counter/hold
while i < len(fmt): # char by char
c = fmt[i]; i = i + 1
if c == '%': # hot char!
if i == len(fmt): # % at the end
ret = ret + c
break
c = fmt[i]; i = i + 1 # read next
ret = ret + self.expand_file_flag(c)
else:
ret = ret +c # common char
return ret
def expand_file_flag(self, flag):
"%f: filename %F: filename (w/o extension)"
"%d: dirname %D: dirname (only parent dir)"
"%p: file path %e: extension"
info = self.fileinfo[self.name] # get dict
if flag == '%': x = '%' # %% -> %
elif flag == 'f': x = info['name']
elif flag == 'F': x = re.sub('\.[^.]*$','',info['name'])
elif flag == 'd': x = info['dir']
elif flag == 'D': x = os.path.split(info['dir'])[-1]
elif flag == 'p': x = info['path']
elif flag == 'e': x = re.search('.(\.([^.]+))?$',info['name']
).group(2) or ''
#TODO simpler way for %e ?
else : x = '%'+flag # false alarm
return x
def set_file_info(self, macroname):
if self.fileinfo.get(macroname): return # already done
file = getattr(self, self.name) # self.infile
if file == STDOUT or file == MODULEOUT:
dir = ''; path = name = file
else:
path = os.path.abspath(file)
dir = os.path.dirname(path)
name = os.path.basename(path)
self.fileinfo[macroname] = {'path':path,'dir':dir,'name':name}
def expand(self, line=''):
"Expand all macros found on the line"
while self.rgx.search(line):
m = self.rgx.search(line)
name = self.name = string.lower(m.group('name'))
fmt = m.group('fmt') or self.dft_fmt.get(name)
if name == 'date':
txt = time.strftime(fmt,self.currdate)
elif name == 'mtime':
if self.infile in (STDIN, MODULEIN):
fdate = self.currdate
else:
mtime = os.path.getmtime(self.infile)
fdate = time.localtime(mtime)
txt = time.strftime(fmt,fdate)
elif name == 'infile' or name == 'outfile':
self.set_file_info(name)
txt = self.walk_file_format(fmt)
else:
Error("Unknown macro name '%s'"%name)
line = self.rgx.sub(txt,line,1)
return line
##############################################################################
def dumpConfig(source_raw, parsed_config):
onoff = {1:_('ON'), 0:_('OFF')}
data = [
(_('RC file') , RC_RAW ),
(_('source document'), source_raw ),
(_('command line') , CMDLINE_RAW)
]
# First show all RAW data found
for label, cfg in data:
print _('RAW config for %s')%label
for target,key,val in cfg:
target = '(%s)'%target
key = dotted_spaces("%-14s"%key)
val = val or _('ON')
print ' %-8s %s: %s'%(target,key,val)
print
# Then the parsed results of all of them
print _('Full PARSED config')
keys = parsed_config.keys() ; keys.sort() # sorted
for key in keys:
val = parsed_config[key]
# Filters are the last
if key == 'preproc' or key == 'postproc':
continue
# Flag beautifier
if key in FLAGS.keys() or key in ACTIONS.keys():
val = onoff.get(val) or val
# List beautifier
if type(val) == type([]):
if key == 'options': sep = ' '
else : sep = ', '
val = string.join(val, sep)
print "%25s: %s"%(dotted_spaces("%-14s"%key),val)
print
print _('Active filters')
for filter in ['preproc','postproc']:
for rule in parsed_config.get(filter) or []:
print "%25s: %s -> %s"%(
dotted_spaces("%-14s"%filter),rule[0],rule[1])
def get_file_body(file):
"Returns all the document BODY lines"
return process_source_file(file, noconf=1)[1][2]
def finish_him(outlist, config):
"Writing output to screen or file"
outfile = config['outfile']
outlist = unmaskEscapeChar(outlist)
outlist = expandLineBreaks(outlist)
# Apply PostProc filters
if config['postproc']:
filters = compile_filters(config['postproc'],
_('Invalid PostProc filter regex'))
postoutlist = []
errmsg = _('Invalid PostProc filter replacement')
for line in outlist:
for rgx,repl in filters:
try: line = rgx.sub(repl, line)
except: Error("%s: '%s'"%(errmsg, repl))
postoutlist.append(line)
outlist = postoutlist[:]
if outfile == MODULEOUT:
return outlist
elif outfile == STDOUT:
if GUI:
return outlist, config
else:
for line in outlist: print line
else:
Savefile(outfile, addLineBreaks(outlist))
if not GUI and not QUIET:
print _('%s wrote %s')%(my_name,outfile)
if config['split']:
if not QUIET: print "--- html..."
sgml2html = 'sgml2html -s %s -l %s %s'%(
config['split'],config['lang'] or lang,outfile)
if not QUIET: print "Running system command:", sgml2html
os.system(sgml2html)
def toc_inside_body(body, toc, config):
ret = []
if AUTOTOC: return body # nothing to expand
toc_mark = MaskMaster().tocmask
# Expand toc mark with TOC contents
for line in body:
if string.count(line, toc_mark): # toc mark found
if config['toc']:
ret.extend(toc) # include if --toc
else:
pass # or remove %%toc line
else:
ret.append(line) # common line
return ret
def toc_tagger(toc, config):
"Convert t2t-marked TOC (it is a list) to target-tagged TOC"
ret = []
# Tag if TOC-only TOC "by hand" (target don't have a TOC tag)
if config['toc-only'] or (config['toc'] and not TAGS['TOC']):
fakeconf = config.copy()
fakeconf['headers'] = 0
fakeconf['toc-only'] = 0
fakeconf['mask-email'] = 0
fakeconf['preproc'] = []
fakeconf['postproc'] = []
fakeconf['css-sugar'] = 0
ret,foo = convert(toc, fakeconf)
set_global_config(config) # restore config
# Target TOC is a tag
elif config['toc'] and TAGS['TOC']:
ret = [TAGS['TOC']]
return ret
def toc_formatter(toc, config):
"Formats TOC for automatic placement between headers and body"
if config['toc-only']: return toc # no formatting needed
if not config['toc'] : return [] # TOC disabled
ret = toc
# TOC open/close tags (if any)
if TAGS['tocOpen' ]: ret.insert(0, TAGS['tocOpen'])
if TAGS['tocClose']: ret.append(TAGS['tocClose'])
# Autotoc specific formatting
if AUTOTOC:
if rules['autotocwithbars']: # TOC between bars
para = TAGS['paragraphOpen']+TAGS['paragraphClose']
bar = regex['x'].sub('-'*72,TAGS['bar1'])
tocbar = [para, bar, para]
ret = tocbar + ret + tocbar
if rules['blankendautotoc']: # blank line after TOC
ret.append('')
if rules['autotocnewpagebefore']: # page break before TOC
ret.insert(0,TAGS['pageBreak'])
if rules['autotocnewpageafter']: # page break after TOC
ret.append(TAGS['pageBreak'])
return ret
def doHeader(headers, config):
if not config['headers']: return []
if not headers: headers = ['','','']
target = config['target']
if not HEADER_TEMPLATE.has_key(target):
Error("doheader: Unknow target '%s'"%target)
if target in ('html','xhtml') and config.get('css-sugar'):
template = string.split(HEADER_TEMPLATE[target+'css'], '\n')
else:
template = string.split(HEADER_TEMPLATE[target], '\n')
head_data = {'STYLE':[], 'ENCODING':''}
for key in head_data.keys():
val = config.get(string.lower(key))
# Remove .sty extension from each style filename (freaking tex)
# XXX Can't handle --style foo.sty,bar.sty
if target == 'tex' and key == 'STYLE':
val = map(lambda x:re.sub('(?i)\.sty$','',x), val)
if key == 'ENCODING':
val = get_encoding_string(val, target)
head_data[key] = val
# Parse header contents
for i in 0,1,2:
# Expand macros
contents = MacroMaster(config=config).expand(headers[i])
# Escapes - on tex, just do it if any \tag{} present
if target != 'tex' or \
(target == 'tex' and re.search(r'\\\w+{', contents)):
contents = doEscape(target, contents)
if target == 'lout':
contents = doFinalEscape(target, contents)
head_data['HEADER%d'%(i+1)] = contents
# css-inside removes STYLE line
#XXX In tex, this also removes the modules call (%!style:amsfonts)
if target in ('html','xhtml') and config.get('css-inside') and \
config.get('style'):
head_data['STYLE'] = []
Debug("Header Data: %s"%head_data, 1)
# Scan for empty dictionary keys
# If found, scan template lines for that key reference
# If found, remove the reference
# If there isn't any other key reference on the same line, remove it
#TODO loop by template line > key
for key in head_data.keys():
if head_data.get(key): continue
for line in template:
if string.count(line, '%%(%s)s'%key):
sline = string.replace(line, '%%(%s)s'%key, '')
if not re.search(r'%\([A-Z0-9]+\)s', sline):
template.remove(line)
# Style is a multiple tag.
# - If none or just one, use default template
# - If two or more, insert extra lines in a loop (and remove original)
styles = head_data['STYLE']
if len(styles) == 1:
head_data['STYLE'] = styles[0]
elif len(styles) > 1:
style_mark = '%(STYLE)s'
for i in xrange(len(template)):
if string.count(template[i], style_mark):
while styles:
template.insert(i+1,
string.replace(
template[i],
style_mark,
styles.pop()))
del template[i]
break
# Populate template with data (dict expansion)
template = string.join(template, '\n') % head_data
# Adding CSS contents into template (for --css-inside)
# This code sux. Dirty++
if target in ('html','xhtml') and config.get('css-inside') and \
config.get('style'):
set_global_config(config) # usually on convert(), needed here
for i in xrange(len(config['style'])):
cssfile = config['style'][i]
if not os.path.isabs(cssfile):
infile = config.get('sourcefile')
cssfile = os.path.join(
os.path.dirname(infile), cssfile)
try:
contents = Readfile(cssfile, 1)
css = "\n%s\n%s\n%s\n%s\n" % (
doCommentLine("Included %s" % cssfile),
TAGS['cssOpen'],
string.join(contents, '\n'),
TAGS['cssClose'])
# Style now is content, needs escaping (tex)
#css = maskEscapeChar(css)
except:
errmsg = "CSS include failed for %s" % cssfile
css = "\n%s\n" % (doCommentLine(errmsg))
# Insert this CSS file contents on the template
template = re.sub('(?i)()', css+r'\1', template)
# template = re.sub(r'(?i)(\\begin{document})',
# css+'\n'+r'\1', template) # tex
# The last blank line to keep everything separated
template = re.sub('(?i)()', '\n'+r'\1', template)
return string.split(template, '\n')
def doCommentLine(txt):
# The -- string ends a (h|sg|xht)ml comment :(
txt = maskEscapeChar(txt)
if string.count(TAGS['comment'], '--') and \
string.count(txt, '--'):
txt = re.sub('-(?=-)', r'-\\', txt)
if TAGS['comment']:
return regex['x'].sub(txt, TAGS['comment'])
return ''
def doFooter(config):
if not config['headers']: return []
ret = []
target = config['target']
cmdline = config['realcmdline']
typename = target
if target == 'tex': typename = 'LaTeX2e'
ppgd = '%s code generated by %s %s (%s)'%(
typename,my_name,my_version,my_url)
cmdline = 'cmdline: %s %s'%(my_name, string.join(cmdline, ' '))
ret.append('')
ret.append(doCommentLine(ppgd))
ret.append(doCommentLine(cmdline))
ret.append(TAGS['EOD'])
return ret
def doEscape(target,txt):
"Target-specific special escapes. Apply *before* insert any tag."
tmpmask = 'vvvvThisEscapingSuxvvvv'
if target in ('html','sgml','xhtml'):
txt = re.sub('&','&',txt)
txt = re.sub('<','<',txt)
txt = re.sub('>','>',txt)
if target == 'sgml':
txt = re.sub('\xff','ÿ',txt) # "+y
elif target == 'pm6':
txt = re.sub('<','<\#60>',txt)
elif target == 'mgp':
txt = re.sub('^%',' %',txt) # add leading blank to avoid parse
elif target == 'man':
txt = re.sub("^([.'])", '\\&\\1',txt) # command ID
txt = string.replace(txt,ESCCHAR, ESCCHAR+'e') # \e
elif target == 'lout':
# TIP: / moved to FinalEscape to avoid //italic//
# TIP: these are also converted by lout: ... --- --
txt = string.replace(txt, ESCCHAR, tmpmask) # \
txt = string.replace(txt, '"', '"%s""'%ESCCHAR) # "\""
txt = re.sub('([|&{}@#^~])', '"\\1"',txt) # "@"
txt = string.replace(txt, tmpmask, '"%s"'%(ESCCHAR*2)) # "\\"
elif target == 'tex':
# Mark literal \ to be changed to $\backslash$ later
txt = string.replace( txt, ESCCHAR, tmpmask)
txt = re.sub('([#$&%{}])', ESCCHAR+r'\1' , txt) # \%
txt = re.sub('([~^])' , ESCCHAR+r'\1{}', txt) # \~{}
txt = re.sub('([<|>])' , r'$\1$', txt) # $>$
txt = string.replace(txt, tmpmask,
maskEscapeChar(r'$\backslash$'))
# TIP the _ is escaped at the end
return txt
# TODO man: where - really needs to be escaped?
def doFinalEscape(target, txt):
"Last escapes of each line"
if target == 'pm6' : txt = string.replace(txt,ESCCHAR+'<',r'<\#92><')
elif target == 'man' : txt = string.replace(txt, '-', r'\-')
elif target == 'sgml': txt = string.replace(txt, '[', '[')
elif target == 'lout': txt = string.replace(txt, '/', '"/"')
elif target == 'tex' :
txt = string.replace(txt, '_', r'\_')
txt = string.replace(txt, 'vvvvTexUndervvvv', '_') # shame!
return txt
def EscapeCharHandler(action, data):
"Mask/Unmask the Escape Char on the given string"
if not string.strip(data): return data
if action not in ('mask','unmask'):
Error("EscapeCharHandler: Invalid action '%s'"%action)
if action == 'mask': return string.replace(data,'\\',ESCCHAR)
else: return string.replace(data,ESCCHAR,'\\')
def maskEscapeChar(data):
"Replace any Escape Char \ with a text mask (Input: str or list)"
if type(data) == type([]):
return map(lambda x: EscapeCharHandler('mask', x), data)
return EscapeCharHandler('mask',data)
def unmaskEscapeChar(data):
"Undo the Escape char \ masking (Input: str or list)"
if type(data) == type([]):
return map(lambda x: EscapeCharHandler('unmask', x), data)
return EscapeCharHandler('unmask',data)
def addLineBreaks(mylist):
"use LB to respect sys.platform"
ret = []
for line in mylist:
line = string.replace(line,'\n',LB) # embedded \n's
ret.append(line+LB) # add final line break
return ret
# Convert ['foo\nbar'] to ['foo', 'bar']
def expandLineBreaks(mylist):
ret = []
for line in mylist:
ret.extend(string.split(line, '\n'))
return ret
def compile_filters(filters, errmsg='Filter'):
if filters:
for i in xrange(len(filters)):
patt,repl = filters[i]
try: rgx = re.compile(patt)
except: Error("%s: '%s'"%(errmsg, patt))
filters[i] = (rgx,repl)
return filters
def enclose_me(tagname, txt):
return TAGS.get(tagname+'Open') + txt + TAGS.get(tagname+'Close')
def beautify_me(name, line):
"where name is: bold, italic or underline"
name = 'font%s' % string.capitalize(name)
open = TAGS['%sOpen'%name]
close = TAGS['%sClose'%name]
txt = r'%s\1%s'%(open, close)
line = regex[name].sub(txt,line)
return line
def get_tagged_link(label, url):
ret = ''
target = CONF['target']
image_re = regex['img']
# Set link type
if regex['email'].match(url):
linktype = 'email'
else:
linktype = 'url';
# Escape specials from TEXT parts
label = doEscape(target,label)
# Escape specials from link URL
if not rules['linkable'] or rules['escapeurl']:
url = doEscape(target, url)
# Adding protocol to guessed link
guessurl = ''
if linktype == 'url' and \
re.match('(?i)'+regex['_urlskel']['guess'], url):
if url[0] in 'Ww': guessurl = 'http://' +url
else : guessurl = 'ftp://' +url
# Not link aware targets -> protocol is useless
if not rules['linkable']: guessurl = ''
# Simple link (not guessed)
if not label and not guessurl:
if CONF['mask-email'] and linktype == 'email':
# Do the email mask feature (no TAGs, just text)
url = string.replace(url,'@',' (a) ')
url = string.replace(url,'.',' ')
url = "<%s>" % url
if rules['linkable']: url = doEscape(target, url)
ret = url
else:
# Just add link data to tag
tag = TAGS[linktype]
ret = regex['x'].sub(url,tag)
# Named link or guessed simple link
else:
# Adjusts for guessed link
if not label: label = url # no protocol
if guessurl : url = guessurl # with protocol
# Image inside link!
if image_re.match(label):
if rules['imglinkable']: # get image tag
label = parse_images(label)
else: # img@link !supported
label = "(%s)"%image_re.match(label).group(1)
# Putting data on the right appearance order
if rules['linkable']:
urlorder = [url, label] # link before label
else:
urlorder = [label, url] # label before link
# Add link data to tag (replace \a's)
ret = TAGS["%sMark"%linktype]
for data in urlorder:
ret = regex['x'].sub(data,ret,1)
return ret
def parse_deflist_term(line):
"Extract and parse definition list term contents"
img_re = regex['img']
term = regex['deflist'].search(line).group(3)
# Mask image inside term as (image.jpg), where not supported
if not rules['imgasdefterm'] and img_re.search(term):
while img_re.search(term):
imgfile = img_re.search(term).group(1)
term = img_re.sub('(%s)'%imgfile, term, 1)
#TODO tex: escape ] on term. \], \rbrack{} and \verb!]! don't work :(
return term
def get_tagged_bar(line):
m = regex['bar'].search(line)
if not m: return line
txt = m.group(2)
# Map strong bar to pagebreak
if rules['mapbar2pagebreak'] and TAGS['pageBreak']:
TAGS['bar2'] = TAGS['pageBreak']
# Set bar type
if txt[0] == '=': bar = TAGS['bar2']
else : bar = TAGS['bar1']
# To avoid comment tag confusion like
if string.count(TAGS['comment'], '--'):
txt = string.replace(txt,'--','__')
# Tag line
return regex['x'].sub(txt, bar)
def get_image_align(line):
"Return the image (first found) align for the given line"
# First clear marks that can mess align detection
line = re.sub(SEPARATOR+'$', '', line) # remove deflist sep
line = re.sub('^'+SEPARATOR, '', line) # remove list sep
line = re.sub('^[\t]+' , '', line) # remove quote mark
# Get image position on the line
m = regex['img'].search(line)
ini = m.start() ; head = 0
end = m.end() ; tail = len(line)
# The align detection algorithm
if ini == head and end != tail: align = 'left' # ^img + text$
elif ini != head and end == tail: align = 'right' # ^text + img$
else : align = 'center' # default align
# Some special cases
if BLOCK.isblock('table'): align = 'center' # ignore when table
# if TARGET == 'mgp' and align == 'center': align = 'center'
return align
# Reference: http://www.iana.org/assignments/character-sets
# http://www.drclue.net/F1.cgi/HTML/META/META.html
def get_encoding_string(enc, target):
if not enc: return ''
# Target specific translation table
translate = {
'tex': {
# missing: ansinew , applemac , cp437 , cp437de , cp865
'us-ascii' : 'ascii',
'windows-1250': 'cp1250',
'windows-1252': 'cp1252',
'ibm850' : 'cp850',
'ibm852' : 'cp852',
'iso-8859-1' : 'latin1',
'iso-8859-2' : 'latin2',
'iso-8859-3' : 'latin3',
'iso-8859-4' : 'latin4',
'iso-8859-5' : 'latin5',
'iso-8859-9' : 'latin9',
'koi8-r' : 'koi8-r'
}
}
# Normalization
enc = re.sub('(?i)(us[-_]?)?ascii|us|ibm367','us-ascii' , enc)
enc = re.sub('(?i)(ibm|cp)?85([02])' ,'ibm85\\2' , enc)
enc = re.sub('(?i)(iso[_-]?)?8859[_-]?' ,'iso-8859-' , enc)
enc = re.sub('iso-8859-($|[^1-9]).*' ,'iso-8859-1', enc)
# Apply translation table
try: enc = translate[target][string.lower(enc)]
except: pass
return enc
##############################################################################
##MerryChristmas,IdontwanttofighttonightwithyouImissyourbodyandIneedyourlove##
##############################################################################
def process_source_file(file='', noconf=0, contents=[]):
"""
Find and Join all the configuration available for a source file.
No sanity checking is done on this step.
It also extracts the source document parts into separate holders.
The config scan order is:
1. The user configuration file (i.e. $HOME/.txt2tagsrc)
2. The source document's CONF area
3. The command line options
The return data is a tuple of two items:
1. The parsed config dictionary
2. The document's parts, as a (head, conf, body) tuple
All the conversion process will be based on the data and
configuration returned by this function.
The source files is read on this step only.
"""
if contents:
source = SourceDocument(contents=contents)
else:
source = SourceDocument(file)
head, conf, body = source.split()
Message(_("Source document contents stored"),2)
if not noconf:
# Read document config
source_raw = source.get_raw_config()
# Join all the config directives found, then parse it
full_raw = RC_RAW + source_raw + CMDLINE_RAW
Message(_("Parsing and saving all config found (%03d items)")%(
len(full_raw)),1)
full_parsed = ConfigMaster(full_raw).parse()
# Add manually the filename to the conf dic
if contents:
full_parsed['sourcefile'] = MODULEIN
full_parsed['infile'] = MODULEIN
full_parsed['outfile'] = MODULEOUT
else:
full_parsed['sourcefile'] = file
# Maybe should we dump the config found?
if full_parsed.get('dump-config'):
dumpConfig(source_raw, full_parsed)
Quit()
# Okay, all done
Debug("FULL config for this file: %s"%full_parsed, 1)
else:
full_parsed = {}
return full_parsed, (head,conf,body)
def get_infiles_config(infiles):
"""
Find and Join into a single list, all configuration available
for each input file. This function is supposed to be the very
first one to be called, before any processing.
"""
return map(process_source_file, infiles)
def convert_this_files(configs):
global CONF
for myconf,doc in configs: # multifile support
target_head = []
target_toc = []
target_body = []
target_foot = []
source_head, source_conf, source_body = doc
myconf = ConfigMaster().sanity(myconf)
# Compose the target file Headers
#TODO escape line before?
#TODO see exceptions by tex and mgp
Message(_("Composing target Headers"),1)
target_head = doHeader(source_head, myconf)
# Parse the full marked body into tagged target
first_body_line = (len(source_head) or 1)+ len(source_conf) + 1
Message(_("Composing target Body"),1)
target_body, marked_toc = convert(source_body, myconf,
firstlinenr=first_body_line)
# If dump-source, we're done
if myconf['dump-source']:
for line in source_head+source_conf+target_body:
print line
return
# Make TOC (if needed)
Message(_("Composing target TOC"),1)
tagged_toc = toc_tagger(marked_toc, myconf)
target_toc = toc_formatter(tagged_toc, myconf)
target_body = toc_inside_body(target_body, target_toc, myconf)
if not AUTOTOC and not myconf['toc-only']: target_toc = []
# Compose the target file Footer
Message(_("Composing target Footer"),1)
target_foot = doFooter(myconf)
# Finally, we have our document
outlist = target_head + target_toc + target_body + target_foot
# If on GUI, abort before finish_him
# If module, return finish_him as list
# Else, write results to file or STDOUT
if GUI:
return outlist, myconf
elif myconf.get('outfile') == MODULEOUT:
return finish_him(outlist, myconf), myconf
else:
Message(_("Saving results to the output file"),1)
finish_him(outlist, myconf)
def parse_images(line):
"Tag all images found"
while regex['img'].search(line) and TAGS['img'] != '[\a]':
txt = regex['img'].search(line).group(1)
tag = TAGS['img']
# HTML, XHTML and mgp!
if rules['imgalignable']:
align = get_image_align(line)
# Add align on tag
align_name = string.capitalize(align)
align_tag = TAGS['imgAlign'+align_name]
tag = regex['_imgAlign'].sub(align_tag, tag, 1)
# Dirty fix to allow centered solo images
if align == 'center' and TARGET in ('html','xhtml'):
rest = regex['img'].sub('',line,1)
if re.match('^\s+$', rest):
tag = "
%s " %tag
if TARGET == 'tex':
tag = re.sub(r'\\b',r'\\\\b',tag)
txt = string.replace(txt, '_', 'vvvvTexUndervvvv')
line = regex['img'].sub(tag,line,1)
line = regex['x'].sub(txt,line,1)
return line
def add_inline_tags(line):
# Beautifiers
for beauti in ('Bold', 'Italic', 'Underline'):
if regex['font%s'%beauti].search(line):
line = beautify_me(beauti, line)
line = parse_images(line)
return line
def get_include_contents(file, path=''):
"Parses %!include: value and extract file contents"
ids = {'`':'verb', '"':'raw', "'":'tagged' }
id = 't2t'
# Set include type and remove identifier marks
mark = file[0]
if mark in ids.keys():
if file[:2] == file[-2:] == mark*2:
id = ids[mark] # set type
file = file[2:-2] # remove marks
# Handle remote dir execution
filepath = os.path.join(path, file)
# Read included file contents
lines = Readfile(filepath, remove_linebreaks=1)
# Default txt2tags marked text, just BODY matters
if id == 't2t':
lines = get_file_body(filepath)
lines.insert(0, '%%INCLUDED(%s) starts here: %s'%(id,file))
# This appears when included hit EOF with verbatim area open
#lines.append('%%INCLUDED(%s) ends here: %s'%(id,file))
return id, lines
def set_global_config(config):
global CONF, TAGS, regex, rules, TARGET
CONF = config
TAGS = getTags(CONF)
rules = getRules(CONF)
regex = getRegexes()
TARGET = config['target'] # save for buggy functions that need global
def convert(bodylines, config, firstlinenr=1):
global BLOCK
set_global_config(config)
target = config['target']
BLOCK = BlockMaster()
MASK = MaskMaster()
TITLE = TitleMaster()
ret = []
dump_source = []
f_lastwasblank = 0
# Compiling all PreProc regexes
pre_filter = compile_filters(
CONF['preproc'], _('Invalid PreProc filter regex'))
# Let's mark it up!
linenr = firstlinenr-1
lineref = 0
while lineref < len(bodylines):
# Defaults
MASK.reset()
results_box = ''
untouchedline = bodylines[lineref]
dump_source.append(untouchedline)
line = re.sub('[\n\r]+$','',untouchedline) # del line break
# Apply PreProc filters
if pre_filter:
errmsg = _('Invalid PreProc filter replacement')
for rgx,repl in pre_filter:
try: line = rgx.sub(repl, line)
except: Error("%s: '%s'"%(errmsg, repl))
line = maskEscapeChar(line) # protect \ char
linenr = linenr +1
lineref = lineref +1
Debug(repr(line), 2, linenr) # heavy debug: show each line
#------------------[ Comment Block ]------------------------
# We're already on a comment block
if BLOCK.block() == 'comment':
# Closing comment
if regex['blockCommentClose'].search(line):
ret.extend(BLOCK.blockout() or [])
continue
# Normal comment-inside line. Ignore it.
continue
# Detecting comment block init
if regex['blockCommentOpen'].search(line) \
and BLOCK.block() not in BLOCK.exclusive:
ret.extend(BLOCK.blockin('comment'))
continue
#-------------------------[ Raw Text ]----------------------
# We're already on a raw block
if BLOCK.block() == 'raw':
# Closing raw
if regex['blockRawClose'].search(line):
ret.extend(BLOCK.blockout())
continue
# Normal raw-inside line
BLOCK.holdadd(line)
continue
# Detecting raw block init
if regex['blockRawOpen'].search(line) \
and BLOCK.block() not in BLOCK.exclusive:
ret.extend(BLOCK.blockin('raw'))
continue
# One line raw text
if regex['1lineRaw'].search(line) \
and BLOCK.block() not in BLOCK.exclusive:
ret.extend(BLOCK.blockin('raw'))
line = regex['1lineRaw'].sub('',line)
BLOCK.holdadd(line)
ret.extend(BLOCK.blockout())
continue
#------------------------[ Verbatim ]----------------------
#TIP We'll never support beautifiers inside verbatim
# Closing table mapped to verb
if BLOCK.block() == 'verb' \
and BLOCK.prop('mapped') == 'table' \
and not regex['table'].search(line):
ret.extend(BLOCK.blockout())
# We're already on a verb block
if BLOCK.block() == 'verb':
# Closing verb
if regex['blockVerbClose'].search(line):
ret.extend(BLOCK.blockout())
continue
# Normal verb-inside line
BLOCK.holdadd(line)
continue
# Detecting verb block init
if regex['blockVerbOpen'].search(line) \
and BLOCK.block() not in BLOCK.exclusive:
ret.extend(BLOCK.blockin('verb'))
f_lastwasblank = 0
continue
# One line verb-formatted text
if regex['1lineVerb'].search(line) \
and BLOCK.block() not in BLOCK.exclusive:
ret.extend(BLOCK.blockin('verb'))
line = regex['1lineVerb'].sub('',line)
BLOCK.holdadd(line)
ret.extend(BLOCK.blockout())
f_lastwasblank = 0
continue
# Tables are mapped to verb when target is not table-aware
if not rules['tableable'] and regex['table'].search(line):
if not BLOCK.isblock('verb'):
ret.extend(BLOCK.blockin('verb'))
BLOCK.propset('mapped', 'table')
BLOCK.holdadd(line)
continue
#---------------------[ blank lines ]-----------------------
if regex['blankline'].search(line):
# Close open paragraph
if BLOCK.isblock('para'):
ret.extend(BLOCK.blockout())
f_lastwasblank = 1
continue
# Close all open tables
if BLOCK.isblock('table'):
ret.extend(BLOCK.blockout())
f_lastwasblank = 1
continue
# Close all open quotes
while BLOCK.isblock('quote'):
ret.extend(BLOCK.blockout())
# Closing all open lists
if f_lastwasblank: # 2nd consecutive blank
if BLOCK.block()[-4:] == 'list':
BLOCK.holdaddsub('') # helps parser
while BLOCK.depth: # closes list (if any)
ret.extend(BLOCK.blockout())
continue # ignore consecutive blanks
# Paragraph (if any) is wanted inside lists also
if BLOCK.block()[-4:] == 'list':
BLOCK.holdaddsub('')
else:
# html: show blank line (needs tag)
if target in ('html','xhtml'):
ret.append(TAGS['paragraphOpen']+\
TAGS['paragraphClose'])
# Otherwise we just show a blank line
else:
ret.append('')
f_lastwasblank = 1
continue
#---------------------[ special ]---------------------------
if regex['special'].search(line):
# Include command
targ, key, val = ConfigLines().parse_line(
line, 'include', target)
if key:
Debug("Found config '%s', value '%s'"%(
key,val),1,linenr)
incpath = os.path.dirname(CONF['sourcefile'])
incfile = val
err = _('A file cannot include itself (loop!)')
if CONF['sourcefile'] == incfile:
Error("%s: %s"%(err,incfile))
inctype, inclines = get_include_contents(
incfile, incpath)
# Verb, raw and tagged are easy
if inctype != 't2t':
ret.extend(BLOCK.blockin(inctype))
BLOCK.holdextend(inclines)
ret.extend(BLOCK.blockout())
else:
# Insert include lines into body
#TODO include maxdepth limit
bodylines = bodylines[:lineref] \
+inclines \
+bodylines[lineref:]
#TODO fix path if include@include
# Remove %!include call
if CONF['dump-source']:
dump_source.pop()
continue
else:
Debug('Bogus Special Line',1,linenr)
#---------------------[ dump-source ]-----------------------
# We don't need to go any further
if CONF['dump-source']:
continue
#---------------------[ Comments ]--------------------------
# Just skip them (if not macro)
if regex['comment'].search(line) and not \
regex['macros'].match(line) and not \
regex['toc'].match(line):
continue
#---------------------[ Triggers ]--------------------------
# Valid line, reset blank status
f_lastwasblank = 0
# Any NOT quote line closes all open quotes
if BLOCK.isblock('quote') and not regex['quote'].search(line):
while BLOCK.isblock('quote'):
ret.extend(BLOCK.blockout())
# Any NOT table line closes an open table
if BLOCK.isblock('table') and not regex['table'].search(line):
ret.extend(BLOCK.blockout())
#---------------------[ Horizontal Bar ]--------------------
if regex['bar'].search(line):
# A bar closes a paragraph
if BLOCK.isblock('para'):
ret.extend(BLOCK.blockout())
# We need to close all opened quote blocks
# if bar isn't allowed inside or if not a quote line
if BLOCK.isblock('quote'):
if not rules['barinsidequote'] or \
not regex['quote'].search(line):
while BLOCK.isblock('quote'):
ret.extend(BLOCK.blockout())
# Quote + bar: continue processing for quoting
if rules['barinsidequote'] and \
regex['quote'].search(line):
pass
# Just bar: save tagged line and we're done
else:
line = get_tagged_bar(line)
if BLOCK.block()[-4:] == 'list':
BLOCK.holdaddsub(line)
elif BLOCK.block():
BLOCK.holdadd(line)
else:
ret.append(line)
Debug("BAR: %s"%line, 6)
continue
#---------------------[ Title ]-----------------------------
#TODO set next blank and set f_lastwasblank or f_lasttitle
if (regex['title'].search(line) or
regex['numtitle'].search(line)) and \
BLOCK.block()[-4:] != 'list':
# A title closes a paragraph
if BLOCK.isblock('para'):
ret.extend(BLOCK.blockout())
TITLE.add(line)
tagged_title = TITLE.get()
ret.extend(tagged_title)
Debug("TITLE: %s"%tagged_title, 6)
f_lastwasblank = 1
continue
#---------------------[ %%toc ]-----------------------
# %%toc line closes paragraph
if BLOCK.block() == 'para' and regex['toc'].search(line):
ret.extend(BLOCK.blockout())
#---------------------[ apply masks ]-----------------------
line = MASK.mask(line)
#XXX from here, only block-inside lines will pass
#---------------------[ Quote ]-----------------------------
if regex['quote'].search(line):
# Store number of leading TABS
quotedepth = len(regex['quote'].search(line).group(0))
# SGML doesn't support nested quotes
if rules['quotenotnested']: quotedepth = 1
# Don't cross depth limit
maxdepth = rules['quotemaxdepth']
if maxdepth and quotedepth > maxdepth:
quotedepth = maxdepth
# New quote
if not BLOCK.isblock('quote'):
ret.extend(BLOCK.blockin('quote'))
# New subquotes
while BLOCK.depth < quotedepth:
BLOCK.blockin('quote')
# Closing quotes
while quotedepth < BLOCK.depth:
ret.extend(BLOCK.blockout())
#---------------------[ Lists ]-----------------------------
# An empty item also closes the current list
if BLOCK.block()[-4:] == 'list':
m = regex['listclose'].match(line)
if m:
listindent = m.group(1)
listtype = m.group(2)
currlisttype = BLOCK.prop('type')
currlistindent = BLOCK.prop('indent')
if listindent == currlistindent and \
listtype == currlisttype:
ret.extend(BLOCK.blockout())
continue
if regex['list'].search(line) or \
regex['numlist'].search(line) or \
regex['deflist'].search(line):
listindent = BLOCK.prop('indent')
listids = string.join(LISTNAMES.keys(), '')
m = re.match('^( *)([%s]) '%listids, line)
listitemindent = m.group(1)
listtype = m.group(2)
listname = LISTNAMES[listtype]
results_box = BLOCK.holdadd
# Del list ID (and separate term from definition)
if listname == 'deflist':
term = parse_deflist_term(line)
line = regex['deflist'].sub(
SEPARATOR+term+SEPARATOR,line)
else:
line = regex[listname].sub(SEPARATOR,line)
# Don't cross depth limit
maxdepth = rules['listmaxdepth']
if maxdepth and BLOCK.depth == maxdepth:
if len(listitemindent) > len(listindent):
listitemindent = listindent
# List bumping (same indent, diff mark)
# Close the currently open list to clear the mess
if BLOCK.block()[-4:] == 'list' \
and listname != BLOCK.block() \
and len(listitemindent) == len(listindent):
ret.extend(BLOCK.blockout())
listindent = BLOCK.prop('indent')
# Open mother list or sublist
if BLOCK.block()[-4:] != 'list' or \
len(listitemindent) > len(listindent):
ret.extend(BLOCK.blockin(listname))
BLOCK.propset('indent',listitemindent)
BLOCK.propset('type',listtype)
# Closing sublists
while len(listitemindent) < len(BLOCK.prop('indent')):
ret.extend(BLOCK.blockout())
# O-oh, sublist before list ("\n\n - foo\n- foo")
# Fix: close sublist (as mother), open another list
if BLOCK.block()[-4:] != 'list':
ret.extend(BLOCK.blockin(listname))
BLOCK.propset('indent',listitemindent)
BLOCK.propset('type',listtype)
#---------------------[ Table ]-----------------------------
#TODO escape undesired format inside table
#TODO add pm6 target
if regex['table'].search(line):
if not BLOCK.isblock('table'): # first table line!
ret.extend(BLOCK.blockin('table'))
BLOCK.tableparser.__init__(line)
tablerow = TableMaster().parse_row(line)
BLOCK.tableparser.add_row(tablerow) # save config
# Maintain line to unmask and inlines
line = string.join(tablerow['cells'], SEPARATOR)
#---------------------[ Paragraph ]-------------------------
if not BLOCK.block() and \
not string.count(line, MASK.tocmask): # new para!
ret.extend(BLOCK.blockin('para'))
############################################################
############################################################
############################################################
#---------------------[ Final Parses ]----------------------
# The target-specific special char escapes for body lines
line = doEscape(target,line)
line = add_inline_tags(line)
line = MASK.undo(line)
#---------------------[ Hold or Return? ]-------------------
### Now we must choose where to put the parsed line
#
if not results_box:
# List item extra lines
if BLOCK.block()[-4:] == 'list':
results_box = BLOCK.holdaddsub
# Other blocks
elif BLOCK.block():
results_box = BLOCK.holdadd
# No blocks
else:
line = doFinalEscape(target, line)
results_box = ret.append
results_box(line)
# EOF: close any open para/verb/lists/table/quotes
Debug('EOF',7)
while BLOCK.block():
ret.extend(BLOCK.blockout())
# Maybe close some opened title area?
if rules['titleblocks']:
ret.extend(TITLE.close_all())
# Maybe a major tag to enclose body? (like DIV for CSS)
if TAGS['bodyOpen' ]: ret.insert(0, TAGS['bodyOpen'])
if TAGS['bodyClose']: ret.append(TAGS['bodyClose'])
if CONF['toc-only']: ret = []
marked_toc = TITLE.dump_marked_toc(CONF['toc-level'])
# If dump-source, all parsing is ignored
if CONF['dump-source']: ret = dump_source[:]
return ret, marked_toc
##############################################################################
################################### GUI ######################################
##############################################################################
#
# Tk help: http://python.org/topics/tkinter/
# Tuto: http://ibiblio.org/obp/py4fun/gui/tkPhone.html
# /usr/lib/python*/lib-tk/Tkinter.py
#
# grid table : row=0, column=0, columnspan=2, rowspan=2
# grid align : sticky='n,s,e,w' (North, South, East, West)
# pack place : side='top,bottom,right,left'
# pack fill : fill='x,y,both,none', expand=1
# pack align : anchor='n,s,e,w' (North, South, East, West)
# padding : padx=10, pady=10, ipadx=10, ipady=10 (internal)
# checkbox : offvalue is return if the _user_ deselected the box
# label align: justify=left,right,center
def load_GUI_resources():
"Load all extra modules and methods used by GUI"
global askopenfilename, showinfo, showwarning, showerror, Tkinter
from tkFileDialog import askopenfilename
from tkMessageBox import showinfo,showwarning,showerror
import Tkinter
class Gui:
"Graphical Tk Interface"
def __init__(self, conf={}):
self.root = Tkinter.Tk() # mother window, come to butthead
self.root.title(my_name) # window title bar text
self.window = self.root # variable "focus" for inclusion
self.row = 0 # row count for grid()
self.action_length = 150 # left column length (pixel)
self.frame_margin = 10 # frame margin size (pixel)
self.frame_border = 6 # frame border size (pixel)
# The default Gui colors, can be changed by %!guicolors
self.dft_gui_colors = ['#6c6','white','#cf9','#030']
self.gui_colors = []
self.bg1 = self.fg1 = self.bg2 = self.fg2 = ''
# On Tk, vars need to be set/get using setvar()/get()
self.infile = self.setvar('')
self.target = self.setvar('')
self.target_name = self.setvar('')
# The checks appearance order
self.checks = [
'headers','enum-title','toc','mask-email',
'toc-only','stdout']
# Creating variables for all checks
for check in self.checks:
setattr(self, 'f_'+check, self.setvar(''))
# Load RC config
self.conf = {}
if conf: self.load_config(conf)
def load_config(self, conf):
self.conf = conf
self.gui_colors = conf.get('guicolors') or self.dft_gui_colors
self.bg1, self.fg1, self.bg2, self.fg2 = self.gui_colors
self.root.config(bd=15,bg=self.bg1)
### Config as dic for python 1.5 compat (**opts don't work :( )
def entry(self, **opts): return Tkinter.Entry(self.window, opts)
def label(self, txt='', bg=None, **opts):
opts.update({'text':txt,'bg':bg or self.bg1})
return Tkinter.Label(self.window, opts)
def button(self,name,cmd,**opts):
opts.update({'text':name,'command':cmd})
return Tkinter.Button(self.window, opts)
def check(self,name,checked=0,**opts):
bg, fg = self.bg2, self.fg2
opts.update({
'text':name, 'onvalue':1, 'offvalue':0,
'activeforeground':fg, 'fg':fg,
'activebackground':bg, 'bg':bg,
'highlightbackground':bg, 'anchor':'w'
})
chk = Tkinter.Checkbutton(self.window, opts)
if checked: chk.select()
chk.grid(columnspan=2, sticky='w', padx=0)
def menu(self,sel,items):
return apply(Tkinter.OptionMenu,(self.window,sel)+tuple(items))
# Handy auxiliary functions
def action(self, txt):
self.label(txt, fg=self.fg1, bg=self.bg1,
wraplength=self.action_length).grid(column=0,row=self.row)
def frame_open(self):
self.window = Tkinter.Frame(self.root,bg=self.bg2,
borderwidth=self.frame_border)
def frame_close(self):
self.window.grid(column=1, row=self.row, sticky='w',
padx=self.frame_margin)
self.window = self.root
self.label('').grid()
self.row = self.row + 2 # update row count
def target_name2key(self):
name = self.target_name.get()
target = filter(lambda x: TARGET_NAMES[x] == name, TARGETS)
try : key = target[0]
except: key = ''
self.target = self.setvar(key)
def target_key2name(self):
key = self.target.get()
name = TARGET_NAMES.get(key) or key
self.target_name = self.setvar(name)
def exit(self): self.root.destroy()
def setvar(self, val): z = Tkinter.StringVar() ; z.set(val) ; return z
def askfile(self):
ftypes= [(_('txt2tags files'),('*.t2t','*.txt')),
(_('All files'),'*')]
newfile = askopenfilename(filetypes=ftypes)
if newfile:
self.infile.set(newfile)
newconf = process_source_file(newfile)[0]
newconf = ConfigMaster().sanity(newconf, gui=1)
# Restate all checkboxes after file selection
#TODO how to make a refresh without killing it?
self.root.destroy()
self.__init__(newconf)
self.mainwindow()
def scrollwindow(self, txt='no text!', title=''):
# Create components
win = Tkinter.Toplevel() ; win.title(title)
frame = Tkinter.Frame(win)
scroll = Tkinter.Scrollbar(frame)
text = Tkinter.Text(frame,yscrollcommand=scroll.set)
button = Tkinter.Button(win)
# Config
text.insert(Tkinter.END, string.join(txt,'\n'))
scroll.config(command=text.yview)
button.config(text=_('Close'), command=win.destroy)
button.focus_set()
# Packing
text.pack(side='left', fill='both', expand=1)
scroll.pack(side='right', fill='y')
frame.pack(fill='both', expand=1)
button.pack(ipadx=30)
def runprogram(self):
global CMDLINE_RAW
# Prepare
self.target_name2key()
infile, target = self.infile.get(), self.target.get()
# Sanity
if not target:
showwarning(my_name,_("You must select a target type!"))
return
if not infile:
showwarning(my_name,
_("You must provide the source file location!"))
return
# Compose cmdline
guiflags = []
real_cmdline_conf = ConfigMaster(CMDLINE_RAW).parse()
if real_cmdline_conf.has_key('infile'):
del real_cmdline_conf['infile']
if real_cmdline_conf.has_key('target'):
del real_cmdline_conf['target']
real_cmdline = CommandLine().compose_cmdline(real_cmdline_conf)
default_outfile = ConfigMaster().get_outfile_name(
{'sourcefile':infile, 'outfile':'', 'target':target})
for opt in self.checks:
val = int(getattr(self, 'f_%s'%opt).get() or "0")
if opt == 'stdout': opt = 'outfile'
on_config = self.conf.get(opt) or 0
on_cmdline = real_cmdline_conf.get(opt) or 0
if opt == 'outfile':
if on_config == STDOUT: on_config = 1
else: on_config = 0
if on_cmdline == STDOUT: on_cmdline = 1
else: on_cmdline = 0
if val != on_config or (
val == on_config == on_cmdline and
real_cmdline_conf.has_key(opt)):
if val:
# Was not set, but user selected on GUI
Debug("user turned ON: %s"%opt)
if opt == 'outfile': opt = '-o-'
else: opt = '--%s'%opt
else:
# Was set, but user deselected on GUI
Debug("user turned OFF: %s"%opt)
if opt == 'outfile':
opt = "-o%s"%default_outfile
else: opt = '--no-%s'%opt
guiflags.append(opt)
cmdline = [my_name, '-t', target] +real_cmdline \
+guiflags +[infile]
Debug('Gui/Tk cmdline: %s'%cmdline,5)
# Run!
cmdline_raw_orig = CMDLINE_RAW
try:
# Fake the GUI cmdline as the real one, and parse file
CMDLINE_RAW = CommandLine().get_raw_config(cmdline[1:])
data = process_source_file(infile)
# On GUI, convert_* returns the data, not finish_him()
outlist, config = convert_this_files([data])
# On GUI and STDOUT, finish_him() returns the data
result = finish_him(outlist, config)
# Show outlist in s a nice new window
if result:
outlist, config = result
title = _('%s: %s converted to %s')%(
my_name, os.path.basename(infile),
string.upper(config['target']))
self.scrollwindow(outlist, title)
# Show the "file saved" message
else:
msg = "%s\n\n %s\n%s\n\n %s\n%s"%(
_('Conversion done!'),
_('FROM:'), infile,
_('TO:'), config['outfile'])
showinfo(my_name, msg)
except error: # common error (windowed), not quit
pass
except: # fatal error (windowed and printed)
errormsg = getUnknownErrorMessage()
print errormsg
showerror(_('%s FATAL ERROR!')%my_name,errormsg)
self.exit()
CMDLINE_RAW = cmdline_raw_orig
def mainwindow(self):
self.infile.set(self.conf.get('sourcefile') or '')
self.target.set(self.conf.get('target') or \
_('-- select one --'))
outfile = self.conf.get('outfile')
if outfile == STDOUT: # map -o-
self.conf['stdout'] = 1
if self.conf.get('headers') == None:
self.conf['headers'] = 1 # map default
action1 = _("Enter the source file location:")
action2 = _("Choose the target document type:")
action3 = _("Some options you may check:")
action4 = _("Some extra options:")
checks_txt = {
'headers' : _("Include headers on output"),
'enum-title': _("Number titles (1, 1.1, 1.1.1, etc)"),
'toc' : _("Do TOC also (Table of Contents)"),
'mask-email': _("Hide e-mails from SPAM robots"),
'toc-only' : _("Just do TOC, nothing more"),
'stdout' : _("Dump to screen (Don't save target file)")
}
targets_menu = map(lambda x: TARGET_NAMES[x], TARGETS)
# Header
self.label("%s %s"%(string.upper(my_name), my_version),
bg=self.bg2, fg=self.fg2).grid(columnspan=2, ipadx=10)
self.label(_("ONE source, MULTI targets")+'\n%s\n'%my_url,
bg=self.bg1, fg=self.fg1).grid(columnspan=2)
self.row = 2
# Choose input file
self.action(action1) ; self.frame_open()
e_infile = self.entry(textvariable=self.infile,width=25)
e_infile.grid(row=self.row, column=0, sticky='e')
if not self.infile.get(): e_infile.focus_set()
self.button(_("Browse"), self.askfile).grid(
row=self.row, column=1, sticky='w', padx=10)
# Show outfile name, style and encoding (if any)
txt = ''
if outfile:
txt = outfile
if outfile == STDOUT: txt = _('')
l_output = self.label(_('Output: ')+txt,
fg=self.fg2,bg=self.bg2)
l_output.grid(columnspan=2, sticky='w')
for setting in ['style','encoding']:
if self.conf.get(setting):
name = string.capitalize(setting)
val = self.conf[setting]
self.label('%s: %s'%(name, val),
fg=self.fg2, bg=self.bg2).grid(
columnspan=2, sticky='w')
# Choose target
self.frame_close() ; self.action(action2)
self.frame_open()
self.target_key2name()
self.menu(self.target_name, targets_menu).grid(
columnspan=2, sticky='w')
# Options checkboxes label
self.frame_close() ; self.action(action3)
self.frame_open()
# Compose options check boxes, example:
# self.check(checks_txt['toc'],1,variable=self.f_toc)
for check in self.checks:
# Extra options label
if check == 'toc-only':
self.frame_close() ; self.action(action4)
self.frame_open()
txt = checks_txt[check]
var = getattr(self, 'f_'+check)
checked = self.conf.get(check)
self.check(txt,checked,variable=var)
self.frame_close()
# Spacer and buttons
self.label('').grid() ; self.row = self.row + 1
b_quit = self.button(_("Quit"), self.exit)
b_quit.grid(row=self.row, column=0, sticky='w', padx=30)
b_conv = self.button(_("Convert!"), self.runprogram)
b_conv.grid(row=self.row, column=1, sticky='e', padx=30)
if self.target.get() and self.infile.get():
b_conv.focus_set()
# As documentation told me
if sys.platform[:3] == 'win':
self.root.iconify()
self.root.update()
self.root.deiconify()
self.root.mainloop()
##############################################################################
##############################################################################
def exec_command_line(user_cmdline=[]):
global CMDLINE_RAW, RC_RAW, DEBUG, VERBOSE, QUIET, GUI, Error
# Extract command line data
cmdline_data = user_cmdline or sys.argv[1:]
CMDLINE_RAW = CommandLine().get_raw_config(cmdline_data, relative=1)
cmdline_parsed = ConfigMaster(CMDLINE_RAW).parse()
DEBUG = cmdline_parsed.get('debug' ) or 0
VERBOSE = cmdline_parsed.get('verbose') or 0
QUIET = cmdline_parsed.get('quiet' ) or 0
GUI = cmdline_parsed.get('gui' ) or 0
infiles = cmdline_parsed.get('infile' ) or []
Message(_("Txt2tags %s processing begins")%my_version,1)
# The easy ones
if cmdline_parsed.get('help' ): Quit(USAGE)
if cmdline_parsed.get('version'): Quit(VERSIONSTR)
# Multifile haters
if len(infiles) > 1:
errmsg=_("Option --%s can't be used with multiple input files")
for option in NO_MULTI_INPUT:
if cmdline_parsed.get(option):
Error(errmsg%option)
Debug("system platform: %s"%sys.platform)
Debug("python version: %s"%(string.split(sys.version,'(')[0]))
Debug("line break char: %s"%repr(LB))
Debug("command line: %s"%sys.argv)
Debug("command line raw config: %s"%CMDLINE_RAW,1)
# Extract RC file config
if cmdline_parsed.get('rc') == 0:
Message(_("Ignoring user configuration file"),1)
else:
rc_file = get_rc_path()
if os.path.isfile(rc_file):
Message(_("Loading user configuration file"),1)
RC_RAW = ConfigLines(file=rc_file).get_raw_config()
Debug("rc file: %s"%rc_file)
Debug("rc file raw config: %s"%RC_RAW,1)
# Get all infiles config (if any)
infiles_config = get_infiles_config(infiles)
# Is GUI available?
# Try to load and start GUI interface for --gui
# If program was called with no arguments, try GUI also
if GUI or not infiles:
try:
load_GUI_resources()
Debug("GUI resources OK (Tk module is installed)")
winbox = Gui()
Debug("GUI display OK")
GUI = 1
except:
Debug("GUI Error: no Tk module or no DISPLAY")
GUI = 0
# User forced --gui, but it's not available
if cmdline_parsed.get('gui') and not GUI:
print getTraceback(); print
Error("Sorry, I can't run my Graphical Interface - GUI\n"
"- Check if Python Tcl/Tk module is installed (Tkinter)\n"
"- Make sure you are in a graphical environment (like X)")
# Okay, we will use GUI
if GUI:
Message(_("We are on GUI interface"),1)
# Redefine Error function to raise exception instead sys.exit()
def Error(msg):
showerror(_('txt2tags ERROR!'), msg)
raise error
# If no input file, get RC+cmdline config, else full config
if not infiles:
gui_conf = ConfigMaster(RC_RAW+CMDLINE_RAW).parse()
else:
try : gui_conf = infiles_config[0][0]
except: gui_conf = {}
# Sanity is needed to set outfile and other things
gui_conf = ConfigMaster().sanity(gui_conf, gui=1)
Debug("GUI config: %s"%gui_conf,5)
# Insert config and populate the nice window!
winbox.load_config(gui_conf)
winbox.mainwindow()
# Console mode rocks forever!
else:
Message(_("We are on Command Line interface"),1)
# Called with no arguments, show error
if not infiles: Error(_('Missing input file (try --help)'))
convert_this_files(infiles_config)
Message(_("Txt2tags finished sucessfuly"),1)
if __name__ == '__main__':
try:
exec_command_line()
except error, msg:
sys.stderr.write("%s\n"%msg)
sys.stderr.flush()
sys.exit(1)
except SystemExit:
pass
except:
sys.stderr.write(getUnknownErrorMessage())
sys.stderr.flush()
sys.exit(1)
Quit()
# vim: ts=8
pecomato-0.0.15/devtools/cvs2cl.pl 0000755 0001752 0001752 00000263047 10677223051 016002 0 ustar devel devel #!/bin/sh
exec perl -w -x $0 ${1+"$@"} # -*- mode: perl; perl-indent-level: 2; -*-
#!perl -w
##############################################################
### ###
### cvs2cl.pl: produce ChangeLog(s) from `cvs log` output. ###
### ###
##############################################################
use strict;
use File::Basename qw( fileparse );
use Getopt::Long qw( GetOptions );
use Text::Wrap qw( );
use Time::Local qw( timegm );
use User::pwent qw( getpwnam );
# The Plan:
#
# Read in the logs for multiple files, spit out a nice ChangeLog that
# mirrors the information entered during `cvs commit'.
#
# The problem presents some challenges. In an ideal world, we could
# detect files with the same author, log message, and checkin time --
# each would be a changelog entry.
# We'd sort them; and spit them out. Unfortunately, CVS is *not atomic*
# so checkins can span a range of times. Also, the directory structure
# could be hierarchical.
#
# Another question is whether we really want to have the ChangeLog
# exactly reflect commits. An author could issue two related commits,
# with different log entries, reflecting a single logical change to the
# source. GNU style ChangeLogs group these under a single author/date.
# We try to do the same.
#
# So, we parse the output of `cvs log', storing log messages in a
# multilevel hash that stores the mapping:
# directory => author => time => message => filelist
# As we go, we notice "nearby" commit times and store them together
# (i.e., under the same timestamp), so they appear in the same log
# entry.
#
# When we've read all the logs, we twist this mapping into
# a time => author => message => filelist mapping for each directory.
#
# If we're not using the `--distributed' flag, the directory is always
# considered to be `./', even as descend into subdirectories.
# Call Tree
# name number of lines (10.xii.03)
# parse_options 192
# derive_changelog 13
# +-maybe_grab_accumulation_date 38
# +-read_changelog 277
# +-maybe_read_user_map_file 94
# +-run_ext 9
# +-read_file_path 29
# +-read_symbolic_name 43
# +-read_revision 49
# +-read_date_author_and_state 25
# +-parse_date_author_and_state 20
# +-read_branches 36
# +-output_changelog 424
# +-pretty_file_list 290
# +-common_path_prefix 35
# +-preprocess_msg_text 30
# +-min 1
# +-mywrap 16
# +-last_line_len 5
# +-wrap_log_entry 177
#
# Utilities
#
# xml_escape 6
# slurp_file 11
# debug 5
# version 2
# usage 142
# -*- -*- -*- -*- -*- -*- -*- -*- -*- -*- -*- -*- -*- -*- -*- -*- -*- -*-
#
# Note about a bug-slash-opportunity:
# -----------------------------------
#
# There's a bug in Text::Wrap, which affects cvs2cl. This script
# reveals it:
#
# #!/usr/bin/perl -w
#
# use Text::Wrap;
#
# my $test_text =
# "This script demonstrates a bug in Text::Wrap. The very long line
# following this paragraph will be relocated relative to the surrounding
# text:
#
# ====================================================================
#
# See? When the bug happens, we'll get the line of equal signs below
# this paragraph, even though it should be above.";
#
#
# # Print out the test text with no wrapping:
# print "$test_text";
# print "\n";
# print "\n";
#
# # Now print it out wrapped, and see the bug:
# print wrap ("\t", " ", "$test_text");
# print "\n";
# print "\n";
#
# If the line of equal signs were one shorter, then the bug doesn't
# happen. Interesting.
#
# Anyway, rather than fix this in Text::Wrap, we might as well write a
# new wrap() which has the following much-needed features:
#
# * initial indentation, like current Text::Wrap()
# * subsequent line indentation, like current Text::Wrap()
# * user chooses among: force-break long words, leave them alone, or die()?
# * preserve existing indentation: chopped chunks from an indented line
# are indented by same (like this line, not counting the asterisk!)
# * optional list of things to preserve on line starts, default ">"
#
# Note that the last two are essentially the same concept, so unify in
# implementation and give a good interface to controlling them.
#
# And how about:
#
# Optionally, when encounter a line pre-indented by same as previous
# line, then strip the newline and refill, but indent by the same.
# Yeah...
# Globals --------------------------------------------------------------------
# In case we have to print it out:
my $VERSION = '1.4';
$VERSION =~ s/\S+\s+(\S+)\s+\S+/$1/;
## Vars set by options:
# Print debugging messages?
my $Debug = 0;
# Just show version and exit?
my $Print_Version = 0;
# Just print usage message and exit?
my $Print_Usage = 0;
# What file should we generate (defaults to "ChangeLog")?
my $Log_File_Name = "ChangeLog";
# Grab most recent entry date from existing ChangeLog file, just add
# to that ChangeLog.
my $Cumulative = 0;
# `cvs log -d`, this will repeat the last entry in the old log. This is OK,
# as it guarantees at least one entry in the update changelog, which means
# that there will always be a date to extract for the next update. The repeat
# entry can be removed in postprocessing, if necessary.
# MJP 2003-08-02
# I don't think this actually does anything useful
my $Update = 0;
# Expand usernames to email addresses based on a map file?
my $User_Map_File = '';
my $User_Passwd_File;
my $Mail_Domain;
# Output log in chronological order? [default is reverse chronological order]
my $Chronological_Order = 0;
# Grab user details via gecos
my $Gecos = 0;
# User domain for gecos email addresses
my $Domain;
# Output to a file or to stdout?
my $Output_To_Stdout = 0;
# Eliminate empty log messages?
my $Prune_Empty_Msgs = 0;
# Tags of which not to output
my %ignore_tags;
# Show only revisions with Tags
my %show_tags;
# Don't call Text::Wrap on the body of the message
my $No_Wrap = 0;
# Indentation of log messages
my $Indent = "\t";
# Don't do any pretty print processing
my $Summary = 0;
# Separates header from log message. Code assumes it is either " " or
# "\n\n", so if there's ever an option to set it to something else,
# make sure to go through all conditionals that use this var.
my $After_Header = " ";
# XML Encoding
my $XML_Encoding = '';
# Format more for programs than for humans.
my $XML_Output = 0;
my $No_XML_Namespace = 0;
my $No_XML_ISO_Date = 0;
# Do some special tweaks for log data that was written in FSF
# ChangeLog style.
my $FSF_Style = 0;
# Show times in UTC instead of local time
my $UTC_Times = 0;
# Show times in output?
my $Show_Times = 1;
# Show day of week in output?
my $Show_Day_Of_Week = 0;
# Show revision numbers in output?
my $Show_Revisions = 0;
# Show dead files in output?
my $Show_Dead = 0;
# Hide dead trunk files which were created as a result of additions on a
# branch?
my $Hide_Branch_Additions = 1;
# Show tags (symbolic names) in output?
my $Show_Tags = 0;
# Show tags separately in output?
my $Show_Tag_Dates = 0;
# Show branches by symbolic name in output?
my $Show_Branches = 0;
# Show only revisions on these branches or their ancestors.
my @Follow_Branches;
# Show only revisions on these branches or their ancestors; ignore descendent
# branches.
my @Follow_Only;
# Don't bother with files matching this regexp.
my @Ignore_Files;
# How exactly we match entries. We definitely want "o",
# and user might add "i" by using --case-insensitive option.
my $Case_Insensitive = 0;
# Maybe only show log messages matching a certain regular expression.
my $Regexp_Gate = '';
# Pass this global option string along to cvs, to the left of `log':
my $Global_Opts = '';
# Pass this option string along to the cvs log subcommand:
my $Command_Opts = '';
# Read log output from stdin instead of invoking cvs log?
my $Input_From_Stdin = 0;
# Don't show filenames in output.
my $Hide_Filenames = 0;
# Don't shorten directory names from filenames.
my $Common_Dir = 1;
# Max checkin duration. CVS checkin is not atomic, so we may have checkin
# times that span a range of time. We assume that checkins will last no
# longer than $Max_Checkin_Duration seconds, and that similarly, no
# checkins will happen from the same users with the same message less
# than $Max_Checkin_Duration seconds apart.
my $Max_Checkin_Duration = 180;
# What to put at the front of [each] ChangeLog.
my $ChangeLog_Header = '';
# Whether to enable 'delta' mode, and for what start/end tags.
my $Delta_Mode = 0;
my $Delta_From = '';
my $Delta_To = '';
my $TestCode;
# Whether to parse filenames from the RCS filename, and if so what
# prefix to strip.
my $RCS_Root;
# Whether to output information on the # of lines added and removed
# by each file modification.
my $Show_Lines_Modified = 0;
## end vars set by options.
# latest observed times for the start/end tags in delta mode
my $Delta_StartTime = 0;
my $Delta_EndTime = 0;
my $No_Ancestors = 0;
my $No_Extra_Indent = 0;
my $GroupWithinDate = 0;
# ----------------------------------------------------------------------------
package CVS::Utils::ChangeLog::EntrySet;
sub new {
my $class = shift;
my %self;
bless \%self, $class;
}
# -------------------------------------
sub output_changelog {
my $output_type = $XML_Output ? 'XML' : 'Text';
my $output_class = "CVS::Utils::ChangeLog::EntrySet::Output::${output_type}";
my $output = $output_class->new(follow_branches => \@Follow_Branches,
follow_only => \@Follow_Only,
ignore_tags => \%ignore_tags,
show_tags => \%show_tags,
);
$output->output_changelog(@_);
}
# -------------------------------------
sub add_fileentry {
my ($self, $file_full_path, $time, $revision, $state, $lines,
$branch_names, $branch_roots, $branch_numbers,
$symbolic_names, $author, $msg_txt) = @_;
my $qunk =
CVS::Utils::ChangeLog::FileEntry->new($file_full_path, $time, $revision,
$state, $lines,
$branch_names, $branch_roots,
$branch_numbers,
$symbolic_names);
# We might be including revision numbers and/or tags and/or
# branch names in the output. Most of the code from here to
# loop-end deals with organizing these in qunk.
unless ( $Hide_Branch_Additions
and
$msg_txt =~ /file .+ was initially added on branch \S+./ ) {
# Add this file to the list
# (We use many spoonfuls of autovivication magic. Hashes and arrays
# will spring into existence if they aren't there already.)
&main::debug ("(pushing log msg for ". $qunk->dir_key . $qunk->filename . ")\n");
# Store with the files in this commit. Later we'll loop through
# again, making sure that revisions with the same log message
# and nearby commit times are grouped together as one commit.
$self->{$qunk->dir_key}{$author}{$time}{$msg_txt} =
CVS::Utils::ChangeLog::Message->new($msg_txt)
unless exists $self->{$qunk->dir_key}{$author}{$time}{$msg_txt};
$self->{$qunk->dir_key}{$author}{$time}{$msg_txt}->add_fileentry($qunk);
}
}
# ----------------------------------------------------------------------------
package CVS::Utils::ChangeLog::EntrySet::Output::Text;
use base qw( CVS::Utils::ChangeLog::EntrySet::Output );
use File::Basename qw( fileparse );
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
}
# -------------------------------------
sub wday {
my $self = shift; my $class = ref $self;
my ($wday) = @_;
return $Show_Day_Of_Week ? ' ' . $class->weekday_en($wday) : '';
}
# -------------------------------------
sub header_line {
my $self = shift;
my ($time, $author, $lastdate) = @_;
my $header_line = '';
my (undef,$min,$hour,$mday,$mon,$year,$wday)
= $UTC_Times ? gmtime($time) : localtime($time);
my $date = $self->fdatetime($time);
if ($Show_Times) {
$header_line =
sprintf "%s %s\n\n", $date, $author;
} else {
if ( ! defined $lastdate or $date ne $lastdate or ! $GroupWithinDate ) {
if ( $GroupWithinDate ) {
$header_line = "$date\n\n";
} else {
$header_line = "$date $author\n\n";
}
} else {
$header_line = '';
}
}
}
# -------------------------------------
sub preprocess_msg_text {
my $self = shift;
my ($text) = @_;
$text = $self->SUPER::preprocess_msg_text($text);
unless ( $No_Wrap ) {
# Strip off lone newlines, but only for lines that don't begin with
# whitespace or a mail-quoting character, since we want to preserve
# that kind of formatting. Also don't strip newlines that follow a
# period; we handle those specially next. And don't strip
# newlines that precede an open paren.
1 while $text =~ s/(^|\n)([^>\s].*[^.\n])\n([^>\n])/$1$2 $3/g;
# If a newline follows a period, make sure that when we bring up the
# bottom sentence, it begins with two spaces.
1 while $text =~ s/(^|\n)([^>\s].*)\n([^>\n])/$1$2 $3/g;
}
return $text;
}
# -------------------------------------
# Here we take a bunch of qunks and convert them into printed
# summary that will include all the information the user asked for.
sub pretty_file_list {
my $self = shift;
return ''
if $Hide_Filenames;
my $qunksref = shift;
my @filenames;
my $beauty = ''; # The accumulating header string for this entry.
my %non_unanimous_tags; # Tags found in a proper subset of qunks
my %unanimous_tags; # Tags found in all qunks
my %all_branches; # Branches found in any qunk
my $fbegun = 0; # Did we begin printing filenames yet?
my ($common_dir, $qunkrefs) =
$self->_pretty_file_list(\(%unanimous_tags, %non_unanimous_tags, %all_branches), $qunksref);
my @qunkrefs = @$qunkrefs;
# Not XML output, so complexly compactify for chordate consumption. At this
# point we have enough global information about all the qunks to organize
# them non-redundantly for output.
if ($common_dir) {
# Note that $common_dir still has its trailing slash
$beauty .= "$common_dir: ";
}
if ($Show_Branches)
{
# For trailing revision numbers.
my @brevisions;
foreach my $branch (keys (%all_branches))
{
foreach my $qunkref (@qunkrefs)
{
if ((defined ($qunkref->branch))
and ($qunkref->branch eq $branch))
{
if ($fbegun) {
# kff todo: comma-delimited in XML too? Sure.
$beauty .= ", ";
}
else {
$fbegun = 1;
}
my $fname = substr ($qunkref->filename, length ($common_dir));
$beauty .= $fname;
$qunkref->{'printed'} = 1; # Just setting a mark bit, basically
if ( $Show_Tags and defined $qunkref->tags ) {
my @tags = grep ($non_unanimous_tags{$_}, @{$qunkref->tags});
if (@tags) {
$beauty .= " (tags: ";
$beauty .= join (', ', @tags);
$beauty .= ")";
}
}
if ($Show_Revisions) {
# Collect the revision numbers' last components, but don't
# print them -- they'll get printed with the branch name
# later.
$qunkref->revision =~ /.+\.([\d]+)$/;
push (@brevisions, $1);
# todo: we're still collecting branch roots, but we're not
# showing them anywhere. If we do show them, it would be
# nifty to just call them revision "0" on a the branch.
# Yeah, that's the ticket.
}
}
}
$beauty .= " ($branch";
if (@brevisions) {
if ((scalar (@brevisions)) > 1) {
$beauty .= ".[";
$beauty .= (join (',', @brevisions));
$beauty .= "]";
}
else {
# Square brackets are spurious here, since there's no range to
# encapsulate
$beauty .= ".$brevisions[0]";
}
}
$beauty .= ")";
}
}
# Okay; any qunks that were done according to branch are taken care
# of, and marked as printed. Now print everyone else.
my %fileinfo_printed;
foreach my $qunkref (@qunkrefs)
{
next if (defined ($qunkref->{'printed'})); # skip if already printed
my $b = substr ($qunkref->filename, length ($common_dir));
# todo: Shlomo's change was this:
# $beauty .= substr ($qunkref->filename,
# (($common_dir eq "./") ? '' : length ($common_dir)));
$qunkref->{'printed'} = 1; # Set a mark bit.
if ($Show_Revisions || $Show_Tags || $Show_Dead)
{
my $started_addendum = 0;
if ($Show_Revisions) {
$started_addendum = 1;
$b .= " (";
$b .= $qunkref->revision;
}
if ($Show_Dead && $qunkref->state =~ /dead/)
{
# Deliberately not using $started_addendum. Keeping it simple.
$b .= "[DEAD]";
}
if ($Show_Tags && (defined $qunkref->tags)) {
my @tags = grep ($non_unanimous_tags{$_}, @{$qunkref->tags});
if ((scalar (@tags)) > 0) {
if ($started_addendum) {
$b .= ", ";
}
else {
$b .= " (tags: ";
}
$b .= join (', ', @tags);
$started_addendum = 1;
}
}
if ($started_addendum) {
$b .= ")";
}
}
unless ( exists $fileinfo_printed{$b} ) {
if ($fbegun) {
$beauty .= ", ";
} else {
$fbegun = 1;
}
$beauty .= $b, $fileinfo_printed{$b} = 1;
}
}
# Unanimous tags always come last.
if ($Show_Tags && %unanimous_tags)
{
$beauty .= " (utags: ";
$beauty .= join (', ', sort keys (%unanimous_tags));
$beauty .= ")";
}
# todo: still have to take care of branch_roots?
$beauty = "$beauty:";
return $beauty;
}
# -------------------------------------
sub output_tagdate {
my $self = shift;
my ($fh, $time, $tag) = @_;
my $fdatetime = $self->fdatetime($time);
print $fh "$fdatetime tag $tag\n\n";
return;
}
# -------------------------------------
sub format_body {
my $self = shift;
my ($msg, $files, $qunklist) = @_;
my $body;
if ( $No_Wrap and ! $Summary ) {
$msg = $self->preprocess_msg_text($msg);
$files = $self->mywrap("\t", "\t ", "* $files");
$msg =~ s/\n(.+)/\n$Indent$1/g;
unless ($After_Header eq " ") {
$msg =~ s/^(.+)/$Indent$1/g;
}
if ( $Hide_Filenames ) {
$body = $After_Header . $msg;
} else {
$body = $files . $After_Header . $msg;
}
} elsif ( $Summary ) {
my ($filelist, $qunk);
my (@DeletedQunks, @AddedQunks, @ChangedQunks);
$msg = $self->preprocess_msg_text($msg);
#
# Sort the files (qunks) according to the operation that was
# performed. Files which were added have no line change
# indicator, whereas deleted files have state dead.
#
foreach $qunk ( @$qunklist ) {
if ( "dead" eq $qunk->state) {
push @DeletedQunks, $qunk;
} elsif ( ! defined $qunk->lines ) {
push @AddedQunks, $qunk;
} else {
push @ChangedQunks, $qunk;
}
}
#
# The qunks list was originally in tree search order. Let's
# get that back. The lists, if they exist, will be reversed upon
# processing.
#
#
# Now write the three sections onto $filelist
#
if ( @DeletedQunks ) {
$filelist .= "\tDeleted:\n";
foreach $qunk ( @DeletedQunks ) {
$filelist .= "\t\t" . $qunk->filename;
$filelist .= " (" . $qunk->revision . ")";
$filelist .= "\n";
}
undef @DeletedQunks;
}
if ( @AddedQunks ) {
$filelist .= "\tAdded:\n";
foreach $qunk (@AddedQunks) {
$filelist .= "\t\t" . $qunk->filename;
$filelist .= " (" . $qunk->revision . ")";
$filelist .= "\n";
}
undef @AddedQunks ;
}
if ( @ChangedQunks ) {
$filelist .= "\tChanged:\n";
foreach $qunk (@ChangedQunks) {
$filelist .= "\t\t" . $qunk->filename;
$filelist .= " (" . $qunk->revision . ")";
$filelist .= ", \"" . $qunk->state . "\"";
$filelist .= ", lines: " . $qunk->lines;
$filelist .= "\n";
}
undef @ChangedQunks;
}
chomp $filelist;
if ( $Hide_Filenames ) {
$filelist = '';
}
$msg =~ s/\n(.*)/\n$Indent$1/g;
unless ( $After_Header eq " " or $FSF_Style ) {
$msg =~ s/^(.*)/$Indent$1/g;
}
unless ( $No_Wrap ) {
if ( $FSF_Style ) {
$msg = $self->wrap_log_entry($msg, '', 69, 69);
chomp($msg);
chomp($msg);
} else {
$msg = $self->mywrap('', $Indent, "$msg");
$msg =~ s/[ \t]+\n/\n/g;
}
}
$body = $filelist . $After_Header . $msg;
} else { # do wrapping, either FSF-style or regular
my $latter_wrap = $No_Extra_Indent ? $Indent : "$Indent ";
if ( $FSF_Style ) {
$files = $self->mywrap($Indent, $latter_wrap, "* $files");
my $files_last_line_len = 0;
if ( $After_Header eq " " ) {
$files_last_line_len = $self->last_line_len($files);
$files_last_line_len += 1; # for $After_Header
}
$msg = $self->wrap_log_entry($msg, $latter_wrap, 69-$files_last_line_len, 69);
$body = $files . $After_Header . $msg;
} else { # not FSF-style
$msg = $self->preprocess_msg_text($msg);
$body = $files . $After_Header . $msg;
$body = $self->mywrap($Indent, $latter_wrap, "* $body");
$body =~ s/[ \t]+\n/\n/g;
}
}
return $body;
}
# ----------------------------------------------------------------------------
package CVS::Utils::ChangeLog::EntrySet::Output::XML;
use base qw( CVS::Utils::ChangeLog::EntrySet::Output );
use File::Basename qw( fileparse );
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
}
# -------------------------------------
sub header_line {
my $self = shift;
my ($time, $author, $lastdate) = @_;
my $header_line = '';
my $isoDate;
my ($y, $m, $d, $H, $M, $S) = (gmtime($time))[5,4,3,2,1,0];
# Ideally, this would honor $UTC_Times and use +HH:MM syntax
$isoDate = sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ",
$y + 1900, $m + 1, $d, $H, $M, $S);
my (undef,$min,$hour,$mday,$mon,$year,$wday)
= $UTC_Times ? gmtime($time) : localtime($time);
my $date = $self->fdatetime($time);
$wday = $self->wday($wday);
$header_line =
sprintf ("%4u-%02u-%02u \n${wday}%02u:%02u \n",
$year+1900, $mon+1, $mday, $hour, $min);
$header_line .= "$isoDate \n"
unless $No_XML_ISO_Date;
$header_line .= sprintf("%s \n" , $author);
}
# -------------------------------------
sub wday {
my $self = shift; my $class = ref $self;
my ($wday) = @_;
return '' . $class->weekday_en($wday) . " \n";
}
# -------------------------------------
sub escape {
my $self = shift;
my $txt = shift;
$txt =~ s/&/&/g;
$txt =~ s//>/g;
return $txt;
}
# -------------------------------------
sub output_header {
my $self = shift;
my ($fh) = @_;
my $encoding =
length $XML_Encoding ? qq'encoding="$XML_Encoding"' : '';
my $version = 'version="1.0"';
my $declaration =
sprintf '', join ' ', grep length, $version, $encoding;
my $root =
$No_XML_Namespace ?
'' :
'';
print $fh "$declaration\n\n$root\n\n";
}
# -------------------------------------
sub output_footer {
my $self = shift;
my ($fh) = @_;
print $fh " \n";
}
# -------------------------------------
sub preprocess_msg_text {
my $self = shift;
my ($text) = @_;
$text = $self->SUPER::preprocess_msg_text($text);
$text = $self->escape($text);
chomp $text;
$text = "${text} \n";
return $text;
}
# -------------------------------------
# Here we take a bunch of qunks and convert them into a printed
# summary that will include all the information the user asked for.
sub pretty_file_list {
my $self = shift;
my ($qunksref) = @_;
my $beauty = ''; # The accumulating header string for this entry.
my %non_unanimous_tags; # Tags found in a proper subset of qunks
my %unanimous_tags; # Tags found in all qunks
my %all_branches; # Branches found in any qunk
my $fbegun = 0; # Did we begin printing filenames yet?
my ($common_dir, $qunkrefs) =
$self->_pretty_file_list(\(%unanimous_tags, %non_unanimous_tags, %all_branches),
$qunksref);
my @qunkrefs = @$qunkrefs;
# If outputting XML, then our task is pretty simple, because we
# don't have to detect common dir, common tags, branch prefixing,
# etc. We just output exactly what we have, and don't worry about
# redundancy or readability.
foreach my $qunkref (@qunkrefs)
{
my $filename = $qunkref->filename;
my $state = $qunkref->state;
my $revision = $qunkref->revision;
my $tags = $qunkref->tags;
my $branch = $qunkref->branch;
my $branchroots = $qunkref->roots;
my $lines = $qunkref->lines;
$filename = $self->escape($filename); # probably paranoia
$revision = $self->escape($revision); # definitely paranoia
$beauty .= "\n";
$beauty .= "${filename} \n";
$beauty .= "${state} \n";
$beauty .= "${revision} \n";
if ($Show_Lines_Modified
&& $lines && $lines =~ m/\+(\d+)\s+-(\d+)/) {
$beauty .= "$1 \n";
$beauty .= "$2 \n";
}
if ($branch) {
$branch = $self->escape($branch); # more paranoia
$beauty .= "${branch} \n";
}
foreach my $tag (@$tags) {
$tag = $self->escape($tag); # by now you're used to the paranoia
$beauty .= "${tag} \n";
}
foreach my $root (@$branchroots) {
$root = $self->escape($root); # which is good, because it will continue
$beauty .= "${root} \n";
}
$beauty .= " \n";
}
# Theoretically, we could go home now. But as long as we're here,
# let's print out the common_dir and utags, as a convenience to
# the receiver (after all, earlier code calculated that stuff
# anyway, so we might as well take advantage of it).
if ((scalar (keys (%unanimous_tags))) > 1) {
foreach my $utag ((keys (%unanimous_tags))) {
$utag = $self->escape($utag); # the usual paranoia
$beauty .= "${utag} \n";
}
}
if ($common_dir) {
$common_dir = $self->escape($common_dir);
$beauty .= "${common_dir} \n";
}
# That's enough for XML, time to go home:
return $beauty;
}
# -------------------------------------
sub output_tagdate {
my $self = shift;
my ($fh, $time, $tag) = @_;
my ($y, $m, $d, $H, $M, $S) = (gmtime($time))[5,4,3,2,1,0];
# Ideally, this would honor $UTC_Times and use +HH:MM syntax
my $isoDate = sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ",
$y + 1900, $m + 1, $d, $H, $M, $S);
print $fh "\n";
print $fh "$isoDate \n";
print $fh "$tag \n";
print $fh " \n\n";
return;
}
# -------------------------------------
sub output_entry {
my $self = shift;
my ($fh, $entry) = @_;
print $fh "\n$entry \n\n";
}
# -------------------------------------
sub format_body {
my $self = shift;
my ($msg, $files, $qunklist) = @_;
$msg = $self->preprocess_msg_text($msg);
return $files . $msg;
}
# ----------------------------------------------------------------------------
package CVS::Utils::ChangeLog::EntrySet::Output;
use Carp qw( croak );
use File::Basename qw( fileparse );
# Class Utility Functions -------------
{ # form closure
my @weekdays = (qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday));
sub weekday_en {
my $class = shift;
return $weekdays[$_[0]];
}
}
# -------------------------------------
sub new {
my ($proto, %args) = @_;
my $class = ref $proto || $proto;
my $follow_branches = delete $args{follow_branches};
my $follow_only = delete $args{follow_only};
my $ignore_tags = delete $args{ignore_tags};
my $show_tags = delete $args{show_tags};
die "Unrecognized arg to EntrySet::Output::new: '$_'\n"
for keys %args;
bless +{follow_branches => $follow_branches,
follow_only => $follow_only,
show_tags => $show_tags,
ignore_tags => $ignore_tags,
}, $class;
}
# Abstract Subrs ----------------------
sub wday { croak "Whoops. Abtract method call (wday).\n" }
sub pretty_file_list { croak "Whoops. Abtract method call (pretty_file_list).\n" }
sub output_tagdate { croak "Whoops. Abtract method call (output_tagdate).\n" }
sub header_line { croak "Whoops. Abtract method call (header_line).\n" }
# Instance Subrs ----------------------
sub output_header { }
# -------------------------------------
sub output_entry {
my $self = shift;
my ($fh, $entry) = @_;
print $fh "$entry\n";
}
# -------------------------------------
sub output_footer { }
# -------------------------------------
sub escape { return $_[1] }
# -------------------------------------
sub _revision_is_wanted {
my ($self, $qunk) = @_;
my ($revision, $branch_numbers) = @{$qunk}{qw( revision branch_numbers )};
my $follow_branches = $self->{follow_branches};
my $follow_only = $self->{follow_only};
for my $ignore_tag (keys %{$self->{ignore_tags}}) {
return
if defined $qunk->{tags} and grep $_ eq $ignore_tag, @{$qunk->{tags}};
}
if ( keys %{$self->{show_tags}} ) {
for my $show_tag (keys %{$self->{show_tags}}) {
return
if ! defined $qunk->{tags} or ! grep $_ eq $show_tag, @{$qunk->{tags}};
}
}
return 1
unless @$follow_branches + @$follow_only; # no follow is follow all
for my $x (map([$_, 1], @$follow_branches),
map([$_, 0], @$follow_only )) {
my ($branch, $followsub) = @$x;
# Special case for following trunk revisions
return 1
if $branch =~ /^trunk$/i and $revision =~ /^[0-9]+\.[0-9]+$/;
if ( my $branch_number = $branch_numbers->{$branch} ) {
# Are we on one of the follow branches or an ancestor of same?
# If this revision is a prefix of the branch number, or possibly is less
# in the minormost number, OR if this branch number is a prefix of the
# revision, then yes. Otherwise, no.
# So below, we determine if any of those conditions are met.
# Trivial case: is this revision on the branch? (Compare this way to
# avoid regexps that screw up Emacs indentation, argh.)
if ( substr($revision, 0, (length($branch_number) + 1))
eq
($branch_number . ".") ) {
if ( $followsub ) {
return 1;
# } elsif ( length($revision) == length($branch_number)+2 ) {
} elsif ( substr($revision, length($branch_number)+1) =~ /^\d+$/ ) {
return 1;
}
} elsif ( length($branch_number) > length($revision)
and
! $No_Ancestors ) {
# Non-trivial case: check if rev is ancestral to branch
# r_left still has the trailing "."
my ($r_left, $r_end) = ($revision =~ /^((?:\d+\.)+)(\d+)$/);
# b_left still has trailing "."
# b_mid has no trailing "."
my ($b_left, $b_mid) = ($branch_number =~ /^((?:\d+\.)+)(\d+)\.\d+$/);
return 1
if $r_left eq $b_left and $r_end <= $b_mid;
}
}
}
return;
}
# -------------------------------------
sub output_changelog {
my $self = shift; my $class = ref $self;
my ($grand_poobah) = @_;
### Process each ChangeLog
while (my ($dir,$authorhash) = each %$grand_poobah)
{
&main::debug ("DOING DIR: $dir\n");
# Here we twist our hash around, from being
# author => time => message => filelist
# in %$authorhash to
# time => author => message => filelist
# in %changelog.
#
# This is also where we merge entries. The algorithm proceeds
# through the timeline of the changelog with a sliding window of
# $Max_Checkin_Duration seconds; within that window, entries that
# have the same log message are merged.
#
# (To save space, we zap %$authorhash after we've copied
# everything out of it.)
my %changelog;
while (my ($author,$timehash) = each %$authorhash)
{
my %stamptime;
foreach my $time (sort {$a <=> $b} (keys %$timehash))
{
my $msghash = $timehash->{$time};
while (my ($msg,$qunklist) = each %$msghash)
{
my $stamptime = $stamptime{$msg};
if ((defined $stamptime)
and (($time - $stamptime) < $Max_Checkin_Duration)
and (defined $changelog{$stamptime}{$author}{$msg}))
{
push(@{$changelog{$stamptime}{$author}{$msg}}, $qunklist->files);
}
else {
$changelog{$time}{$author}{$msg} = $qunklist->files;
$stamptime{$msg} = $time;
}
}
}
}
undef (%$authorhash);
### Now we can write out the ChangeLog!
my ($logfile_here, $logfile_bak, $tmpfile);
my $lastdate;
if (! $Output_To_Stdout) {
$logfile_here = $dir . $Log_File_Name;
$logfile_here =~ s/^\.\/\//\//; # fix any leading ".//" problem
$tmpfile = "${logfile_here}.cvs2cl$$.tmp";
$logfile_bak = "${logfile_here}.bak";
open (LOG_OUT, ">$tmpfile") or die "Unable to open \"$tmpfile\"";
}
else {
open (LOG_OUT, ">-") or die "Unable to open stdout for writing";
}
print LOG_OUT $ChangeLog_Header;
my %tag_date_printed;
$self->output_header(\*LOG_OUT);
my @key_list = ();
if($Chronological_Order) {
@key_list = sort {$a <=> $b} (keys %changelog);
} else {
@key_list = sort {$b <=> $a} (keys %changelog);
}
foreach my $time (@key_list)
{
next if ($Delta_Mode &&
(($time <= $Delta_StartTime) ||
($time > $Delta_EndTime && $Delta_EndTime)));
# Set up the date/author line.
# kff todo: do some more XML munging here, on the header
# part of the entry:
my (undef,$min,$hour,$mday,$mon,$year,$wday)
= $UTC_Times ? gmtime($time) : localtime($time);
$wday = $self->wday($wday);
# XML output includes everything else, we might as well make
# it always include Day Of Week too, for consistency.
my $authorhash = $changelog{$time};
if ( $Show_Tag_Dates || $XML_Output ) {
my %tags;
while (my ($author,$mesghash) = each %$authorhash) {
while (my ($msg,$qunk) = each %$mesghash) {
for my $qunkref2 (@$qunk) {
if (defined ($qunkref2->tags)) {
for my $tag (@{$qunkref2->tags}) {
$tags{$tag} = 1;
}
}
}
}
}
# Sort here for determinism to ease testing
foreach my $tag (sort keys %tags) {
if ( ! defined $tag_date_printed{$tag} ) {
$tag_date_printed{$tag} = $time;
$self->output_tagdate(\*LOG_OUT, $time, $tag);
}
}
}
while (my ($author,$mesghash) = each %$authorhash)
{
# If XML, escape in outer loop to avoid compound quoting:
$author = $self->escape($author);
FOOBIE:
# We sort here to enable predictable ordering for the testing porpoises
for my $msg (sort keys %$mesghash)
{
my $qunklist = $mesghash->{$msg};
my @qunklist =
grep $self->_revision_is_wanted($_), @$qunklist;
next FOOBIE unless @qunklist;
my $files = $self->pretty_file_list(\@qunklist);
my $header_line; # date and author
my $wholething; # $header_line + $body
my $date = $self->fdatetime($time);
$header_line = $self->header_line($time, $author, $lastdate);
$lastdate = $date;
$Text::Wrap::huge = 'overflow'
if $Text::Wrap::VERSION >= 2001.0130;
# Reshape the body according to user preferences.
my $body = $self->format_body($msg, $files, \@qunklist);
$body =~ s/[ \t]+\n/\n/g;
$wholething = $header_line . $body;
# One last check: make sure it passes the regexp test, if the
# user asked for that. We have to do it here, so that the
# test can match against information in the header as well
# as in the text of the log message.
# How annoying to duplicate so much code just because I
# can't figure out a way to evaluate scalars on the trailing
# operator portion of a regular expression. Grrr.
if ($Case_Insensitive) {
unless ( $Regexp_Gate and ( $wholething !~ /$Regexp_Gate/oi ) ) {
$self->output_entry(\*LOG_OUT, $wholething);
}
}
else {
unless ( $Regexp_Gate and ( $wholething !~ /$Regexp_Gate/o ) ) {
$self->output_entry(\*LOG_OUT, $wholething);
}
}
}
}
}
$self->output_footer(\*LOG_OUT);
close (LOG_OUT);
if ( ! $Output_To_Stdout ) {
# If accumulating, append old data to new before renaming. But
# don't append the most recent entry, since it's already in the
# new log due to CVS's idiosyncratic interpretation of "log -d".
if ($Cumulative && -f $logfile_here) {
open NEW_LOG, ">>$tmpfile"
or die "trouble appending to $tmpfile ($!)";
open OLD_LOG, "<$logfile_here"
or die "trouble reading from $logfile_here ($!)";
my $started_first_entry = 0;
my $passed_first_entry = 0;
while () {
if ( ! $passed_first_entry ) {
if ( ( ! $started_first_entry )
and /^(\d\d\d\d-\d\d-\d\d\s+(\w+\s+)?\d\d:\d\d)/ ) {
$started_first_entry = 1;
} elsif ( /^(\d\d\d\d-\d\d-\d\d\s+(\w+\s+)?\d\d:\d\d)/ ) {
$passed_first_entry = 1;
print NEW_LOG $_;
}
} else {
print NEW_LOG $_;
}
}
close NEW_LOG;
close OLD_LOG;
}
if ( -f $logfile_here ) {
rename $logfile_here, $logfile_bak;
}
rename $tmpfile, $logfile_here;
}
}
}
# -------------------------------------
# Don't call this wrap, because with 5.5.3, that clashes with the
# (unconditional :-( ) export of wrap() from Text::Wrap
sub mywrap {
my $self = shift;
my ($indent1, $indent2, @text) = @_;
# If incoming text looks preformatted, don't get clever
my $text = Text::Wrap::wrap($indent1, $indent2, @text);
if ( grep /^\s+/m, @text ) {
return $text;
}
my @lines = split /\n/, $text;
$indent2 =~ s!^((?: {8})+)!"\t" x (length($1)/8)!e;
$lines[0] =~ s/^$indent1\s+/$indent1/;
s/^$indent2\s+/$indent2/
for @lines[1..$#lines];
my $newtext = join "\n", @lines;
$newtext .= "\n"
if substr($text, -1) eq "\n";
return $newtext;
}
# -------------------------------------
sub preprocess_msg_text {
my $self = shift;
my ($text) = @_;
# Strip out carriage returns (as they probably result from DOSsy editors).
$text =~ s/\r\n/\n/g;
# If it *looks* like two newlines, make it *be* two newlines:
$text =~ s/\n\s*\n/\n\n/g;
return $text;
}
# -------------------------------------
sub last_line_len {
my $self = shift;
my $files_list = shift;
my @lines = split (/\n/, $files_list);
my $last_line = pop (@lines);
return length ($last_line);
}
# -------------------------------------
# A custom wrap function, sensitive to some common constructs used in
# log entries.
sub wrap_log_entry {
my $self = shift;
my $text = shift; # The text to wrap.
my $left_pad_str = shift; # String to pad with on the left.
# These do NOT take left_pad_str into account:
my $length_remaining = shift; # Amount left on current line.
my $max_line_length = shift; # Amount left for a blank line.
my $wrapped_text = ''; # The accumulating wrapped entry.
my $user_indent = ''; # Inherited user_indent from prev line.
my $first_time = 1; # First iteration of the loop?
my $suppress_line_start_match = 0; # Set to disable line start checks.
my @lines = split (/\n/, $text);
while (@lines) # Don't use `foreach' here, it won't work.
{
my $this_line = shift (@lines);
chomp $this_line;
if ($this_line =~ /^(\s+)/) {
$user_indent = $1;
}
else {
$user_indent = '';
}
# If it matches any of the line-start regexps, print a newline now...
if ($suppress_line_start_match)
{
$suppress_line_start_match = 0;
}
elsif (($this_line =~ /^(\s*)\*\s+[a-zA-Z0-9]/)
|| ($this_line =~ /^(\s*)\* [a-zA-Z0-9_\.\/\+-]+/)
|| ($this_line =~ /^(\s*)\([a-zA-Z0-9_\.\/\+-]+(\)|,\s*)/)
|| ($this_line =~ /^(\s+)(\S+)/)
|| ($this_line =~ /^(\s*)- +/)
|| ($this_line =~ /^()\s*$/)
|| ($this_line =~ /^(\s*)\*\) +/)
|| ($this_line =~ /^(\s*)[a-zA-Z0-9](\)|\.|\:) +/))
{
# Make a line break immediately, unless header separator is set
# and this line is the first line in the entry, in which case
# we're getting the blank line for free already and shouldn't
# add an extra one.
unless (($After_Header ne " ") and ($first_time))
{
if ($this_line =~ /^()\s*$/) {
$suppress_line_start_match = 1;
$wrapped_text .= "\n${left_pad_str}";
}
$wrapped_text .= "\n${left_pad_str}";
}
$length_remaining = $max_line_length - (length ($user_indent));
}
# Now that any user_indent has been preserved, strip off leading
# whitespace, so up-folding has no ugly side-effects.
$this_line =~ s/^\s*//;
# Accumulate the line, and adjust parameters for next line.
my $this_len = length ($this_line);
if ($this_len == 0)
{
# Blank lines should cancel any user_indent level.
$user_indent = '';
$length_remaining = $max_line_length;
}
elsif ($this_len >= $length_remaining) # Line too long, try breaking it.
{
# Walk backwards from the end. At first acceptable spot, break
# a new line.
my $idx = $length_remaining - 1;
if ($idx < 0) { $idx = 0 };
while ($idx > 0)
{
if (substr ($this_line, $idx, 1) =~ /\s/)
{
my $line_now = substr ($this_line, 0, $idx);
my $next_line = substr ($this_line, $idx);
$this_line = $line_now;
# Clean whitespace off the end.
chomp $this_line;
# The current line is ready to be printed.
$this_line .= "\n${left_pad_str}";
# Make sure the next line is allowed full room.
$length_remaining = $max_line_length - (length ($user_indent));
# Strip next_line, but then preserve any user_indent.
$next_line =~ s/^\s*//;
# Sneak a peek at the user_indent of the upcoming line, so
# $next_line (which will now precede it) can inherit that
# indent level. Otherwise, use whatever user_indent level
# we currently have, which might be none.
my $next_next_line = shift (@lines);
if ((defined ($next_next_line)) && ($next_next_line =~ /^(\s+)/)) {
$next_line = $1 . $next_line if (defined ($1));
# $length_remaining = $max_line_length - (length ($1));
$next_next_line =~ s/^\s*//;
}
else {
$next_line = $user_indent . $next_line;
}
if (defined ($next_next_line)) {
unshift (@lines, $next_next_line);
}
unshift (@lines, $next_line);
# Our new next line might, coincidentally, begin with one of
# the line-start regexps, so we temporarily turn off
# sensitivity to that until we're past the line.
$suppress_line_start_match = 1;
last;
}
else
{
$idx--;
}
}
if ($idx == 0)
{
# We bottomed out because the line is longer than the
# available space. But that could be because the space is
# small, or because the line is longer than even the maximum
# possible space. Handle both cases below.
if ($length_remaining == ($max_line_length - (length ($user_indent))))
{
# The line is simply too long -- there is no hope of ever
# breaking it nicely, so just insert it verbatim, with
# appropriate padding.
$this_line = "\n${left_pad_str}${this_line}";
}
else
{
# Can't break it here, but may be able to on the next round...
unshift (@lines, $this_line);
$length_remaining = $max_line_length - (length ($user_indent));
$this_line = "\n${left_pad_str}";
}
}
}
else # $this_len < $length_remaining, so tack on what we can.
{
# Leave a note for the next iteration.
$length_remaining = $length_remaining - $this_len;
if ($this_line =~ /\.$/)
{
$this_line .= " ";
$length_remaining -= 2;
}
else # not a sentence end
{
$this_line .= " ";
$length_remaining -= 1;
}
}
# Unconditionally indicate that loop has run at least once.
$first_time = 0;
$wrapped_text .= "${user_indent}${this_line}";
}
# One last bit of padding.
$wrapped_text .= "\n";
return $wrapped_text;
}
# -------------------------------------
sub _pretty_file_list {
my $self = shift;
my ($unanimous_tags, $non_unanimous_tags, $all_branches, $qunksref) = @_;
my @qunkrefs =
grep +( ( ! $_->tags_exists
or
! grep exists $ignore_tags{$_}, @{$_->tags})
and
( ! keys %show_tags
or
( $_->tags_exists
and
grep exists $show_tags{$_}, @{$_->tags} )
)
),
@$qunksref;
my $common_dir; # Dir prefix common to all files ('' if none)
# First, loop over the qunks gathering all the tag/branch names.
# We'll put them all in non_unanimous_tags, and take out the
# unanimous ones later.
QUNKREF:
foreach my $qunkref (@qunkrefs)
{
# Keep track of whether all the files in this commit were in the
# same directory, and memorize it if so. We can make the output a
# little more compact by mentioning the directory only once.
if ($Common_Dir && (scalar (@qunkrefs)) > 1)
{
if (! (defined ($common_dir)))
{
my ($base, $dir);
($base, $dir, undef) = fileparse ($qunkref->filename);
if ((! (defined ($dir))) # this first case is sheer paranoia
or ($dir eq '')
or ($dir eq "./")
or ($dir eq ".\\"))
{
$common_dir = '';
}
else
{
$common_dir = $dir;
}
}
elsif ($common_dir ne '')
{
# Already have a common dir prefix, so how much of it can we preserve?
$common_dir = &main::common_path_prefix ($qunkref->filename, $common_dir);
}
}
else # only one file in this entry anyway, so common dir not an issue
{
$common_dir = '';
}
if (defined ($qunkref->branch)) {
$all_branches->{$qunkref->branch} = 1;
}
if (defined ($qunkref->tags)) {
foreach my $tag (@{$qunkref->tags}) {
$non_unanimous_tags->{$tag} = 1;
}
}
}
# Any tag held by all qunks will be printed specially... but only if
# there are multiple qunks in the first place!
if ((scalar (@qunkrefs)) > 1) {
foreach my $tag (keys (%$non_unanimous_tags)) {
my $everyone_has_this_tag = 1;
foreach my $qunkref (@qunkrefs) {
if ((! (defined ($qunkref->tags)))
or (! (grep ($_ eq $tag, @{$qunkref->tags})))) {
$everyone_has_this_tag = 0;
}
}
if ($everyone_has_this_tag) {
$unanimous_tags->{$tag} = 1;
delete $non_unanimous_tags->{$tag};
}
}
}
return $common_dir, \@qunkrefs;
}
# -------------------------------------
sub fdatetime {
my $self = shift;
my ($year, $mday, $mon, $wday, $hour, $min);
if ( @_ > 1 ) {
($year, $mday, $mon, $wday, $hour, $min) = @_;
} else {
my ($time) = @_;
(undef, $min, $hour, $mday, $mon, $year, $wday) =
$UTC_Times ? gmtime($time) : localtime($time);
$year += 1900;
$mon += 1;
$wday = $self->wday($wday);
}
my $fdate = $self->fdate($year, $mon, $mday, $wday);
if ($Show_Times) {
my $ftime = $self->ftime($hour, $min);
return "$fdate $ftime";
} else {
return $fdate;
}
}
# -------------------------------------
sub fdate {
my $self = shift;
my ($year, $mday, $mon, $wday);
if ( @_ > 1 ) {
($year, $mon, $mday, $wday) = @_;
} else {
my ($time) = @_;
(undef, undef, undef, $mday, $mon, $year, $wday) =
$UTC_Times ? gmtime($time) : localtime($time);
$year += 1900;
$mon += 1;
$wday = $self->wday($wday);
}
return sprintf '%4u-%02u-%02u%s', $year, $mon, $mday, $wday;
}
# -------------------------------------
sub ftime {
my $self = shift;
my ($hour, $min);
if ( @_ > 1 ) {
($hour, $min) = @_;
} else {
my ($time) = @_;
(undef, $min, $hour) = $UTC_Times ? gmtime($time) : localtime($time);
}
return sprintf '%02u:%02u', $hour, $min;
}
# ----------------------------------------------------------------------------
package CVS::Utils::ChangeLog::Message;
sub new {
my $class = shift;
my ($msg) = @_;
my %self = (msg => $msg, files => []);
bless \%self, $class;
}
sub add_fileentry {
my $self = shift;
my ($fileentry) = @_;
die "Not a fileentry: $fileentry"
unless $fileentry->isa('CVS::Utils::ChangeLog::FileEntry');
push @{$self->{files}}, $fileentry;
}
sub files { wantarray ? @{$_[0]->{files}} : $_[0]->{files} }
# ----------------------------------------------------------------------------
package CVS::Utils::ChangeLog::FileEntry;
use File::Basename qw( fileparse );
# Each revision of a file has a little data structure (a `qunk')
# associated with it. That data structure holds not only the
# file's name, but any additional information about the file
# that might be needed in the output, such as the revision
# number, tags, branches, etc. The reason to have these things
# arranged in a data structure, instead of just appending them
# textually to the file's name, is that we may want to do a
# little rearranging later as we write the output. For example,
# all the files on a given tag/branch will go together, followed
# by the tag in parentheses (so trunk or otherwise non-tagged
# files would go at the end of the file list for a given log
# message). This rearrangement is a lot easier to do if we
# don't have to reparse the text.
#
# A qunk looks like this:
#
# {
# filename => "hello.c",
# revision => "1.4.3.2",
# time => a timegm() return value (moment of commit)
# tags => [ "tag1", "tag2", ... ],
# branch => "branchname" # There should be only one, right?
# roots => [ "branchtag1", "branchtag2", ... ]
# lines => "+x -y" # or undefined; x and y are integers
# }
# Single top-level ChangeLog, or one per subdirectory?
my $distributed;
sub distributed { $#_ ? ($distributed = $_[1]) : $distributed; }
sub new {
my $class = shift;
my ($path, $time, $revision, $state, $lines,
$branch_names, $branch_roots, $branch_numbers, $symbolic_names) = @_;
my %self = (time => $time,
revision => $revision,
state => $state,
lines => $lines,
branch_numbers => $branch_numbers,
);
if ( $distributed ) {
@self{qw(filename dir_key)} = fileparse($path);
} else {
@self{qw(filename dir_key)} = ($path, './');
}
{ # Scope for $branch_prefix
(my ($branch_prefix) = ($revision =~ /((?:\d+\.)+)\d+/));
$branch_prefix =~ s/\.$//;
if ( $branch_names->{$branch_prefix} ) {
my $branch_name = $branch_names->{$branch_prefix};
$self{branch} = $branch_name;
$self{branches} = [$branch_name];
}
while ( $branch_prefix =~ s/^(\d+(?:\.\d+\.\d+)+)\.\d+\.\d+$/$1/ ) {
push @{$self{branches}}, $branch_names->{$branch_prefix}
if exists $branch_names->{$branch_prefix};
}
}
# If there's anything in the @branch_roots array, then this
# revision is the root of at least one branch. We'll display
# them as branch names instead of revision numbers, the
# substitution for which is done directly in the array:
$self{'roots'} = [ map { $branch_names->{$_} } @$branch_roots ]
if @$branch_roots;
if ( exists $symbolic_names->{$revision} ) {
$self{tags} = delete $symbolic_names->{$revision};
&main::delta_check($time, $self{tags});
}
bless \%self, $class;
}
sub filename { $_[0]->{filename} }
sub dir_key { $_[0]->{dir_key} }
sub revision { $_[0]->{revision} }
sub branch { $_[0]->{branch} }
sub state { $_[0]->{state} }
sub lines { $_[0]->{lines} }
sub roots { $_[0]->{roots} }
sub branch_numbers { $_[0]->{branch_numbers} }
sub tags { $_[0]->{tags} }
sub tags_exists {
exists $_[0]->{tags};
}
# This may someday be used in a more sophisticated calculation of what other
# files are involved in this commit. For now, we don't use it much except for
# delta mode, because the common-commit-detection algorithm is hypothesized to
# be "good enough" as it stands.
sub time { $_[0]->{time} }
# ----------------------------------------------------------------------------
package CVS::Utils::ChangeLog::EntrySetBuilder;
use File::Basename qw( fileparse );
use Time::Local qw( timegm );
use constant MAILNAME => "/etc/mailname";
# In 'cvs log' output, one long unbroken line of equal signs separates files:
use constant FILE_SEPARATOR => '=' x 77;# . "\n";
# In 'cvs log' output, a shorter line of dashes separates log messages within
# a file:
use constant REV_SEPARATOR => '-' x 28;# . "\n";
use constant EMPTY_LOG_MESSAGE => '*** empty log message ***';
# -------------------------------------
sub new {
my ($proto) = @_;
my $class = ref $proto || $proto;
my $poobah = CVS::Utils::ChangeLog::EntrySet->new;
my $self = bless +{ grand_poobah => $poobah }, $class;
$self->clear_file;
$self->maybe_read_user_map_file;
return $self;
}
# -------------------------------------
sub clear_msg {
my ($self) = @_;
# Make way for the next message
undef $self->{rev_msg};
undef $self->{rev_time};
undef $self->{rev_revision};
undef $self->{rev_author};
undef $self->{rev_state};
undef $self->{lines};
$self->{rev_branch_roots} = []; # For showing which files are branch
# ancestors.
$self->{collecting_symbolic_names} = 0;
}
# -------------------------------------
sub clear_file {
my ($self) = @_;
$self->clear_msg;
undef $self->{filename};
$self->{branch_names} = +{}; # We'll grab branch names while we're
# at it.
$self->{branch_numbers} = +{}; # Save some revisions for
# @Follow_Branches
$self->{symbolic_names} = +{}; # Where tag names get stored.
}
# -------------------------------------
sub grand_poobah { $_[0]->{grand_poobah} }
# -------------------------------------
sub read_changelog {
my ($self, $command) = @_;
local (*READER, *WRITER);
my $pid;
if (! $Input_From_Stdin) {
pipe(READER, WRITER)
or die "Couldn't form pipe: $!\n";
$pid = fork;
die "Couldn't fork: $!\n"
if ! defined $pid;
if ( ! $pid ) { # child
open STDOUT, '>&=' . fileno WRITER
or die "Couldn't dup stderr to ", fileno WRITER, "\n";
# strangely, some perls give spurious warnings about STDIN being opened
# for output only these close calls precede the STDOUT reopen above.
# I think they must be reusing fd 1.
close READER;
close STDIN;
exec @$command;
}
close WRITER;
&main::debug ("(run \"@$command\")\n");
}
else {
open READER, '-' or die "unable to open stdin for reading";
}
binmode READER;
XX_Log_Source:
while () {
chomp;
s!\r$!!;
# If on a new file and don't see filename, skip until we find it, and
# when we find it, grab it.
if ( ! defined $self->{filename} ) {
$self->read_file_path($_);
} elsif ( /^symbolic names:$/ ) {
$self->{collecting_symbolic_names} = 1;
} elsif ( $self->{collecting_symbolic_names} ) {
$self->read_symbolic_name($_);
} elsif ( $_ eq FILE_SEPARATOR and ! defined $self->{rev_revision} ) {
$self->clear_file;
} elsif ( ! defined $self->{rev_revision} ) {
# If have file name, but not revision, and see revision, then grab
# it. (We collect unconditionally, even though we may or may not
# ever use it.)
$self->read_revision($_);
} elsif ( ! defined $self->{rev_time} ) { # and /^date: /) {
$self->read_date_author_and_state($_);
} elsif ( /^branches:\s+(.*);$/ ) {
$self->read_branches($1);
} elsif ( ! ( $_ eq FILE_SEPARATOR or $_ eq REV_SEPARATOR ) ) {
# If have file name, time, and author, then we're just grabbing
# log message texts:
$self->{rev_msg} .= $_ . "\n"; # Normally, just accumulate the message...
} else {
my $noadd = 0;
if ( ! $self->{rev_msg}
or $self->{rev_msg} =~ /^\s*(\.\s*)?$/
or index($self->{rev_msg}, EMPTY_LOG_MESSAGE) > -1 ) {
# ... until a msg separator is encountered:
# Ensure the message contains something:
$self->clear_msg, $noadd = 1
if $Prune_Empty_Msgs;
$self->{rev_msg} = "[no log message]\n";
}
$self->add_file_entry
unless $noadd;
if ( $_ eq FILE_SEPARATOR ) {
$self->clear_file;
} else {
$self->clear_msg;
}
}
}
close READER
or die "Couldn't close pipe reader: $!\n";
if ( defined $pid ) {
my $rv;
waitpid $pid, 0;
0 == $?
or $!=1, die sprintf("Problem reading log input (pid/exit/signal/core: %d/%d/%d/%d)\n",
$pid, $? >> 8, $? & 127, $? & 128);
}
return;
}
# -------------------------------------
sub add_file_entry {
$_[0]->grand_poobah->add_fileentry(@{$_[0]}{qw(filename rev_time rev_revision
rev_state lines branch_names
rev_branch_roots
branch_numbers
symbolic_names
rev_author rev_msg)});
}
# -------------------------------------
sub maybe_read_user_map_file {
my ($self) = @_;
my %expansions;
my $User_Map_Input;
if ($User_Map_File)
{
if ( $User_Map_File =~ m{^([-\w\@+=.,\/]+):([-\w\@+=.,\/:]+)} and
!-f $User_Map_File )
{
my $rsh = (exists $ENV{'CVS_RSH'} ? $ENV{'CVS_RSH'} : 'ssh');
$User_Map_Input = "$rsh $1 'cat $2' |";
&main::debug ("(run \"${User_Map_Input}\")\n");
}
else
{
$User_Map_Input = "<$User_Map_File";
}
open (MAPFILE, $User_Map_Input)
or die ("Unable to open $User_Map_File ($!)");
while ()
{
next if /^\s*#/; # Skip comment lines.
next if not /:/; # Skip lines without colons.
# It is now safe to split on ':'.
my ($username, $expansion) = split ':';
chomp $expansion;
$expansion =~ s/^'(.*)'$/$1/;
$expansion =~ s/^"(.*)"$/$1/;
# If it looks like the expansion has a real name already, then
# we toss the username we got from CVS log. Otherwise, keep
# it to use in combination with the email address.
if ($expansion =~ /^\s*<{0,1}\S+@.*/) {
# Also, add angle brackets if none present
if (! ($expansion =~ /<\S+@\S+>/)) {
$expansions{$username} = "$username <$expansion>";
}
else {
$expansions{$username} = "$username $expansion";
}
}
else {
$expansions{$username} = $expansion;
}
} # fi ($User_Map_File)
close (MAPFILE);
}
if (defined $User_Passwd_File)
{
if ( ! defined $Domain ) {
if ( -e MAILNAME ) {
chomp($Domain = slurp_file(MAILNAME));
} else {
MAILDOMAIN_CMD:
for ([qw(hostname -d)], 'dnsdomainname', 'domainname') {
my ($text, $exit, $sig, $core) = run_ext($_);
if ( $exit == 0 && $sig == 0 && $core == 0 ) {
chomp $text;
if ( length $text ) {
$Domain = $text;
last MAILDOMAIN_CMD;
}
}
}
}
}
die "No mail domain found\n"
unless defined $Domain;
open (MAPFILE, "<$User_Passwd_File")
or die ("Unable to open $User_Passwd_File ($!)");
while ()
{
# all lines are valid
my ($username, $pw, $uid, $gid, $gecos, $homedir, $shell) = split ':';
my $expansion = '';
($expansion) = split (',', $gecos)
if defined $gecos && length $gecos;
my $mailname = $Domain eq '' ? $username : "$username\@$Domain";
$expansions{$username} = "$expansion <$mailname>";
}
close (MAPFILE);
}
$self->{usermap} = \%expansions;
}
# -------------------------------------
sub read_file_path {
my ($self, $line) = @_;
my $path;
if ( $line =~ /^Working file: (.*)/ ) {
$path = $1;
} elsif ( defined $RCS_Root
and
$line =~ m|^RCS file: $RCS_Root[/\\](.*),v$| ) {
$path = $1;
$path =~ s!Attic/!!;
} else {
return;
}
if ( @Ignore_Files ) {
my $base;
($base, undef, undef) = fileparse($path);
my $xpath = $Case_Insensitive ? lc($path) : $path;
return
if grep $path =~ /$_/, @Ignore_Files;
}
$self->{filename} = $path;
return;
}
# -------------------------------------
sub read_symbolic_name {
my ($self, $line) = @_;
# All tag names are listed with whitespace in front in cvs log
# output; so if see non-whitespace, then we're done collecting.
if ( /^\S/ ) {
$self->{collecting_symbolic_names} = 0;
return;
} else {
# we're looking at a tag name, so parse & store it
# According to the Cederqvist manual, in node "Tags", tag names must start
# with an uppercase or lowercase letter and can contain uppercase and
# lowercase letters, digits, `-', and `_'. However, it's not our place to
# enforce that, so we'll allow anything CVS hands us to be a tag:
my ($tag_name, $tag_rev) = ($line =~ /^\s+([^:]+): ([\d.]+)$/);
# A branch number either has an odd number of digit sections
# (and hence an even number of dots), or has ".0." as the
# second-to-last digit section. Test for these conditions.
my $real_branch_rev = '';
if ( $tag_rev =~ /^(\d+\.\d+\.)+\d+$/ # Even number of dots...
and
$tag_rev !~ /^(1\.)+1$/ ) { # ...but not "1.[1.]1"
$real_branch_rev = $tag_rev;
} elsif ($tag_rev =~ /(\d+\.(\d+\.)+)0.(\d+)/) { # Has ".0."
$real_branch_rev = $1 . $3;
}
# If we got a branch, record its number.
if ( $real_branch_rev ) {
$self->{branch_names}->{$real_branch_rev} = $tag_name;
$self->{branch_numbers}->{$tag_name} = $real_branch_rev;
} else {
# Else it's just a regular (non-branch) tag.
push @{$self->{symbolic_names}->{$tag_rev}}, $tag_name;
}
}
$self->{collecting_symbolic_names} = 1;
return;
}
# -------------------------------------
sub read_revision {
my ($self, $line) = @_;
my ($revision) = ( $line =~ /^revision (\d+\.[\d.]+)/ );
return
unless $revision;
$self->{rev_revision} = $revision;
return;
}
# -------------------------------------
{ # Closure over %gecos_warned
my %gecos_warned;
sub read_date_author_and_state {
my ($self, $line) = @_;
my ($time, $author, $state) = $self->parse_date_author_and_state($line);
if ( defined($self->{usermap}->{$author}) and $self->{usermap}->{$author} ) {
$author = $self->{usermap}->{$author};
} elsif ( defined $Domain or $Gecos == 1 ) {
my $email = $author;
$email = $author."@".$Domain
if defined $Domain && $Domain ne '';
my $pw = getpwnam($author);
my ($fullname, $office, $workphone, $homephone, $gcos);
if ( defined $pw ) {
$gcos = (getpwnam($author))[6];
($fullname, $office, $workphone, $homephone) =
split /\s*,\s*/, $gcos;
} else {
warn "Couldn't find gecos info for author '$author'\n"
unless $gecos_warned{$author}++;
$fullname = '';
}
for (grep defined, $fullname, $office, $workphone, $homephone) {
s/&/ucfirst(lc($pw->name))/ge;
}
$author = $fullname . " <" . $email . ">"
if $fullname ne '';
}
$self->{rev_state} = $state;
$self->{rev_time} = $time;
$self->{rev_author} = $author;
return;
}
}
# -------------------------------------
sub read_branches {
# A "branches: ..." line here indicates that one or more branches
# are rooted at this revision. If we're showing branches, then we
# want to show that fact as well, so we collect all the branches
# that this is the latest ancestor of and store them in
# $self->[rev_branch_roots}. Just for reference, the format of the
# line we're seeing at this point is:
#
# branches: 1.5.2; 1.5.4; ...;
#
# Okay, here goes:
my ($self, $line) = @_;
# Ugh. This really bothers me. Suppose we see a log entry
# like this:
#
# ----------------------------
# revision 1.1
# date: 1999/10/17 03:07:38; author: jrandom; state: Exp;
# branches: 1.1.2;
# Intended first line of log message begins here.
# ----------------------------
#
# The question is, how we can tell the difference between that
# log message and a *two*-line log message whose first line is
#
# "branches: 1.1.2;"
#
# See the problem? The output of "cvs log" is inherently
# ambiguous.
#
# For now, we punt: we liberally assume that people don't
# write log messages like that, and just toss a "branches:"
# line if we see it but are not showing branches. I hope no
# one ever loses real log data because of this.
if ( $Show_Branches ) {
$line =~ s/(1\.)+1;|(1\.)+1$//; # ignore the trivial branch 1.1.1
$self->{rev_branch_roots} = [split /;\s+/, $line]
if length $line;
}
}
# -------------------------------------
sub parse_date_author_and_state {
my ($self, $line) = @_;
# Parses the date/time and author out of a line like:
#
# date: 1999/02/19 23:29:05; author: apharris; state: Exp;
#
# or, in CVS 1.12.9:
#
# date: 2004-06-05 16:10:32 +0000; author: somebody; state: Exp;
my ($year, $mon, $mday, $hours, $min, $secs, $utcOffset, $author, $state, $rest) =
$line =~
m!(\d+)[-/](\d+)[-/](\d+)\s+(\d+):(\d+):(\d+)(\s+[+-]\d{4})?;\s+
author:\s+([^;]+);\s+state:\s+([^;]+);(.*)!x
or die "Couldn't parse date ``$line''";
die "Bad date or Y2K issues"
unless $year > 1969 and $year < 2258;
# Kinda arbitrary, but useful as a sanity check
my $time = timegm($secs, $min, $hours, $mday, $mon-1, $year-1900);
if ( defined $utcOffset ) {
my ($plusminus, $hour, $minute) = ($utcOffset =~ m/([+-])(\d\d)(\d\d)/);
my $offset = (($hour * 60) + $minute) * 60 * ($plusminus eq '+' ? -1 : 1);
$time += $offset;
}
if ( $rest =~ m!\s+lines:\s+(.*)! ) {
$self->{lines} = $1;
}
return $time, $author, $state;
}
# Subrs ----------------------------------------------------------------------
package main;
sub delta_check {
my ($time, $tags) = @_;
# If we're in 'delta' mode, update the latest observed times for the
# beginning and ending tags, and when we get around to printing output, we
# will simply restrict ourselves to that timeframe...
return
unless $Delta_Mode;
$Delta_StartTime = $time
if $time > $Delta_StartTime and grep { $_ eq $Delta_From } @$tags;
$Delta_EndTime = $time
if $time > $Delta_EndTime and grep { $_ eq $Delta_To } @$tags;
}
sub run_ext {
my ($cmd) = @_;
$cmd = [$cmd]
unless ref $cmd;
local $" = ' ';
my $out = qx"@$cmd 2>&1";
my $rv = $?;
my ($sig, $core, $exit) = ($? & 127, $? & 128, $? >> 8);
return $out, $exit, $sig, $core;
}
# -------------------------------------
# If accumulating, grab the boundary date from pre-existing ChangeLog.
sub maybe_grab_accumulation_date {
if (! $Cumulative || $Update) {
return '';
}
# else
open (LOG, "$Log_File_Name")
or die ("trouble opening $Log_File_Name for reading ($!)");
my $boundary_date;
while ()
{
if (/^(\d\d\d\d-\d\d-\d\d\s+(\w+\s+)?\d\d:\d\d)/)
{
$boundary_date = "$1";
last;
}
}
close (LOG);
# convert time from utc to local timezone if the ChangeLog has
# dates/times in utc
if ($UTC_Times && $boundary_date)
{
# convert the utc time to a time value
my ($year,$mon,$mday,$hour,$min) = $boundary_date =~
m#(\d+)-(\d+)-(\d+)\s+(\d+):(\d+)#;
my $time = timegm(0,$min,$hour,$mday,$mon-1,$year-1900);
# print the timevalue in the local timezone
my ($ignore,$wday);
($ignore,$min,$hour,$mday,$mon,$year,$wday) = localtime($time);
$boundary_date=sprintf ("%4u-%02u-%02u %02u:%02u",
$year+1900,$mon+1,$mday,$hour,$min);
}
return $boundary_date;
}
# -------------------------------------
# Fills up a ChangeLog structure in the current directory.
sub derive_changelog {
my ($command) = @_;
# See "The Plan" above for a full explanation.
# Might be adding to an existing ChangeLog
my $accumulation_date = maybe_grab_accumulation_date;
if ($accumulation_date) {
# Insert -d immediately after 'cvs log'
my $Log_Date_Command = "-d>${accumulation_date}";
my ($log_index) = grep $command->[$_] eq 'log', 0..$#$command;
splice @$command, $log_index+1, 0, $Log_Date_Command;
&debug ("(adding log msg starting from $accumulation_date)\n");
}
# output_changelog(read_changelog($command));
my $builder = CVS::Utils::ChangeLog::EntrySetBuilder->new;
$builder->read_changelog($command);
$builder->grand_poobah->output_changelog;
}
# -------------------------------------
sub min { $_[0] < $_[1] ? $_[0] : $_[1] }
# -------------------------------------
sub common_path_prefix {
my ($path1, $path2) = @_;
# For compatibility (with older versions of cvs2cl.pl), we think in UN*X
# terms, and mould windoze filenames to match. Is this really appropriate?
# If a file is checked in under UN*X, and cvs log run on windoze, which way
# do the path separators slope? Can we use fileparse as per the local
# conventions? If so, we should probably have a user option to specify an
# OS to emulate to handle stdin-fed logs. If we did this, we could avoid
# the nasty \-/ transmogrification below.
my ($dir1, $dir2) = map +(fileparse($_))[1], $path1, $path2;
# Transmogrify Windows filenames to look like Unix.
# (It is far more likely that someone is running cvs2cl.pl under
# Windows than that they would genuinely have backslashes in their
# filenames.)
tr!\\!/!
for $dir1, $dir2;
my ($accum1, $accum2, $last_common_prefix) = ('') x 3;
my @path1 = grep length($_), split qr!/!, $dir1;
my @path2 = grep length($_), split qr!/!, $dir2;
my @common_path;
for (0..min($#path1,$#path2)) {
if ( $path1[$_] eq $path2[$_]) {
push @common_path, $path1[$_];
} else {
last;
}
}
return join '', map "$_/", @common_path;
}
# -------------------------------------
sub parse_options {
# Check this internally before setting the global variable.
my $output_file;
# If this gets set, we encountered unknown options and will exit at
# the end of this subroutine.
my $exit_with_admonishment = 0;
# command to generate the log
my @log_source_command = qw( cvs log );
my (@Global_Opts, @Local_Opts);
Getopt::Long::Configure(qw( bundling permute no_getopt_compat
pass_through no_ignore_case ));
GetOptions('help|usage|h' => \$Print_Usage,
'debug' => \$Debug, # unadvertised option, heh
'version' => \$Print_Version,
'file|f=s' => \$output_file,
'accum' => \$Cumulative,
'update' => \$Update,
'fsf' => \$FSF_Style,
'rcs=s' => \$RCS_Root,
'usermap|U=s' => \$User_Map_File,
'gecos' => \$Gecos,
'domain=s' => \$Domain,
'passwd=s' => \$User_Passwd_File,
'window|W=i' => \$Max_Checkin_Duration,
'chrono' => \$Chronological_Order,
'ignore|I=s' => \@Ignore_Files,
'case-insensitive|C' => \$Case_Insensitive,
'regexp|R=s' => \$Regexp_Gate,
'stdin' => \$Input_From_Stdin,
'stdout' => \$Output_To_Stdout,
'distributed|d' => sub { CVS::Utils::ChangeLog::FileEntry->distributed(1) },
'prune|P' => \$Prune_Empty_Msgs,
'no-wrap' => \$No_Wrap,
'gmt|utc' => \$UTC_Times,
'day-of-week|w' => \$Show_Day_Of_Week,
'revisions|r' => \$Show_Revisions,
'show-dead' => \$Show_Dead,
'tags|t' => \$Show_Tags,
'tagdates|T' => \$Show_Tag_Dates,
'branches|b' => \$Show_Branches,
'follow|F=s' => \@Follow_Branches,
'follow-only=s' => \@Follow_Only,
'xml-encoding=s' => \$XML_Encoding,
'xml' => \$XML_Output,
'noxmlns' => \$No_XML_Namespace,
'no-xml-iso-date' => \$No_XML_ISO_Date,
'no-ancestors' => \$No_Ancestors,
'lines-modified' => \$Show_Lines_Modified,
'no-indent' => sub {
$Indent = '';
},
'summary' => sub {
$Summary = 1;
$After_Header = "\n\n"; # Summary implies --separate-header
},
'no-times' => sub {
$Show_Times = 0;
},
'no-hide-branch-additions' => sub {
$Hide_Branch_Additions = 0;
},
'no-common-dir' => sub {
$Common_Dir = 0;
},
'ignore-tag=s' => sub {
$ignore_tags{$_[1]} = 1;
},
'show-tag=s' => sub {
$show_tags{$_[1]} = 1;
},
# Deliberately undocumented. This is not a public interface, and
# may change/disappear at any time.
'test-code=s' => \$TestCode,
'delta=s' => sub {
my $arg = $_[1];
if ( $arg =~
/^([A-Za-z][A-Za-z0-9_\-\]\[\.]*):([A-Za-z][A-Za-z0-9_\-\]\[\.]*)$/ ) {
$Delta_From = $1;
$Delta_To = $2;
$Delta_Mode = 1;
} else {
die "--delta FROM_TAG:TO_TAG is what you meant to say.\n";
}
},
'FSF' => sub {
$Show_Times = 0;
$Common_Dir = 0;
$No_Extra_Indent = 1;
$Indent = "\t";
},
'header=s' => sub {
my $narg = $_[1];
$ChangeLog_Header = &slurp_file ($narg);
if (! defined ($ChangeLog_Header)) {
$ChangeLog_Header = '';
}
},
'global-opts|g=s' => sub {
my $narg = $_[1];
push @Global_Opts, $narg;
splice @log_source_command, 1, 0, $narg;
},
'log-opts|l=s' => sub {
my $narg = $_[1];
push @Local_Opts, $narg;
push @log_source_command, $narg;
},
'mailname=s' => sub {
my $narg = $_[1];
warn "--mailname is deprecated; please use --domain instead\n";
$Domain = $narg;
},
'separate-header|S' => sub {
$After_Header = "\n\n";
$No_Extra_Indent = 1;
},
'group-within-date' => sub {
$GroupWithinDate = 1;
$Show_Times = 0;
},
'hide-filenames' => sub {
$Hide_Filenames = 1;
$After_Header = '';
},
)
or die "options parsing failed\n";
push @log_source_command, map "$_", @ARGV;
## Check for contradictions...
if ($Output_To_Stdout && CVS::Utils::ChangeLog::FileEntry->distributed) {
print STDERR "cannot pass both --stdout and --distributed\n";
$exit_with_admonishment = 1;
}
if ($Output_To_Stdout && $output_file) {
print STDERR "cannot pass both --stdout and --file\n";
$exit_with_admonishment = 1;
}
if ($Input_From_Stdin && @Global_Opts) {
print STDERR "cannot pass both --stdin and -g\n";
$exit_with_admonishment = 1;
}
if ($Input_From_Stdin && @Local_Opts) {
print STDERR "cannot pass both --stdin and -l\n";
$exit_with_admonishment = 1;
}
if ($XML_Output && $Cumulative) {
print STDERR "cannot pass both --xml and --accum\n";
$exit_with_admonishment = 1;
}
# Other consistency checks and option-driven logic
# Bleargh. Compensate for a deficiency of custom wrapping.
if ( ($After_Header ne " ") and $FSF_Style ) {
$After_Header .= "\t";
}
@Ignore_Files = map lc, @Ignore_Files
if $Case_Insensitive;
# Or if any other error message has already been printed out, we
# just leave now:
if ($exit_with_admonishment) {
&usage ();
exit (1);
}
elsif ($Print_Usage) {
&usage ();
exit (0);
}
elsif ($Print_Version) {
&version ();
exit (0);
}
## Else no problems, so proceed.
if ($output_file) {
$Log_File_Name = $output_file;
}
return \@log_source_command;
}
# -------------------------------------
sub slurp_file {
my $filename = shift || die ("no filename passed to slurp_file()");
my $retstr;
open (SLURPEE, "<${filename}") or die ("unable to open $filename ($!)");
local $/ = undef;
$retstr = ;
close (SLURPEE);
return $retstr;
}
# -------------------------------------
sub debug {
if ($Debug) {
my $msg = shift;
print STDERR $msg;
}
}
# -------------------------------------
sub version {
print "cvs2cl.pl version ${VERSION}; distributed under the GNU GPL.\n";
}
# -------------------------------------
sub usage {
&version ();
eval "use Pod::Usage qw( pod2usage )";
if ( $@ ) {
print <<'END';
* Pod::Usage was not found. The formatting may be suboptimal. Consider
upgrading your Perl --- Pod::Usage is standard from 5.6 onwards, and
versions of perl prior to 5.6 are getting rather rusty, now. Alternatively,
install Pod::Usage direct from CPAN.
END
local $/ = undef;
my $message = ;
$message =~ s/^=(head1|item) //gm;
$message =~ s/^=(over|back).*\n//gm;
$message =~ s/\n{3,}/\n\n/g;
print $message;
} else {
print "\n";
pod2usage( -exitval => 'NOEXIT',
-verbose => 1,
-output => \*STDOUT,
);
}
return;
}
# Main -----------------------------------------------------------------------
my $log_source_command = parse_options;
if ( defined $TestCode ) {
eval $TestCode;
die "Eval failed: '$@'\n"
if $@;
} else {
derive_changelog($log_source_command);
}
__DATA__
=head1 NAME
cvs2cl.pl - convert cvs log messages to changelogs
=head1 SYNOPSIS
B [I] [I [I ...]]
=head1 DESCRIPTION
cvs2cl produces a GNU-style ChangeLog for CVS-controlled sources by
running "cvs log" and parsing the output. Duplicate log messages get
unified in the Right Way.
The default output of cvs2cl is designed to be compact, formally unambiguous,
but still easy for humans to read. It should be largely self-explanatory; the
one abbreviation that might not be obvious is "utags". That stands for
"universal tags" -- a universal tag is one held by all the files in a given
change entry.
If you need output that's easy for a program to parse, use the B<--xml> option.
Note that with XML output, just about all available information is included
with each change entry, whether you asked for it or not, on the theory that
your parser can ignore anything it's not looking for.
If filenames are given as arguments cvs2cl only shows log information for the
named files.
=head1 OPTIONS
=over 4
=item B<-h>, B<-help>, B<--help>, B<-?>
Show a short help and exit.
=item B<--version>
Show version and exit.
=item B<-r>, B<--revisions>
Show revision numbers in output.
=item B<-b>, B<--branches>
Show branch names in revisions when possible.
=item B<-t>, B<--tags>
Show tags (symbolic names) in output.
=item B<-T>, B<--tagdates>
Show tags in output on their first occurance.
=item B<--show-dead>
Show dead files.
=item B<--stdin>
Read from stdin, don't run cvs log.
=item B<--stdout>
Output to stdout not to ChangeLog.
=item B<-d>, B<--distributed>
Put ChangeLogs in subdirs.
=item B<-f> I, B<--file> I
Write to I instead of ChangeLog.
=item B<--fsf>
Use this if log data is in FSF ChangeLog style.
=item B<--FSF>
Attempt strict FSF-standard compatible output.
=item B<-W> I, B<--window> I
Window of time within which log entries unify.
=item -B I, B<--usermap> I
Expand usernames to email addresses from I.
=item B<--passwd> I
Use system passwd file for user name expansion. If no mail domain is provided
(via B<--domain>), it tries to read one from B, output of B, B, or B. cvs2cl exits with an error if none of
those options is successful. Use a domain of '' to prevent the addition of a
mail domain.
=item B<--domain> I
Domain to build email addresses from.
=item B<--gecos>
Get user information from GECOS data.
=item B<-R> I, B<--regexp> I
Include only entries that match I. This option may be used multiple
times.
=item B<-I> I, B<--ignore> I
Ignore files whose names match I. This option may be used multiple
times. The regexp is a perl regular expression. It is matched as is; you may
want to prefix with a ^ or suffix with a $ to anchor the match.
=item B<-C>, B<--case-insensitive>
Any regexp matching is done case-insensitively.
=item B<-F> I, B<--follow> I
Show only revisions on or ancestral to I.
=item B<--follow-only> I
Like --follow, but sub-branches are not followed.
=item B<--no-ancestors>
When using B<-F>, only track changes since the I started.
=item B<--no-hide-branch-additions>
By default, entries generated by cvs for a file added on a branch (a dead 1.1
entry) are not shown. This flag reverses that action.
=item B<-S>, B<--separate-header>
Blank line between each header and log message.
=item B<--summary>
Add CVS change summary information.
=item B<--no-wrap>
Don't auto-wrap log message (recommend B<-S> also).
=item B<--no-indent>
Don't indent log message
=item B<--gmt>, B<--utc>
Show times in GMT/UTC instead of local time.
=item B<--accum>
Add to an existing ChangeLog (incompatible with B<--xml>).
=item B<-w>, B<--day-of-week>
Show day of week.
=item B<--no-times>
Don't show times in output.
=item B<--chrono>
Output log in chronological order (default is reverse chronological order).
=item B<--header> I
Get ChangeLog header from I ("B<->" means stdin).
=item B<--xml>
Output XML instead of ChangeLog format.
=item B<--xml-encoding> I
Insert encoding clause in XML header.
=item B<--noxmlns>
Don't include xmlns= attribute in root element.
=item B<--hide-filenames>
Don't show filenames (ignored for XML output).
=item B<--no-common-dir>
Don't shorten directory names from filenames.
=item B<--rcs> I
Handle filenames from raw RCS, for instance those produced by "cvs rlog"
output, stripping the prefix I.
=item B<-P>, B<--prune>
Don't show empty log messages.
=item B<--lines-modified>
Output the number of lines added and the number of lines removed for
each checkin (if applicable). At the moment, this only affects the
XML output mode.
=item B<--ignore-tag> I
Ignore individual changes that are associated with a given tag.
May be repeated, if so, changes that are associated with any of
the given tags are ignored.
=item B<--show-tag> I
Log only individual changes that are associated with a given
tag. May be repeated, if so, changes that are associated with
any of the given tags are logged.
=item B<--delta> IB<:>I
Attempt a delta between two tags (since I up to and
including I). The algorithm is a simple date-based one
(this is a hard problem) so results are imperfect.
=item B<-g> I, B<--global-opts> I
Pass I to cvs like in "cvs I log ...".
=item B<-l> I, B<--log-opts> I
Pass I to cvs log like in "cvs ... log I".
=back
Notes about the options and arguments:
=over 4
=item *
The B<-I> and B<-F> options may appear multiple times.
=item *
To follow trunk revisions, use "B<-F trunk>" ("B<-F TRUNK>" also works). This is
okay because no would ever, ever be crazy enough to name a branch "trunk",
right? Right.
=item *
For the B<-U> option, the I should be formatted like CVSROOT/users. That is,
each line of I looks like this:
jrandom:jrandom@red-bean.com
or maybe even like this
jrandom:'Jesse Q. Random '
Don't forget to quote the portion after the colon if necessary.
=item *
Many people want to filter by date. To do so, invoke cvs2cl.pl like this:
cvs2cl.pl -l "-d'DATESPEC'"
where DATESPEC is any date specification valid for "cvs log -d". (Note that
CVS 1.10.7 and below requires there be no space between -d and its argument).
=item *
Dates/times are interpreted in the local time zone.
=item *
Remember to quote the argument to `B<-l>' so that your shell doesn't interpret
spaces as argument separators.
=item *
See the 'Common Options' section of the cvs manual ('info cvs' on UNIX-like
systems) for more information.
=item *
Note that the rules for quoting under windows shells are different.
=item *
To run in an automated environment such as CGI or PHP, suidperl may be needed
in order to execute as the correct user to enable /cvsroot read lock files to
be written for the 'cvs log' command. This is likely just a case of changing
the /usr/bin/perl command to /usr/bin/suidperl, and explicitly declaring the
PATH variable.
=back
=head1 EXAMPLES
Some examples (working on UNIX shells):
# logs after 6th March, 2003 (inclusive)
cvs2cl.pl -l "-d'>2003-03-06'"
# logs after 4:34PM 6th March, 2003 (inclusive)
cvs2cl.pl -l "-d'>2003-03-06 16:34'"
# logs between 4:46PM 6th March, 2003 (exclusive) and
# 4:34PM 6th March, 2003 (inclusive)
cvs2cl.pl -l "-d'2003-03-06 16:46>2003-03-06 16:34'"
Some examples (on non-UNIX shells):
# Reported to work on windows xp/2000
cvs2cl.pl -l "-d"">2003-10-18;today<"""
=head1 AUTHORS
=over 4
=item Karl Fogel
=item Melissa O'Neill
=item Martyn J. Pearce
=back
Contributions from
=over 4
=item Mike Ayers
=item Tim Bradshaw
=item Richard Broberg
=item Nathan Bryant
=item Oswald Buddenhagen
=item Neil Conway
=item Arthur de Jong
=item Mark W. Eichin
=item Dave Elcock
=item Reid Ellis
=item Simon Josefsson
=item Robin Hugh Johnson
=item Terry Kane
=item Pete Kempf
=item Akos Kiss
=item Claus Klein
=item Eddie Kohler
=item Richard Laager
=item Kevin Lilly
=item Karl-Heinz Marbaise
=item Mitsuaki Masuhara
=item Henrik Nordstrom
=item Joe Orton
=item Peter Palfrader
=item Thomas Parmelan
=item Jordan Russell
=item Jacek Sliwerski
=item Johannes Stezenbach
=item Joseph Walton
=item Ernie Zapata
=back
=head1 BUGS
Please report bugs to C.
=head1 PREREQUISITES
This script requires C, C, and C. It
also seems to require C or higher.
=head1 OPERATING SYSTEM COMPATIBILITY
Should work on any OS.
=head1 SCRIPT CATEGORIES
Version_Control/CVS
=head1 COPYRIGHT
(C) 2001,2002,2003,2004 Martyn J. Pearce , under the GNU GPL.
(C) 1999 Karl Fogel , under the GNU GPL.
cvs2cl.pl is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
cvs2cl.pl is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You may have received a copy of the GNU General Public License
along with cvs2cl.pl; see the file COPYING. If not, write to the
Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.
=head1 SEE ALSO
cvs(1)
pecomato-0.0.15/devtools/html2ps.pl 0000755 0001752 0001752 00000402236 10677223051 016172 0 ustar devel devel : # Use perl
eval 'exec perl -S $0 "$@"'
if $running_under_some_shell;
# This is html2ps version 1.0 beta5, an HTML-to-PostScript converter.
# Copyright (C) 1995-2005 Jan Karrman.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# Author: Jan Karrman, Dept. of Information Technology, Uppsala University,
# Sweden, e-mail: jan@it.uu.se.
# Set the name of the global configuration file. See the installation notes
# and manual page for more details on configuration files.
$globrc='/opt/misc/lib/html2ps/html2psrc';
$ug='/opt/misc/lib/html2ps/html2ps.html';
$conf=<<'EOR';
@html2ps {
package {
PerlMagick: 0;
ImageMagick: 0;
pbmplus: 0;
netpbm: 0;
djpeg: 0;
Ghostscript: 0;
TeX: 0;
dvips: 0;
libwww-perl: 0;
geturl: "";
check: "";
path: "";
}
paper {
type: A4;
height: "";
width: "";
}
option {
twoup: 0;
base: "";
check: 0;
toc: "";
debug: 0;
DSC: 0;
encoding: "ISO-8859-1";
rcfile: "";
frame: 0;
grayscale: 0;
help: 0;
hyphenate: 0;
scaleimage: 1;
cookie: "";
language: "";
landscape: 0;
scalemath: 1;
mainchapter: 1;
number: 0;
startno: "";
output: "";
original: 0;
rootdir: "";
xref: 0;
scaledoc: 1;
style: "";
titlepage: 0;
text: 0;
underline: 0;
colour: 0;
version: 0;
web: "";
duplex: "";
}
margin {
middle: 2cm;
}
xref {
text: "[p $N]";
passes: 1;
}
quote {
en {
open: "“";
close: "”";
open2: "`";
close2: "'";
}
sv {
open: "”";
close: "”";
open2: "'";
close2: "'";
}
da {
open: "»";
close: "«";
}
no {
open: "«";
close: "»";
}
fr {
open: "« ";
close: " »";
}
de {
open: "„";
close: "“";
open2: "‚";
close2: "`";
}
fi: sv;
es: en;
it: no;
nn: no;
nb: no;
}
toc {
heading: "Table of Contents ";
level: 6;
indent: 1em;
}
titlepage {
content: "
$T $[author] ";
margin-top: 4cm;
}
font {
times {
names: "Times-Roman
Times-Italic
Times-Bold
Times-BoldItalic";
}
new-century-schoolbook {
names: "NewCenturySchlbk-Roman
NewCenturySchlbk-Italic
NewCenturySchlbk-Bold
NewCenturySchlbk-BoldItalic";
}
helvetica {
names: "Helvetica
Helvetica-Oblique
Helvetica-Bold
Helvetica-BoldOblique";
}
helvetica-narrow {
names: "Helvetica-Narrow
Helvetica-Narrow-Oblique
Helvetica-Narrow-Bold
Helvetica-Narrow-BoldOblique";
}
palatino {
names: "Palatino-Roman
Palatino-Italic
Palatino-Bold
Palatino-BoldItalic";
}
avantgarde {
names: "AvantGarde-Book
AvantGarde-BookOblique
AvantGarde-Demi
AvantGarde-DemiOblique";
}
bookman {
names: "Bookman-Light
Bookman-LightItalic
Bookman-Demi
Bookman-DemiItalic";
}
courier {
names: "Courier
Courier-Oblique
Courier-Bold
Courier-BoldOblique";
}
}
hyphenation {
min: 8;
start: 4;
end: 3;
en {
file: "";
extfile: "";
}
}
header {
left: "";
center: "";
right: "";
odd-left: "";
odd-center: "";
odd-right: "";
even-left: "";
even-center: "";
even-right: "";
font-family: Helvetica;
font-size: 8pt;
font-style: normal;
font-weight: normal;
color: black;
alternate: 1;
}
footer {
left: "";
center: "";
right: "";
odd-left: "";
odd-center: "";
odd-right: "";
even-left: "";
even-center: "";
even-right: "";
font-family: Helvetica;
font-size: 8pt;
font-style: normal;
font-weight: normal;
color: black;
alternate: 1;
}
frame {
width: 0.6pt;
margin: 0.5cm;
color: black;
}
justify {
word: 15pt;
letter: 0pt;
}
draft {
text: DRAFT;
print: "";
dir: 0;
font-family: Helvetica;
font-style: normal;
font-weight: bold;
color: F0F0F0;
}
colour {
black: 000000;
green: 008000;
silver: C0C0C0;
lime: 00FF00;
gray: 808080;
olive: 808000;
white: FFFFFF;
yellow: FFFF00;
maroon: 800000;
navy: 000080;
red: FF0000;
blue: 0000FF;
purple: 800080;
teal: 008080;
fuchsia: FF00FF;
aqua: 00FFFF;
}
html2psrc: "$HOME/.html2psrc";
imgalt: "[IMAGE]";
datefmt: "%e %b %Y %R";
locale: "";
doc-sep: "";
ball-radius: 0.25em;
numbstyle: 0;
showurl: 0;
seq-number: 0;
extrapage: 1;
break-table: 0;
forms: 1;
textarea-data: 0;
page-break: 1;
expand-acronyms: 0;
spoof: "";
ssi: 1;
prefilled: 0;
}
BODY {
font-family: Times;
font-size: 11pt;
text-align: left;
background: white;
}
H1, H2, H3, H4, H5, H6 {
font-weight: bold;
margin-top: 0.8em;
margin-bottom: 0.5em;
}
H1 { font-size: 19pt }
H2 { font-size: 17pt }
H3 { font-size: 15pt }
H4 { font-size: 13pt }
H5 { font-size: 12pt }
H6 { font-size: 11pt }
P, OL, UL, DL, BLOCKQUOTE, PRE {
margin-top: 1em;
margin-bottom: 1em;
}
P {
line-height: 1.2em;
text-indent: 0;
}
OL, UL, DD { margin-left: 2em }
TT, KBD, PRE { font-family: Courier }
PRE { font-size: 9pt }
BLOCKQUOTE {
margin-left: 1em;
margin-right: 1em;
}
ADDRESS {
margin-top: 0.5em;
margin-bottom: 0.5em;
}
TABLE {
margin-top: 1.3em;
margin-bottom: 1em;
}
DIV.noprint { display: none }
DEL { text-decoration: line-through }
A:link, HR { color: black }
@page {
margin-left: 2.5cm;
margin-right: 2.5cm;
margin-top: 3cm;
margin-bottom: 3cm;
}
EOR
eval "require POSIX";
$posix = !$@;
%extend=('quote',1, 'font',1, 'colour',1, 'hyphenation',1);
%fal=("serif","times", "sans_serif","helvetica", "monospace","courier");
@fo=("p","pre","h1","h2","h3","h4","h5","h6","i","b","tt","kbd","cite","samp",
"address","blockquote","ol","ul","dl","dt","dd","table","header","footer");
%quote=('','en');
%valid=('font',1, 'font_files',1, 'margin,left',1, 'margin,right',1,
'margin,top',1, 'margin,bottom',1);
%cm=('cm',1, 'mm',0.1, 'in',2.54, 'pt',2.54/72, 'pc',2.54/6);
%pt=('cm',72/2.54, 'mm',72/25.4, 'in',72, 'pt',1, 'pc',12);
%space=('thinsp',6, '#8201',6, 'ensp',2, '#8194',2, 'emsp',1, '#8195',1);
$space=join('|',keys %space);
%vars=("T","Ti", "N","Pn", "U","UR", "H","h", "A","Au");
%height=("letter",27.9, "legal",35.6, "arche",121.9, "archd",91.4, "archc",61,
"archb",45.7, "archa",30.5, "flsa",33, "flse",33, "halfletter",21.6,
"11x17",43.2, "ledger",27.9);
%width=("letter",21.6, "legal",21.6, "arche",91.4, "archd",61, "archc",45.7,
"archb",30.5, "archa",22.9, "flsa",21.6, "flse",21.6, "halfletter",14,
"11x17",27.9, "ledger",43.2);
$version="html2ps version 1.0 beta5";
$opts="2|b:|c|C:|d|D|e:|f:|F|g|h|H|i:|k:|l:|L|m:|M:|n|N:|o:|O|r:|R|s:|S:|t|T|"
."u|U|v|W:|x:";
%optalias=( 'twoup','2', 'base','b', 'check','c', 'toc','C', 'debug','d',
'DSC','D', 'encoding','e', 'rcfile','f', 'frame','F', 'grayscale','g',
'help','h', 'hyphenate','H', 'scaleimage','i', 'cookie','k', 'language','l',
'landscape','L', 'scalemath','m', 'mainchapter','M', 'number','n',
'startno','N', 'output','o', 'original','O', 'rootdir','r', 'xref','R',
'scaledoc','s', 'style','S', 'titlepage','t', 'text','T', 'underline','u',
'colour','U', 'version','v', 'web','W', 'duplex','x');
%type=( 'paper,height',2, 'paper,width',2, 'option,i',3, 'option,m',3,
'option,M',4, 'option,N',4, 'option,s',3, 'option,x',4, 'xref,passes',4,
'draft,print',5);
$usage=<html2ps.dbg") || die "Error opening debug file: html2ps.dbg\n";
print STDERR "***** Writing debug info to html2ps.dbg\n";
print DBG "***** $version\n***** Command: $0 $args\n***** Perl: $]\n";
print DBG "***** HTML2PSPATH=$ENV{'HTML2PSPATH'}\n";
}
undef $/;
$user=0;
$V='(-?\d+\.?\d*|-?\d*\.?\d+)';
&getconf($conf);
&pagedef;
undef %AT_page;
for(@fo,"draft") {
eval "\$deffnt{'$_'}=defined \$$_\{'font-family'\}?"
."\$$_\{'font-family'\}:\$body{'font-family'}";
}
$user=1;
if(open(RC,"<$globrc")) {
$conf=;
print DBG "***** Global file $globrc:\n$conf" if($opt_d);
&getconf($conf);
close RC;
} else {
&dbg("Warning: cannot open the global resource file: $globrc\n") if($globrc);
}
$html2psrc=~s/^(~|\$HOME)/$ENV{"HOME"}/;
$prc=$html2psrc;
if($opt_f) {
($prc=$opt_f)=~s/^:/$html2psrc:/;
$prc=~s/:$/:$html2psrc/;
$prc=~s/::/:$html2psrc:/;
}
$cwd=$posix?POSIX::getcwd():"";
opendir(DIR,$cwd);
@local=readdir DIR;
closedir DIR;
$globrc=~/html2psrc/;
$gdir=$`;
$hpath=$ENV{"HTML2PSPATH"}?$ENV{"HTML2PSPATH"}:".:";
$hpath=~s/^:/$gdir:/;
$hpath=~s/:$/:$gdir/;
$hpath=~s/::/:$gdir:/;
$cur=$hpath=~s/(^|:)\.($|:)/$1$cwd$2/;
@hpath=split(/:/,$hpath);
for(@hpath) {
if(opendir(DIR,$_)) {
@files=readdir DIR;
$files{$_}=" @files ";
closedir DIR;
}
}
@rc=split(/:/,$prc);
for $rc (@rc) {
$found=0;
S:for $dir (@hpath) {
if(-r $rc && !grep(/^$rc$/,@local) || $files{$dir}=~/ $rc /) {
chdir $dir if($files{$dir}=~/ $rc / && $cwd);
if(open(RC,"<$rc")) {
$conf=;
print DBG "***** Personal file $rc:\n$conf" if($opt_d);
&getconf($conf);
close RC;
$found=1;
}
last S;
}
}
&dbg("Error opening resource file: $rc\n") if($opt_f && !$found);
}
chdir $cwd if($cwd);
$user=2;
&getconf($opt_S) if($opt_S);
print DBG "*****\n" if($opt_d);
&pagedef;
($pagew,$pageh)=split /\s+/, $AT_page{'size'} if(defined $AT_page{'size'});
require Image::Magick if($package{'PerlMagick'});
$geturl=$package{'geturl'};
$ulanch="f";
$f=72/2.54;
$giftopm="giftopnm" if($package{'netpbm'});
$giftopm="giftoppm" if($package{'pbmplus'});
for(keys %option){eval "\$opt_$_='$option{$_}' if(!defined \$opt_$_)"};
die $usage if $opt_h;
die "$version\n" if $opt_v;
&dbg("$version\n") if ($opt_v||$opt_d);
die "Ghostscript is required to generate DSC PostScript\n"
if($opt_D && !$package{'Ghostscript'});
die "Ghostscript is required to generate cross references\n"
if($opt_R && !$package{'Ghostscript'});
$tmpname=$posix?POSIX::tmpnam():"h2p_$$";
($scr=$tmpname)=~/\w+$/;
$tempdir=$`;
if($opt_u) {$ulanch="t"};
if(defined $opt_x && $opt_x!~/^[0-2]$/) {
die "Illegal duplex value: $opt_x\n";
}
$V='(-?\d+\.?\d*|-?\d*\.?\d+)';
for $o ($opt_s,$opt_i,$opt_m,$opt_N) {
die "Non numeric: $o\n" if(defined($o) && $o!~/^$V$/);
}
$twoup=$opt_2?"t":"f";
$xp=$extrapage?"t":"f";
die "Invalid option: -W $opt_W\n" if($opt_W!~/^[abflprsL\d]*$/);
$tocdoc=$opt_C=~/[ft]/;
if($tocdoc && !defined $opt_W) {$opt_W=4};
$mult=$#ARGV>0 || $opt_W;
$maxlev=$opt_W=~/(\d+)/?$1:4;
$link=$opt_W=~/l/;
$local=$opt_W=~/s/;
$rel=$opt_W=~/r/;
$below=$opt_W=~/b/;
$layer=$opt_W=~/L/;
$prompt=$opt_W=~/p/;
if($opt_C && $opt_C!~/^(b?[ft]|[ft]b?|b?h|hb?)$/)
{die "Invalid option: -C $opt_C\n"};
$tc=$opt_C?"t":"f";
$rev=$opt_C=~/t/;
$first=$opt_C=~/b/ || $opt_R;
$th=$tocdoc?"f":"t";
$oeh=0;
$oef=0;
@now=localtime;
@gmnow=gmtime;
POSIX::setlocale(&POSIX::LC_TIME,$locale) if($posix);
$R='(\s*>|[^a-zA-Z0-9>][^>]*>)';
$S='([\w.:/%-]+)|"([^"]*)"|\'([^\']*)\'';
$X='[\da-fA-F]';
$IM='(gif|jpeg|jpg|png|xbm|xpm|ps|eps)';
for('odd-left','odd-center','odd-right','even-left','even-center','even-right')
{
$oeh=1 if defined $header{$_};
$oef=1 if defined $footer{$_};
}
%metarc=();
for $a ('left','center','right') {
if(defined $header{"odd-$a"} || defined $header{"even-$a"}) {
$oeh=1;
}
if(defined $footer{"odd-$a"} || defined $footer{"even-$a"}) {
$oef=1;
}
for('','odd-','even-') {
$apa=$header{$_.$a};
$numb=1 if($apa=~/(^|[^\$])\$N/);
&spec($header{$_.$a});
&spec($footer{$_.$a});
$header{$_.$a}="($apa)";
$apa=$footer{$_.$a};
$numb=1 if($apa=~/(^|[^\$])\$N/);
$footer{$_.$a}="($apa)";
&varsub($header{$_.$a},$footer{$_.$a});
}
}
if($oeh) {
$yz="/YY [[{$header{'odd-left'}}{$header{'even-left'}}]"
."[{$header{'odd-right'}}{$header{'even-right'}}]"
."[{$header{'odd-center'}}{$header{'even-center'}}]] D\n";
} else {
$ind=$header{'alternate'};
$yz="/YY [[{$header{'left'}}$ind][{$header{'right'}}".(1-$ind)
."][{$header{'center'}}2]] D\n";
}
if($oef) {
$yz.="/ZZ [[{$footer{'odd-left'}}{$footer{'even-left'}}]"
."[{$footer{'odd-right'}}{$footer{'even-right'}}]"
."[{$footer{'odd-center'}}{$footer{'even-center'}}]] D";
} else {
$ind=$footer{'alternate'};
$yz.="/ZZ [[{$footer{'left'}}$ind][{$footer{'right'}}".(1-$ind)
."][{$footer{'center'}}2]] D";
}
$number=$opt_n || !$numb && ($opt_C || $opt_N || $opt_R)?"t":"f";
$tih=$titlepage{'content'};
$toch=$toc{'heading'};
for ($imgalt,$xref{'text'},$tih,$toch,$inh,$draft{'text'}) {
&spec($_);
}
for ($paper{'height'},$paper{'width'},$margin{'middle'},$frame{'margin'},
$mlr,$mrl,$mtl,$mbl,$mll,$mrr,$mtr,$mbr,$pagew,$pageh) {
&getval($_,1);
}
$opt_s*=0.65 if($opt_2 && $opt_L);
$opt_N=1 if(!defined $opt_N);
$opt_N=int($opt_N-1);
$mm=int($margin{'middle'}*$f);
$is=0.8*$opt_i;
$msc=1/$opt_s;
$mag=1200*$opt_m*$opt_s;
$xref=$opt_R?"t":"f";
$xref{'text'}=~s/\$N/) WB pN WB (/g;
$d=int($f*$frame{'margin'});
for (0..10) {
$temp=2**(-$_/2);
$width{"a$_"}=int($temp*2**(-1/4)*1000+.5)/10;
$height{"a$_"}=int($temp*2**(1/4)*1000+.5)/10;
$width{"b$_"}=int($temp*1000+.5)/10;
$height{"b$_"}=int($temp*2**(1/2)*1000+.5)/10;
}
if(!$pagew || !$pageh) {
if($width{"\L$paper{'type'}"}) {
$paper{'width'}=$width{"\L$paper{'type'}"} if(!defined $paper{'width'});
$paper{'height'}=$height{"\L$paper{'type'}"} if(!defined $paper{'height'});
($pagew,$pageh)=($paper{'width'},$paper{'height'});
} elsif($paper{'type'}) {
&dbg("Unknown paper type: $paper{'type'}\n");
}
}
if($opt_L) {
$wl=$pageh-$mll-$mrl;
$wr=$pageh-$mlr-$mrr;
$hl=int(($pagew-$mtl-$mbl)*$f+.5);
$hr=int(($pagew-$mtr-$mbr)*$f+.5);
$xl=int($mtl*$f+.5);
$xr=int($mtr*$f+.5);
$yl=int($mll*$f+.5);
$yr=int($mlr*$f+.5);
$rot=" 90 rotate";
} else {
$wl=$pagew-$mll-$mrl;
$wr=$pagew-$mlr-$mrr;
$hl=int(($pageh-$mtl-$mbl)*$f+.5);
$hr=int(($pageh-$mtr-$mbr)*$f+.5);
$xl=int($mll*$f+.5);
$xr=int($mlr*$f+.5);
$yl=int(($pageh-$mtl)*$f+.5);
$yr=int(($pageh-$mtr)*$f+.5);
$rot="";
}
if($opt_2) {
$wl=($wl-$margin{'middle'})/2;
$wr=($wr-$margin{'middle'})/2;
}
$wl=int($wl*$f+.5);
$wr=int($wr*$f+.5);
$pag=int($pageh*$f+.5);
$fe=$opt_F?"t":"f";
$cf=$opt_U?"t":"f";
$tp=$opt_t?"t":"f";
$rm=$numbstyle?"t":"f";
$pa=$showurl?"t":"f";
$nh=$seq_number?"t":"f";
$bt=$break_table?"t":"f";
$ea=$expand_acronyms?"t":"f";
$fi=$prefilled?"t":"f";
$latin1=$opt_e=~/ISO-8859-1/i;
$lt=$del{'text-decoration'}=~/^line-through$/i?"SE":"WB";
if(!$opt_x && defined $opt_x) {
$dupl="[{false statusdict/setduplexmode get exec} stopped cleartomark";
}
if($opt_x) {
$dupl="[{true statusdict/setduplexmode get exec} stopped cleartomark";
}
if($opt_x==2) {
$dupl.="\n[{true statusdict/settumble get exec} stopped cleartomark";
}
%head=("html",1, "head",1, "title",1, "base",1, "meta",1, "link",1, "style",1,
"script",1, "isindex",1);
%algn=("left",1, "center",2, "right",3, "justify",4, "char",5);
%f=("void",1, "above",2, "below",3, "hsides",4, "lhs",5, "rhs",6, "vsides",7,
"box",8, "border",9);
%r=("none",1, "groups",2, "rows",3, "cols",4, "all",5);
%v=("top",1, "middle",2, "bottom",3, "baseline",4);
%it=("radio",0, "checkbox",1, "text",2, "password",2, "image",3);
%ssy=(200,"\\", 201, "(", 202, ")");
%lity=("I",0, "i",1, "A",2, "a",3, "1",4, "disc",5, "square",6, "circle",7);
$ltr=join('|',keys %lity);
%tex=('`a',"\340", '\^a',"\342", '`e',"\350", '`e',"\350", 'c\{c\}',"\347",
"'e","\351", '\^e',"\352", '"e',"\353", '\^i',"\356", '"i',"\357",
'\^o',"\364", '`u',"\371", '\^u',"\373", '"u',"\374", '"y',"\377",
'aa',"\345", '"a',"\344", '"o',"\366", 'ae',"\346", 'oe',"\225");
$opt_M = 1 unless defined $opt_M;
@hind=(int($opt_M)-1,0,0,0,0,0);
$ltrs='A-Za-z\222-\226\300-\377';
%ent=(
"lsquo|#8216",96,
"rsquo|#8217",39,
"circ|#710",141,
"tilde|#732",142,
"permil|#8240",143,
"dagger|#8224",144,
"Dagger|#8225",145,
"Yuml|#376",146,
"scaron|#353",147,
"Scaron|#352",148,
"oelig|#339",149,
"OElig|#338",150,
"lsaquo|#8249",151,
"rsaquo|#8250",152,
"sbquo|#8218",153,
"bdquo|#8222",154,
"ldquo|#8220",155,
"rdquo|#8221",156,
"ndash|#8211",157,
"mdash|#8212",158,
"trade|#8482",159,
"nbsp",160,
"iexcl",161,
"cent",162,
"pound",163,
"curren",164,
"yen",165,
"brvbar",166,
"sect",167,
"uml",168,
"copy",169,
"ordf",170,
"laquo",171,
"not",172,
"reg",174,
"macr",175,
"deg",176,
"plusmn",177,
"sup2",178,
"sup3",179,
"acute",180,
"micro",181,
"para",182,
"middot",183,
"cedil",184,
"sup1",185,
"ordm",186,
"raquo",187,
"frac14",188,
"frac12",189,
"frac34",190,
"iquest",191,
"Agrave",192,
"Aacute",193,
"Acirc",194,
"Atilde",195,
"Auml",196,
"Aring",197,
"AElig",198,
"Ccedil",199,
"Egrave",200,
"Eacute",201,
"Ecirc",202,
"Euml",203,
"Igrave",204,
"Iacute",205,
"Icirc",206,
"Iuml",207,
"ETH",208,
"Ntilde",209,
"Ograve",210,
"Oacute",211,
"Ocirc",212,
"Otilde",213,
"Ouml",214,
"times",215,
"Oslash",216,
"Ugrave",217,
"Uacute",218,
"Ucirc",219,
"Uuml",220,
"Yacute",221,
"THORN",222,
"szlig",223,
"agrave",224,
"aacute",225,
"acirc",226,
"atilde",227,
"auml",228,
"aring",229,
"aelig",230,
"ccedil",231,
"egrave",232,
"eacute",233,
"ecirc",234,
"euml",235,
"igrave",236,
"iacute",237,
"icirc",238,
"iuml",239,
"eth",240,
"ntilde",241,
"ograve",242,
"oacute",243,
"ocirc",244,
"otilde",245,
"ouml",246,
"divide",247,
"oslash",248,
"ugrave",249,
"uacute",250,
"ucirc",251,
"uuml",252,
"yacute",253,
"thorn",254,
"yuml",255);
%symb=(
"alpha|#945",141,
"beta|#946",142,
"gamma|#947",147,
"delta|#948",144,
"epsilon|#949",145,
"zeta|#950",172,
"eta|#951",150,
"theta|#952",161,
"thetasym|#977",112,
"iota|#953",151,
"kappa|#954",153,
"lambda|#955",154,
"mu|#956",155,
"nu|#957",156,
"xi|#958",170,
"pi|#960",160,
"piv|#982",166,
"omicron|#959",157,
"rho|#961",162,
"sigma|#963",163,
"sigmaf|#962",126,
"tau|#964",164,
"upsilon|#965",165,
"upsih|#978",241,
"phi|#966",146,
"phiv",152,
"chi|#967",143,
"psi|#968",171,
"omega|#969",167,
"Alpha|#913",101,
"Beta|#914",102,
"Gamma|#915",107,
"Delta|#916",104,
"Epsilon|#917",105,
"Zeta|#918",132,
"Eta|#919",110,
"Theta|#920",121,
"Iota|#921",111,
"Kappa|#922",113,
"Lambda|#923",114,
"Mu|#924",115,
"Nu|#925",116,
"Xi|#926",130,
"Omicron|#927",117,
"Pi|#928",120,
"Rho|#929",122,
"Sigma|#931",123,
"Tau|#932",124,
"Upsilon|#933",125,
"Phi|#934",106,
"Chi|#935",103,
"Psi|#936",131,
"Omega|#937",127,
"fnof|#402",246,
"perp|#8869",136,
"plusmn|#177",261,
"cdot|#183",327,
"or|#8744",332,
"and|#8743",331,
"le|#8804",243,
"ge|#8805",263,
"equiv|#8801",272,
"cong|#8773",100,
"asymp|#8776",273,
"ne|#8800",271,
"sub|#8834",314,
"sube|#8838",315,
"sup|#8835",311,
"supe|#8839",312,
"isin|#8712",316,
"larr|#8592",254,
"rarr|#8594",256,
"uarr|#8593",255,
"darr|#8595",257,
"harr|#8596",253,
"lArr|#8656",334,
"rArr|#8658",336,
"uArr|#8657",335,
"dArr|#8659",337,
"hArr|#8660",333,
"forall|#8704","042",
"exist|#8707","044",
"infin|#8734",245,
"nabla|#8711",321,
"part|#8706",266,
"hellip|#8230",274,
"int|#8747",362,
"sum|#8721",345,
"prod|#8719",325,
"real|#8476",302,
"image|#8465",301,
"bull|#8226",267,
"prime|#8242",242,
"Prime|#8243",262,
"oline|#8254",140,
"frasl|#8260",244,
"weierp|#8472",303,
"alefsym|#8501",300,
"crarr|#8629",277,
"empty|#8709",306,
"notin|#8713",317,
"ni|#8715","047",
"minus|#8722","055",
"lowast|#8727","052",
"radic|#8730",326,
"prop|#8733",265,
"ang|#8736",320,
"cap|#8745",307,
"cup|#8746",310,
"sim|#8764",176,
"nsub|#8836",313,
"oplus|#8853",305,
"otimes|#8855",304,
"sdot|#8901",327,
"lceil|#8968",351,
"rceil|#8969",371,
"lfloor|#8970",353,
"rfloor|#8971",373,
"lang|#9001",341,
"rang|#9002",361,
"spades|#9824",252,
"clubs|#9827",247,
"hearts|#9829",251,
"diams|#9830",250,
"loz|#9674",340);
$pc=')WB NL NP(';
$nimg=-1;
$nm=-1;
@font=();
@size=();
@styl=();
@alig=();
@colr=();
@topm=();
@botm=();
@lftm=();
@rgtm=();
@z1=();
@z2=();
@z3=();
&Subst($doc_sep);
($toct=$toch)=~s|<[\w/!?][^>]*>||g;
$dh="/h0 [()($toct)] D\n";
&Subst($toch);
$toch=~s/ H\(/ -1 H(/g;
$toch="($toch)";
&varsub($toch);
&Subst($tih);
$tih=~s/ H\(/ -1 H(/g;
$tih="($tih)";
&varsub($tih);
$mn=0;
$nfont=0;
$mi=0;
for (@fo) {&setel($_)};
%arr=%draft;
&fs("draft");
if(!$latin1 && !defined $fontid{"times"}) {
$fontid{"times"}=$nfont++;
@docfonts=(@docfonts,split(/\s+/,$font_names{"times"}));
}
$wind=0;
$wf="t";
if(!$latin1) {
$wind=$fontid{"times"};
$wf="f";
}
for $k (keys %font_files){
@ff=split(/\s+/,$font_files{$k});
@fn=split(/\s+/,$font_names{$k});
for (0..3) {
if($ff[$_]) {
$ff{$fn[$_]}=$ff[$_];
} elsif(!$ff{$fn[$_]}) {
$ff{$fn[$_]}=$ff[0];
}
$fr{$fn[$_]}=$k;
}
}
$pta=defined $p{"text-align"}?$p{"text-align"}:$body{"text-align"};
$pal=0;
$pal=1 if($pta=~/^c/i);
$pal=2 if($pta=~/^r/i);
$pal=3 if($pta=~/^j/i);
$bgcol=&col2rgb($body{"background"});
if(!$bgcol) {$bgcol="[16#FF 16#FF 16#FF]"};
if(!$p{"color"}) {$p{"color"}="black"};
$tcol=&col2rgb($p{"color"});
$lcol=&col2rgb($a__link{"color"});
if($lcol) {
$Lc="/Lc t D\n/Dl $lcol D\n";
$Lc.=$tcol ne $lcol?"/LX t D":"/LX f D";
} else {
$Lc="/Lc f D\n/LX f D";
}
$pcol=&col2rgb($pre{"color"});
if(!$pcol) {$pcol="[0 0 0]"};
$deftbg=&col2rgb($table{"background"});
$hc=&col2rgb($hr{"color"});
if(!$hc) {$hc="[0 0 0]"};
$fcol=&col2rgb($frame{"color"});
if(!$fcol) {$fcol="[0 0 0]"};
for ($p{"font-size"},$pre{"font-size"},$header{"font-size"},$frame{'width'},
$footer{"font-size"},$justify{'letter'},$justify{'word'},
$titlepage{'margin-top'}) {
&getval($_,2);
}
for ($p{"line-height"},$p{"text-indent"},$p{"margin-top"},$toc{'indent'},
$ball_radius) {
&getval($_,0);
}
$fl="/FL [/".join("\n/",@docfonts)."] D";
for $k (keys %ff) {
$f=$ff{$k};
if(defined $fontid{$fr{$k}} && !defined($cont{$f})) {
open(FONT,"<$f") || &dbg("Error opening fontfile $f\n");
($cont{$f}=)=~s/(^|\r?\n|\r)%.*//g;
close FONT;
}
}
$fontdef="";
for (keys %cont) {
$fontdef.=$cont{$_};
}
&ent($yz);
&ent($xref{'text'});
&ent($draft{'text'});
$lnum=0;
for (keys %quote_open) {
$lid{$_}=$lnum++;
if(!defined $quote_close{$_}) {$quote_close{$_}=$quote_open{$_}};
if(!defined $quote_open2{$_}) {$quote_open2{$_}=$quote_open{$_}};
if(!defined $quote_close2{$_}) {$quote_close2{$_}=$quote_close{$_}};
&ent($quote_open{$_});
&ent($quote_close{$_});
&ent($quote_open2{$_});
&ent($quote_close2{$_});
push(@qo,$quote_open{$_});
push(@qc,$quote_close{$_});
push(@qo2,$quote_open2{$_});
push(@qc2,$quote_close2{$_});
}
$qo=join(')(',@qo);
$qc=join(')(',@qc);
$qo2=join(')(',@qo2);
$qc2=join(')(',@qc2);
$hyphenation_file{''}=$hyphenation_file{'en'};
$br=$collapse_br?"f":"t";
$gd=0;
$ddr=defined $draft{'print'};
if($ddr) {
if($draft{'print'}==0) {
$draft="f";
} else {
$gd=1;
$draft="t";
}
}
if(-e '/dev/null' || !-e 'nul') {
$pathsep=':';
$gs='gs';
} else {
$pathsep=';';
$gs='gswin32c';
}
$gb=$gs_bug?"t":"f";
for (keys %quote) {$lid{$_}=$lid{$quote{$_}}};
$ENV{'PATH'}.="$pathsep$package{'path'}" if($package{'path'});
$delim="%-- End of variable part --";
$cd="/Cd {aload length 2 idiv dup dict begin {D} repeat currentdict end} D";
$mysymb=<1?"s":"")." remaining\n");
}
if($banner) {
$_="/Ba t D /BA {($banner)BN} D\nBs f Pb CP /BO E D pop\n";
&Subst($_);
s/ H\(/ -1 H(/g;
} else {
$_="/Ba f D /BO 0 D Bs";
}
if($tocdoc && $first && $ndoc==1) {
$TC=" TC\n";
$et=" NP Ep ET /Tc f D";
} else {
$TC="";
$et="";
}
$_.="\n/UR ($html) D\n/Ti ($ti) D\n/Au ($au) D\n/Df $draft D\n/ME [";
for $i (sort {$metarc{$a} <=> $metarc{$b}} keys %metarc){
$_.="($meta{$i})";
}
$_.="] D\n$TC";
if($ndoc==1) {$top=$_};
if(!$tocdoc) {
$toc.="ND 1 gt{Ts 3 mul Np $refs{$html}()0 C()BD($ti)ES()$refs{$html}"
." 1 TN()EA()BN}if\n";
}
$hv=0;
while($P2=~s/(\d) (\d) H\(([^\s<)]*)/$1 $2 $nhd H($3)WB $nref Sn(/) {
$nhd++;
if($hv+1<$2) {
for($hv+1..$2-1) {
push(@z1,-$nref);
push(@z2,$_);
}
}
$hv=$2;
$hind[$hv-1]++;
for $i ($hv..5) {$hind[$i]=0};
$hind=join('.',@hind[0..$hv-1]);
$hst=$3;
$'=~/\)EH/;
($htxt=$hst.$`)=~s/\)EA\(//g;
if(!$tocdoc) {
$toc.="$hv NH le{$nref($hind\\240\\240)$hv C($htxt)$nref 1 TN()EA()BN}if\n";
}
push(@z1,$nref);
push(@z2,$hv);
$nref++;
$htxt=~s/(\s+|\)BR\()/ /g;
$htxt=~s/(^\s+|\)[^(]*\(|\s+$)//g;
$htxt=~s/\\(200|201|202)/\\$ssy{$1}/g;
$htxt="" if(!$latin1);
$dh.="/h$nhd [($hind\\240\\240)($htxt)] D\n";
}
if($tocdoc) {
if($ndoc==1 && !$first) {
$toc="TC RC ZF $_ $P2 WB () BN\n";
$P2="";
$P3="";
$np="";
$_="";
}
}
$P3.="$fl1\n/Cb $bg D /Ct $tcol D /Cl $lcol D /CL -1 D Ct Sc\n";
if($ndoc==1 && !$first) {$P3.="Pt\n"};
$P3.="$fl2\n$_\n$np\n$P2";
if($tocdoc && $ndoc==1 && !$first) {
$np="/Cb $bg D NP RC ZF";
} else {
$fl1="WB NL$et";
$fl2="DS";
$np="0 BO R";
}
}
}
$P3.=($P3!~/\)\s*$/?"()":"")."WB NL";
if(!$tocdoc && $first && $nhd){$P3="$toc/OU t D /Cb $bg D NP Ep ET $P3"};
if(!$first && ($tocdoc || !$tocdoc && $nhd)){$P3.=" $toc"};
if($ntab>=0) {
$_="$tables] D";
&ack($_);
y/\t\f/ /;
s/[\200-\377]/sprintf("\\%3.3o",ord($&))/eg;
s/\)XX/)9 9 PR/g;
s/ H\(/ -1 H(/g;
$tables=$_;
}
$_="%!PS\n%%Title: $title\n$P0$P1";
if($nimg>=0) {
$_.="/AX [".join(' ',@XS)."] D\n/AY [".join(' ',@YS)."] D\n"
."/IX [".join(' ',@IX)."] D\n/IT [".join(' ',@IT)."] D\n";
if($nm>=0) {
$_.="/AZ [".join(' ',@DP)."] D\n/WS [".join(' ',@WS)."] D\n"
."/FC [".join(' ',@FC)."] D\n/NI $nm D\n/BM ".($nm+1)." array D\nSB\n";
for $i (0..$nm) {$_.="$BM[$i]\n\n"}
}
$_.="\n$pv%Endpv\n" if($nps);
}
@kw=split(/[, ]+/,$kw);
@Kw=();
for $i (@kw){push(@Kw,$i) if(!grep(/^\Q$i\E$/,@Kw))};
$kw=join(', ',@Kw);
for $i (0..$#z2) {
$n=0;
$j=$i;
while($j++<=$#z2 && $z2[$j]>$z2[$i]) {$n++ if($z2[$j]==$z2[$i]+1)};
push(@z3,$n);
}
$tdef=$ntab>=0?"$tbl$tables\n0 1 $ntab\{TS}for RC ZF\n":"";
$hd="/Hr [@z1]D\n/HV [@z2]D\n/Cn [@z3]D";
&cut($hd);
if($gd) {
$sd="/Df t D /DG IW IW mul IL IL mul add sqrt D IW IL IW IL lt{E}if"
." /WM E D /WX E D /DZ 180 D gsave SD /DZ DZ DF mul D SD grestore\n";
} else {
$sd="/Df f D\n";
}
$_.=<}ie SW pop D
ET RC ZF
$sd$rfs$tdef$top$P3
/TE t D NP TU PM 0 eq and{/Pn () D showpage}if end restore
EOD
if(($first || $opt_R) && $xref{'passes'}) {
&dbg("Inserting cross references\n") if($opt_d);
for $i (1..$xref{'passes'}) {&ref};
}
&fin;
sub h2p {
if($html eq '-') {
$_=<>;
} elsif($html=~m|://|) {
if(($prompt || $nrem>50) && $level>1) {
&prompt("Retrieve document $html (y/n/q)? ",$ans);
if($ans=~/q/i) {undef @docs};
return 0 unless($ans=~/y/i);
}
&geturl($html,$_) || return;
$nrem++;
if($contyp!~m|text/html|i) {$_=" <![CDATA[\n$_"};
unless(($ba2)=$html=~m|(.*://.*/)|) {$ba2=$html."/"};
} else {
if(open(FILE,"<$html")) {
&dbg("Reading $html\n") if($opt_W || $opt_d);
$_=<FILE>;
if(!/<HTML/i && $html!~/html?$/i && ($html!~/\.ps$/i || $ndoc>1)) {
$_=" <plaintext>\n$_";
}
close FILE;
$var{DOCUMENT_NAME}=$html;
if($posix) {
$var{LAST_MODIFIED}=POSIX::strftime("%c",localtime((stat $html)[9]));
$var{DATE_LOCAL}=POSIX::strftime("%c",@now);
$var{DATE_GMT}=POSIX::strftime("%c",@gmnow);
}
$mod=(stat $html)[9];
} else {
&dbg("*** Error opening $html\n");
return 0;
}
}
if(/^%!/ && /$delim/) {
$psin=1;
&openps if($opt_o);
$_=$P0.$';
for $s ("b","c","cw","g","t") {
&dbg("Option -$s ignored\n") if(eval "\$opt_$s");
}
&fin;
}
&hb($_,$head);
$head=~/<title$R\s*([\w\W]*)<\/title/i;
($ti=$2)=~s/\s+/ /g;
$ti=$doctit{$html} if(!$ti);
$ti=~s/\s*$//g;
&spec($ti);
&ent($ti);
$ti="<Untitled>" if(!$ti);
$title=$ti if(!$title);
$draft="f" if(!$ddr);
%meta=();
$au="";
while($head=~/<meta\s[^>]*(name|http-equiv)\s*=\s*["']?\s*(\w+)$R/gi) {
$k=lc $2;
($v)=$&=~/content\s*=\s*["']\s*([^"']+)/i;
$v=~s/\s+/ /g;
$v=~s/\s*$//g;
&spec($v);
&ent($v);
$meta{$k}=$v;
if($k=~/author/) {$au=$au?"$au, $v":$v};
if($k=~/keywords/) {$kw=$kw?"$kw, $v":$v};
if($k=~/subject/ && !$su) {$su=$v};
if(!$ddr && $k=~/status/ && $v=~/draft/i) {$draft="t";$gd=1};
}
$Au.=($Au?" + ":"").$au if($au);
$b2=$opt_b;
unless($b2) {
($b2)=$head=~/<base\s+href\s*=\s*"([^"]*)"$R/i;
unless($b2) {($b2)=$head=~/<base\s+href\s*=\s*([\w\.-]+)$R/i}
unless($b2) {$b2=$ba2}
}
$b2=~s|[^/]*$||;
($b1)=$b2=~m|(.*://[^/]*)/|;
unless($b1) {$b1=$opt_r};
unless($b2) {$b2=$html=~m|(.*/)[^/]*$|?$1:""};
if(!defined $B2) {$B2=$b2};
$levl{$b2.$html}=$levl{$html};
while($link && $head=~/<link\s+[^>]*rel\s*=\s*["']?next$R/gi) {
if(($lnk)=$&=~/href\s*=\s*["']?\s*([^"' >]*)/gi) {
if($lnk=~m|.+//[^/]+$|) {$lnk=$&."/"}
if($lnk=~m|://|) {
$rlnk=0;
} else {
$rlnk=1;
if($lnk=~m|^/|) {$lnk=$b1.$lnk} else {$lnk=$b2.$lnk}
}
while($lnk!~m|^\.\./| && $lnk=~m|[^/]*/\.\./|) {$lnk=$`.$'};
$lnk=~s|/\./|/|g;
if(&follow && !$levl{$lnk}) {
$levl{$lnk}=$level+1;
push(@links,$lnk);
}
}
}
($battr)=/<BODY$R/i;
($lang)=$battr=~/\slang\s*=\s*['"]?([a-zA-Z-]+)/i;
($lang)=$head=~/<html[^>]+lang\s*=\s*['"]?([a-zA-Z-]+)/i if(!$lang);
$lang=$opt_l if($opt_l);
$lang='en' if(!$lang);
$lang=lc $lang;
if($battr=~/\stext\s*=\s*['"]?\s*#?(\w+)/i) {$tcol=&col2rgb($1)};
if(!$tcol) {$tcol="Dt"};
if($battr=~/\slink\s*=\s*['"]?\s*#?(\w+)/i) {$lcol=&col2rgb($1)};
if(!$lcol) {$lcol="Dl"};
&inihyph if($opt_H);
($bg)=$battr=~/BGCOLOR\s*=\s*["']?\s*#?(\w+)/i;
$bg=&col2rgb($bg);
if($bg) {
($red,$grn,$blu)=@cvec;
} else {
($red,$grn,$blu)=$bgcol=~/#(\w+).*#(\w+).*#(\w+)/;
$bg="Db";
}
$temp="";
while(/<object$R/i) {
$temp.=$`;
$tag=$&;
$end=$';
$type=$tag=~/type\s*=\s*($S)/i?$+:"";
$uaddr=$tag=~/data\s*=\s*($S)/i?$+:"";
if($type=~/^text\/(html|plain)$/i
|| !$type && $uaddr=~m"(\.html?|://.+/|://[^/]+)$"i) {
$tag=~/data\s*=\s*/i;
if(&open($uaddr,"<$idoc")) {
if($type=~/plain/i) {
$idoc="<XMP>$idoc</XMP>";
} else {
&hb($idoc,$dum);
}
$_=$idoc;
$_.=$' if($end=~/<\/object>/i);
} else {
&dbg("\n*** Error opening $uaddr\n");
$_=$end;
}
} else {
$temp.=$tag;
$_=$end;
}
}
$_=$temp.$_;
if($opt_c && defined $package{'check'}) {
$file=$html;
if($html=~m|://|) {
open(SCRATCH,">$scr");
print SCRATCH;
close SCRATCH;
$file="$scr";
}
&dbg(`$package{'check'} $file`);
}
if(!$latin1) {
if($opt_e=~/EUC-/i) {
s/([\216\217\241-\376].)+/\000$&\000/g;
&spec($_);
s/\000(.+?)\000/)F1($1)F2(/g;
} elsif($opt_e=~/SHIFT-JIS/i) {
s/[\201-\237\340-\374][@-~\200-\374]/$&\000/g;
s/[\241-\337]+(?!\000)/$&\000/g;
s/[ -~\t\n\r\240]+(?!\000)/\002$&\001/g;
&spec($_);
s/\000//g;
} else {
while(/\e\$B([^\e]*)/) {
$beg=$`;
$end=$';
$mat=$1;
$mat=~s/\s//g;
$_="$beg\001$mat$end";
}
s/\e\([BJ]/\002/g;
&spec($_);
}
s/\001/)F1(/g;
s/\002/)F2(/g;
$_=")F2($_";
y/\000-\010\013\016-\037\177//d;
} else {
&spec($_);
y/\000-\010\013\016-\037\177-\237//d;
}
s/(\r\n|\r)/\n/g;
$refs{$html}=$nref++ if(!defined $refs{$html});
$_="\004$lang\004)WB $refs{$html} Sn($_";
# Yes, I know Perl has case-insensitive pattern matching. But on my system
# it takes about 10 times longer to run!
$pt="";
if(/<[pP][lL][aA][iI][nN][tT][eE][xX][tT]$R/) {$_=$`;$pt=$'};
while($_){
if(/(<[lL][iI][sS][tT][iI][nN][gG]$R)/) {$_=$`; $tag=$1; $rest=$';
if(/<[xX][mM][pP]$R/){$_=$`; &Subst($_); $P2.="$_)XX("; $_=$'.$tag.$rest;
if(m|</[xX][mM][pP]$R|) {$P2.="$`)RP("; $_=$'}
else {$P2.=$'; $_=""}}
else {&Subst($_); $P2.="$_)XX("; $_=$rest;
if(m|</[lL][iI][sS][tT][iI][nN][gG]$R|) {$P2.="$`)RP("; $_=$'}
else {$P2.=$'; $_=""}}}
elsif(/<[xX][mM][pP]$R/) {$_=$`; &Subst($_); $P2.="$_)XX("; $_=$';
if(m|</[xX][mM][pP]$R|) {$P2.="$`)RP("; $_=$'}
else {$P2.=$'; $_=""}}
else {&Subst($_);$P2.=$_; $_=""}
}
$pt=~s/\f/$pc/g;
if($pt) {$P2.=")XX($pt"};
$P2.=")";
if($plain) {$P2.="RP ()"};
while($P2=~/XX\(/) {
$beg=$`;
$'=~/\)(RP|$)/;
$mat=$`;
$end=$&.$';
$mat=~s/(.*\n){30}.*/$&)WR(/g;
($temp=$mat)=~s/\)[^(]+\(//g;
@prel=split(' *\n',$temp);
$maxl=0;
for $line (@prel) {
$line=~s/\\.../x/g;
while($line=~/\t+/) {
$sp=' ' x (length($&)*8-length($`)%8);
$line=~s/\t+/$sp/;
$mat=~s/\t+/$sp/;
}
$ll=length($line);
$maxl=$ll if($ll > $maxl);
}
$P2="$beg ".($#prel+1)." $maxl PR($mat$end";
}
$P1=~s/[\200-\377]/sprintf("\\%3.3o",ord($&))/eg;
$P2=~s/[\200-\377]/sprintf("\\%3.3o",ord($&))/eg;
$P2=~y/\t\f/ /;
1;
}
sub Subst{
local($_)=@_;
if($page_break) {
s/<!--NewPage-->/$pc/g;
s/<(\?|hr\s+class\s*=\s*["']?)\s*page-break$R/$pc/gi;
}
s/<!--OddPage-->/)WB NL OP(/g;
if($ssi && $html!~m|://|) {
while(/<!--#(include|config|echo)\s+(\w+)\s*="([^"]+)"\s*-->/) {
$inc="";
$file=$3;
if($1 eq "include" && (substr($file,0,1) ne "/" || $opt_r)) {
if(substr($file,0,1) ne "/") {
$file=$B2.$file;
} elsif($2 eq "virtual") {
$file=$opt_r.$file;
}
if(open INC,"<$file") {
$inc=<INC>;
&spec($inc);
close INC;
}
} elsif ($1 eq "config" && $2 eq "timefmt") {
if($posix) {
$var{LAST_MODIFIED}=POSIX::strftime($3,localtime((stat $html)[9]));
$var{DATE_LOCAL}=POSIX::strftime($3,@now);
$var{DATE_GMT}=POSIX::strftime($3,@gmnow);
}
} elsif ($1 eq "echo") {
$inc=$var{$3};
}
$_=$`.$inc.$';
}
}
s/(­?|­?|<!--hy-->)/)HY(/g;
while(/<!--/) {
$_=$`;
&getcom;
$_.=$rest;
}
$temp="";
while(/<([^"'>]*=\s*["'])/) {
$temp.=$`."<";
$_=$1.$';
while(/^[^"'>]*=\s*(["'])/) {
$temp.=$&;
$_=$';
if(/$1/) {
($tg=$`)=~y/>/\003/;
$temp.=$tg.$&;
$_=$';
}
}
}
$_=$temp.$_;
$a='[aA][lL][iI][gG][nN]';
$Y='[sS][tT][yY][lL][eE]';
$A="($a\\s*=\"?|$Y\\s*=\\s*\"?[tT][eE][xX][tT]-\\s*$a:)";
$I='[lL][eE][fF][tT]';
$C='[cC][eE][nN][tT][eE][rR]';
$D='[rR][iI][gG][hH][tT]';
$J='[jJ][uU][sS][tT][iI][fF][yY]';
$s='[sS][eE][lL][eE][cC][tT]';
$F='[fF][oO][nN][tT]';
$U='[cC][oO][lL][oO][rR]';
$O='[cC][oO][mM][pP][aA][cC][tT]';
s/<\w+[^>]*\s+[iI][dD]\s*=\s*($S)[^>]*>/$&<a name="$+">/g;
s|<[dD][eE][lL]$R[\w\W]*?</[dD][eE][lL]>||g if($del{'display'}=~/^none$/);
$ndiv=1;
s|</?[dD][iI][vV]\d$R||g;
s|<(/?)([dD][iI][vV])([>\s])|"<$1$2".($1?--$ndiv:$ndiv++).$3|eg;
while(/<[dD][iI][vV](\d+)$R/) {
$dbeg=$`;
$dnum=$1;
$dattr=$2;
$dend=$';
$div="";
$ediv="";
if($2=~/class\s*=\s*["']?noprint$R/i) {
$_=$dbeg;
$_.=$' if($dend=~/<\/[dD][iI][vV]$dnum>/);
} else {
if($dattr=~/$A\s*($I|$C|$D|$J)/) {
$div.=")".$algn{"\L$2"}." Al(";
$ediv.=")Ea(";
}
if($dattr=~/lang\s*=\s*["']?([a-zA-Z-]+)/i) {
$lang=lc $1;
$div.="\004$lang\004";
&inihyph if($opt_H);
$dbeg=~/(\004[^\004]*\004)[^\004]*$/;
$ediv.=$1;
}
$dend=~s|</[dD][iI][vV]$dnum>|$ediv)BR(|;
$_="$dbeg$div)BR($dend";
}
}
s|<$C$R|)2 Al(|g;
s|</$C$R|)Ea(|g;
s/(<\w+[^>]*>)\n|\n(<\/\w+>)/$+/g;
s|(<[lL][iI])$R\s*<[pP]>|)0 P($1$2|g;
s/<[hH]([1-6])\s+$A\s*($I|$C|$D|$J)$R/)$algn{"\L$3"} $1 H(/g;
s|<[hH]([1-6])$R|)0 $1 H(|g;
s|</[hH][1-6]>|)EH(|g;
s|<[bB][rR]$R|)BR(|g;
s/<[pP]\s+[^>]*$A\s*($I|$C|$D|$J)$R/)$algn{"\L$2"} P(/g;
s|<[pP]$R|)0 P(|g;
s|</[pP]>|)EP(|g;
s|<[aA][dD][dD][rR][eE][sS][sS]$R|)AD(|g;
s|</[aA][dD][dD][rR][eE][sS][sS]>|)DA(|g;
s|<[pP][rR][eE]$R\n?|)XX(|g;
s|\n? *</[pP][rR][eE]>|)RP(|g;
s|<[dD][tT]\s[^>]*$O$R|)1 DT(|g;
s|<[dD][tT]$R|)0 DT(|g;
s|<[dD][dD]$R|)DD(|g;
s|<[dD][lL]\s[^>]*$O$R|)1 DL(|g;
s|<[dD][lL]$R|)0 DL(|g;
s|</[dD][lL]>|)LD(|g;
s|<[uU][lL]$R|)UL(|g;
s|</[uU][lL]>|)LU(|g;
s|<[mM][eE][nN][uU]$R|)UL(|g;
s|</[mM][eE][nN][uU]>|)LU(|g;
s|<[dD][iI][rR]$R|)UL(|g;
s|</[dD][iI][rR]>|)LU(|g;
s|<[oO][lL]\s[^>]*[sS][tT][aA][rR][tT]\s*=\s*['"]?(-?\d+)$R|$&)WB $1 Ln(|g;
s|<[oO][lL]\s[^>]*[tT][yY][pP][eE]\s*=\s*['"]?([1iIaA])$R|)$lity{$1} OL(|g;
s|<[oO][lL]$R|)4 OL(|g;
s|</[oO][lL]>|)LO(|g;
s|<[lL][iI]\s[^>]*[vV][aA][lL][uU][eE]\s*=\s*['"]?(-?\d+)$R|$&)WB $1 Ln(|g;
s|<[lL][iI]\s[^>]*[tT][yY][pP][eE]\s*=\s*['"]?($ltr)$R|)$lity{$1} LI(|g;
s|<[lL][iI]$R|)-1 LI(|g;
s|</[lL][iI]$R||g;
s"<([bB][qQ]|[bB][lL][oO][cC][kK][qQ][uU][oO][tT][eE])$R")BQ("g;
s"</([bB][qQ]|[bB][lL][oO][cC][kK][qQ][uU][oO][tT][eE])>")QB("g;
s|<[sS][tT][rR][oO][nN][gG]$R|)BD(|g;
s|</[sS][tT][rR][oO][nN][gG]>|)ES(|g;
s|<[sS][aA][mM][pP]$R|)SM(|g;
s|</[sS][aA][mM][pP]>|)ES(|g;
s|<[qQ]$R(\s*)|$2)Q(|g;
s|(\s*)</[qQ]>|)EQ($1|g;
s|<[cC][iI][tT][eE]$R|)CT(|g;
s|</[cC][iI][tT][eE]>|)ES(|g;
s|<[vV][aA][rR]$R|)I(|g;
s|</[vV][aA][rR]>|)ES(|g;
s|<[bB]$R|)BD(|g;
s|</[bB]>|)ES(|g;
s|<[iI]$R|)I(|g;
s|</[iI]>|)ES(|g;
s|<[tT][tT]$R|)TT(|g;
s|</[tT][tT]>|)ES(|g;
s|<[uU]$R|)UN(|g;
s|</[uU]>|)NU(|g;
s|<[sS]([tT][rR][iI][kK][eE])?$R|)SE(|g;
s|</[sS]([tT][rR][iI][kK][eE])?>|)XE(|g;
s|<[dD][fF][nN]$R|)I(|g;
s|</[dD][fF][nN]>|)ES(|g;
s|<[eE][mM]$R|)EM(|g;
s|</[eE][mM]>|)ES(|g;
s|<[cC][oO][dD][eE]$R|)SM(|g;
s|</[cC][oO][dD][eE]>|)ES(|g;
s|<[kK][bB][dD]$R|)KB(|g;
s|</[kK][bB][dD]>|)ES(|g;
s|<[bB][iI][gG]$R|)4 FZ(|g;
s|</[bB][iI][gG]>|)ES(|g;
s|<[sS][mM][aA][lL][lL]$R|)2 FZ(|g;
s|</[sS][mM][aA][lL][lL]>|)ES(|g;
s|<[iI][nN][sS]$R|)sM WB(|g;
s|</[iI][nN][sS]>|)WB eM(|g;
s|<[dD][eE][lL]$R|)sM $lt(|g;
s|</[dD][eE][lL]>|)XE eM(|g;
s|<[aA][cC][rR][oO][nN][yY][mM][^>]+[tT][iI][tT][lL][eE]\s*=\s*($S)[^>]*>|)($+)Ac(|g;
s|</[aA][cC][rR][oO][nN][yY][mM]>|)Ca(|g;
s|<[sS][cC][rR][iI][pP][tT][\w\W]*?</[sS][cC][rR][iI][pP][tT]>||g;
s|<[fF][oO][rR][mM][\w\W]*?</[fF][oO][rR][mM]>||g if(!$forms);
s|</?[fF][oO][rR][mM]$R|)Ts BE(|g;
s/<$s[^>]*[mM][uU][lL][tT][iI][pP][lL][eE]$R/)1 MS(<table>/g;
s/<$s$R/)0 MS(<table>/g;
s|</$s>|</table>|g;
s/<[oO][pP][tT][iI][oO][nN]$R/<tr><td>)O(/g;
while(/<[iI][nN][pP][uU][tT]$R/) {
$beg=$`;
$iattr=$1;
$rest=$';
$it=2;
if($iattr=~/type\s*=\s*["']?(\w+)/i) {$it=$it{"\L$1"}};
if(defined($it) && $it<2) {
$it=($iattr=~/\schecked\W/i?1:0) ." $it";
} elsif($it==2) {
$siz=$iattr=~/size\s*=\s*["']?(\d+)/i?$1:12;
$ival=$iattr=~/value\s*=\s*($S)/i?$+:"";
$it="($ival)$siz $it";
}
if(defined($it)) {
$cmd=$it==3?"<img $iattr":")$it BX(";
} else {
$cmd="";
}
$_=$beg.$cmd.$rest;
}
while(/<[tT][eE][xX][tT][aA][rR][eE][aA]$R/) {
$beg=$`;
$txatr=$1;
$rest=$';
if($rest=~m|</[tT][eE][xX][tT][aA][rR][eE][aA]>|) {
$rest=$';
$data=$prefilled||$textarea_data?$`:"";
$rows=4;
$cols=20;
if($txatr=~/rows\s*=\s*["']?(\d+)/i) {$rows=$1};
if($txatr=~/cols\s*=\s*["']?(\d+)/i) {$cols=$1};
$nl=$data=~y/\n/\n/;
for ($nl..$rows) {$data.="\n"};
$data=~/(.*\n){$rows}/;
$tfont=$prefilled?"TT":"0 FZ";
($data=$&)=~s/.*\n/<tr height=24><td valign=top>)$tfont($&)ES(/g;
$wi=10*$cols;
$frame=$prefilled?"frame=box":"border";
$_="$beg<table $frame width=$wi cellpadding=2>$data</table>$rest";
} else {
$_=$beg.$rest;
}
}
$nfnt=1;
s|<(/?)($F)([>\s])|"<$1$2".($1?--$nfnt:$nfnt++).$3|eg;
while(/<$F(\d+)([^>]*)$U\s*=\s*["']?\s*#?(\w+)$R/) {
$rgb=&col2rgb($3);
$_=$`.($rgb?")WB $rgb Sc(":"")."<font$2$4";
$temp=$';
$temp=~s|</$F$1>|</font>)Ec(| if($rgb);
$_.=$temp;
}
$base{"+"}="Bf add ";
$base{"-"}="Bf add ";
s/<$F\d*\s[^>]*[sS][iI][zZ][eE]\s*=\s*["']?([+-]?)(\d+\.?\d*)$R/)$1$2 $base{$1}FZ(/g;
s|<$F\d*$R|)3 FZ(|g;
s|</$F\d*>|)Ef(|g;
s|<[bB][aA][sS][eE]$F\s[^>]*[sS][iI][zZ][eE]\s*=\s*["']?(\d+)$R|)$1 BZ(|g;
while(/(<[aA]\s+[^>]*)[nN][aA][mM][eE]\s*=\s*(["']?)([^"'\s>]*)$R([^\s<)]*)/) {
$lnk="$html#$3";
$refs{$lnk}=$nref++ unless(defined $refs{$lnk});
$_="$`$1$4$5)WB $refs{$lnk} Sn($'";
}
while(/<[aA]\s+[^>]*[hH][rR][eE][fF]\s*=\s*["']?\s*([^"'\s>]*)$R/) {
$beg=$`;
$tag=$&;
$rest=$';
$lnk=$1;
$revtoc=$tag=~/rev\s*=['"]?\s*toc/i;
$html=~m|[^/]*$|;
$lnk=~s/^\Q$&#/#/;
$loc=$lnk=~/^#/;
if($loc) {
$html=~m|[^/]*$|;
$lnk=$&.$lnk;
}
if($lnk=~m|.+//[^/]+$|) {$lnk=$&."/"}
if($lnk=~m|://|) {
$rlnk=0;
} else {
$rlnk=1;
if($lnk=~m|^/|) {$lnk=$b1.$lnk} elsif($lnk!~m|^\w+:|) {$lnk=$b2.$lnk};
}
while($lnk!~m|^\.\./| && $lnk=~m|[^/]*/\.\./|) {$lnk=$`.$'};
$lnk=~s"(^|/)\./"$1"g;
($doc)=$lnk=~/([^#]*)/;
($doctit{$doc})=$tag=~/title\s*=['"]([^'"]*)['"]/i;
$T=0;
$anch=2;
if($loc || grep(/^\Q$doc\E$/,(@docs,@links))
|| $opt_W && !$link && $level<=$maxlev && &follow){
$refs{$lnk}=$nref++ unless(defined $refs{$lnk});
$anch="$refs{$lnk} 1";
$ltype=$rev && $revtoc && $ndoc==1 || $opt_C=~/f/ && $ndoc==1?1:0;
$rest=~s|</a>|)$refs{$lnk} $ltype TN TL()Ec /AF f D(|i;
if(&follow && !$levl{$doc}) {
&dbg("Link: $doc\n") if($opt_d);
$levl{$doc}=$level+1;
push(@links,$doc);
}
} elsif(defined $refs{$lnk}) {
$anch="$refs{$lnk} 1";
}
$addr=$dum{$lnk}?"R$dum{$lnk}":0;
if(!$dum{$lnk} && $lnk=~m|://|) {
$dum{$lnk}=$nlnk++;
$rfs.="/R$dum{$lnk} ($lnk) D\n";
$addr="R$dum{$lnk}";
}
$_=$beg.")$addr $anch A(".$rest;
}
s|</[aA]>|)EA(|g;
if((!$mult || $doc_sep eq $pc && $mult)
&& m|<[bB][aA][nN][nN][eE][rR]$R([\w\W]*)</[bB][aA][nN][nN][eE][rR]>|) {
$banner=$2;
$_=$`.$';
}
while(/<[tT][aA][bB][lL][eE]([^>]*)>/) {
local($beg)=$`;
local($rest)=$';
$tattr=$1;
$tag=$&;
$rest=~/(<\/[tT][aA][bB][lL][eE]>|$)/;
$table=$`;
$rest=$';
while($table=~/<[tT][aA][bB][lL][eE]([^>]*)>/) {
$tattr=$1;
$table=$';
$beg.=$tag.$`;
$tag=$&;
}
($tla)=$tattr=~/lang\s*=\s*["']?([a-zA-Z-]+)/i;
if(!$tla) {($tla)=$beg=~/\004_?([^\004]*)\004[^\004]*$/};
$ntab++;
$table=~s/^\s*//;
undef %cells;
undef %rd;
undef @cali;
undef @cval;
undef @cgrp;
undef @cwid;
undef @codc;
undef @r0;
undef @c0;
($capat,$cap)=$table=~m|<caption$R([\w\W]*)</caption>|i;
$capat=~/ALIGN\s*=\s*["']?\s*(\w+)/i;
$capa=0;
$capa=1 if("\L$1" eq "bottom");
$capa=-1 if($cap!~/\S/);
$bord=0;
if($tattr=~/border/i) {
($bord)=$'=~/^\s*=\s*["']?(\d+)/;
if(!$bord && $bord ne "0") {$bord=1};
}
($talgn)=$tattr=~/ALIGN\s*=\s*["']?\s*(\w+)/i;
$tal=-1;
$tal=0 if($talgn=~/^left$/i);
$tal=1 if($talgn=~/^center$/i);
$tal=2 if($talgn=~/^right$/i);
($fra)=$tattr=~/FRAME\s*=\s*["']?\s*(\w+)/i;
if($fra && $f{"\L$fra"}) {$fra=$f{"\L$fra"}} else {$fra=$bord?9:1};
($rul)=$tattr=~/RULES\s*=\s*["']?\s*(\w+)/i;
if($rul && $r{"\L$rul"}) {$rul=$r{"\L$rul"}} else {$rul=$bord?5:1};
unless(($twid)=$tattr=~/WIDTH\s*=\s*["']?(\d+\.?\d*%?)/i) {$twid=0};
$twid=$twid=~/%$/?$`/100:-$twid;
($cpad)=$tattr=~/CELLPADDING\s*=\s*["']?\s*$V/i;
if($tattr=~/CELLSPACING\s*=\s*["']?\s*$V/i && $1!=0) {$cpad+=$1/2};
($tbg)=$tattr=~/BGCOLOR\s*=\s*["']?\s*#?(\w+)/i;
$tbg=&col2rgb($tbg);
($tcl)=$tattr=~/CLASS\s*=\s*["']?\s*(\w+)/i;
$tcl="\L$tcl" eq "telelista"? 1: 0;
$ic=0;
$span=1;
undef $gal;
undef $gva;
undef $odc;
undef $gwi;
$cgs=0;
while($table=~/<[cC][oO][lL]([^>]*>)/g && $span>0) {
$cola=$1;
$ab=$`;
$aft=$';
$cola=~/(^|\s)ALIGN\s*=\s*["']?\s*(\w+)/i;
$alg=$algn{"\L$2"};
($val)=$cola=~/VALIGN\s*=\s*["']?\s*(\w+)/i;
$val=$v{"\L$val"};
($odc)=$cola=~/CHAR\s*=\s*["']?(.)/i;
unless(($wid)=$cola=~/WIDTH\s*=\s*["'](\d+%?)/i) {$wid=0};
if($wid=~/%$/) {$wid=$`/100};
($span)=$cola=~/SPAN\s*=\s*["']?\s*(\d+)/i;
if(!$span && $span ne "0") {$span=1};
$us=1;
if($cola=~/^GROUP/i) {
$gal=$alg;
$gva=$val;
$gdc=$odc;
$gwi=$wid;
$cgs=1;
if($aft=~/<COL\s/i) {
$us=$`=~m|</?COLGROUP|i;
}
} else {
while($ab=~/<COLGROUP/i) {$ab=$'};
if($ab=~m|</COLGROUP|i) {
undef $gal;
undef $gva;
undef $odc;
undef $gwi;
}
if(!$alg) {$alg=$gal};
if(!$val) {$val=$gva};
if(!$odc) {$odc=$gdc};
if(!$wid) {$wid=$gwi};
if($span eq "0") {
$ic++;
push(@cali,$alg);
push(@cval,$val);
push(@cwid,$wid);
push(@codc,$odc);
push(@cgrp,1);
}
}
if($us) {
for (1..$span) {
$ic++;
push(@cali,$alg);
push(@cval,$val);
push(@cwid,$wid);
push(@codc,$odc);
push(@cgrp,$cgs);
$cgs=0;
}
}
}
$table=~/<t[hd][\s>]/i;
if($`!~/<tr/i) {$table="<TR>$table"};
$nrow=-1;
$ncol=-1;
$nhead=0;
$nfoot=0;
$nb=0;
unless($table=~/<tbody$R/i || $table=~s|</tfoot>|$&<tbody>|i) {
$table=~s|</thead>|$&<tbody>|i;
}
while($table=~/<[tT][rR]\s*([^>]*)>/g) {
$nrow++;
$ab=$`;
$row=$';
$rattr=$1;
for $j (@c0) {
$cells{"$nrow,$j,0"}=1;
}
$rgrp=0;
if($ab=~/<tbody$R/i) {
$ib=0;
while($ab=~/<[tT][bB][oO][dD][yY]$R/g) {
$ib++;
$battr=$1;
if($ib>$nb) {
$rgrp=1;
$nb=$ib;
}
}
} else {
if($ab=~/<tfoot$R/i) {
$nfoot++;
$battr=$1;
} elsif($ab=~/<thead$R/i) {
$nhead++;
$battr=$1;
}
}
$battr=~/(^|\s)ALIGN\s*=\s*["']?\s*(\w+)/i;
$balgn=$algn{"\L$2"};
$battr=~/VALIGN\s*=\s*["']?\s*(\w+)/i;
$bva=$v{"\L$1"};
($bdc)=$battr=~/CHAR\s*=\s*["']?(.)/i;
$rd{"$nrow,0"}=0;
$rd{"$nrow,1"}=0;
$rd{"$nrow,2"}=0 unless($rd{"$nrow,2"});
$rd{"$nrow,3"}=$rgrp;
$rattr=~/(^|\s)ALIGN\s*=\s*["']?\s*(\w+)/i;
$ralgn=$algn{"\L$2"};
$rattr=~/VALIGN\s*=\s*["']?\s*(\w+)/i;
$rva=$v{"\L$1"};
($rla[$nrow])=$rattr=~/lang\s*=\s*["']?([a-zA-Z-]+)/i;
($rbg)=$rattr=~/BGCOLOR\s*=\s*["']?\s*#?(\w+)/i;
$rbg[$nrow]=&col2rgb($rbg);
($rdc)=$rattr=~/CHAR\s*=\s*["']?(.)/i;
if($row=~/<tr/i) {$row=$`};
$rh[$nrow]=$rattr=~/HEIGHT\s*=\s*["']?(\d+)/i?$1:0;
$icol=0;
$colsp=1;
while($row=~/<[tT]([hH]|[dD])(\s*[^>]*)>/g && $colsp>0) {
$cattr=$2;
$cell=$';
$ctype=$1=~/h/i?1:0;
if($cell=~/<t[hd]/i) {$cell=$`};
$cell=~s/\s+$//;
$cell=~s/\)HY\($/\255/;
$cell=~s/[\200-\377]([^\\]|\\20.)/$&)WB(/g if(!$latin1);
($rowsp)=$cattr=~/ROWSPAN\s*=\s*["']?(\d+)/i;
$rsp=$rowsp;
if(!$rsp) {
if($rsp eq "0") {
push(@c0,$icol);
} else {
$rowsp=1;
}
$rsp=1;
}
($colsp)=$cattr=~/COLSPAN\s*=\s*["']?(\d+)/i;
$csp=$colsp;
if(!$csp) {
if($csp eq "0") {
push(@r0,$nrow);
$csp=$ncol-$icol<0? 1: $ncol-$icol+1;
} else {
$colsp=1;
$csp=1;
}
}
($cdc)=$cattr=~/CHAR\s*=\s*["']?(.)/i;
while($cells{"$nrow,$icol,0"}==1) {$icol++};
#
for $i ($nrow..$nrow+$rsp-2) {$rd{"$i,2"}=1};
for $j ($icol..$icol+$csp-1) {
for $i ($nrow..$nrow+$rsp-1) {
$cells{"$i,$j,0"}=1;
}
}
if($colsp) {
for $j ($ncol+1..$icol+$csp) {
for $i (@r0) {
$cells{"$i,$j,0"}=1;
}
}
}
if($ic<$icol+$csp) {
for ($ic..$icol+$csp-1) {
push(@cali,$cali[$ic-1]);
push(@cval,$cval[$ic-1]);
push(@cgrp,0);
}
$ic=$icol+$csp;
}
$cal=$ctype;
$cal=$balgn-1 if($balgn);
$cal=$ralgn-1 if($ralgn);
$cal=$cali[$icol]-1 if($cali[$icol]);
if($cattr=~/(^|\s)ALIGN\s*=\s*["']?\s*(\w+)/i) {
$cal=$algn{"\L$2"}-1 if($algn{"\L$2"});
}
$cvl=2;
$cvl=$cval[$icol] if($cval[$icol]);
$cvl=$bva if($bva);
$cvl=$rva if($rva);
if($cattr=~/VALIGN\s*=\s*["']?\s*(\w+)/i) {
$cvl=$v{"\L$1"} if($v{"\L$1"});
}
($cbg)=$cattr=~/BGCOLOR\s*=\s*["']?\s*#?(\w+)/i;
$cbg=&col2rgb($cbg);
for($rbg[$nrow],$tbg,$deftbg,$bg) {$cbg=$_ if(!$cbg)};
$now=0;
$ro=$cattr=~/class\s*=\s*["']?rot(-?90)/i?$1:0;
if($cattr=~/NOWRAP/i || $cal==4 || $ro) {$now=1};
$dc=".";
$dc=$bdc if($bdc || $bdc eq "0");
$dc=$rdc if($rdc || $rdc eq "0");
$dc=$codc[$icol] if($codc[$icol] || $codc[$icol] eq "0");
$dc=$cdc if($cdc || $cdc eq "0");
($wid)=$cattr=~/WIDTH\s*=\s*["'](\d+%?)/i;
if($wid=~/%$/) {$wid=$`/100};
if($wid>$cwid[$icol]) {$cwid[$icol]=$wid};
if($cpad || $cpad eq "0") {
$clm=$cpad;
$crm=$cpad;
$ctm=$cpad;
$cbm=$cpad;
} else {
$clm=$rul<5?8:4;
$crm=$rul<5?8:4;
$ctm=2;
$cbm=6;
}
if($tcl==1) {
$clm=$icol>0?12:2;
$crm=12;
$ctm=0;
$cbm=0;
}
if($rul==1 && $fra==1 && $icol==0 && $tal==0) {$clm=0};
($lang)=$cattr=~/lang\s*=\s*["']?([a-zA-Z-]+)/i;
for($rla[$nrow],$tla) {$lang=$_ if(!$lang)};
$lang=lc $lang;
&inihyph if($opt_H);
$cbg=~/#(\w+).*#(\w+).*#(\w+)/;
&img($cell,$1,$2,$3);
@cll=("{(\004$lang\004)WB($cell)}",0,0,$ctype,0,$colsp,$rowsp,$cal,
"($dc)",$cvl,$now,$clm,$crm,$ctm,$cbm,0,0,0,0,$cbg,$ro);
for $i (0..$#cll) {$cells{"$nrow,$icol,$i"}=$cll[$i]};
$icol+=$csp;
if($icol-1>$ncol) {$ncol=$icol-1};
}
}
for $j (0..$ncol) {
for $i (0..$nrow) {
if($cells{"$i,$j,0"} && $cells{"$i,$j,0"}!=1) {
if($cells{"$i,$j,6"}>$nrow-$i+1) {$cells{"$i,$j,6"}=$nrow-$i+1};
if($cells{"$i,$j,6"}>1) {$rd{"$i,2"}=1};
}
}
}
$rd{"$nrow,2"}=0;
$rw="[";
for $i (0..$nrow) {
$rw.="[$rh[$i] ".$rd{"$i,1"}." ".$rd{"$i,2"}." ".$rd{"$i,3"}." 0 0 [";
for $j (0..$ncol) {
$cbg="";
for($rbg[$i],$tbg,$deftbg,$bg) {$cbg=$_ if(!$cbg)};
$temp="[{()}0 0 0 0 1 1 0(.)0 0 $clm $crm $ctm $cbm 0 0 0 0 $cbg $ro]";
if($cells{"$i,$j,0"}==1) {
$temp="0";
} elsif($cells{"$i,$j,0"}) {
$temp="[";
for $k (0..$#cll) {
$temp.=$cells{"$i,$j,$k"}." ";
}
$temp.="]";
}
$rw.="$temp\n";
}
$rw.="]]\n";
}
if($nrow==$nhead+$nfoot-1) {
$nhead=0;
$nfoot=0;
}
$tdesc="[0 0 $tcl 0 0 $tal 0 $twid $bord $nrow $ncol"
." $nhead $nfoot $fra $rul {($cap)} $capa]\n";
$cdesc="[";
for (0..$ncol) {
unless($wid=$cwid[$_]) {$wid=0};
$cdesc.="[0 0 0 $wid $cgrp[$_] 0 0]";
}
$cdesc.="]\n";
$tables.="[$tdesc $cdesc $rw]]\n";
$_=$beg.")$ntab PT(".$rest;
}
&img($_,$red,$grn,$blu);
&ack($_);
$_[0]=$_;
}
sub getcom{
$com=$&;
$'=~/--\s*(--|>)/;
$com.=$`.$&;
$rest=$';
while($1 eq "--") {
$'=~/(>)/ if($'!~/--\s*(--|>)/);
$com.=$`.$&;
$rest=$';
}
}
sub getl {
($l)=@_;
if(!$lid{$l}) {
while($l=~s/-[^-]+$// && !$lid{$l}) {};
}
$lid{$l};
}
sub ack {
local($_)=@_;
chdir $tempdir;
while (/<[mM][aA][tT][hH]/) {
$beg=$`;
$rest=$&.$';
$rest=~m|</[mM][aA][tT][hH]>|;
$end=$';
$math=$`;
if(&math2sym($math)) {
$_=$beg.$sym.$end;
} elsif($package{'TeX'} && $package{'dvips'}) {
$math=~s|\\200|\\|g;
$math=~s|\\201|\(|g;
$math=~s|\\202|\)|g;
&math2tex($math);
open(SCRATCH,">$scr.tex");
print SCRATCH $tex;
close SCRATCH;
`tex $scr.tex`;
`dvips -E -o $scr.ps $scr.dvi`;
open(LOG,"$scr.log");
$log=<LOG>;
close LOG;
($h,$d)=$log=~/[\w\W]*$prog: +([\d.]+)pt: +([\d.]+)/ ? ($1,$2) : (1,0);
$above=$h+$d>0?sprintf("%.4f",$h/($h+$d)):0;
open(PS,"$scr.ps");
$pic=<PS>;
if($pic=~/^%!/ && $pic=~/%%BoundingBox: +$V +$V +$V +$V/) {
$xs=$3-$1;
$ys=$4-$2;
$llx=$1;
$lly=$2;
$ps="";
for $i (split(/\n/,$pic)) {
$ps.=$i."\n" if($i && $i!~/^%/);
}
if($ps=~/\nTeXDict begin/) {
if(!$ph) {
$ph="/DH {1 F div dup scale /showpage {} D\n$`$&} D\n%EndDH\n";
$pv=$ph.$pv;
}
$ps="save -$llx -$lly translate\nDH$' restore";
}
}
$nimg++;
$nps--;
push(@XS,$xs);
push(@YS,$ys);
push(@IX,$nps);
push(@IT,2);
$pv.="/P$nimg {$ps} D\n";
$eps{"P$nimg"}=$ps;
$_=$beg.")$above 3 (P$nimg) $nimg IM(".$end;
} else {
$math=~s/<math$R//i;
$_=$beg.$math.$end;
}
}
chdir $cwd;
s|<[sS][uU][bB]$R|)Sb(|g;
s|<[sS][uU][pP]$R|)Sp(|g;
s"</[sS][uU]([bB]|[pP])>")Es("g;
s|<[A-Za-z/!?]\w*$R||g;
&ent($_);
y/\003/>/;
s/\004([^\004]*)\004/")".&getl($1)." Sl($&"/eg;
if($opt_H) {
&dbg("Inserting potential hyphenation points\n") if($opt_d && $ndoc>0);
$temp="";
while(/\004([^\004]*)\004/) {
$temp.=$`;
$lang=$1;
$end=$';
if($end=~/\004([^\004]*)\004/) {
$htext=$`;
$end=$&.$';
} else {
$htext=$end;
$end="";
}
$apa="";
while($htext=~/(..?)\(([^)]*)/) {
$slut=$';
if($1 eq "XX") {
$apa.=$`.$&;
if($'=~/RP\(/) {
$apa.=$`;
$htext=$&.$';
} else {
$apa.=$slut;
$htext="";
}
} elsif($1 eq ") ") {
$apa.=$`.$&;
$htext=$';
} else {
$apa.="$`$1(";
$htext=$';
($txt=$2)=~s/[$ltrs]{$hyphenation{'min'},}/&hyph($&)/eg;
$apa.=$txt;
}
}
$_=$apa.$slut.$end;
}
$_=$temp.$_;
}
s/\004([^\004]*)\004//g;
$_[0]=$_;
}
sub ent {
local($_)=@_;
s|&#x($X+);?|"&#".hex($1).";"|egi;
for $char (keys %ent) {s/&($char)(;|$|(?=\W))/chr($ent{$char})/eg};
for $char (keys %symb) {s/&($char)(;|$|(?=\W))/)SY(\\$symb{$char})ES(/g};
s/&(euro|#8364)(;|$|(?=\W))/)MY(e)ES(/g;
s|<?|<|g;
s|>?|>|g;
s|"?|"|g;
s/&($space);?/)$space{$1} Se(/g;
s|&#(\d+);?|$1==38?"\005":$1<256?chr($1):$&|eg;
s/(\005|&?)/\&/g;
$_[0]=$_;
}
sub spec {
$_[0]=~s/(\\|\(;|$|(?=\W)))/\\200/g;
$_[0]=~s/(\(|((;|$|(?=\W)))/\\201/g;
$_[0]=~s/(\)|)(;|$|(?=\W)))/\\202/g;
$_[0]=~s/&(there4|#8756|#[xX]2234)(;|$|(?=\W))/)SY(\\200)ES(/g;
}
sub math2tex {
local($_)=@_;
local($beg,$rest);
%a=("line","overline",
"cub","overbrace",
"hat","widehat",
"tilde","widetilde",
"larr", "overleftarrow",
"rarr", "overrightarrow");
%b=("line","underline",
"cub","underbrace",
"hat","widehat",
"tilde","widetilde");
%s=("medium","\\big",
"large","\\Big",
"huge","\\bigg");
($mattr)=/<math$R/i;
$st=$mattr=~/class\s*=\s*["']?chem/i?'\rm ':'';
$di=$mattr=~/class\s*=\s*["']?displayed/i?'\displaystyle ':'';
s/<math$R//gi;
s/\\/\\backslash/g;
s/__/_\\>_/gi;
s/\^\^/^\\>^/gi;
s/_([^_]+)_/_{$1}/g;
s/\^([^^]+)\^/^{$1}/g;
s/ ?/\\,/g;
s/&sp;?/\\>/g;
s/ ?/\\;/g;
s/ ?/\\>/g;
s/ε?/\\varepsilon /g;
s/υ?/\\upsilon /g;
s/ϖ?/\\varpi /g;
s/ς?/\\varsigma /g;
s/ϑ?/\\vartheta /g;
s/ϕ?/\\varphi /g;
s/ϒ?/\\Upsilon /g;
s/ο?/o/g;
s/±?/\\pm /g;
s/∨?/\\vee /g;
s/∧?/\\wedge /g;
s/≈?/\\approx /g;
s/⊆?/\\subseteq /g;
s/⊂?/\\subset /g;
s/⊇?/\\supseteq /g;
s/⊃?/\\supset /g;
s/∈?/\\in /g;
s/←?/\\leftarrow /g;
s/→?([_^])/\\mathop\\rightarrow\\limits$1 /g;
s/→?/\\rightarrow /g;
s/↑?/\\uparrow /g;
s/↓?/\\downarrow /g;
s/↔?/\\leftrightarrow /g;
s/⇐?/\\Leftarrow /g;
s/⇒?/\\Rightarrow /g;
s/⇑?/\\Uparrow /g;
s/⇓?/\\Downarrow /g;
s/∃?/\\exists /g;
s/&inf;?/\\infty /g;
s/&?int;?/\\int\\limits /g;
s/&?sum;?/\\sum\\limits /g;
s/&?prod;?/\\prod\\limits /g;
s/&pd;?/\\partial /g;
s/{?/\\{/g;
s/}?/\\}/g;
s/<t>/\\hbox{/gi;
s/<b>/\\bf /gi;
s/<bt>/{\\bf\\hbox{/gi;
s/<sub$R/_{/gi;
s/<sup$R/\^{/gi;
s/<box\s*size=["']?(\w+)["']?>/{\\def\\lft{$s{$1}}\\def\\rgt{$s{$1}}/gi;
s/<box$R/{/gi;
s/<text\s*>/\\hbox{/gi;
s/([\(\[\|])\s*<left>/\\lft$1/gi;
s/<right>/\\rgt /gi;
s/<(atop|choose|over)>/\\\L$1 /gi;
s/<of>/}\\of{/gi;
s/<bar>/\\overline{/gi;
s/<vec>/\\overrightarrow{/gi;
s/<hat>/\\widehat{/gi;
s/<tilde>/\\widetilde{/gi;
s/<(sqrt|root|vec|dot|ddot|hat|tilde)>/\\\L$1\{/gi;
while(/<above\s+sym\s*=\s*["']?equals["']?\s*>/i) {
$beg=$`."\\overline{\\overline{";
$rest=$';
$rest=~s/<\/above>/}}/i;
$_=$beg.$rest;
}
s/<above\s*>/\\overline{/gi;
s/<above\s+sym\s*=\s*["']?(\w+)["']?\s*>/\\$a{$1}\{/gi;
s/<below\s*>/\\underline{/gi;
s/<below\s+sym\s*=\s*["']?(\w+)["']?\s*>/\\$b{$1}\{/gi;
s/<\/(math|row|item|b)>//gi;
s/<\/(box|t|sup|sub|sqrt|root|vec|bar|dot|ddot|hat|tilde|above|below|text|array)>/}/gi;
s/<\/bt>/}}/gi;
s/<?/< /gi;
s/>?/>/gi;
s/&(\w+);?/\\$1 /gi;
s/<array$R/\\matrix{/gi;
s/<row>\s*<item$R//i;
s/<row>\s*<item$R/\\cr /gi;
s/<item>/&/gi;
s/<[^ ]$R//gi;
s/\n*$//;
$tex="\\batchmode\\magnification=$mag\\hsize=40cm\\nopagenumbers\n"
."\\def\\lft{\\left}\\def\\rgt{\\right}\n\\setbox0=\\hbox{\$$st$di".$_."\$}\n"
."\\immediate\\write0{$prog: \\the\\ht0: \\the\\dp0}\\box0\n\\end\n";
}
sub Getopts {
local($optlist)=@_;
local(@args,$_,$opt,$opts,$rest,$olist,$plist,$found,@popts);
local($errs)=0;
local($[)=0;
@args=split( /\|/, $optlist );
for $opt (@args) {
if(substr($opt,-1,1) ne ':') {$olist.=$opt}
else {$plist.=$opt}
}
@popts=split(/:/,$plist);
while(@ARGV && ($_=$ARGV[0]) =~ /^-(.*)/) {
$opt=$1;
if($opt=~/^-/ && $optalias{"\L$'"}) {$opt=$optalias{"\L$'"}};
if($opt =~ /^[$olist]+$/) {
while ($char=chop $opt) {eval "\$opt_$char=1"}
shift(@ARGV);
}
else {
$found=0;
for $opts (@popts) {
$rest=substr($opt,length($opts));
if(index($opt,$opts)==0) {
$found=1;
shift(@ARGV);
if(length($rest)==0) {
++$errs unless @ARGV;
$rest=shift(@ARGV);
}
eval "\$opt_$opts=\$rest";
}
}
if(!$found) {
&dbg("Unknown option: $opt\n");
++$errs;
shift(@ARGV);
}
}
}
$errs==0;
}
sub openps {
open(STDOUT,">$opt_o") || die "*** Error opening $opt_o for output\n";
}
sub getalt {
if($imgcmd eq "img") {
$alt="";
$match=0;
if($img=~/alt\s*=\s*"([^"]*)"/i) {$alt=$1; $match=1};
if(!$match && $img=~/alt\s*=\s*([\w\.-]+)/i) {$alt=$1; $match=1};
if(!$match) {$alt=")WB IA WB("};
$text="$alt )WB(";
return;
}
if($imgcmd eq "hr") {
$text=$img=~/align\s*=\s*["']?(left|center|right)/i?")$algn{lc $1} ":")2 ";
$text.=$img=~/size\s*=\s*["']?$V/i?$1:.6;
$wd=1;
if($img=~/width\s*=\s*["']?$V(%?)/i) {$wd=$2?$1/100:-$1};
$text.=" $wd HR(";
return;
}
if($imgcmd eq "fig") {
$text=")BN(";
}
}
sub xbmtops {
$fc=1;
$dp=1;
($xs,$ys)=$pic=~/^#define.* (\d+)[\w\W]*^#define.* (\d+)/;
$nd=2*int(($xs+7)/8)*$ys;
($pic)=$pic=~/[^#].* char.*[\w\W]*{([\w\W]*)}/;
$pic=~s/[ ,\n\r]*0x[ ,]*//g;
$pic=~y/01246789bdef/f7bd91e62480/;
$bm=unpack("H*", pack("h*",$pic));
}
sub pmtops {
pmtoraw($pm) if($pm=~/^P([1-3])/);
$pm=~/^P([4-6])/;
$maptype=$1;
return if(!$maptype);
$pm=$';
$bm="";
$nint=3;
$dp=8;
if($maptype==4) {
$nint=2;
$dp=1;
}
undef @num;
$found=0;
while($pm && $found<$nint) {
if($pm=~/^\s*(\d+)/) {$num[$found]=$1};
if($num[$found]) {
$found++;
$pm=$';
} elsif($pm=~/^\s*#.*\n/) {
$pm=$';
} else {
return;
}
}
($b)=$pm=~/\s([\w\W]*)/;
($xs,$ys,$bits)=@num;
return if($bits>255);
$fc=1;
if($maptype==6) {
$fc=3;
$nd=6*$xs*$ys;
$bm=unpack("H*",$b);
} else {
$bm=unpack("H*",$b);
if($maptype==4) {
$nd=2*int(($xs+7)/8)*$ys;
$bm=~y/0123456789abcdef/fedcba9876543210/;
} else {
$nd=2*$xs*$ys;
}
}
}
sub trans {
$next = 13;
$temp = ord substr($pic,10,1);
if($temp & 0x80) {$next += 3*2**(($temp & 0x07) + 1)} else {return};
$byte = ord substr($pic,$next,1);
while($byte != 0x3b && $next <= length $pic) {
if($byte == 0x21) {
if(ord substr($pic,$next+1,1) == 0xf9) {
if(ord substr($pic,$next+3,1) & 0x01) {
&dbg("Transparent\n") if($opt_d);
$src{$URL}=$pic;
$idx = 3*(ord substr($pic,$next+6,1))+13;
substr($pic,$idx,3) = pack("H*",$red.$grn.$blu) if($idx<length $pic);
}
return;
$next += 2;
&skip;
} else {
$next += 2;
&skip;
}
} elsif($byte == 0x2c) {
$next += 10;
$temp = ord substr($pic,$next-1,1);
if($temp & 0x80) {$next += 3*2**(($temp & 0x07) + 1)};
$next++;
&skip;
} else {return}
}
}
sub skip {
$byte = ord substr($pic,$next,1);
while($byte != 0) {
$next += $byte + 1;
$byte = ord substr($pic,$next,1);
}
$next++;
$byte = ord substr($pic,$next,1);
}
sub run {
&dbg("@_\n") if($opt_d);
$pm=`@_`;
}
sub geturl {
local($url)=@_;
&dbg("Retrieving $url");
if($package{'libwww-perl'} || $package{'jfriedl'}) {
warn "\n";
&gu();
if($code==401) {
&prompt("\nDocument requires username and password\n\nUsername: ",$user);
&prompt("Password: ",$pass);
&gu($user,$pass);
}
$_[1]=$cont;
} elsif(defined $geturl) {
&dbg("...");
$_[1]=`$geturl '$url'`;
if($?) {
&dbg("\n*** Error opening $url\n");
return 0;
}
&dbg("done\n");
if($_[1]=~/\r?\n\r?\n/) {
$_[1]=$';
$dhead=$`;
($code)=$dhead=~/HTTP\/\S+ +(\d+)/i;
($contyp)=$dhead=~/Content-type:\s+(.*)/i;
} else {
$code=500;
}
}
$_[0]=$url;
$code<300;
}
sub gu {
if($package{'libwww-perl'}) {
require LWP::UserAgent;
$ua=new LWP::UserAgent;
$ua->env_proxy();
if ($opt_k) {
require HTTP::Cookies;
$cookie_jar = HTTP::Cookies::Netscape->new(File => $opt_k, AutoSave => 1);
$ua->cookie_jar($cookie_jar);
}
$req = HTTP::Request->new(GET => $url);
$req->authorization_basic(@_) if(@_);
$ua->agent($spoof) if($spoof);
my $res = $ua->request($req);
$code=$res->code;
$contyp=$res->header('content-type');
$cont=$res->content;
} else {
require "www.pl";
@opts=@_?("authorization=$_[0]:$_[1]"):();
push(@opts,"quiet") if(!$opt_d);
$www::useragent=$spoof if($spoof);
($status,$memo,%info)=&www::open_http_url(*FILE,$url,@opts);
$code=$info{'CODE'};
($contyp)=$info{'HEADER'}=~/Content-type:\s+(.*)/i;
$cont=<FILE>;
}
}
sub pictops {
if($opt_g) {
$fc=1;
$pg1="pgm";
$pg2="|ppmtopgm";
} else {
$fc=3;
$pg1="ppm";
$pg2="";
}
($type)=$URL=~/([^\?]+)\??/;
($type)=$type=~/\.(\w+)$/;
$bm="";
$ps="";
$pm="";
if($opt_U && $src{$URL} && !$cmd{$URL.$red.$grn.$blu}) {
$pic=$src{$URL};
} elsif($URL=~m|://|) {
&geturl($URL,$pic) || return;
} else {
$flag=0;
if($opt_O) {
$orig=$URL;
unless($orig=~s/\.\w*$/.ps/) {$orig.=".ps"};
if(open(ORIG,"<$orig")) {
$pic=<ORIG>;
close ORIG;
if($pic=~/^%!/ && $pic=~/%%BoundingBox:/) {
$flag=1;
&dbg("Using $orig as original for $URL\n") if($opt_d);
}
}
}
if(!$flag) {
if(open(PIC,"<$URL")) {
binmode PIC;
$pic=<PIC>;
close PIC;
} else {
&dbg("*** Error opening $URL\n");
return;
}
}
}
$pic=~s/^[\n\r]*//;
&trans if($pic=~/^GIF/);
if($pic=~/^P[1-6]/) {
$pm=$pic;
} else {
open(SCRATCH,">$scr");
binmode(SCRATCH);
print SCRATCH "$pic";
close SCRATCH;
if($pic=~/^%!/ && $pic=~/%%BoundingBox: +$V +$V +$V +$V/) {
$xs=$3-$1;
$ys=$4-$2;
$ps="save\n0 0 M\nIS IS scale\n/showpage {}D\n".(0-$1)." ".(0-$2)." translate\n";
for $i (split(/\n/,$pic)) {
$ps.=$i."\n" if($i && $i!~/^%/);
}
$ps.="restore";
} elsif($type=~/.xbm$/i || $pic=~/^#define/) {
&xbmtops;
} elsif($package{'ImageMagick'}) {
if($package{'PerlMagick'}) {
$imobj=Image::Magick->new;
$mess=$imobj->Read($scr);
if($mess) {
&dbg("$mess\n");
} else {
$mess=$imobj->Write("$scr\.$pg1");
&dbg("$mess\n") if($mess);
}
undef $imobj;
} else {
# &run("convert $scr $pg1:-");
&run("convert $scr $scr\.$pg1");
}
open(PNM,"$scr\.$pg1");
binmode PNM;
$pm=<PNM>;
close PNM;
if(!$pm && $pic=~/^\377\330/ && $package{'djpeg'}) {
&run("djpeg $scr$pg2");
}
} elsif($pic=~/^\377\330/ && $package{'djpeg'}) {
&run("djpeg $scr$pg2");
} elsif($package{'pbmplus'} || $package{'netpbm'}) {
if($pic=~/^GIF/) {
&run("$giftopm $scr");
} else {
&run("anytopnm $scr");
}
if($opt_g && $pm=~/^P6/) {
open(SCRATCH,">$scr");
binmode(SCRATCH);
print SCRATCH $pm;
close SCRATCH;
&run("ppmtopgm $scr");
}
}
}
&pmtops if(!$bm);
return if(!$bm);
$bm=substr($bm,0,$nd);
$pad=$nd-length($bm);
if($pad) {$bm.="f" x $pad};
$bm=~s/(.{60})/$1\n/g;
}
sub math2sym {
local($_)=@_;
s/<math$R//gi;
for $char (keys %symb) {s/&($char)(;|$|(?=\W))/\\$symb{$char}/g};
$stat=!/([&<][a-zA-Z]|[_^{])/;
s/[a-zA-Z\s]*[a-zA-Z][a-zA-Z\s]*/)ES()I($&)ES()SY(/g;
s/(\\200|\\201|\\202)/)RO($&)ES(/g;
$sym=")SY($_)ES(";
$stat;
}
sub varsub {
for (@_) {
s/\\\\/\000/g;
s/\([^)]+\)/()$&join /g;
s/(^|[^\\])\$(T|N|U|H|A)/$1)join $vars{$2} join(/g;
s/(^|[^\\])\$D\{"(.*?)"\}/"$1".POSIX::strftime($+,@now)/eg if($posix);
s/(^|[^\\])\$D/"$1".POSIX::strftime($datefmt,@now)/eg if($posix);
# while(/(?=[^\\])\${([^}]+)}/) {
while(/(?=[^\\])\$\[([^]]+)\]/) {
if(!defined $metarc{lc $1}) {
$metarc{lc $1}=$mn++;
}
$_="$`)join ME $metarc{lc $1} get join($'";
}
s/\\\$/\$/g;
s/\000/\\\\/g;
s/\(\)join//g;
s/\(\) ?(\([^)]*\)|\w+) ?join/ $1/g;
}
}
sub follow {
return 0 if(!$opt_W);
$H=$lnk=~/\.html?(#|$)/i || $lnk=~m|.+//.+/[^/\.]*$|;
$T=$rev && ($revtoc && $ndoc==1 || $ndoc>1 && $H);
$L=$b1=~m|://| && $lnk=~m"^$b1(/|$)" || $b1!~m|://| && $lnk!~m|://|;
$B=$B2 && $lnk=~/^$B2/ || !$B2 && $lnk!~m"(^\.\.|://)";
return $rlnk && ($H || $T) if($rel);
return $L && ($H || $T) if($local);
return $B && ($H || $T) if($below);
return $H || $T if($rev);
$H;
}
sub DSC {
&dbg("Generating DSC PostScript\n") if($opt_d);
%op=("moveto",2, "rmoveto",2, "lineto",2, "rlineto",2, "translate",2,
"scale",2, "show",1, "awidthshow",6, "stroke",0, "save",0, "restore",0,
"gsave",0, "grestore",0, "showpage",0, "newpath",0, "setlinewidth",1,
"setlinejoin",1, "setgray",1, "closepath",0, "fill",0, "arc",5,
"setrgbcolor",3, "rotate",1, "image",5, "colorimage",7);
%sho=("moveto","M", "rmoveto","RM", "lineto","L", "rlineto","RL", "show","S",
"showpage","N", "awidthshow","A");
$i=0;
$po="/OU true D\n";
for (keys %op) {
$cmd=$sho{$_}?$sho{$_}:$_;
push(@val,$cmd);
$in{$_}=$i++;
$j=$op{$_}+1;
$extra="";
if(/showpage/) {$extra="Bb{Xl Yl Xh Yh}if Pn "};
if(/image/) {$extra="K2 ";$j++};
$t=$op{$_}?"$op{$_} copy $extra$in{$_} $j array astore":"[$extra$in{$_}]";
$po.="/$_ {OU {$t ==} if $_}d\n";
}
$po.="/pdfmark {$i] ==} D\n";
$in{"pdfmark"}=$i++;
push(@val,"pdfmark");
$po.="/NF {OU{2 copy E $i 3 array astore ==}if ONF}d\n"
."/EX {[IS EC] ==} D\n/Cd {} D\n/DU {TU PM 1 eq and TP and{Pn ==}if}d\n"
."/BB {US Bb{dup Yl lt{dup /Yl E D}if dup Yh gt{/Yh E D}{pop}ie\n"
." dup Xl lt{dup /Xl E D}if dup Xh gt{/Xh E D}{pop}ie}\n"
." {/Yl E D /Yh Yl D /Xl E D /Xh Xl D /Bb t D}ie}D\n";
$in{"Nf"}=$i++;
s|/(NF.*)|/O$1|;
s|/BB .*|$po|;
push(@val,"Nf");
if($psin) {
($ti)=/%%Title: (.*)/;
if(m|/BM (\d+)|) {
$nbit=$1;
for $vec ("IT","WS") {
/\/$vec \[(.*)\]/;
@$vec=split(' ',$1);
}
/\nSB/;
for (0..$nbit-1) {
$'=~/\n\n/;
push(@BM,$`);
}
}
($epsf)=/(\n\/P\d+_?\d* [\w\W]*)%Endpv/;
while($epsf=~/\n\/(P\d+_?\d*) \{/g) {
$pid=$1;
$rest=$';
$temp=$'=~/\/P\d+_?\d* \{/?$`:$rest;
($eps{$pid})=$temp=~/([\w\W]*)} D/;
}
if(/\/DH {/) {
$'=~/%EndDH/;
$ph="/DH {$`";
}
}
$j=-1;
for $i (0..$#IT) {
$j++ if($IT[$i] == 0);
push(@ix,$j);
}
$dfn="/F $opt_s D\n$ph";
for (keys %sho) {
$dfn.="/$sho{$_} {$_} d\n";
}
open(SCR,">$scr.ps");
print SCR "$_ quit\n";
close SCR;
$cd{')]'}="Cd ";
$io="($in{'image'}|$in{'colorimage'})";
$_="";
$temp="";
$pn="";
$start=1;
$EPS="%%EndPageSetup";
$pp=0;
$n=0;
for $line (split(/\r?\n/,`$gs -q -dNODISPLAY $scr.ps -c quit`)) {
if(!$pp) {
$mv="";
$cx="";
$cy="";
}
if($start && $line!~/ $in{"pdfmark"}\]$/) {
$pdf=$temp;
$temp="";
$start=0;
}
$pp=$line=~/^\[(\S+) (\S+) ($in{'moveto'}|$in{'rmoveto'}|$in{'Nf'})\]$/;
S:{
if($pp && $3==$in{"Nf"}) {
$fn="$1 $2 $val[$3]\n";
last S;
}
if($pp && $3==$in{"moveto"}) {
$cx=$1;
$cy=$2;
$mv=sprintf("%.1f %.1f %s\n",$1,$2,$val[$3]);
last S;
}
if($pp && $3==$in{"rmoveto"}) {
if($mv) {
$cx+=$1;
$cy+=$2;
$mv=sprintf("%.1f %.1f %s\n",$cx,$cy,$val[$in{"moveto"}]);
} else {
$temp.=sprintf("%.1f %.1f %s\n",$1,$2,$val[$3]) if($1||$2);
}
last S;
}
if($line=~s/^\[(.*)\((\S*)\) ($in{"showpage"})\]$/pgsave restore $val[$3]/) {
$pbb="";
if($1) {
($llx,$lly,$urx,$ury)=split(/ /,$1);
$llx=int($llx);
$lly=int($lly);
$urx=int($urx+1);
$ury=int($ury+1);
$pbb="%%PageBoundingBox: $llx $lly $urx $ury\n";
if(!defined($Llx) || $llx<$Llx) {$Llx=$llx};
if(!defined($Lly) || $lly<$Lly) {$Lly=$lly};
if(!defined($Urx) || $urx>$Urx) {$Urx=$urx};
if(!defined($Ury) || $ury>$Ury) {$Ury=$ury};
}
$pn.="," if($pn && $2);
$n++;
@df=();
for(0..$#docfonts) {
push(@df,$docfonts[$_]) if($uf{$_}==$n);
}
push(@df,"Symbol") if($uf{"-1"}==$n);
$fu="";
$tmp=@df?"%%PageResources: font":"";
&splitline(@df);
$_.="%%Page: $pn$2 $n\n$fu$pbb%%BeginPageSetup\n/pgsave save D\n$temp$line\n";
$EPS="%%EndPageSetup";
$temp="";
$line="";
$fn="";
$mv="";
$pn="";
last S;
}
if($line=~/^\[([^(]*)(\(.*\)) ($in{"show"}|$in{"awidthshow"})\]$/) {
if(length $2>2) {
$line="$fn$1$2 $val[$3]";
if($fn=~/(\S+) Nf/ && $uf{$1}!=$n+1) {
$uf{$1}=$n+1;
$fnt=$1<0?"Symbol":$docfonts[$1];
$line="%%IncludeResource: font $fnt\n$line";
}
$fn="";
$pp=0;
} else {
$pp=1;
}
last S;
}
if($line=~/^\[(\S+) (\S+) ($in{"scale"})\]$/) {
$line=$1!=1||$2!=1?"$1 $2 $val[$3]\n$EPS":"$EPS";
$EPS="";
last S;
}
if($line=~/^\[(.*) (\d+) $io\]$/) {
$li=$BM[$2]=~y/\n/\n/+2;
$line="\/picstr $WS[$ix[$2]] string D\n$1\n"
."%%BeginData: $li Hex Lines\n$val[$3]\n$BM[$2]\n%%EndData";
last S;
}
if($line=~/^\((.*)\)$/) {
$pn=$1;
$line="";
last S;
}
last S if($line=~s/^\[([^\/].* )?(\d+)\]$/$1$val[$2]/);
last S if($line=~s/(\)\])? (\/\w+) $in{"pdfmark"}\]$/$1 $cd{$1}$2 pdfmark/);
last S if($line=~s/^\[(\S+) \((P\d+.*)\)\]$/\/IS $1 D\n$eps{$2}/);
&dbg("$line\n");
}
if(!$pp && $mv.$line) {
$mv=~s/\.0//g;
$temp.="$mv$line\n";
}
}
@nf=();
@sf=();
$fontdef="";
for(0..$#docfonts) {
$ff=$ff{$docfonts[$_]};
if($ff && $uf{$_}>0) {
push(@sf,$docfonts[$_]);
$fontdef.="%%BeginResource: font $docfonts[$_]\n$cont{$ff}\n%%EndResource\n";
$cont{$ff}="";
}
push(@nf,$docfonts[$_]) if(!$ff && $uf{$_}>0);
}
push(@nf,"Symbol") if($uf{"-1"}>0);
$ti="@ARGV" unless($psin);
$or=$opt_L?"Landscape":"Portrait";
$setup="%%BeginSetup\n";
$setup.="$dupl\n" if($dupl);
$setup.="$fontdef" if($fontdef);
$fu="";
$tmp=@nf?"%%DocumentNeededResources: font":"";
&splitline(@nf);
$tmp=@sf?"%%DocumentSuppliedResources: font":"";
&splitline(@sf);
s/\\(200|201|202)/\\$ssy{$1}/g;
$dd="Clean7Bit";
$dd="Clean8Bit" if(($fontdef.$_)=~/[\200-\377]/);
$dd="Binary" if(($fontdef.$_)=~/[\000-\010\013-\014\016-\036]/);
$time=localtime;
print <<EOT;
%!PS-Adobe-3.0
%%Title: $title
%%Creator: $version
%%CreationDate: $time
$fu%%DocumentData: $dd
%%Orientation: $or
%%BoundingBox: $Llx $Lly $Urx $Ury
%%Pages: $n
%%EndComments
%%BeginProlog
/d {bind def} bind def
/D {def} d
/ie {ifelse} d
/E {exch} d
/t true D
/f false D
$fl
$cd
$defs
$mysymb/Nf {dup 0 ge{FL E get}{-1 eq{/Symbol}{/MySymbol}ie}ie findfont
E scalefont setfont} D
/IP {currentfile picstr readhexstring pop} D
/WF $wf D
$dfn%%EndProlog
$setup$reenc$pdf%%EndSetup
$_%%EOF
EOT
}
sub splitline {
for (@_) {
if(length($tmp.$_)>78) {
$fu.="$tmp\n";
$tmp="%%+ font";
}
$tmp.=" $_";
}
$fu.="$tmp\n" if($tmp);
}
sub ref {
@pnum=();
/.*\s*$/;
open(SCR,">$scr.ps");
print SCR "$`HN{==}forall $& quit\n";
close SCR;
$pnum=`$gs -q -dNODISPLAY $scr.ps -c quit`;
while($pnum=~/\([^)]*\)/g) {push(@pnum,$&)};
$pnum="@pnum";
&cut($pnum);
s|/HN [^D]*D|/HN [$pnum] D|;
}
sub cut {
$_[0]=~s/(.{70}[^ \n]*) ([^ ])/$1\n$2/g;
}
sub fin {
if($opt_D) {
&DSC;
} else {
print;
}
if($opt_d) {
print DBG "\n";
close DBG;
}
unlink "$scr","$scr.ps","$scr.ppm","$scr.tex","$scr.dvi","$scr.log" if($scr);
exit;
}
sub col2rgb {
$rgb=$colour{"\L$_[0]"}?($colour{"\L$_[0]"}):$_[0];
@cvec=$rgb=~/($X$X)($X$X)($X$X)/?($1,$2,$3):();
@cvec?"[16#$1 16#$2 16#$3]":"";
}
sub inihyph {
if($hyphenation_file{$lang}) {
$hyfile=$hyphenation_file{$lang};
} else {
&dbg("No hyphenation file for language '$lang'\n");
$lng=$lang;
while($lng=~s/-?[^-]+$// && !$hyphenation_file{$lng}) {};
$hyfile=$hyphenation_file{$lng};
&dbg(" ..using $hyfile\n");
}
if($init{$hyfile}) {
$rep{$lang}=$refl{$hyfile};
return;
}
if(open(HYPH,"<$hyfile")) {
&dbg("Reading hyphenation patterns from $hyfile\n") if($opt_d);
<HYPH>=~/\\patterns{.*/;
close HYPH;
$def=$`;
($patterns=$')=~s/\^\^($X$X)/chr hex $1/eg;
$upp{$lang}='';
$low{$lang}='';
while ($def=~/\\lccode(`\\?\^\^|")($X$X)=(`\\?\^\^|")($X$X)/g) {
if($2 ne $4) {
$uc=$2;
$lc=$4;
if($`=~/\n$/ || $`!~/%.*$/) {
$upp{$lang}.=chr hex $uc;
$low{$lang}.=chr hex $lc;
}
}
}
while ($def=~/\\let\\(\w+)=(\^\^|")($X$X)/g) {
$key=$1;
$value=chr hex $3;
$tex{$key}=$value if($`=~/\n$/ || $`!~/%.*$/);
}
for $key (keys %tex) {
$patterns=~s/\\$key */$tex{$key}/g;
}
if($lang=~/^de/) {
%de=('"a',228, '"o',246, '"u',252, '\3', 223);
$patterns=~s/\\c\{[^}]*\}//g;
$patterns=~s/\\n\{([^}]*)\}/$1/g;
$patterns=~s/("a|"o|"u|\\3)/chr $de{$1}/eg;
$upp{"de"}=~s/\337//;
$low{"de"}=~s/\377//;
}
if($lang=~/^is/ && !$upp{"is"}) {
%is=("'a","\341", "'e","\351", "'i","\355", "'o","\363", "'u","\372",
"'y","\375", '"x',"\346", '"o',"\366", "'d","\360", "`t","\376");
$isch=join("|",keys %is);
$patterns=~s/($isch)/$is{$1}/g;
$upp{"is"}="\301\311\315\323\332\335\306\326\336\320";
$low{"is"}="\341\351\355\363\372\375\346\366\376\360";
}
if($lang=~/^fi/ && !$upp{"fi"}) {
$upp{"fi"}="\304\326";
$low{"fi"}="\344\366";
}
if($lang=~/^fr/ && !$upp{"fr"}) {
$upp{"fr"}="\300\302\307\311\310\312\313\316\317\324\326\333\226";
$low{"fr"}="\340\342\347\351\350\352\353\356\357\364\366\373\225";
}
if($lang=~/^es/ && !$upp{"es"}) {
$upp{"es"}="\301\311\315\323\321\332\334";
$low{"es"}="\341\351\355\363\361\372\374";
}
$patterns=~s/\{([\w\W]*?)\}/[$1]/g;
$patterns=~/}/;
$end=$`;
if($def.$'=~/\\hyphenation\[.*/) {
$'=~/]/;
$hyext=$`;
}
($patterns=$end)=~s/%.*//g;
for $key (split('\s+',$patterns)) {
$value=$key;
$key=~s/\d//g;
$value=~s/^([$ltrs.])/0$1/;
$value=~s/[$ltrs](\d)/$1/g;
$value=~s/[$ltrs.]/0/g;
$patt{"$key,$lang"}=$value if($value=~/^\d+$/);
}
} else {
&dbg("Cannot open hyphenation file: $hyfile\n");
}
$hext=$hyphenation_extfile{$lang};
for(split('\s*:\s*',$hext)) {
if(open(HEXT,"<$_")) {
&dbg("Reading hyphenation extensions from $_\n") if($opt_d);
$hyext.=<HEXT>;
close HEXT;
} else {
&dbg("Cannot open hyphenation extension file: $_\n");
}
}
if($hyext) {
for $key (keys %tex) {
$hyext=~s/$key */$tex{$key}/g;
}
for $key (split('\s+',$hyext)) {
$key=~s/\s+//g;
$value="00$key\0";
$key=~s/-//g;
$value=~s/[$ltrs]/0/g;
$value=~s/0-/1/g;
$hext{"$key,$lang"}=$value;
}
}
$refl{$hyfile}=$lang;
$rep{$lang}=$lang;
$init{$hyfile}=1;
}
sub hyph {
$word="\L$_[0]";
eval "\$word=~y/$upp{$rep{$lang}}/$low{$rep{$lang}}/" if($upp{$rep{$lang}});
$len=length($word);
$h=$hext{"$word,$rep{$lang}"};
if($h) {
@br=split(//,$h);
} else {
@br=(0) x ($len+3);
for $i (0..$len) {
for $j (0..$len-$i) {
$str=substr(".$word.",$j,$i+2);
$pstr=$patt{"$str,$rep{$lang}"};
if($pstr) {
@patt=split(//,$pstr);
for $k (0..$#patt) {
$br[$k+$j]=$patt[$k] if($br[$k+$j]<$patt[$k]);
}
}
}
}
}
$hword="";
for $i (0..$len-1) {
$hword.=substr($_[0],$i,1);
if(($h || $i>$hyphenation{'start'}-2 && $i<$len-$hyphenation{'end'})
&& $br[$i+2]%2==1) {$hword.=")HY("};
}
$hword.=")YH(" if(length $word < length $hword);
$hword;
}
sub setel {
$el=$_[0];
eval "\%arr=\%$el";
&fs($el);
push(@font,$fontid{"\L$font"});
push(@styl,$styl);
push(@size,$arr{'font-size'});
push(@alig,$algn{$arr{'text-align'}}-1);
push(@topm,$arr{'margin-top'});
push(@botm,$arr{'margin-bottom'});
push(@lftm,$arr{'margin-left'});
push(@rgtm,$arr{'margin-right'});
push(@colr,$col eq "[16#00 16#00 16#00]"?0:$col);
$temp=$arr{'margin-top'}*$arr{'font-size'};
$mi=$temp if($temp>$mi);
$temp=$arr{'margin-bottom'}*$arr{'font-size'};
$mi=$temp if($temp>$mi);
}
sub fs {
$arr{'font-family'}='times' if($el ne 'p' && !$latin1 && !defined $arr{$_});
for ("font-family","font-size") {
$arr{$_}=$body{$_} if(!defined $arr{$_});
}
($font=$arr{'font-family'})=~s/\W/-/g;
if(!$font_names{"\L$font"}) {$font=$fal{$font}};
if(!$font_names{"\L$font"}) {
&dbg("Unknown font: $arr{'font-family'}, using $deffnt{$_[0]}\n");
$font=$deffnt{$_[0]};
}
if(!defined $fontid{"\L$font"}) {
$fontid{"\L$font"}=$nfont++;
@names=split(/\s+/,$font_names{"\L$font"});
for($#names+1..3) {push(@names,$names[0])};
@docfonts=(@docfonts,@names);
}
&getval($arr{"font-size"},2);
for ('left','right','top','bottom') {
$arr{"margin-$_"}=0 if(!defined $arr{"margin-$_"});
}
for ($arr{"text-indent"},$arr{"margin-top"},$arr{"margin-bottom"},
$arr{"margin-left"},$arr{"margin-right"}) {
&getval($_,0);
}
$styl=$arr{'font-style'}=~/^(i|o)/+2*($arr{'font-weight'}=~/^b/);
$col=$arr{'color'}?&col2rgb($arr{'color'}):-1;
}
sub img {
local($_,$red,$grn,$blu)=@_;
local($beg,$end);
($red,$grn,$blu)=("FF","FF","FF") if(!$opt_U || $red.$grn.$blu !~ /^\w{6}$/);
while (/<(img|fig|hr|overlay|object)\s/i) {
$imgcmd="\L$1";
$beg=$`;
$'=~/>/;
$img=" $`";
$end=$';
$img=~s/\n/ /g;
if($imgcmd ne "object" || $img=~/data\s*=\s*['"]?([\w\/\.:~%-]+\.$IM)/i
|| $img=~/type\s*=\s*['"]?(image\/|application\/postscript)/i){
if($opt_T) {
&getalt;
} else {
$al=0;
$off="";
($align)=$img=~/align\s*=\s*['"]?(\w*)/i;
if($align=~/^middle$/i) {$al=1};
if($align=~/^top$/i) {$al=2};
if($imgcmd eq "overlay") {
$al=4;
$xoff=0;
$yoff=0;
if($img=~/\s*x\s*=\s*['"]?(\d+)/i) {$xoff=$1};
if($img=~/\s*y\s*=\s*['"]?(\d+)/i) {$yoff=$1};
$off="$xoff $yoff ";
}
$url="";
if($img=~/\s(src|data)\s*=\s*($S)/i) {($url)=$+=~/([^ \n]*)/};
&dbg("Image: $url\n") if($opt_d && $url);
$URL=$url;
unless($url=~m|://|) {
$url=~s/^file://;
if($url=~m|^/|) {$URL=$b1.$url} else {$URL=$b2.$url}
}
while($URL!~m|^\.\./| && $URL=~m|[^/]*/\.\./|) {$URL=$`.$'};
$URL=~s|/\./|/|g;
$text=$src{$URL}?$cmd{$URL.$red.$grn.$blu}:$cmd{$URL};
if(!$text || $opt_U && $src{$URL} && !$cmd{$URL.$red.$grn.$blu}) {
if(!$url || $failed{$url}) {
&getalt;
} else {
&pictops;
if($bm || $ps) {
&dbg("Size: $xs*$ys\n") if($opt_d);
$nimg++;
push(@XS,$xs);
push(@YS,$ys);
if($bm) {
$nm++;
push(@DP,$dp);
push(@BM,$bm);
push(@WS,int(($xs-1)*$dp/8)+1);
push(@FC,$fc);
push(@IX,$nm);
push(@IT,0);
}
if($ps) {
$nps--;
push(@IX,$nps);
push(@IT,1);
$nli=30000;
$n=1;
$npr=$ps=~s|(.*\n){$nli}|sprintf("$&} D\n/P$nimg\_%d {",$n++)|eg;
if($npr) {
$proc=" (";
for $i (0..$npr) {
$proc.="P$nimg\_$i ";
}
$proc.=")";
$pv.="/P$nimg\_0 {$ps} D\n";
$eps{"P$nimg\_0"}=$ps;
} else {
$proc=" (P$nimg)";
$pv.="/P$nimg {$ps} D\n";
$eps{"P$nimg"}=$ps;
}
}
$text="$proc $nimg IM(";
$cmd{$URL}=$text if(!$cmd{$URL});
$cmd{$URL.$red.$grn.$blu}=$text if($src{$URL});
$proc="";
$end=$' if($imgcmd eq "object" && $end=~m|</object>|i);
} else {
&getalt;
$failed{"$url"}=1;
}
}
} elsif($imgcmd eq "object" && $end=~m|</object>|i) {
$end=$';
}
}
if($cmd{$URL}) {
$text=")".$off.$al.$text;
if($imgcmd eq "fig") {
$end=~m|</fig>|i;
$fig=$`;
$end=$';
$over="";
while($fig=~/(<overlay$R)/ig) {$over.=$1};
($dum,$cap)=$fig=~m|<caption$R([\w\W]*)</caption>|i;
($dum,$cred)=$fig=~m|<credit$R([\w\W]*)</credit>|i;
$text=")BN($text$over)BN($cap)BN($cred)BN(";
}
}
}
$_=$beg.$text.$end;
}
s|<[hH][rR]$R|)2 1 1 HR(|g;
$_[0]=$_;
}
sub getval{
local($val,$unit)=$_[0]=~/$V\s*(\w*)/g;
$val*=$cm{$unit} if($_[1]==1 && defined $cm{$unit});
$val*=$pt{$unit} if($_[1]==2 && defined $pt{$unit});
$_[0]=$val;
}
sub getconf {
local($_)=@_;
while(/\@import\s+(([\w.\/-]+)|"([^"]*)"|'([^']*)')\s*;/) {
if(open(SS,"<$+") && !$read{$+}) {
$conf=<SS>;
$_=$`.$conf.$';
print DBG "***** $+:\n$conf" if($opt_d);
close SS;
$read{$+}=1;
} else {
&dbg($read{$+}?"Infinite \@import loop: $+\n":"Error opening: $+\n");
$_=$`.$';
}
}
@block=();
while(&getblk($_)){};
}
sub getblk {
local($_)=@_;
local ($beg,$match,$end,$blk,$key,$val,$id,$temp);
while(/^\s*\/\*/) {
/\*\/|$/;
$_=$';
}
return 0 if !/\S/;
/[\w,:.@\s-]+\{/;
$_=$';
($id=$&)=~s/^\s*|\s*\{//g;
$id=lc $id;
push(@block,"\L$id");
if($#block==1) {
$valid{$id}=1 if(!$user);
if($id eq "color") {$id="colour"};
if(!$valid{$id}) {
&dbg("Error in configuration file: unknown block name '$id'\n");
}
}
$blk="";
W:while(/\s*(\/\*|[\w][\w-]*\s*:|[\w,:.\s-]+\{|\})\s*/) {
$blk.=$1 if($1 ne "/*");
$beg=$`;
$match=$1;
$end=$';
S:{
if($match=~/\{$/) {
$temp=$match.$end;
$blk.=&getblk($temp);
$_=$temp;
last S;
}
if($match=~/:$/) {
($key=$`)=~s/\s*$//;
# $end=~/([\w.\$-]+|"[^"]*"|'[^']*')\s*;?/;
$end=~/("[^"]*"|'[^']*'|.*?(?= *(\/\*|;|}|$)))/m;
$blk.=$`.$&;
$_=$';
($val=$1)=~s/^["']|["']$//g;
$val=~s/'|\\/\\$&/g;
$typ=1;
$typ=2 if($val=~/^$V(cm|mm|in|pt|pc|em)$/);
$typ=3 if($val=~/^$V$/);
$typ=4 if($val=~/^-?\d+$/);
$typ=5 if($val eq "0" || $val eq "1");
if($block[0] eq '@html2ps') {
if($#block==0) {
if(!$user) {
$valid{$key}=1;
$type{$key}=$typ if(!defined $type{$key});
}
if($valid{$key}) {
if($typ>=$type{$key}) {
$key=~s/-/_/g;
eval "\$$key='$val'" if($user || $val ne '');
# print DBG "\$$key='$val'\n" if($opt_d && $user);
} elsif($user) {
&dbg("Error in configuration file: bad value for $key: $val\n");
}
} else {
&dbg("Error in configuration file: unknown key '$key'\n");
}
}
if($#block==1) {
if($id eq "option" && $optalias{$key}) {$key=$optalias{$key}};
if(!$user) {
$valid{"$id,$key"}=1;
$type{"$id,$key"}=$typ if(!defined $type{"$id,$key"});
}
if($valid{"$id,$key"} || $extend{$id}) {
if($typ>=$type{"$id,$key"} || $id eq "colour") {
eval "\$$id\{'$key'}='$val'" if($user || $val ne '');
# print DBG "\$$id\{'$key'}='$val'\n" if($opt_d && $user);
} elsif($user) {
&dbg("Error in configuration file: bad value for $key: $val\n");
}
} else {
&dbg("Error in block '$id' in configuration file:"
." unknown key '$key'\n");
}
}
if($#block>1) {
$temp="$block[$#block-1]_$key";
$valid{$temp}=1 if(!$user);
$parblk=$block[$#block-1];
if($valid{$temp}) {
eval "\$$parblk\_$key\{'$id'}='$val'";
# print DBG "\$$parblk\_$key\{'$id'}='$val'\n" if($opt_d && $user);
} elsif($valid{$parblk}) {
&dbg("Error in block '$parblk' in configuration file:"
." unknown key '$key'\n");
}
}
} else {
for $i (split(',\s*',$id)) {
$i=~s/@/AT_/;
$i=~s/\./_/;
$i=~s/ *:/__/;
eval "\$$i\{'\L$key'}='\L$val'";
# print DBG "\$$i\{'\L$key'}='\L$val'\n" if($opt_d && $user);
}
}
last S;
}
if($match eq "/*") {
/\*\/|$/;
$_=$';
last S;
}
last W;
}
}
pop(@block);
$_[0]=$end;
$blk;
}
sub prompt {
local($/)="\n";
&dbg($_[0]);
chop($_[1]=<STDIN>);
}
sub dbg {
print STDERR $_[0];
print DBG $_[0];
}
sub hb {
local($_)=@_;
local($head,$body,$beg,$end,$match,$tag);
#If neither </HEAD> nor <BODY> can be found, find the separation point (messy).
if(!/<(body|\/head)/i || $`=~/<plaintext|<xmp|<listing|<!--/i) {
$head="";
$int="";
S1: while(/<(\/?\w+|!--|!|\?)/) {
S2:{
$beg=$`;
$end=$';
$match=$&;
$tag=$1;
if($tag eq "!--") {
$int.=$`;
&getcom;
$int.=$com;
$_=$rest;
last S2;
}
if($tag=~/[!?]/) {
$end=~/>/;
$int.="$beg$match$`>";
$_=$';
last S2;
}
$tag=~s|/||;
last S1 if(!$head{"\L$tag"});
$end=~/$R/;
$head.=$int.$beg.$match.$&;
$int="";
$_=$';
}
}
$body=$int.$_;
} else {
$head=$`;
$body=$&.$';
}
$_[0]=$body;
$_[1]=$head;
}
sub open {
if($_[0]=~m|://|) {
&geturl($_[0],$_[1]);
} elsif(open(FILE,"<$_[0]")) {
$_[1]=<FILE>;
close FILE;
} else {
0;
}
}
sub pagedef {
for $margin ('left','right','top','bottom') {
($m)=$margin=~/(.)/;
if(defined $margin{$margin}) {
&dbg("'margin { margin-$margin:... }' is obsolete, use '\@page'\n");
$AT_page{"margin-$margin"}=$margin{$margin} if(!defined $AT_page{"margin-$margin"});
}
for $page ('left','right') {
($p)=$page=~/(.)/;
eval "\$m$m$p=\$AT_page\{'margin'} if(defined \$AT_page\{'margin'})";
eval "\$m$m$p=\$AT_page\{'margin-$margin'} if(defined \$AT_page\{'margin-$margin'})";
eval "\$m$m$p=\$AT_page__$page\{'margin'} if(defined \$AT_page__$page\{'margin'})";
eval "\$m$m$p=\$AT_page__$page\{'margin-$margin'} if(defined \$AT_page__$page\{'margin-$margin'})";
}
}
}
sub pmtoraw {
@pars=();
($temp)=@_;
for $i (0..3) {
1 while ($temp=~s/^\s*#.*//);
next if($pars[0] eq 'P1' && $i == 3);
$temp=~s/\s*(\S+)\s*//;
$pars[$i]=$1;
}
$temp=~s/#.*//g;
$pars[0]=~s/\d/$&+3/e;
$_[0]="$pars[0]\n$pars[1] $pars[2]\n";
if($pars[0] eq 'P4') {
$temp=~s/\s//g;
$_[0].=pack("B*",$temp);
} else {
$_[0].="255\n";
while ($temp=~/\d+/g) {
$_[0].=pack("C",int(255*$&/$pars[3]+.5));
}
}
}
pecomato-0.0.15/devtools/glibc-version.sh 0000755 0001752 0001752 00000000116 10677223051 017332 0 ustar devel devel #!/bin/sh
ldd --version | head -1 | sed "s/[^0-9\.]/ /g" | tr -d ' '
exit $?
pecomato-0.0.15/ChangeLog 0000644 0001752 0001752 00000125644 10677223051 014161 0 ustar devel devel 2007-09-28 wwp
* Makefile.inc (1.21):
Bumped version to 0.0.15 (critical bugfix release).
2007-09-28 wwp
* exif.h (1.9), main.c (1.72), util.h (1.52):
Fix a buffer overrun when checking for Exif signature string in
files.
2007-08-26 wwp
* Makefile.linux (1.28):
Renamed binary RPMs, tag SRPMs w/ the distro name as well.
2007-08-14 wwp
* Makefile.win32.inc (1.21):
Fix rar and 7-zip commands (Windows).
2007-08-13 wwp
* doc/TODO.t2t (1.38):
Updated TODO list.
2007-08-13 wwp
* pecomato.spec.in (1.4):
Updated RPM .spec file to include the user-manual (PDF).
2007-08-13 wwp
* util.c (1.54), util.h (1.51):
Fix conflicting declaration of ssize_t and _GNU_SOURCE.
2007-08-13 wwp
* main.c (1.71):
Fix extra char at end of line (typo).
2007-08-13 wwp
* Makefile.win32 (1.42), Makefile.win32.inc (1.20):
Added 7-zip archives building rules (Windows).
2007-08-06 wwp
* iptc.c (1.54):
Warn if IPTC filter edit have not been added.
2007-08-04 wwp
* main.c (1.70):
Revised the usage text a little bit.
2007-08-04 wwp
* doc/README.t2t (1.20), doc/TODO.t2t (1.37), doc/manpage.t2t
(1.6):
Updated links to mollux.org.
2007-08-02 wwp
* doc/html2ps.cfg (1.3):
Updated license cartouche in the pdf manual.
2007-08-02 wwp
* doc/html2ps.cfg (1.2):
Updated copyright.
2007-08-02 wwp
* doc/manpage.t2t (1.5):
Updated man page.
2007-08-02 wwp
* main.c (1.69):
Few more adjustments to the usage help.
2007-08-02 wwp
* doc/manpage.t2t (1.4):
Updated man page.
2007-08-02 wwp
* main.c (1.68), util.c (1.53):
Minor updates and fixes to the usage help.
2007-08-02 wwp
* doc/LICENSE.t2t (1.2), doc/DISCLAIMER.t2t (1.2), doc/README.t2t
(1.19), doc/TODO.t2t (1.36):
Now licensed under GPL v3 or above.
2007-08-02 wwp
* main.c (1.67):
Fix filter mode info display.
2007-08-02 wwp
* iptc.c (1.53), iptc.h (1.25), util.c (1.52):
Fix some memory leaks.
2007-08-02 wwp
* Makefile.linux (1.27):
Revert accidental commit of CFLAGS changes.
2007-08-02 wwp
* iptc.c (1.52), iptc.h (1.24):
Update the datasets stats table when adding records (filter edit),
factorize stats table updating code a bit.
2007-08-02 wwp
* iptc.c (1.51), main.c (1.66), util.h (1.50):
Make filter edit mode cumulative with include OR exclude filter
mode. When include or exclude is combined to edit, the include or
exclude filters are processed first, then the edits are applied.
2007-08-02 wwp
* doc/TODO.t2t (1.35):
Updated TODO list.
2007-08-02 wwp
* main.c (1.65), util.h (1.49):
Disable --overwrite, as it's not implemented (not sure it will).
Improved --help a bit, provide filter expression examples.
2007-08-02 wwp
* main.c (1.64):
Notify about widechar support.
2007-08-02 wwp
* util.c (1.51):
Fix hex and text filter edit values storing/encoding.
2007-08-02 wwp
* Makefile.linux (1.26), iptc.c (1.50), util.c (1.50):
Fix missing deallocation of datasets history table, added filter
edit value size and unicity checks, fixed filter edit hex value
parsing, few touchups and minor fixes more.
2007-08-02 wwp
* iptc.c (1.49):
Fix filter edit write length, and make sure datasets history table
is initialized and used when running in filter edit mode. Few
touchups more.
2007-08-01 wwp
* devtools/cvs2cl.pl (1.5):
Removed RCS tags to avoid conflicting w/ CVS (cvs2cl.pl 1.4).
2007-08-01 wwp
* exif.c (1.10), iptc.c (1.48), iptc.h (1.23), main.c (1.63),
util.c (1.49), util.h (1.48), doc/TODO.t2t (1.34), Makefile.linux
(1.25):
- implemented filter edit for adding IPTC datasets
(see opmode filter, switch --edit)
- dynamically reallocate filter include/exclude tables (allow more
than 100 includes or excludes)
- fix filter exclude file loading
- fix few gcc warnings about casting, moved some var declarations
to fit their minimal scope range
- fix IPTC record version check
- added preliminary support for IPTC extended datasets (actually,
length <2^32), filter edit still don't allow adding such datasets,
though
- changed max supported IPTC field size from 2^32 to 2^31 (should be
neutral)
- s/illegal/invalid/ in error messages
- normalized and fixed some messages (info, debug, warning, error
and fatal_error messages)
- use _D_GNU_SOURCE to use GNU extensions (we should get rid of
gnu-*.[ch] files soon) - only applied to gcc on GNU/Linux yet.
2007-07-30 wwp
* main.c (1.62), util.h (1.47), doc/TODO.t2t (1.33):
Recognize DEJAVU headers (preliminary support).
2007-03-08 wwp
* .cvsignore (1.25), Makefile.linux (1.24), Makefile.linux.inc
(1.12), Makefile.posix.inc (1.16), Makefile.win32.inc (1.19):
Fixed rar options, added 7z archives.
2007-03-08 wwp
* devtools/cvs2cl.pl (1.4):
Updated Changelog generation script.
2006-12-26 wwp
* devtools/txt2tags.py (1.3):
Updated txt2tags doc generation tool.
2006-12-19 wwp
* doc/INSTALL.t2t (1.29):
More about FreeBSD ports.
2006-12-19 wwp
* doc/INSTALL.t2t (1.28):
Added few FreeBSD-specific notes.
2006-12-19 wwp
* Makefile.inc (1.20), Makefile.posix.inc (1.15),
Makefile.win32.inc (1.18):
Bumped version to 0.0.14 (expecting a CVS devsnap soon). Fixed
resources list to exclude the .rc file that is now a .rc.in.
2006-12-19 wwp
* gnu-getline.c (1.3), gnu-mkstemp.c (1.3), gnu-strcasecmp.c (1.3),
gnu-strndup.c (1.7), util.h (1.46):
Fixed #includes in port-compat .c files: gnu*.c files were wrongly
#including gnu*.h files (that #include util.h), they must #include
util.h directly (that sorts out what headers to #include according
to the system). Fix compilation on FreeBSD with gcc 4.x, thanks to
ehaupt@freebsd.org.
2006-12-19 wwp
* Makefile.beos (1.13), Makefile.beos.inc (1.3), Makefile.darwin
(1.24), Makefile.darwin.inc (1.7), Makefile.linux (1.23),
Makefile.linux.inc (1.11), Makefile.posix.inc (1.14), Makefile.qnx
(1.22), Makefile.qnx.inc (1.10), Makefile.unix (1.29),
Makefile.unix.inc (1.16), Makefile.win32 (1.41), Makefile.win32.inc
(1.17):
Fix wrong use of SYST variable (break CFLAGS for ports), reworked it
a bit.
2006-12-19 wwp
* util.c (1.48):
Fix wrong debug message.
2006-12-18 wwp
* Makefile.beos (1.12), Makefile.unix (1.28):
Allow the use of other CC but gcc.
2006-11-25 wwp
* Makefile.inc (1.19), Makefile.win32 (1.40), pecomato.rc (1.4),
pecomato.rc.in (1.1), doc/INSTALL.t2t (1.27):
Added version info data to the Windows .exe. GNU utilities are now
required to build from the sources in Windows.
2006-09-22 wwp
* doc/Makefile.win32 (1.10):
Fix clean rule in Makefile.win32.
2006-06-11 wwp
* Makefile.beos (1.11), Makefile.darwin (1.23), Makefile.linux
(1.22), Makefile.posix.inc (1.13), Makefile.qnx (1.21),
Makefile.unix (1.27), Makefile.win32.inc (1.16), doc/Makefile.posix
(1.8), doc/TODO.t2t (1.32), doc/user-manual.t2t (1.2):
Fixed existing pdf install/dist rules, added such rules for
beos/qnx/darwin makefiles (still missing: unix, win32). Updated
TODO.
2006-05-26 wwp
* Makefile.linux (1.21), devtools/html2ps.pl (1.1), doc/.cvsignore
(1.4), doc/Makefile.inc (1.2), doc/Makefile.posix (1.7),
doc/Makefile.posix.inc (1.3), doc/html2ps.cfg (1.1),
doc/user-manual.t2t (1.1):
Added user-manual embryon and .pdf generation rules (Linux only for
now, needs ps2pdf/gs and perl).
2006-05-24 wwp
* Makefile.unix (1.26):
Fix wrong variable name.
2006-05-24 wwp
* Makefile.posix.inc (1.12), Makefile.unix (1.25):
Don't use z or j option w/ tar on Unices, this fix potential make
dist issues w/ non GNU-tar-equipped systems.
2006-05-23 wwp
* main.c (1.61), doc/INSTALL.t2t (1.26), doc/README.t2t (1.18),
doc/manpage.t2t (1.3):
Updated/fixed release notes and doc (including usage from --help).
2006-05-22 wwp
* doc/TODO.t2t (1.31):
Updated TODO list.
2006-05-21 wwp
* gnu-strndup.c (1.6), util.h (1.45):
Fix compilation on Nexenta (GNU/OpenSolaris using gcc).
2006-05-17 wwp
* doc/TODO.t2t (1.30):
Updated TODO list.
2006-05-15 wwp
* Makefile.darwin (1.22), Makefile.darwin.inc (1.6),
pecomato.Description.plist.in (1.1), pecomato.Info.plist.in (1.1):
Added support for PackageMaker (even if determining which packager
to use is still unperfect).
2006-05-15 wwp
* doc/TODO.t2t (1.29):
There's more to do around Darwin packaging!
2006-05-12 wwp
* main.c (1.60):
Changed the -i and -e command-line switches, which now allow to pass
either a filename (for instance: -i @myincludes) or a filter
expression (for instance: -e IPTC.0x0300-0x03ff).
2006-05-12 wwp
* doc/TODO.t2t (1.28):
Again, updated TODO list.
2006-05-12 wwp
* doc/TODO.t2t (1.27):
Updated TODO list.
2006-05-12 wwp
* main.c (1.59), util.c (1.47):
Minor fixes in usage string, a bit more info messages.
2006-05-11 wwp
* Makefile.beos (1.10), Makefile.darwin (1.21), Makefile.linux
(1.20), Makefile.qnx (1.20), Makefile.unix (1.24):
Better handling of ChangeLog generation skipping.
2006-05-10 wwp
* doc/TODO.t2t (1.26):
What is done is no longer to do.
2006-05-10 wwp
* util.c (1.46):
Fixed compilation w/ gcc4.
2006-05-10 wwp
* Makefile.beos (1.9), Makefile.darwin (1.20), Makefile.linux
(1.19), Makefile.posix.inc (1.11), Makefile.qnx (1.19),
Makefile.unix (1.23), Makefile.win32 (1.39), Makefile.win32.inc
(1.15):
Allow bypassing ChangeLog generation from CVS when making dist from
a source tarball.
2006-05-10 wwp
* Makefile.linux (1.18):
Updated user's rpmbuild directory to match recent rpmbuild scheme
(FC5).
2006-05-10 wwp
* pecomato.spec.in (1.3):
Temporarily build FC5 RPMs w/ gcc32.
2006-05-09 wwp
* Makefile.linux (1.17), doc/INSTALL.t2t (1.25):
Updated build rules and docs to perform on FC5 instead of FC3.
2006-05-09 wwp
* doc/TODO.t2t (1.25):
Updated todo list.
2006-05-09 wwp
* .cvsignore (1.24):
More files to ignore.
2006-05-09 wwp
* Makefile.inc (1.18):
Bumped version to 0.0.13.
2006-05-09 wwp
* iptc.c (1.47), iptc.h (1.22), main.c (1.58):
Added a new op-mode: `.. dump-value <value> ..` that just display
values of header codes that match the filter expression <value> (for
instance: dump-value IPTC.0x0200 <filename>), as requested by some
users.
2006-05-09 wwp
* util.c (1.45), util.h (1.44):
Enhanced the filter loading/parsing API to allow loading filter
expressions from a file or a single line (text buffer).
2006-05-09 wwp
* iptc.c (1.46):
Fix dump format for IPTC numerical values.
2006-03-31 wwp
* main.c (1.57):
Fix usage text, --test doesn't require an extra argument.
2006-02-24 wwp
* Makefile.posix.inc (1.10):
Included file revision numbers in Changelog (wow, it gets much
smaller).
2006-02-10 wwp
* util.c (1.44), util.h (1.43):
Updated some doxytags.
2006-01-17 wwp
* doc/INSTALL.t2t (1.24), doc/TODO.t2t (1.24):
Updated doc to reflect real python version dep (1.5, not 2).
2006-01-13 wwp
* util.c (1.43):
Fix doxytags use.
2006-01-13 wwp
* doc/TODO.t2t (1.23):
Updated TODO list.
2006-01-13 wwp
* doxygen.conf (1.4):
Updated doxygen config.
2005-12-26 wwp
* doc/TODO.t2t (1.22):
Updated TODO list.
2005-12-26 wwp
* doxygen.conf (1.3):
More tuning of doxygen config.
2005-12-25 wwp
* .cvsignore (1.23):
Ignore doxygen stuff more wisely.
2005-10-18 wwp
* util.c (1.42):
Removed debug output.
2005-10-18 wwp
* util.c (1.41):
Use OS-dependent dir separator in filename functions.
2005-10-04 wwp
* doc/TODO.t2t (1.21):
Updated TODO.
2005-09-22 wwp
* doc/INSTALL.t2t (1.23):
[HEAD]: minor touchup about FreeBSD port.
2005-08-22 wwp
* .cvsignore (1.22):
Test.
2005-08-22 wwp
* .cvsignore (1.21):
Test.
2005-08-22 wwp
* .cvsignore (1.19), .cvsignore (1.20):
Test.
2005-08-22 wwp
* .cvsignore (1.17), .cvsignore (1.18):
Test.
2005-08-22 wwp
* .cvsignore (1.16):
Updated.
2005-08-14 wwp
* util.c (1.40):
More doxygen documenting (and more to come).
2005-07-27 wwp
* .cvsignore (1.15), main.c (1.56), util.c (1.39), util.h (1.42):
Better filtering of non-printable or whitespaces when reading files.
Some code cleanup more. More files to ignore.
2005-07-27 wwp
* jfif.c (1.30):
Fix that wrong C99 comment.
2005-07-27 wwp
* Makefile.linux (1.16):
Once again: rollback accidentally commited debug CFLAGS.
2005-07-26 wwp
* jfif.c (1.29):
Disable Exif sub-parsing in JFIF decoding, until it works.
2005-07-26 wwp
* main.c (1.55), util.c (1.38), util.h (1.41):
Don't fail if a filename cannot be open, just report an error and
try to open the next one. Added new command-line option to open a
file containing a list of filenames. Added more checks for
unallocated pointers. Now all leading/trailing non-printable chars
are stripped from lines read in filter files and @<file>.
2005-07-25 wwp
* exif.c (1.9):
Oops, fixed this heretic // comment :-).
2005-07-25 wwp
* pecomato.qpg.in (1.1):
Added the necessary qpg file for qpr package producing under QNX6.
2005-07-25 wwp
* pecomato.prototype.in (1.2):
Fixed dist path.
2005-07-25 wwp
* pecomato.pkginfo.in (1.1), pecomato.prototype.in (1.1):
Added the necessary pkginfo/prototype files for the use of pkgmk in
SunOS.
2005-07-25 wwp
* exif.c (1.8), exif.h (1.8):
Added (disabled) embryonic exif support.
2005-07-25 wwp
* adobe.c (1.15), jfif.c (1.28):
Added embryonic exif support, changed more output and debug
messages, a bit changes in specific format tags.
2005-07-25 wwp
* Makefile.beos (1.8), Makefile.darwin (1.19), Makefile.linux
(1.15), Makefile.qnx (1.18), Makefile.unix (1.22), Makefile.win32
(1.38), tiff.c (1.1), tiff.h (1.1):
Added tiff files.
2005-07-25 wwp
* doc/TODO.t2t (1.20):
Updated TODO list.
2005-07-25 wwp
* main.c (1.54):
Changed some debug and output messages.
2005-07-18 wwp
* doc/README.t2t (1.17):
Updated README and unified its contents w/ the home page (mostly
around licensing information).
2005-07-01 wwp
* Makefile.beos (1.7), Makefile.darwin (1.18), Makefile.linux
(1.14), Makefile.posix.inc (1.9), Makefile.qnx (1.17),
Makefile.unix (1.21), Makefile.win32 (1.37), Makefile.win32.inc
(1.14):
Oops, fix wrong relative includes.
2005-07-01 wwp
* Makefile.posix.inc (1.8), Makefile.win32.inc (1.13):
Fix missing doc/Makefile.inc include.
2005-07-01 wwp
* util.c (1.37), util.h (1.40):
Merge latest changes to util.[ch].
2005-07-01 wwp
* doxygen.conf (1.2), util.c (1.36), util.h (1.39):
Updated doxygen conf. Started documentation writing (in util.[ch]).
Added some memory access functions (peek/poke-like) to be used in
Exif parsing.
2005-07-01 wwp
* .cvsignore (1.14), doxygen.conf (1.1):
Added doxygen conf for documentation auto-generation using..
doxygen.
2005-07-01 wwp
* Makefile.beos (1.6), Makefile.darwin (1.17), Makefile.linux
(1.13), Makefile.qnx (1.16), Makefile.unix (1.20), Makefile.win32
(1.36):
Make use of the changes introduced yesterday (doc vars. defined in a
central place).
2005-06-30 wwp
* doc/manpage.t2t (1.2):
Updated credits section in Unix man page.
2005-06-30 wwp
* Makefile.beos (1.5), Makefile.darwin (1.16), Makefile.linux
(1.12), Makefile.qnx (1.15), Makefile.unix (1.19), Makefile.win32
(1.35), doc/Makefile.inc (1.1), doc/Makefile.posix (1.6),
doc/Makefile.posix.inc (1.2), doc/Makefile.win32 (1.9),
doc/Makefile.win32.inc (1.2):
Reorganized a bit Makefiles to define doc files in a single place.
2005-06-30 wwp
* Makefile.beos (1.4), Makefile.darwin (1.15), Makefile.linux
(1.11), Makefile.qnx (1.14), Makefile.unix (1.18), Makefile.win32
(1.34):
Renamed docs rule to doc (more standard).
2005-06-29 wwp
* doc/TODO.t2t (1.19):
Updated TODO list.
2005-06-28 wwp
* doc/INSTALL.t2t (1.22), doc/README.t2t (1.16), doc/TODO.t2t
(1.18):
Make reference to FreeBSD as a supported Unix system. Fixed
dependency: GNU make, not make.
2005-06-28 wwp
* Makefile.unix.inc (1.15):
Ooops add missing endif.
2005-06-28 wwp
* Makefile.unix.inc (1.14):
Added settings for FreeBSD compilation.
2005-06-26 wwp
* doc/TODO.t2t (1.17):
Updated TODO list.
2005-06-26 wwp
* devtools/cvs2cl.pl (1.3):
Rollback to previous cvs2cl version (the latest one locks under
win32).
2005-06-26 wwp
* Makefile.beos (1.3), Makefile.darwin (1.14), Makefile.inc (1.17),
Makefile.linux (1.10), Makefile.qnx (1.13), Makefile.unix (1.17),
Makefile.win32 (1.33), pecomato.spec.in (1.2), doc/Makefile.posix
(1.5), doc/TODO.t2t (1.16):
Fixes man page rules and its installation using RPM. Prepare release
0.0.12
(bugfixes).
2005-06-26 wwp
* Makefile.inc (1.16), Makefile.posix.inc (1.7), Makefile.win32.inc
(1.12):
Updated Changelog format, slight changes in the project short
description.
2005-06-22 wwp
* .cvsignore (1.13):
More files to ignore.
2005-06-22 wwp
* doc/.cvsignore (1.3), doc/Makefile.posix (1.4),
doc/Makefile.win32 (1.8), doc/TODO.t2t (1.15):
Updated TODO list. Added few missing stuff around man generation
(mostly cleanup).
2005-06-22 wwp
* main.c (1.53), util.c (1.35):
Fix another memleak (in rewrite mode).
2005-06-22 wwp
* iptc.c (1.45):
Fixes a memleak in IPTC parser (if -c is passed). Thanks to
valgrind!
2005-06-19 wwp
* doc/Makefile.posix (1.3), doc/Makefile.win32 (1.7):
Minor fixes in doc Makefiles (duplicate README targets, wrong
manpage target in win32).
2005-06-19 wwp
* doc/Makefile.posix (1.2), doc/Makefile.win32 (1.6), doc/TODO.t2t
(1.14), doc/manpage.t2t (1.1):
Added Unix man page.
2005-06-19 wwp
* devtools/txt2tags.py (1.2):
Updated txt2tags tool.
2005-06-17 wwp
* devtools/cvs2cl.pl (1.2):
Updated cvs2cl tool.
2005-06-16 wwp
* main.c (1.52), util.c (1.34), util.h (1.38):
Various fixes for win32 compat. Introduced stronger checks against
output filenames clash (when filtering and extracting IPTC). Plus a
fix that prevent from attemptinf to remove a non existing file.
2005-06-15 wwp
* doc/TODO.t2t (1.13):
Updated TODO list.
2005-06-15 wwp
* doc/INSTALL.t2t (1.21):
Be more specific around SunOS arch.
2005-06-15 wwp
* doc/INSTALL.t2t (1.20), doc/TODO.t2t (1.12):
Updated doc to match new sol10 packages.
2005-06-15 wwp
* Makefile.unix.inc (1.13):
SunOS builds now include more architecture info.
2005-06-15 wwp
* doc/INSTALL.t2t (1.19):
Fixed SunOS version (5.10 -> 5.8).
2005-06-14 wwp
* main.c (1.51), util.c (1.33), util.h (1.37):
Fix renaming failures under windows (needs removal of target
filename before renaming). Implemented a frename function that
manages this removal (unlink on POSIX systems), more safely.
2005-06-11 wwp
* exif.c (1.7), exif.h (1.7):
Completed/merged Sanyo/Olympus/other Exif tables.
2005-06-11 wwp
* doc/TODO.t2t (1.11):
Minor updates (mostly fixes).
2005-06-11 wwp
* Makefile.win32.inc (1.11):
Use same inclusion order than posix ones.
2005-06-11 wwp
* Makefile.beos.inc (1.2), Makefile.darwin.inc (1.5),
Makefile.linux.inc (1.10), Makefile.posix.inc (1.6),
Makefile.qnx.inc (1.9), Makefile.unix.inc (1.12):
Fixed bad relative inclusion (broken make in doc/).
2005-06-04 wwp
* .cvsignore (1.12), Makefile.posix.inc (1.5), Makefile.win32.inc
(1.10):
Touchups and more files to ignore.
2005-06-04 wwp
* Makefile.inc (1.15):
And a typo more :-).
2005-06-04 wwp
* ID (1.2), Makefile.beos (1.2), Makefile.darwin (1.13),
Makefile.inc (1.14), Makefile.linux (1.9), Makefile.posix.inc
(1.4), Makefile.qnx (1.12), Makefile.unix (1.16), Makefile.win32
(1.32), Makefile.win32.inc (1.9), VERSION (1.16), pecomato.fileInfo
(1.2), pecomato.fileInfo.in (1.1), pecomato.spec (1.12),
pecomato.spec.in (1.1):
More modularization in Makefiles. RPM's spec and MacOS X's info
files are now templates that are substituted on the fly when
necessary.
2005-06-04 wwp
* Makefile.darwin (1.12):
There's something weird w/ tar.
2005-06-04 wwp
* Makefile.darwin (1.11):
Changed MacOS X pkg naming.
2005-06-04 wwp
* Makefile.darwin (1.10), Makefile.darwin.inc (1.4),
Makefile.posix.inc (1.3), Makefile.qnx.inc (1.8), pecomato.fileInfo
(1.1), doc/TODO.t2t (1.10):
Fix missing .spec in sources tarballs, added first steps to build
MacOS X packages (.pkg). Few updates in the TODO.
2005-06-02 wwp
* doc/INSTALL.t2t (1.18):
More updates.
2005-06-02 wwp
* doc/INSTALL.t2t (1.17), doc/TODO.t2t (1.9):
Mostly updated BeOS installation instructions (from packages).
2005-06-02 wwp
* Makefile.unix.inc (1.11):
Fix SYST variable init (SunOS).
2005-06-01 wwp
* doc/TODO.t2t (1.8):
Updated TODO list.
2005-06-01 wwp
* pecomato.spec (1.11):
Reset rpm build flag.
2005-06-01 wwp
* Makefile.win32 (1.31), VERSION (1.15), pecomato.spec (1.10):
Push 0.0.11.
2005-06-01 wwp
* VERSION (1.14), pecomato.spec (1.9):
Release w/ BeOS.
2005-06-01 wwp
* doc/INSTALL.t2t (1.16), doc/README.t2t (1.15), doc/TODO.t2t
(1.7):
Added BeOS port.
2005-06-01 wwp
* Makefile.beos (1.1), Makefile.beos.inc (1.1), Makefile.darwin
(1.9), Makefile.posix.inc (1.2), Makefile.qnx (1.11),
Makefile.qnx.inc (1.7), Makefile.unix (1.15), Makefile.win32
(1.30):
Added BeOS Makefiles (yeah!) and fixed wrong or missing stuff in
other Makefiles.
2005-06-01 wwp
* doc/INSTALL.t2t (1.15):
Fixed SunOS version number.
2005-06-01 wwp
* Makefile.unix.inc (1.10):
Added SunOS version to package filenames.
2005-06-01 wwp
* Makefile.linux.inc (1.9):
Silent check for linux arch.
2005-06-01 wwp
* Makefile.darwin (1.8), Makefile.linux (1.8), Makefile.linux.inc
(1.8):
More fixes in makefiles: darwin one was calling deprecated
doc/Makefile.unix, linux one was containing an incorrect variable
expansion as well as was not setting proper arch info on some old
systems (RH7).
2005-06-01 wwp
* Makefile.unix (1.14), util.h (1.36):
Fix Aix compilation.:wq
2005-06-01 wwp
* Makefile.unix (1.13):
Definitely fix HPUX build problems (was missing the obvious thing).
2005-06-01 wwp
* doc/INSTALL.t2t (1.14):
GNU make dependency (3.79 mini).
2005-06-01 wwp
* util.h (1.35):
HPUX changes.
2005-06-01 wwp
* util.h (1.34):
Forgot that one for Aix.
2005-06-01 wwp
* Makefile.win32 (1.29), VERSION (1.13), pecomato.spec (1.8),
util.h (1.33):
More fixes for Unix.
2005-06-01 wwp
* util.h (1.32):
Fix Aix build.
2005-06-01 wwp
* Makefile.unix (1.12), Makefile.unix.inc (1.9):
More fixes for Unix.
2005-06-01 wwp
* Makefile.darwin (1.7), Makefile.linux (1.7), Makefile.qnx (1.10),
Makefile.unix (1.11), util.h (1.31):
Some fixes for Unix build.
2005-06-01 wwp
* Makefile.unix (1.10), Makefile.unix.inc (1.8):
Some fixes in Unix makefiles.
2005-05-31 wwp
* Makefile.win32.inc (1.8):
More architecture information in win32 packages names.
2005-05-31 wwp
* Makefile.linux.inc (1.7), Makefile.win32 (1.28), doc/INSTALL.t2t
(1.13):
More architecture info in linux binary packages names, removed an
old debug message in win32 Makefile, updated the doc to reflect new
port done (MacOS X).
2005-05-31 wwp
* Makefile.darwin (1.6), Makefile.darwin.inc (1.3), Makefile.linux
(1.6), Makefile.linux.inc (1.6), Makefile.posix.inc (1.1),
Makefile.qnx (1.9), Makefile.qnx.inc (1.6), Makefile.unix (1.9),
Makefile.unix.inc (1.7), Makefile.win32 (1.27), Makefile.win32.inc
(1.7), doc/Makefile.posix (1.1), doc/Makefile.posix.inc (1.1):
Properly split common unix/posix stuff into posix Makefile.
Simplified rules in Makefiles, forced archive deletion before
re-creation, and a few minor fixes or changes.
2005-05-31 wwp
* doc/Makefile.unix (1.2), doc/Makefile.unix.inc (1.2):
Removed deprecated Makefiles.
2005-05-31 wwp
* Makefile.inc (1.13), pecomato.ico (1.4):
Removed deprecated files.
2005-05-31 wwp
* main.c (1.50):
Fix misplaced test.
2005-05-31 wwp
* .cvsignore (1.11):
More generated dirs to ignore.
2005-05-31 wwp
* pecomato.rc (1.3):
Use the 32x32 icon only (win32).
2005-05-31 wwp
* pecomato-32.ico (1.1):
Added new 32x32 icon.
2005-05-31 wwp
* main.c (1.49):
Fixed a bug in writing extracted iptc and potentially when filtering
any picture file when the filename has not path in it.
2005-05-30 wwp
* Makefile.darwin (1.5), doc/INSTALL.t2t (1.12), doc/README.t2t
(1.14):
Port to Darwin ppc.
2005-05-30 wwp
* Makefile.darwin (1.4), Makefile.qnx (1.8):
More fixes in unix Makefiles.
2005-05-30 wwp
* Makefile.darwin (1.3), Makefile.qnx (1.7), Makefile.unix (1.8),
Makefile.unix.inc (1.6):
Various fixes in unix makefiles.
2005-05-30 wwp
* Makefile.darwin (1.2), Makefile.darwin.inc (1.2), Makefile.linux
(1.5), Makefile.linux.inc (1.5), Makefile.qnx (1.6),
Makefile.qnx.inc (1.5), Makefile.unix (1.7), Makefile.unix.inc
(1.5), pecomato.rc (1.2):
Fix relative Makefile.inc inclusion.
2005-05-30 wwp
* Makefile.darwin (1.1), Makefile.darwin.inc (1.1):
Now compiles under Mac OSX 10.2.8 / Darwin 6.8.5 (at least ppc).
2005-05-30 wwp
* gnu-strndup.c (1.5):
Fix typo (now compiles on Darwin ppc).
2005-05-29 wwp
* Makefile.inc (1.12), Makefile.win32.inc (1.6), pecomato.png
(1.3), doc/TODO.t2t (1.6):
Updated TODO and removed .png (reference .png files are in
pecomato-dev module).
2005-05-29 wwp
* pecomato.ico (1.3):
Updated win32 icon.
2005-05-28 wwp
* Makefile.linux (1.4), Makefile.linux.inc (1.4), Makefile.qnx
(1.5), Makefile.qnx.inc (1.4), Makefile.unix (1.6),
Makefile.unix.inc (1.4), Makefile.win32 (1.26), Makefile.win32.inc
(1.5):
Temporarily fix win32 includes in Makefiles.
2005-05-27 wwp
* doc/INSTALL.t2t (1.11), doc/README.t2t (1.13), doc/TODO.t2t
(1.5):
Talk about portability.
2005-05-25 wwp
* Makefile.win32 (1.25):
Fix a typo in install rules (win32).
2005-05-25 wwp
* Makefile.win32 (1.24), VERSION (1.12), pecomato.spec (1.7):
Push 0.0.9.
2005-05-25 wwp
* Makefile.inc (1.11):
Fix a typo.
2005-05-25 wwp
* Makefile.inc (1.10):
Reflect last changes in doc Makefiles.
2005-05-24 wwp
* iptc.c (1.44), main.c (1.48):
Fixed missing record version compliance check, fix test rewrite
filenaming (buffer overrun), and enhanced/fixed some a posteriori
compliance checks.
2005-05-19 wwp
* doc/Makefile.win32.inc (1.1):
Missed that new one.
2005-05-19 wwp
* Makefile.inc (1.9), Makefile.linux (1.3), Makefile.linux.inc
(1.3), Makefile.qnx (1.4), Makefile.qnx.inc (1.3), Makefile.unix
(1.5), Makefile.unix.inc (1.3), Makefile.win32 (1.23),
doc/.cvsignore (1.2), doc/Makefile (1.4), doc/Makefile.unix (1.1),
doc/Makefile.unix.inc (1.1), doc/Makefile.win32 (1.5):
More work in the Makefiles.
2005-05-19 wwp
* .cvsignore (1.10), Makefile.inc (1.8), Makefile.linux (1.2),
Makefile.linux.inc (1.2), Makefile.qnx (1.3), Makefile.qnx.inc
(1.2), Makefile.unix (1.4), Makefile.unix.inc (1.2), Makefile.win32
(1.22), Makefile.win32.inc (1.4):
Make more things as parameters.
2005-05-19 wwp
* doc/INSTALL.t2t (1.10):
Reflect last changes to linux Makefile.
2005-05-19 wwp
* .cvsignore (1.9):
Ignore generated or old Makefile.
2005-05-19 wwp
* Makefile (1.34), Makefile.inc (1.7), Makefile.linux (1.1),
Makefile.linux.inc (1.1):
Renamed linux makefile.
2005-05-19 wwp
* Makefile.qnx (1.2):
Fixed tar.bz2 building on QNX.
2005-05-19 wwp
* Makefile (1.33), Makefile.inc (1.6), Makefile.qnx (1.1),
Makefile.qnx.inc (1.1), Makefile.win32 (1.21), doc/INSTALL.t2t
(1.9), doc/README.t2t (1.12):
Added QNX support, updated Makefiles and docs.
2005-05-19 wwp
* Makefile.win32 (1.20), VERSION (1.11), pecomato.spec (1.6):
Prepare to build a cvs devsnap.
2005-05-19 wwp
* main.c (1.47):
Fix a serious bug that lead to broken rewrote files when using an
empty -i filter file.
2005-05-19 wwp
* doc/INSTALL.t2t (1.8), doc/README.t2t (1.11):
Doc updates.
2005-05-18 wwp
* iptc.c (1.43):
More speed optim, typos more.
2005-05-18 wwp
* Makefile (1.32), Makefile.win32 (1.19), VERSION (1.10), iptc.c
(1.42), jfif.c (1.27), main.c (1.46), pecomato.spec (1.5), util.c
(1.32), doc/INSTALL.t2t (1.7), doc/README.t2t (1.10):
Speed optims. Use correct MacOS X name in doc.
2005-05-18 wwp
* Makefile (1.31):
Reverted accidentally commited changes.
2005-05-18 wwp
* iptc.c (1.41), main.c (1.45), util.c (1.31), util.h (1.30):
Added many checks for command-line coherence (switches
dependencies), rewrote the messaging system to make its severity
flexible.
2005-05-18 wwp
* iptc.c (1.40), main.c (1.44), util.h (1.29), doc/README.t2t
(1.9), doc/TODO.t2t (1.4):
Changed some output messages, identify BMP files (this will be
necessary to support reading of FotoStation's embedded IPTC), doc
updates.
2005-05-17 wwp
* Makefile (1.30), Makefile.unix (1.3), Makefile.win32 (1.18):
Make ChangeLog more readable (ger rid of tag info).
2005-05-17 wwp
* doc/README.t2t (1.8):
Updated README notes.
2005-05-17 wwp
* Makefile.win32 (1.17), pecomato.spec (1.4):
Push version 0.0.8 for packaging.
2005-05-17 wwp
* VERSION (1.9), doc/README.t2t (1.7):
Updated doc, pushed 0.0.8.
2005-05-16 wwp
* iptc.c (1.39), main.c (1.43), util.c (1.30), util.h (1.28):
Implemented basic fix ability for broken IPTC chunks. Only global
IPTC chunk size can be fixed if bytes are missing.
2005-05-16 wwp
* Makefile.win32 (1.16), main.h (1.2):
Removed unused main.h
2005-05-16 wwp
* iptc.c (1.38), main.c (1.42):
Don't delete written file if parser error(s) have been encountered.
2005-05-16 wwp
* iptc.c (1.37):
Fixe relative length when compared to absolute size (this has been
broken when the cached writing has been implemented).
2005-05-16 wwp
* doc/INSTALL.t2t (1.6), doc/README.t2t (1.6):
Added SunOS to the documentation.
2005-05-16 wwp
* Makefile (1.29), Makefile.unix (1.2):
Solve compilation failures w/ gcc 2.9x.x under SunOS.
2005-05-16 wwp
* main.c (1.41):
Fix preprocessor condition.
2005-05-16 wwp
* .cvsignore (1.8), Makefile (1.28), Makefile.unix (1.1),
Makefile.unix.inc (1.1), Makefile.win32 (1.15), main.c (1.40),
doc/INSTALL.t2t (1.5), doc/README.t2t (1.5):
Unix portability (HP-UX, Aix).
2005-05-16 wwp
* gnu-getline.h (1.2), gnu-strndup.c (1.4), gnu-strndup.h (1.2),
util.h (1.27):
More portability fixes.
2005-05-16 wwp
* gnu-strndup.c (1.3):
Fix a typo.
2005-05-16 wwp
* gnu-getline.c (1.2), gnu-mkstemp.c (1.2), gnu-strcasecmp.c (1.2),
gnu-strndup.c (1.2):
Fix #includes.
2005-05-16 wwp
* util-gnu.c (1.3), util-gnu.h (1.4):
Removed old files.
2005-05-16 wwp
* Makefile.win32 (1.14), gnu-getline.c (1.1), gnu-getline.h (1.1),
gnu-mkstemp.c (1.1), gnu-mkstemp.h (1.1), gnu-strcasecmp.c (1.1),
gnu-strcasecmp.h (1.1), gnu-strndup.c (1.1), gnu-strndup.h (1.1),
util-gnu.c (1.2), util-gnu.h (1.3), util.h (1.26):
Reorganized GNU inclusions for atomic portability.
2005-05-16 wwp
* util.h (1.25):
More portability issues.
2005-05-16 wwp
* main.c (1.39):
Fixes a long standing misporting typo.
2005-05-16 wwp
* adobe.h (1.6):
Oops.
2005-05-16 wwp
* adobe.h (1.5), util.h (1.24):
Fix missing proto and typedef (portability).
2005-05-16 wwp
* doc/INSTALL.t2t (1.4):
Updated install notes.
2005-05-15 wwp
* Makefile (1.27), iptc.c (1.36), iptc.h (1.21), main.c (1.38):
Default log level set to warnings (2), fixed a typo in IPTC tables,
reorganized command-line swtich parsing to make maintainance easier.
2005-05-15 wwp
* Makefile (1.26), Makefile.inc (1.5):
RPM rules for old and recent systems.
2005-05-15 wwp
* Makefile.win32.inc (1.3):
Minor fixes in win32 packaging rules.
2005-05-15 wwp
* Makefile (1.25):
Typo.
2005-05-15 wwp
* Makefile (1.24), Makefile.win32 (1.13), Makefile.win32.inc (1.2):
More packages..
2005-05-15 wwp
* Makefile (1.23), Makefile.inc (1.4), Makefile.win32 (1.12),
pecomato.spec (1.3), doc/INSTALL.t2t (1.3), doc/README.t2t (1.4),
doc/TODO.t2t (1.3):
Added rules to build CVS snapshots.
2005-05-14 wwp
* .cvsignore (1.7), Makefile.win32 (1.11), VERSION (1.8),
pecomato.spec (1.2):
Pushed 0.0.7.
2005-05-14 wwp
* VERSION (1.7):
Forgotten some packaging files..
2005-05-14 wwp
* .cvsignore (1.6):
More files to ignore.
2005-05-14 wwp
* pecomato.spec (1.1):
Added RPM build rules.
2005-05-14 wwp
* Makefile.win32 (1.10), VERSION (1.6):
Prepare release 0.0.6.
2005-05-14 wwp
* Makefile (1.22), Makefile.inc (1.3):
Adjustments for rpm building mostly.
2005-05-14 wwp
* Makefile (1.21):
Completed rpm generation.
2005-05-14 wwp
* Makefile (1.20), Makefile.inc (1.2), Makefile.win32 (1.9),
doc/Makefile (1.3):
More work and fixes in Makefiles, first steps of rpm building.
2005-05-14 wwp
* doc/Makefile.win32 (1.4):
Fixed missing TODO html/txt files generation under win32.
2005-05-14 wwp
* Makefile (1.19), Makefile.inc (1.1), Makefile.win32 (1.8),
Makefile.win32.inc (1.1), doc/Makefile (1.2), doc/Makefile.win32
(1.3):
Rewritten most of the Makefiles.
2005-05-14 wwp
* Makefile (1.18), Makefile.win32 (1.7):
Fixes win32 Makefile (nmake is really a dumb shit).
2005-05-14 wwp
* Makefile (1.17), Makefile.win32 (1.6), VERSION (1.5), util-gnu.h
(1.2):
Fine tuned win32 Makefile, fixed a compilation warning on such
system.
2005-05-14 wwp
* iptc.c (1.35), main.c (1.37):
More checks for strict IPTC compliance.
2005-05-13 wwp
* Makefile.win32 (1.5):
Fixed win32 resources linking.
2005-05-13 wwp
* pecomato.ico (1.2), pecomato.png (1.2):
Fixed corrupted binary files.
2005-05-13 wwp
* Makefile (1.16), Makefile.win32 (1.4), doc/Makefile.win32 (1.2):
Completed rules set for win32 (native).
2005-05-13 wwp
* iptc.c (1.34), util.c (1.29):
Minor changes in dump-full mode's output.
2005-05-12 wwp
* main.c (1.36), util.c (1.28):
Fixes a compilation warning.
2005-05-12 wwp
* Makefile.win32 (1.3), util-gnu.c (1.1), util-gnu.h (1.1), util.h
(1.23):
Win32 port now compiles and run.
2005-05-12 wwp
* .cvsignore (1.5), Makefile (1.15), Makefile.win32 (1.2), jfif.c
(1.26), main.c (1.35), pecomato.ico (1.1), pecomato.png (1.1),
pecomato.rc (1.1), resource-xptheme.bin (1.1), util.c (1.27),
util.h (1.22):
First steps to the win32 portability.
2005-05-12 wwp
* doc/README.t2t (1.3):
Minor fixes to the README.
2005-05-12 wwp
* doc/INSTALL.t2t (1.2), doc/README.t2t (1.2), doc/TODO.t2t (1.2):
Updates.
2005-05-12 wwp
* doc/INSTALL.t2t (1.1), doc/txt2tags.rc (1.1):
Added missing doc files.
2005-05-12 wwp
* Makefile (1.14):
More fixes.
2005-05-12 wwp
* Makefile (1.13):
Make Changelog.
2005-05-12 wwp
* Makefile (1.12), Makefile.win32 (1.1), doc/.cvsignore (1.1),
doc/DISCLAIMER.t2t (1.1), doc/LICENSE.t2t (1.1), doc/Makefile
(1.1), doc/Makefile.win32 (1.1), doc/README (1.2), doc/README.t2t
(1.1), doc/TODO (1.5), doc/TODO.t2t (1.1), doc/pecomato.man (1.2):
Major updates in doc and Makefiles.
2005-05-12 wwp
* Makefile (1.11):
Use and include devtools in dist tarballs.
2005-05-12 wwp
* devtools/cvs2cl.pl (1.1), devtools/glibc-version.sh (1.1),
devtools/txt2tags.py (1.1):
Added devtools.
2005-05-12 wwp
* Makefile (1.10), util.c (1.26):
Added embryonic dist rules and fixed a signness comp warning.
2005-05-12 wwp
* VERSION (1.4):
New version: 0.0.5.
2005-05-11 wwp
* main.c (1.34), util.c (1.25):
Various minor changes and fixes.
2005-05-11 wwp
* main.c (1.33), util.c (1.24), util.h (1.21):
Many bugfixes.
2005-05-11 wwp
* VERSION (1.3):
Version 0.0.4.
2005-05-11 wwp
* config.h (1.15), main.c (1.32), util.h (1.20):
Changed test-rewrite to rewrite by default, until --test is passed
(filter only).
2005-05-11 wwp
* config.h (1.14), iptc.c (1.33), main.c (1.31), util.c (1.23),
util.h (1.19):
Rewrote dump wrapping (made switch-dependend, modularized, fixed
wrapping).
2005-05-11 wwp
* .cvsignore (1.4):
More files to ignore.
2005-05-10 wwp
* VERSION (1.2), doc/TODO (1.4):
Updated TODO and version to 0.0.3.
2005-05-10 wwp
* main.c (1.30):
Various command-line and usage changes.
2005-05-10 wwp
* iptc.c (1.32), main.c (1.29), util.c (1.22), util.h (1.18):
Implemented on-the-fly IPTC extraction to standalone file (from
cached rewrite buffer, when filtering for instance).
2005-05-10 wwp
* doc/TODO (1.3):
Updates.
2005-05-10 wwp
* adobe.c (1.14), iptc.c (1.31), main.c (1.28), util.c (1.21),
util.h (1.17), doc/TODO (1.2):
Implemented IPTC chunk extraction. Updated TODO and other minor
changes in the util API.
2005-05-10 wwp
* adobe.c (1.13), jfif.c (1.25), main.c (1.27):
Fix padding 8BIM chunks when writing.
2005-05-10 wwp
* iptc.c (1.30), main.c (1.26):
Fixed filtering with exclude list.
2005-05-10 wwp
* Makefile (1.9), adobe.c (1.12), iptc.h (1.20), jfif.c (1.24),
main.c (1.25):
Minor changes in debug output and makefile settings. Fixed backing
up of original file.
2005-05-10 wwp
* Makefile (1.8):
Fixed uninstall rule to remove docdir as well.
2005-05-10 wwp
* Makefile (1.7):
Added rules to install doc files.
2005-05-10 wwp
* doc/pecomato.man (1.1):
Added man page skeleton.
2005-05-10 wwp
* README (1.3), TODO (1.2), doc/README (1.1), doc/TODO (1.1):
Moved doc files.
2005-05-10 wwp
* iptc.c (1.29), main.c (1.24):
Fixed a typo in the usage text, and implemented 2 more technical
checks around IPTC record version codes.
2005-05-09 wwp
* adobe.c (1.11), jfif.c (1.23):
Bug fixes (rewrite engine).
2005-05-09 wwp
* adobe.c (1.10), adobe.h (1.4), iptc.c (1.28), iptc.h (1.19),
jfif.c (1.22), main.c (1.23), util.c (1.20), util.h (1.16):
Minor fixes and API changes. Added support for Adobe Photoshop
6.0+'s ffo files.
2005-05-07 wwp
* config.h (1.13), iptc.c (1.27), main.c (1.22), util.c (1.19),
util.h (1.15):
Fix rewrite bugs.
2005-05-06 wwp
* adobe.c (1.9), iptc.c (1.26), jfif.c (1.21), util.c (1.18):
Fix two bugs in the rewriting system.
2005-05-06 wwp
* adobe.c (1.8), config.h (1.12), iptc.c (1.25), jfif.c (1.20),
jfif.h (1.11), main.c (1.21), util.c (1.17), util.h (1.14):
Rewritten verbosity (log) level system, few minor changes more.
2005-05-05 wwp
* main.c (1.20), util.c (1.16):
Normalized info messages, fix write error detection.
2005-05-05 wwp
* adobe.c (1.7), adobe.h (1.3), config.h (1.11), iptc.c (1.24),
iptc.h (1.18), jfif.c (1.19), jfif.h (1.10), main.c (1.19), util.c
(1.15), util.h (1.13):
Simplified the usage of global vars in the rewrite engine.
Implemented cached writing.
2005-05-05 wwp
* iptc.c (1.23), main.c (1.18), util.c (1.14), util.h (1.12):
Filtering in/out pure IPTC chunks is done (still missing: fix 8BIM
encapsulations if any).
2005-05-05 wwp
* iptc.c (1.22), iptc.h (1.17):
Implemented matching of IPTC filter code.
2005-05-05 wwp
* .cvsignore (1.3), adobe.c (1.6), config.h (1.10), iptc.c (1.21),
iptc.h (1.16), jfif.c (1.18), main.c (1.17), util.c (1.13), util.h
(1.11):
Loading of IPTC filter masks if now complete, and a few minor
bugfixes.
2005-05-02 wwp
* Makefile (1.6), adobe.c (1.5), iptc.c (1.20), jfif.c (1.17),
util.c (1.12):
Fix race condition in signed-index loop checks (last commit was
wrong). Inserted more tests for preventing dump_rewrite to write
0-length blocks.
2005-05-01 wwp
* adobe.c (1.4), adobe.h (1.2), iptc.c (1.19), iptc.h (1.15),
jfif.c (1.16), jfif.h (1.9), main.c (1.16), util.c (1.11), util.h
(1.10):
Added first step of the rewrite/filtering support (filter operation
is enabled, all data read is written to a temp file). Minor parsing
fixes and warning/error level changes.
2005-05-01 wwp
* README (1.2), iptc.c (1.18), jfif.c (1.15), main.c (1.15):
Various touchups and cleanup, also made the JPEG/JFIF parser more
easy w/ exotic files (just needs SOS or EOI to consider the file is
OK).
2005-04-29 wwp
* main.c (1.14), util.c (1.10), util.h (1.9):
Table-ized exit codes.
2005-04-29 wwp
* .cvsignore (1.2), Makefile (1.5), adobe.c (1.3), iptc.c (1.17),
jfif.c (1.14), util.c (1.9):
Fix a bug in JPEG/JFIF parser (was using a short int when attempting
to do long jump to EOI, tss).
2005-04-28 wwp
* adobe.c (1.2), iptc.c (1.16), jfif.c (1.13), jfif.h (1.8), main.c
(1.13), util.c (1.8), util.h (1.8):
More JPEG decoding (almost complete), various fixes and changes.
More work preparing filter operation and relevant command-line
decoding.
2005-04-27 wwp
* iptc.c (1.15), iptc.h (1.14):
More descriptions in IPTC table.
2005-04-27 wwp
* iptc.c (1.14), iptc.h (1.13):
More datasets descriptions in IPTC table.
2005-04-27 wwp
* iptc.c (1.13), iptc.h (1.12), main.c (1.12):
Code and tables cleanup.
2005-04-27 wwp
* config.h (1.9), iptc.c (1.12), iptc.h (1.11), main.c (1.11):
More work around IPTC datasets.
2005-04-27 wwp
* iptc.c (1.11), iptc.h (1.10):
Added extra IPTC codes.
2005-04-27 wwp
* adobe.c (1.1), adobe.h (1.1):
Added adobe decoding.
2005-04-24 wwp
* config.h (1.8), exif.c (1.6), exif.h (1.6), iptc.c (1.10), iptc.h
(1.9), jfif.c (1.12), main.c (1.10), util.c (1.7), util.h (1.7):
Fix minor issues and typos. Photoshop 4.0 thumbail is still badly
supported w/ some jpg files.
2005-04-23 wwp
* config.h (1.7), jfif.c (1.11), jfif.h (1.7), main.c (1.9):
Table'ized JPEG/JFIF tags, and few more minor changes.
2005-04-23 wwp
* exif.c (1.5), exif.h (1.5), jfif.c (1.10), jfif.h (1.6):
Added tables/check for all Adobe resource types (still missing JFIF
ones, but mechanism is already in place).
2005-04-22 wwp
* iptc.c (1.9), iptc.h (1.8), jfif.c (1.9):
Fixed missing padding of product pstring in in-JFIF JFIF chunk.
Added IPTC newsphoto IDs.
2005-04-22 wwp
* config.h (1.6), iptc.c (1.8), jfif.c (1.8), main.c (1.8), util.h
(1.6):
Fix padding of Photoshop contents. Added recognition for PNG/TIFF
files.
2005-04-21 wwp
* config.h (1.5), iptc.c (1.7), iptc.h (1.7), jfif.c (1.7), main.c
(1.7), util.c (1.6):
Added recognition and support for all Photoshop versions.
2005-04-21 wwp
* Makefile (1.4), config.h (1.4), exif.c (1.4), exif.h (1.4),
iptc.c (1.6), iptc.h (1.6), jfif.c (1.6), jfif.h (1.5), main.c
(1.6), util.c (1.5), util.h (1.5):
Completed 8BPS/8BIM support and nested chunks (JFIF/8BIM in 8BPS,
etc.). Code cleanup in vars declarations.
2005-04-21 wwp
* iptc.c (1.5), iptc.h (1.5), jfif.c (1.5), jfif.h (1.4), main.c
(1.5):
Fix parsing of several 8BIM chunks in JFIF contents.
2005-04-21 wwp
* iptc.c (1.4), iptc.h (1.4), jfif.c (1.4), main.c (1.4), util.c
(1.4), util.h (1.4):
Better error reporting now. Added full photoshop IPTC support.
2005-04-20 wwp
* Makefile (1.3), config.h (1.3), exif.c (1.3), exif.h (1.3),
iptc.c (1.3), iptc.h (1.3), jfif.c (1.3), jfif.h (1.3), main.c
(1.3), util.c (1.3), util.h (1.3):
[HEAD]: complete first steps for supporting IPTC chunk.
2005-04-20 wwp
* Makefile (1.2), config.h (1.2), exif.c (1.2), exif.h (1.2),
iptc.c (1.2), iptc.h (1.2), jfif.c (1.2), jfif.h (1.2), main.c
(1.2), util.c (1.2), util.h (1.2):
[HEAD]: first step for IPTC decoding: dump headers, some dataset
values. Various addons.
2005-04-19 wwp
* .cvsignore (1.1.1.1), ID (1.1.1.1), Makefile (1.1.1.1), README
(1.1.1.1), TODO (1.1.1.1), VERSION (1.1.1.1), config.h (1.1.1.1),
exif.c (1.1.1.1), exif.h (1.1.1.1), iptc.c (1.1.1.1), iptc.h
(1.1.1.1), jfif.c (1.1.1.1), jfif.h (1.1.1.1), main.c (1.1.1.1),
main.h (1.1.1.1), util.c (1.1.1.1), util.h (1.1.1.1):
Initial import.
2005-04-19 wwp
* .cvsignore (1.1), ID (1.1), Makefile (1.1), README (1.1), TODO
(1.1), VERSION (1.1), config.h (1.1), exif.c (1.1), exif.h (1.1),
iptc.c (1.1), iptc.h (1.1), jfif.c (1.1), jfif.h (1.1), main.c
(1.1), main.h (1.1), util.c (1.1), util.h (1.1):
Initial revision
pecomato-0.0.15/Makefile.beos.inc 0000644 0001752 0001752 00000000126 10677223051 015531 0 ustar devel devel include Makefile.posix.inc
include Makefile.inc
SYST = $(SYSTBASE)-$(shell uname -r)
pecomato-0.0.15/Makefile.darwin.inc 0000644 0001752 0001752 00000000457 10677223051 016074 0 ustar devel devel include Makefile.posix.inc
include Makefile.inc
PACKAGE1 = /usr/bin/package
PACKAGE2 = /Developer/Applications/Utilities/PackageMaker.app/Contents/MacOS/PackageMaker
PACKAGE3 = /Developer/Applications/PackageMaker.app/Contents/MacOS/PackageMaker
SYST = $(SYSTBASE)-$(shell uname -r)-$(shell uname -p)
pecomato-0.0.15/Makefile.inc 0000644 0001752 0001752 00000000454 10677223051 014606 0 ustar devel devel # protect '/' chars below
PRODUCT = pecomato
VERSION = 0.0.15
VERSION_RC = 0,0,15,0
DESCRIPTION = A portable metadata processor for picture-embedded contents
AUTHOR_CONTACT = wwp <subscript@free.fr>
HOMEPAGE = http:\/\/mollux.org\/projects\/$(PRODUCT)\/
LICENSE = GPL
CATEGORY = Graphics\/Utilities
pecomato-0.0.15/Makefile.linux.inc 0000644 0001752 0001752 00000000522 10677223051 015740 0 ustar devel devel include Makefile.posix.inc
include Makefile.inc
RPMBUILD = rpmbuild -ba
RPM = rpm -ba
RAR = rar a -ow -ol -mdg -m5 -s -r -cfg- -y
7ZIP = 7za a -bd -y
ARCH = $(shell uname -i 2>/dev/null)
ifeq "$(ARCH)" ""
ARCH = i386
endif
SYST = $(SYSTBASE)-glibc-$(shell devtools/glibc-version.sh | sed 's/2\.1\.92/2.2/' | cut -d '.' -f 1-2)-$(ARCH)
pecomato-0.0.15/Makefile.posix.inc 0000640 0001752 0001752 00000001451 10677223051 015741 0 ustar devel devel DEL_DIR = rm -Rf
DEL_FILE = rm -f
COPY_FILE = cp -f
CREATE_DIR = mkdir -p
CHECK_EXIST_DIR = test -d
CHECK_NOT_EXIST_DIR = test ! -d
CHECK_EXIST_FILE = test -f
CHECK_NOT_EXIST_FILE = test ! -f
RENAME_FILE = mv -f
PYTHON = python
PERL = perl
TARGZ = GZIP=-9 tar czf
TARBZ2 = BZIP2=-9 tar cjf
TAR = tar cf
GZIP = gzip -9
BZ2 = bzip2 -9
ZIP = zip -9r
SOURCES = *.c *.h
MKFILES = Makefile*.inc Makefile.darwin Makefile.beos Makefile.linux Makefile.unix Makefile.qnx Makefile.win32
RESOURCES = *.ico *.bin *.in
DOC_SOURCES = doc/*.t2t
DOC_MKFILES = doc/Makefile.posix doc/Makefile.win32 doc/Makefile*.inc
DOC_RESOURCES = doc/*.rc doc/*.cfg
TOOLS = devtools/*.py devtools/*.pl devtools/*.sh
CVS2CL = devtools/cvs2cl.pl -bPS --revisions --gmt --fsf --FSF
SYSTBASE = $(shell uname -s | tr "[:upper:]" "[:lower:]") pecomato-0.0.15/Makefile.qnx.inc 0000644 0001752 0001752 00000000173 10677223051 015411 0 ustar devel devel include Makefile.posix.inc
include Makefile.inc
PACKAGE = package
SYST = $(SYSTBASE)-$(shell uname -r)-$(shell uname -p)
pecomato-0.0.15/Makefile.unix.inc 0000644 0001752 0001752 00000000646 10677223051 015573 0 ustar devel devel include Makefile.posix.inc
include Makefile.inc
ifeq ($(SYSTBASE),hpux)
#TODO: add system version
SYST = $(SYSTBASE)
else
ifeq ($(SYSTBASE),aix)
#TODO: add system version
SYST = $(SYSTBASE)
else
ifeq ($(SYSTBASE),sunos)
SYST = $(SYSTBASE)-$(shell uname -r)-$(shell uname -p)
else
ifeq ($(SYSTBASE),freebsd)
#TODO: add system version
SYST = $(SYSTBASE)-$(shell uname -p)
else
SYST = unix
endif
endif
endif
endif
pecomato-0.0.15/Makefile.win32.inc 0000644 0001752 0001752 00000001476 10677223051 015554 0 ustar devel devel DEL_DIR = rmdir /Q /S
DEL_FILE = del /Q /F
COPY_FILE = copy /Y
CREATE_DIR = mkdir
CHECK_EXIST_DIR = if exist
CHECK_NOT_EXIST_DIR = if not exist
CHECK_EXIST_FILE = if exist
CHECK_NOT_EXIST_FILE = if not exist
RENAME_FILE = move /Y
PYTHON = python
PERL = perl
ZIP = zip -9r -S
RAR = rar a -ow -mdg -m5 -s -r -cfg- -y
RARSFX = $(RAR) -sfx
7ZIP = 7z a -bd -y
include Makefile.inc
SYSTBASE = win32
SYST = $(SYSTBASE)-%PROCESSOR_ARCHITECTURE%
SOURCES = *.c *.h
MKFILES = Makefile*.inc Makefile.darwin Makefile.beos Makefile.linux Makefile.unix Makefile.qnx Makefile.win32
RESOURCES = *.ico *.bin *.in
DOC_SOURCES = doc\*.t2t
DOC_MKFILES = doc\Makefile.posix doc\Makefile.win32 doc\Makefile*.inc
DOC_RESOURCES = doc\*.rc doc\*.cfg
TOOLS = devtools\*.py devtools\*.pl devtools\*.sh
CVS2CL = devtools\cvs2cl.pl -bPS --gmt --fsf --FSF
pecomato-0.0.15/Makefile.darwin 0000640 0001752 0001752 00000016433 10677223051 015321 0 ustar devel devel include Makefile.darwin.inc
include doc/Makefile.inc
CC ?= gcc
CFLAGS ?= -O2 -ansi -pedantic -Wall -W
#CFLAGS ?= -g -ansi -pedantic -Wall -W
CFLAGS += -D_POSIX_C_SOURCE=199506L -DOS_UNIX -DOS_DARWIN -DPRODUCT_ID="\"$(PRODUCT)\"" -DPRODUCT_VERSION="\"$(VERSION)\""
#CFLAGS += -D_REENTRANT
LFLAGS =
PREFIX ?= $(shell pwd)/dist-darwin
BIN_DIR = $(PREFIX)/bin
DATA_DIR = $(PREFIX)
DOC_DIR = $(DATA_DIR)/doc/$(PRODUCT)-$(VERSION)
SRC_PREFIX = $(shell pwd)/dist-src
TARGET = $(PRODUCT)
OBJECTS = main.o gnu-strndup.o gnu-getline.o util.o exif.o iptc.o jfif.o adobe.o tiff.o
DOC_DEFS = doc/Makefile.defs
default: all
syst:
echo "darwin system: $(SYST) ($(SYSTBASE))"
all: $(TARGET)
full: clean all
deps: $(OBJECTS)
doc: make-defs
$(MAKE) -C doc/ -f Makefile.posix all
$(TARGET): deps
$(CC) $(LFLAGS) -o $@ $(OBJECTS)
%.o: %.c %.h config.h
$(CC) $(CFLAGS) -c -o $@ $<
install: all install-dirs install-data install-bin
install-strip: install
strip $(BIN_DIR)/$(TARGET)
install-dirs:
$(CHECK_EXIST_DIR) $(BIN_DIR) || \
$(CREATE_DIR) $(BIN_DIR)
$(CHECK_EXIST_DIR) $(DOC_DIR) || \
$(CREATE_DIR) $(DOC_DIR)
install-data: install-doc
install-doc: make-defs
$(MAKE) -C doc/ -f Makefile.posix install
install-bin: $(TARGET)
$(COPY_FILE) $(TARGET) $(BIN_DIR)/
uninstall: uninstall-bin uninstall-data uninstall-dirs
uninstall-bin:
-$(DEL_FILE) $(BIN_DIR)/$(TARGET)
uninstall-data: uninstall-doc
uninstall-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix uninstall
uninstall-dirs:
-$(DEL_DIR) $(BIN_DIR)/
-$(DEL_DIR) $(DOC_DIR)/
clean: clean-doc
-$(DEL_FILE) $(TARGET) *.o core
clean-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix clean
clean-changelog:
-$(DEL_FILE) ChangeLog*
clean-defs:
-$(DEL_FILE) $(DOC_DEFS)
clean-in:
-for FILE in *.in; \
do \
rm -f $${FILE:0:$${#FILE}-3}; \
done
dist: distbin distsrc
distbin: install-strip distbin-gz distbin-bz2 distbin-zip distbin-pkg-gz
distbin-gz:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).tar.gz
cd $(PREFIX) && \
$(TARGZ) ../$(PRODUCT)-$(VERSION)-$(SYST).tar.gz *
distbin-bz2:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).tar.bz2
cd $(PREFIX) && \
$(TAR) ../$(PRODUCT)-$(VERSION)-$(SYST).tar * && \
$(BZ2) ../$(PRODUCT)-$(VERSION)-$(SYST).tar
distbin-zip:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).zip
cd $(PREFIX) && \
$(ZIP) ../$(PRODUCT)-$(VERSION)-$(SYST).zip *
distbin-pkg-gz:
if [ -s $(PACKAGE1) ]; \
then \
$(MAKE) -f Makefile.darwin distbin-pkg1-gz || exit 1; \
else \
if [ -s $(PACKAGE2) ]; \
then \
$(MAKE) -f Makefile.darwin distbin-pkg2-gz || exit 1; \
else \
if [ -s $(PACKAGE3) ]; \
then \
$(MAKE) -f Makefile.darwin distbin-pkg3-gz || exit 1; \
else \
echo "error: none of the known packager tools could be found, aborting"; \
exit 1; \
fi; \
fi; \
fi
distbin-pkg1-gz: make-fileInfo
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).pkg.tar.gz
-$(DEL_DIR) $(PRODUCT)-$(VERSION)-$(SYST).pkg
$(COPY_FILE) $(PRODUCT).fileInfo $(PRODUCT)-$(VERSION)-$(SYST).info
$(PACKAGE1) $(PREFIX)/ /tmp/$(PRODUCT)-$(VERSION)-$(SYST).info -ignoreDSStore
$(TARGZ) $(PRODUCT)-$(VERSION)-$(SYST).pkg.tar.gz $(PRODUCT)-$(VERSION)-$(SYST).pkg
distbin-pkg2-gz: make-pfiles
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).pkg.tar.gz
-$(DEL_DIR) $(PRODUCT)-$(VERSION)-$(SYST).pkg
$(PACKAGE2) -build -p $(shell pwd)/$(PRODUCT)-$(VERSION)-$(SYST).pkg -f $(PREFIX)/ -i $(PRODUCT).Info.plist -d $(PRODUCT).Description.plist
$(TARGZ) $(PRODUCT)-$(VERSION)-$(SYST).pkg.tar.gz $(PRODUCT)-$(VERSION)-$(SYST).pkg
distbin-pkg3-gz: make-pfiles
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).pkg.tar.gz
-$(DEL_DIR) $(PRODUCT)-$(VERSION)-$(SYST).pkg
$(PACKAGE3) -build -p $(shell pwd)/$(PRODUCT)-$(VERSION)-$(SYST).pkg -f $(PREFIX)/ -i $(PRODUCT).Info.plist -d $(PRODUCT).Description.plist
$(TARGZ) $(PRODUCT)-$(VERSION)-$(SYST).pkg.tar.gz $(PRODUCT)-$(VERSION)-$(SYST).pkg
distsrc: distsrc-prep distsrc-gz distsrc-bz2 distsrc-zip
distsrc-prep: make-changelog doc
$(CHECK_EXIST_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION) && \
$(DEL_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/* || \
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/doc
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/devtools
$(COPY_FILE) ChangeLog $(MKFILES) $(SOURCES) $(RESOURCES) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/
$(COPY_FILE) $(DOC_SOURCES) $(DOC_MKFILES) $(DOC_RESOURCES) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/doc/
$(COPY_FILE) $(TOOLS) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/devtools/
$(COPY_FILE) doc/$(TXT_DIR)/DISCLAIMER.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/DISCLAIMER
$(COPY_FILE) doc/$(TXT_DIR)/INSTALL.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/INSTALL
$(COPY_FILE) doc/$(TXT_DIR)/LICENSE.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/LICENSE
$(COPY_FILE) doc/$(TXT_DIR)/README.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/README
$(COPY_FILE) doc/$(TXT_DIR)/TODO.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/TODO
distsrc-gz:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).tar.gz
cd $(SRC_PREFIX) && \
$(TARGZ) ../$(PRODUCT)-$(VERSION).tar.gz $(PRODUCT)-$(VERSION)/
distsrc-bz2:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).tar.bz2
cd $(SRC_PREFIX) && \
$(TAR) ../$(PRODUCT)-$(VERSION).tar $(PRODUCT)-$(VERSION)/ && \
$(BZ2) ../$(PRODUCT)-$(VERSION).tar
distsrc-zip:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).zip
cd $(SRC_PREFIX) && \
$(ZIP) ../$(PRODUCT)-$(VERSION).zip $(PRODUCT)-$(VERSION)/
distcvs: distsrc-prep distsrc-gz distsrc-bz2 distsrc-zip
$(RENAME_FILE) $(PRODUCT)-$(VERSION).tar.gz $(PRODUCT)-cvs-snapshot.tar.gz
$(RENAME_FILE) $(PRODUCT)-$(VERSION).tar.bz2 $(PRODUCT)-cvs-snapshot.tar.bz2
$(RENAME_FILE) $(PRODUCT)-$(VERSION).zip $(PRODUCT)-cvs-snapshot.zip
distclean: uninstall clean distclean-doc clean-changelog clean-defs clean-in
-$(DEL_DIR) dist-darwin/
-$(DEL_DIR) dist-src/
distclean-pkg:
-$(DEL_DIR) $(PRODUCT)-$(VERSION)-$(SYST).pkg
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).info
-$(DEL_FILE) $(PRODUCT).Info.plist $(PRODUCT).Description.plist
distclean-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix distclean
make-changelog:
$(CHECK_EXIST_FILE) ChangeLog || \
$(PERL) $(CVS2CL)
make-defs:
echo "INSTALL_HTML_DIR = $(DOC_DIR)/html" > $(DOC_DEFS)
echo "INSTALL_TXT_DIR = $(DOC_DIR)/txt" >> $(DOC_DEFS)
echo "INSTALL_MAN_DIR = $(DOC_DIR)/man" >> $(DOC_DEFS)
echo "INSTALL_PDF_DIR = $(DOC_DIR)/pdf" >> $(DOC_DEFS)
make-fileInfo:
-$(DEL_FILE) $(PRODUCT).fileInfo
sed -e "s/@PRODUCT@/$(PRODUCT)/g" -e "s/@VERSION@/$(VERSION)/g" -e "s/@DESCRIPTION@/$(DESCRIPTION)/g" \
-e "s/@AUTHOR_CONTACT@/$(AUTHOR_CONTACT)/g" -e "s/@HOMEPAGE@/$(HOMEPAGE)/g" -e "s/@CATEGORY@/$(CATEGORY)/g" \
-e "s/@LICENSE@/$(LICENSE)/g" $(PRODUCT).fileInfo.in > $(PRODUCT).fileInfo
make-pfiles:
-$(DEL_FILE) $(PRODUCT).Info.plist $(PRODUCT).Description.plist
sed -e "s/@PRODUCT@/$(PRODUCT)/g" -e "s/@VERSION@/$(VERSION)/g" -e "s/@DESCRIPTION@/$(DESCRIPTION)/g" \
-e "s/@AUTHOR_CONTACT@/$(AUTHOR_CONTACT)/g" -e "s/@HOMEPAGE@/$(HOMEPAGE)/g" -e "s/@CATEGORY@/$(CATEGORY)/g" \
-e "s/@LICENSE@/$(LICENSE)/g" $(PRODUCT).Info.plist.in > $(PRODUCT).Info.plist
sed -e "s/@PRODUCT@/$(PRODUCT)/g" -e "s/@VERSION@/$(VERSION)/g" -e "s/@DESCRIPTION@/$(DESCRIPTION)/g" \
-e "s/@AUTHOR_CONTACT@/$(AUTHOR_CONTACT)/g" -e "s/@HOMEPAGE@/$(HOMEPAGE)/g" -e "s/@CATEGORY@/$(CATEGORY)/g" \
-e "s/@LICENSE@/$(LICENSE)/g" $(PRODUCT).Description.plist.in > $(PRODUCT).Description.plist
pecomato-0.0.15/Makefile.beos 0000644 0001752 0001752 00000011007 10677223051 014761 0 ustar devel devel include Makefile.beos.inc
include doc/Makefile.inc
CC ?= gcc
CFLAGS ?= -O2 -ansi -pedantic -Wall -W
#CFLAGS ?= -g -ansi -pedantic -Wall -W
CFLAGS += -DOS_UNIX -DOS_BEOS -DPRODUCT_ID="\"$(PRODUCT)\"" -DPRODUCT_VERSION="\"$(VERSION)\""
PREFIX ?= $(shell pwd)/dist-beos
BIN_DIR = $(PREFIX)/bin
DATA_DIR = $(PREFIX)
DOC_DIR = $(DATA_DIR)/doc/$(PRODUCT)-$(VERSION)
SRC_PREFIX = $(shell pwd)/dist-src
TARGET = $(PRODUCT)
OBJECTS = main.o gnu-strndup.o util.o exif.o iptc.o jfif.o adobe.o tiff.o
DOC_DEFS = doc/Makefile.defs
default: all
syst:
echo "beos system: $(SYST) ($(SYSTBASE))"
all: $(TARGET)
full: clean all
deps: $(OBJECTS)
doc: make-defs
$(MAKE) -C doc/ -f Makefile.posix all
$(TARGET): deps
$(CC) $(LFLAGS) -o $@ $(OBJECTS)
%.o: %.c %.h config.h
$(CC) $(CFLAGS) -c -o $@ $<
install: all install-dirs install-data install-bin
install-strip: install
strip $(BIN_DIR)/$(TARGET)
install-dirs:
$(CHECK_EXIST_DIR) $(BIN_DIR) || \
$(CREATE_DIR) $(BIN_DIR)
$(CHECK_EXIST_DIR) $(DOC_DIR) || \
$(CREATE_DIR) $(DOC_DIR)
install-data: install-doc
install-doc: make-defs
$(MAKE) -C doc/ -f Makefile.posix install
install-bin: $(TARGET)
$(COPY_FILE) $(TARGET) $(BIN_DIR)/
uninstall: uninstall-bin uninstall-data uninstall-dirs
uninstall-bin:
-$(DEL_FILE) $(BIN_DIR)/$(TARGET)
uninstall-data: uninstall-doc
uninstall-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix uninstall
uninstall-dirs:
-$(DEL_DIR) $(BIN_DIR)/
-$(DEL_DIR) $(DOC_DIR)/
clean: clean-doc
-$(DEL_FILE) $(TARGET) *.o core
clean-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix clean
clean-changelog:
-$(DEL_FILE) ChangeLog*
clean-defs:
-$(DEL_FILE) $(DOC_DEFS)
clean-in:
-for FILE in *.in; \
do \
rm -f $${FILE:0:$${#FILE}-3}; \
done
dist: distbin distsrc
distbin: install-strip distbin-gz distbin-bz2 distbin-zip
distbin-gz:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).tar.gz
cd $(PREFIX) && \
$(TARGZ) ../$(PRODUCT)-$(VERSION)-$(SYST).tar.gz *
distbin-bz2:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).tar.bz2
cd $(PREFIX) && \
$(TAR) ../$(PRODUCT)-$(VERSION)-$(SYST).tar * && \
$(BZ2) ../$(PRODUCT)-$(VERSION)-$(SYST).tar
distbin-zip:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).zip
cd $(PREFIX) && \
$(ZIP) ../$(PRODUCT)-$(VERSION)-$(SYST).zip *
distsrc: distsrc-prep distsrc-gz distsrc-bz2 distsrc-zip
distsrc-prep: make-changelog doc
$(CHECK_EXIST_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION) && \
$(DEL_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/* || \
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/doc
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/devtools
$(COPY_FILE) ChangeLog $(MKFILES) $(SOURCES) $(RESOURCES) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/
$(COPY_FILE) $(DOC_SOURCES) $(DOC_MKFILES) $(DOC_RESOURCES) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/doc/
$(COPY_FILE) $(TOOLS) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/devtools/
$(COPY_FILE) doc/$(TXT_DIR)/DISCLAIMER.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/DISCLAIMER
$(COPY_FILE) doc/$(TXT_DIR)/INSTALL.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/INSTALL
$(COPY_FILE) doc/$(TXT_DIR)/LICENSE.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/LICENSE
$(COPY_FILE) doc/$(TXT_DIR)/README.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/README
$(COPY_FILE) doc/$(TXT_DIR)/TODO.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/TODO
distsrc-gz:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).tar.gz
cd $(SRC_PREFIX) && \
$(TARGZ) ../$(PRODUCT)-$(VERSION).tar.gz $(PRODUCT)-$(VERSION)/
distsrc-bz2:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).tar.bz2
cd $(SRC_PREFIX) && \
$(TAR) ../$(PRODUCT)-$(VERSION).tar $(PRODUCT)-$(VERSION)/ && \
$(BZ2) ../$(PRODUCT)-$(VERSION).tar
distsrc-zip:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).zip
cd $(SRC_PREFIX) && \
$(ZIP) ../$(PRODUCT)-$(VERSION).zip $(PRODUCT)-$(VERSION)/
distcvs: distsrc-prep distsrc-gz distsrc-bz2 distsrc-zip
$(RENAME_FILE) $(PRODUCT)-$(VERSION).tar.gz $(PRODUCT)-cvs-snapshot.tar.gz
$(RENAME_FILE) $(PRODUCT)-$(VERSION).tar.bz2 $(PRODUCT)-cvs-snapshot.tar.bz2
$(RENAME_FILE) $(PRODUCT)-$(VERSION).zip $(PRODUCT)-cvs-snapshot.zip
distclean: uninstall clean distclean-doc clean-changelog clean-defs clean-in
-$(DEL_DIR) dist-beos/
-$(DEL_DIR) dist-src/
distclean-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix distclean
make-changelog:
$(CHECK_EXIST_FILE) ChangeLog || \
$(PERL) $(CVS2CL)
make-defs:
echo "INSTALL_HTML_DIR = $(DOC_DIR)/html" > $(DOC_DEFS)
echo "INSTALL_TXT_DIR = $(DOC_DIR)/txt" >> $(DOC_DEFS)
echo "INSTALL_MAN_DIR = $(DOC_DIR)/man" >> $(DOC_DEFS)
echo "INSTALL_PDF_DIR = $(DOC_DIR)/pdf" >> $(DOC_DEFS)
pecomato-0.0.15/Makefile.linux 0000644 0001752 0001752 00000015452 10677223051 015200 0 ustar devel devel include Makefile.linux.inc
include doc/Makefile.inc
CC ?= gcc
CFLAGS ?= -O2 -fomit-frame-pointer -ansi -pedantic -Wall -W
#CFLAGS ?= -g -pipe -ansi -pedantic -Wall -W
CFLAGS += -D_GNU_SOURCE -DOS_UNIX -DOS_LINUX -DPRODUCT_ID="\"$(PRODUCT)\"" -DPRODUCT_VERSION="\"$(VERSION)\""
LFLAGS =
PREFIX ?= $(shell pwd)/dist-linux
BIN_DIR = $(PREFIX)/bin
DATA_DIR = $(PREFIX)
DOC_DIR = $(DATA_DIR)/doc/$(PRODUCT)-$(VERSION)
SRC_PREFIX = $(shell pwd)/dist-src
TARGET = $(PRODUCT)
OBJECTS = main.o util.o exif.o iptc.o jfif.o adobe.o tiff.o
DOC_DEFS = doc/Makefile.defs
default: all
syst:
echo "linux system: $(SYST) ($(SYSTBASE))"
all: $(TARGET)
full: clean all
deps: $(OBJECTS)
doc: make-defs
$(MAKE) -C doc/ -f Makefile.posix all
$(TARGET): deps
$(CC) $(LFLAGS) -o $@ $(OBJECTS)
%.o: %.c %.h config.h
$(CC) $(CFLAGS) -c -o $@ $<
install: all install-dirs install-data install-bin
install-strip: install
strip $(BIN_DIR)/$(TARGET)
install-dirs:
$(CHECK_EXIST_DIR) $(BIN_DIR) || \
$(CREATE_DIR) $(BIN_DIR)
$(CHECK_EXIST_DIR) $(DOC_DIR) || \
$(CREATE_DIR) $(DOC_DIR)
install-data: install-doc
install-doc: make-defs
$(MAKE) -C doc/ -f Makefile.posix install
install-bin: $(TARGET)
$(COPY_FILE) $(TARGET) $(BIN_DIR)/
uninstall: uninstall-bin uninstall-data uninstall-dirs
uninstall-bin:
-$(DEL_FILE) $(BIN_DIR)/$(TARGET)
uninstall-data: uninstall-doc
uninstall-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix uninstall
uninstall-dirs:
-$(DEL_DIR) $(BIN_DIR)/
-$(DEL_DIR) $(DOC_DIR)/
clean: clean-doc
-$(DEL_FILE) $(TARGET) *.o core
clean-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix clean
clean-changelog:
-$(DEL_FILE) ChangeLog*
clean-defs:
-$(DEL_FILE) $(DOC_DEFS)
clean-in:
-for FILE in *.in; \
do \
rm -f $${FILE:0:$${#FILE}-3}; \
done
dist: distbin distsrc
dist-fc5: dist rpmbuild
for FILE in $(PRODUCT)-$(VERSION)-[0-9].i686.rpm; \
do \
$(RENAME_FILE) $$FILE $$(echo $$FILE | sed s/.i686./.fc5.i686./); \
done
for FILE in $(PRODUCT)-$(VERSION)-[0-9].src.rpm; \
do \
$(RENAME_FILE) $$FILE $$(echo $$FILE | sed s/.src./.fc5.src./); \
done
dist-rh7: dist rpm
for FILE in $(PRODUCT)-$(VERSION)-[0-9].i386.rpm; \
do \
$(RENAME_FILE) $$FILE $$(echo $$FILE | sed s/.i386./.rh7.i386./); \
done
for FILE in $(PRODUCT)-$(VERSION)-[0-9].src.rpm; \
do \
$(RENAME_FILE) $$FILE $$(echo $$FILE | sed s/.src./.rh7.src./); \
done
distbin: install-strip distbin-gz distbin-bz2 distbin-zip distbin-rar distbin-7z
distbin-gz:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).tar.gz
cd $(PREFIX) && \
$(TARGZ) ../$(PRODUCT)-$(VERSION)-$(SYST).tar.gz *
distbin-bz2:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).tar.bz2
cd $(PREFIX) && \
$(TARBZ2) ../$(PRODUCT)-$(VERSION)-$(SYST).tar.bz2 *
distbin-zip:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).zip
cd $(PREFIX) && \
$(ZIP) ../$(PRODUCT)-$(VERSION)-$(SYST).zip *
distbin-rar:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).rar
cd $(PREFIX) && \
$(RAR) ../$(PRODUCT)-$(VERSION)-$(SYST).rar *
distbin-7z:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).7z
cd $(PREFIX) && \
$(7ZIP) ../$(PRODUCT)-$(VERSION)-$(SYST).7z *
rpmbuild: distsrc make-spec
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-*.i686.rpm
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-*.src.rpm
$(COPY_FILE) $(PRODUCT)-$(VERSION).tar.gz $(HOME)/rpmbuild/SOURCES
$(RPMBUILD) --target=i686 $(PRODUCT).spec
$(COPY_FILE) $(HOME)/rpmbuild/RPMS/i686/$(PRODUCT)-$(VERSION)-*.i686.rpm .
$(COPY_FILE) $(HOME)/rpmbuild/SRPMS/$(PRODUCT)-$(VERSION)-*.src.rpm .
rpm: distsrc make-spec
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-*.i386.rpm
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-*.src.rpm
$(COPY_FILE) $(PRODUCT)-$(VERSION).tar.gz $(HOME)/rpm/SOURCES
$(RPM) --target=i386 $(PRODUCT).spec
$(COPY_FILE) $(HOME)/rpm/RPMS/i386/$(PRODUCT)-$(VERSION)-*.i386.rpm .
$(COPY_FILE) $(HOME)/rpm/SRPMS/$(PRODUCT)-$(VERSION)-*.src.rpm .
distsrc: distsrc-prep distsrc-gz distsrc-bz2 distsrc-zip distsrc-rar distsrc-7z
distsrc-prep: make-changelog doc
$(CHECK_EXIST_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION) && \
$(DEL_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/* || \
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/doc
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/devtools
$(COPY_FILE) ChangeLog $(MKFILES) $(SOURCES) $(RESOURCES) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/
$(COPY_FILE) $(DOC_SOURCES) $(DOC_MKFILES) $(DOC_RESOURCES) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/doc/
$(COPY_FILE) $(TOOLS) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/devtools/
$(COPY_FILE) doc/$(TXT_DIR)/DISCLAIMER.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/DISCLAIMER
$(COPY_FILE) doc/$(TXT_DIR)/INSTALL.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/INSTALL
$(COPY_FILE) doc/$(TXT_DIR)/LICENSE.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/LICENSE
$(COPY_FILE) doc/$(TXT_DIR)/README.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/README
$(COPY_FILE) doc/$(TXT_DIR)/TODO.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/TODO
distsrc-gz:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).tar.gz
cd $(SRC_PREFIX) && \
$(TARGZ) ../$(PRODUCT)-$(VERSION).tar.gz $(PRODUCT)-$(VERSION)/
distsrc-bz2:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).tar.bz2
cd $(SRC_PREFIX) && \
$(TARBZ2) ../$(PRODUCT)-$(VERSION).tar.bz2 $(PRODUCT)-$(VERSION)/
distsrc-zip:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).zip
cd $(SRC_PREFIX) && \
$(ZIP) ../$(PRODUCT)-$(VERSION).zip $(PRODUCT)-$(VERSION)/
distsrc-rar:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).rar
cd $(SRC_PREFIX) && \
$(RAR) ../$(PRODUCT)-$(VERSION).rar $(PRODUCT)-$(VERSION)/
distsrc-7z:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).7z
cd $(SRC_PREFIX) && \
$(7ZIP) ../$(PRODUCT)-$(VERSION).7z $(PRODUCT)-$(VERSION)/
distcvs: distsrc-prep distsrc-gz distsrc-bz2 distsrc-zip distsrc-rar distsrc-7z
$(RENAME_FILE) $(PRODUCT)-$(VERSION).tar.gz $(PRODUCT)-cvs-snapshot.tar.gz
$(RENAME_FILE) $(PRODUCT)-$(VERSION).tar.bz2 $(PRODUCT)-cvs-snapshot.tar.bz2
$(RENAME_FILE) $(PRODUCT)-$(VERSION).zip $(PRODUCT)-cvs-snapshot.zip
$(RENAME_FILE) $(PRODUCT)-$(VERSION).rar $(PRODUCT)-cvs-snapshot.rar
$(RENAME_FILE) $(PRODUCT)-$(VERSION).7z $(PRODUCT)-cvs-snapshot.7z
distclean: uninstall clean distclean-doc clean-changelog clean-defs clean-in
-$(DEL_DIR) dist-linux/
-$(DEL_DIR) dist-src/
distclean-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix distclean
make-changelog:
$(CHECK_EXIST_FILE) ChangeLog || \
$(PERL) $(CVS2CL)
make-defs:
echo "INSTALL_HTML_DIR = $(DOC_DIR)/html" > $(DOC_DEFS)
echo "INSTALL_TXT_DIR = $(DOC_DIR)/txt" >> $(DOC_DEFS)
echo "INSTALL_MAN_DIR = $(DOC_DIR)/man" >> $(DOC_DEFS)
echo "INSTALL_PDF_DIR = $(DOC_DIR)/pdf" >> $(DOC_DEFS)
make-spec:
-$(DEL_FILE) $(PRODUCT).spec
sed -e "s/@PRODUCT@/$(PRODUCT)/g" -e "s/@VERSION@/$(VERSION)/g" -e "s/@DESCRIPTION@/$(DESCRIPTION)/g" \
-e "s/@AUTHOR_CONTACT@/$(AUTHOR_CONTACT)/g" -e "s/@HOMEPAGE@/$(HOMEPAGE)/g" -e "s/@CATEGORY@/$(CATEGORY)/g" \
-e "s/@LICENSE@/$(LICENSE)/g" $(PRODUCT).spec.in > $(PRODUCT).spec
pecomato-0.0.15/Makefile.unix 0000644 0001752 0001752 00000011056 10677223051 015020 0 ustar devel devel include Makefile.unix.inc
include doc/Makefile.inc
CC ?= gcc
CFLAGS ?= -O2 -ansi -pedantic -Wall -W
#CFLAGS ?= -g -ansi -pedantic -Wall -W
CFLAGS += -DOS_UNIX -DPRODUCT_ID="\"$(PRODUCT)\"" -DPRODUCT_VERSION="\"$(VERSION)\""
ifeq ($(SYSTBASE),freebsd)
CFLAGS += -DOS_FREEBSD
else
ifeq ($(SYSTBASE),sunos)
CFLAGS += -D_REENTRANT -DOS_SUNOS
else
ifeq ($(SYSTBASE),hpux)
CFLAGS += -D_POSIX_C_SOURCE=199506L -D_HPUX_SOURCE -DOS_HPUX
else
ifeq ($(SYSTBASE),aix)
CFLAGS += -D_XOPEN_SOURCE -D_XOPEN_SOURCE_EXTENDED=1 -DOS_AIX
endif
endif
endif
endif
PREFIX ?= $(shell pwd)/dist-unix
BIN_DIR = $(PREFIX)/bin
DATA_DIR = $(PREFIX)
DOC_DIR = $(DATA_DIR)/doc/$(PRODUCT)-$(VERSION)
SRC_PREFIX = $(shell pwd)/dist-src
TARGET = $(PRODUCT)
OBJECTS = main.o gnu-strndup.o gnu-getline.o util.o exif.o iptc.o jfif.o adobe.o tiff.o
DOC_DEFS = doc/Makefile.defs
default: all
syst:
echo "unix system: $(SYST) ($(SYSTBASE))"
all: $(TARGET)
full: clean all
deps: $(OBJECTS)
doc: make-defs
$(MAKE) -C doc/ -f Makefile.posix all
$(TARGET): deps
$(CC) $(LFLAGS) -o $@ $(OBJECTS)
%.o: %.c %.h config.h
$(CC) $(CFLAGS) -c -o $@ $<
install: all install-dirs install-data install-bin
install-strip: install
strip $(BIN_DIR)/$(TARGET)
install-dirs:
$(CHECK_EXIST_DIR) $(BIN_DIR) || \
$(CREATE_DIR) $(BIN_DIR)
$(CHECK_EXIST_DIR) $(DOC_DIR) || \
$(CREATE_DIR) $(DOC_DIR)
install-data: install-doc
install-doc: make-defs
$(MAKE) -C doc/ -f Makefile.posix install
install-bin: $(TARGET)
$(COPY_FILE) $(TARGET) $(BIN_DIR)/
uninstall: uninstall-bin uninstall-data uninstall-dirs
uninstall-bin:
-$(DEL_FILE) $(BIN_DIR)/$(TARGET)
uninstall-data: uninstall-doc
uninstall-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix uninstall
uninstall-dirs:
-$(DEL_DIR) $(BIN_DIR)/
-$(DEL_DIR) $(DOC_DIR)/
clean: clean-doc
-$(DEL_FILE) $(TARGET) *.o core
clean-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix clean
clean-changelog:
-$(DEL_FILE) ChangeLog*
clean-defs:
-$(DEL_FILE) $(DOC_DEFS)
clean-in:
-for FILE in *.in; \
do \
rm -f $${FILE:0:$${#FILE}-3}; \
done
dist: distbin distsrc
distbin: install-strip distbin-gz distbin-bz2
distbin-gz:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).tar.gz
cd $(PREFIX) && \
$(TAR) ../$(PRODUCT)-$(VERSION)-$(SYST).tar * && \
$(GZIP) ../$(PRODUCT)-$(VERSION)-$(SYST).tar
distbin-bz2:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).tar.bz2
cd $(PREFIX) && \
$(TAR) ../$(PRODUCT)-$(VERSION)-$(SYST).tar * && \
$(BZ2) ../$(PRODUCT)-$(VERSION)-$(SYST).tar
distsrc: distsrc-prep distsrc-gz distsrc-bz2
distsrc-prep: make-changelog doc
$(CHECK_EXIST_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION) && \
$(DEL_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/* || \
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/doc
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/devtools
$(COPY_FILE) ChangeLog $(MKFILES) $(SOURCES) $(RESOURCES) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/
$(COPY_FILE) $(DOC_SOURCES) $(DOC_MKFILES) $(DOC_RESOURCES) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/doc/
$(COPY_FILE) $(TOOLS) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/devtools/
$(COPY_FILE) doc/$(TXT_DIR)/DISCLAIMER.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/DISCLAIMER
$(COPY_FILE) doc/$(TXT_DIR)/INSTALL.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/INSTALL
$(COPY_FILE) doc/$(TXT_DIR)/LICENSE.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/LICENSE
$(COPY_FILE) doc/$(TXT_DIR)/README.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/README
$(COPY_FILE) doc/$(TXT_DIR)/TODO.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/TODO
distsrc-gz:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).tar.gz
cd $(SRC_PREFIX) && \
$(TAR) ../$(PRODUCT)-$(VERSION).tar $(PRODUCT)-$(VERSION)/ && \
$(GZIP) ../$(PRODUCT)-$(VERSION).tar
distsrc-bz2:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).tar.bz2
cd $(SRC_PREFIX) && \
$(TAR) ../$(PRODUCT)-$(VERSION).tar $(PRODUCT)-$(VERSION)/ && \
$(BZ2) ../$(PRODUCT)-$(VERSION).tar
distcvs: distsrc-prep distsrc-gz distsrc-bz2
$(RENAME_FILE) $(PRODUCT)-$(VERSION).tar.gz $(PRODUCT)-cvs-snapshot.tar.gz
$(RENAME_FILE) $(PRODUCT)-$(VERSION).tar.bz2 $(PRODUCT)-cvs-snapshot.tar.bz2
distclean: uninstall clean distclean-doc clean-changelog clean-defs clean-in
-$(DEL_DIR) dist-unix/
-$(DEL_DIR) dist-src/
distclean-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix distclean
make-changelog:
$(CHECK_EXIST_FILE) ChangeLog || \
$(PERL) $(CVS2CL)
make-defs:
echo "INSTALL_HTML_DIR = $(DOC_DIR)/html" > $(DOC_DEFS)
echo "INSTALL_TXT_DIR = $(DOC_DIR)/txt" >> $(DOC_DEFS)
echo "INSTALL_MAN_DIR = $(DOC_DIR)/man" >> $(DOC_DEFS)
echo "INSTALL_PDF_DIR = $(DOC_DIR)/pdf" >> $(DOC_DEFS)
pecomato-0.0.15/Makefile.qnx 0000644 0001752 0001752 00000011113 10677223051 014635 0 ustar devel devel include Makefile.qnx.inc
include doc/Makefile.inc
CC ?= gcc
CFLAGS ?= -O2 -ansi -pedantic -Wall -W
#CFLAGS ?= -g -ansi -pedantic -Wall -W
CFLAGS += -D_POSIX_C_SOURCE=199506L -DOS_UNIX -DOS_QNX -DPRODUCT_ID="\"$(PRODUCT)\"" -DPRODUCT_VERSION="\"$(VERSION)\""
#CFLAGS += -D_REENTRANT
LFLAGS =
PREFIX ?= $(shell pwd)/dist-qnx
BIN_DIR = $(PREFIX)/bin
DATA_DIR = $(PREFIX)
DOC_DIR = $(DATA_DIR)/doc/$(PRODUCT)-$(VERSION)
SRC_PREFIX = $(shell pwd)/dist-src
TARGET = $(PRODUCT)
OBJECTS = main.o gnu-strndup.o gnu-getline.o util.o exif.o iptc.o jfif.o adobe.o tiff.o
DOC_DEFS = doc/Makefile.defs
default: all
syst:
echo "qnx system: $(SYST) ($(SYSTBASE))"
all: $(TARGET)
full: clean all
deps: $(OBJECTS)
doc: make-defs
$(MAKE) -C doc/ -f Makefile.posix all
$(TARGET): deps
$(CC) $(LFLAGS) -o $@ $(OBJECTS)
%.o: %.c %.h config.h
$(CC) $(CFLAGS) -c -o $@ $<
install: all install-dirs install-data install-bin
install-strip: install
strip $(BIN_DIR)/$(TARGET)
install-dirs:
$(CHECK_EXIST_DIR) $(BIN_DIR) || \
$(CREATE_DIR) $(BIN_DIR)
$(CHECK_EXIST_DIR) $(DOC_DIR) || \
$(CREATE_DIR) $(DOC_DIR)
install-data: install-doc
install-doc: make-defs
$(MAKE) -C doc/ -f Makefile.posix install
install-bin: $(TARGET)
$(COPY_FILE) $(TARGET) $(BIN_DIR)/
uninstall: uninstall-bin uninstall-data uninstall-dirs
uninstall-bin:
-$(DEL_FILE) $(BIN_DIR)/$(TARGET)
uninstall-data: uninstall-doc
uninstall-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix uninstall
uninstall-dirs:
-$(DEL_DIR) $(BIN_DIR)/
-$(DEL_DIR) $(DOC_DIR)/
clean: clean-doc
-$(DEL_FILE) $(TARGET) *.o core
clean-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix clean
clean-changelog:
-$(DEL_FILE) ChangeLog*
clean-defs:
-$(DEL_FILE) $(DOC_DEFS)
clean-in:
-for FILE in *.in; \
do \
rm -f $${FILE:0:$${#FILE}-3}; \
done
dist: distbin distsrc
distbin: install-strip distbin-gz distbin-bz2 distbin-zip
distbin-gz:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).tar.gz
cd $(PREFIX) && \
$(TARGZ) ../$(PRODUCT)-$(VERSION)-$(SYST).tar.gz *
distbin-bz2:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).tar.bz2
cd $(PREFIX) && \
$(TAR) ../$(PRODUCT)-$(VERSION)-$(SYST).tar * && \
$(BZ2) ../$(PRODUCT)-$(VERSION)-$(SYST).tar
distbin-zip:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).zip
cd $(PREFIX) && \
$(ZIP) ../$(PRODUCT)-$(VERSION)-$(SYST).zip *
distsrc: distsrc-prep distsrc-gz distsrc-bz2 distsrc-zip
distsrc-prep: make-changelog doc
$(CHECK_EXIST_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION) && \
$(DEL_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/* || \
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/doc
$(CREATE_DIR) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/devtools
$(COPY_FILE) ChangeLog $(MKFILES) $(SOURCES) $(RESOURCES) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/
$(COPY_FILE) $(DOC_SOURCES) $(DOC_MKFILES) $(DOC_RESOURCES) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/doc/
$(COPY_FILE) $(TOOLS) $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/devtools/
$(COPY_FILE) doc/$(TXT_DIR)/DISCLAIMER.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/DISCLAIMER
$(COPY_FILE) doc/$(TXT_DIR)/INSTALL.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/INSTALL
$(COPY_FILE) doc/$(TXT_DIR)/LICENSE.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/LICENSE
$(COPY_FILE) doc/$(TXT_DIR)/README.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/README
$(COPY_FILE) doc/$(TXT_DIR)/TODO.txt $(SRC_PREFIX)/$(PRODUCT)-$(VERSION)/TODO
distsrc-gz:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).tar.gz
cd $(SRC_PREFIX) && \
$(TARGZ) ../$(PRODUCT)-$(VERSION).tar.gz $(PRODUCT)-$(VERSION)/
distsrc-bz2:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).tar.bz2
cd $(SRC_PREFIX) && \
$(TAR) ../$(PRODUCT)-$(VERSION).tar $(PRODUCT)-$(VERSION)/ && \
$(BZ2) ../$(PRODUCT)-$(VERSION).tar
distsrc-zip:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).zip
cd $(SRC_PREFIX) && \
$(ZIP) ../$(PRODUCT)-$(VERSION).zip $(PRODUCT)-$(VERSION)/
distcvs: distsrc-prep distsrc-gz distsrc-bz2 distsrc-zip
$(RENAME_FILE) $(PRODUCT)-$(VERSION).tar.gz $(PRODUCT)-cvs-snapshot.tar.gz
$(RENAME_FILE) $(PRODUCT)-$(VERSION).tar.bz2 $(PRODUCT)-cvs-snapshot.tar.bz2
$(RENAME_FILE) $(PRODUCT)-$(VERSION).zip $(PRODUCT)-cvs-snapshot.zip
distclean: uninstall clean distclean-doc clean-changelog clean-defs clean-in
-$(DEL_DIR) dist-qnx/
-$(DEL_DIR) dist-src/
distclean-doc: make-defs
-$(MAKE) -C doc/ -f Makefile.posix distclean
make-changelog:
$(CHECK_EXIST_FILE) ChangeLog || \
$(PERL) $(CVS2CL)
make-defs:
echo "INSTALL_HTML_DIR = $(DOC_DIR)/html" > $(DOC_DEFS)
echo "INSTALL_TXT_DIR = $(DOC_DIR)/txt" >> $(DOC_DEFS)
echo "INSTALL_MAN_DIR = $(DOC_DIR)/man" >> $(DOC_DEFS)
echo "INSTALL_PDF_DIR = $(DOC_DIR)/pdf" >> $(DOC_DEFS)
pecomato-0.0.15/Makefile.win32 0000644 0001752 0001752 00000013304 10677223051 014775 0 ustar devel devel include Makefile.win32.inc
include doc\Makefile.inc
CC = cl
LINK = link
CFLAGS = -nologo -O2 -ML -GF -DOS_WIN32 -DPRODUCT_ID=\"$(PRODUCT)\" -DPRODUCT_VERSION=\"$(VERSION)\"
#CFLAGS += -MLd -Zi -Zm200
LFLAGS = /NOLOGO /SUBSYSTEM:console
#LFLAGS += /DEBUG
INCPATH = -I"."
MAKE = $(MAKE) -f Makefile.win32
PREFIX = %CD%\dist-win32
BIN_DIR = $(PREFIX)
DATA_DIR = $(PREFIX)
DOC_DIR = $(DATA_DIR)\doc
SRC_PREFIX = %CD%\dist-src
TARGET = $(PRODUCT).exe
OBJECTS = $(PRODUCT).res adobe.obj exif.obj iptc.obj jfif.obj main.obj \
gnu-strcasecmp.obj gnu-strndup.obj gnu-mkstemp.obj gnu-getline.obj \
util.obj tiff.obj
DOC_DEFS = doc\Makefile.defs
default: all
syst:
echo windows system: $(SYST) ($(SYSTBASE))
all: $(TARGET)
full: clean all
deps: $(OBJECTS)
doc: make-defs
cd doc && \
$(MAKE) all
$(TARGET): deps
$(LINK) $(LFLAGS) /OUT:$(TARGET) @<<
$(OBJECTS)
<<
install: all install-dirs install-data install-bin
install-dirs::
$(CHECK_NOT_EXIST_DIR) $(PREFIX) \
$(CREATE_DIR) $(PREFIX)
$(CHECK_NOT_EXIST_DIR) $(BIN_DIR) \
$(CREATE_DIR) $(BIN_DIR)
$(CHECK_NOT_EXIST_DIR) $(DATA_DIR) \
$(CREATE_DIR) $(DATA_DIR)
$(CHECK_NOT_EXIST_DIR) $(DOC_DIR) \
$(CREATE_DIR) $(DOC_DIR)
install-data: install-doc
install-doc: make-defs
cd doc && \
$(MAKE) install
install-bin: $(TARGET)
$(COPY_FILE) $(TARGET) $(BIN_DIR)\$(TARGET)
uninstall: uninstall-bin uninstall-data uninstall-dirs
uninstall-bin::
-$(DEL_FILE) $(BIN_DIR)\$(TARGET)
uninstall-data: uninstall-doc
uninstall-doc: make-defs
-cd doc && \
$(MAKE) uninstall
uninstall-dirs::
-$(DEL_DIR) $(DOC_DIR)
-$(DEL_DIR) $(DATA_DIR)
-$(DEL_DIR) $(BIN_DIR)
-$(DEL_DIR) $(PREFIX)
clean: clean-doc clean-rc
-$(DEL_FILE) $(TARGET)
-$(DEL_FILE) *.obj
-$(DEL_FILE) *.res
-$(DEL_FILE) *.pdb
-$(DEL_FILE) *.ilk
clean-doc: make-defs
-cd doc && \
$(MAKE) clean
clean-changelog:
-$(DEL_FILE) ChangeLog*
clean-defs::
-$(DEL_FILE) $(DOC_DEFS)
clean-rc::
-$(DEL_FILE) $(PRODUCT).rc
clean-in::
dist: distbin distsrc
distbin: install distbin-zip distbin-rar distbin-7z distbin-exe
distbin-zip:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).zip
cd $(PREFIX) && \
$(ZIP) ..\$(PRODUCT)-$(VERSION)-$(SYST).zip *
distbin-rar:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).rar
cd $(PREFIX) && \
$(RAR) ..\$(PRODUCT)-$(VERSION)-$(SYST).rar *
distbin-7z:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).7z
cd $(PREFIX) && \
$(7ZIP) ..\$(PRODUCT)-$(VERSION)-$(SYST).7z *
distbin-exe:
-$(DEL_FILE) $(PRODUCT)-$(VERSION)-$(SYST).exe
cd $(PREFIX) && \
$(RARSFX) ..\$(PRODUCT)-$(VERSION)-$(SYST).exe *
distsrc: distsrc-prep distsrc-zip distsrc-rar distsrc-exe
distsrc-prep: make-changelog doc
-$(CHECK_EXIST_DIR) $(SRC_PREFIX)\$(PRODUCT)-$(VERSION) \
$(DEL_DIR) $(SRC_PREFIX)\$(PRODUCT)-$(VERSION)
$(CHECK_NOT_EXIST_DIR) $(SRC_PREFIX)\$(PRODUCT)-$(VERSION) \
$(CREATE_DIR) $(SRC_PREFIX)\$(PRODUCT)-$(VERSION)
-$(CREATE_DIR) $(SRC_PREFIX)\$(PRODUCT)-$(VERSION)\doc
-$(CREATE_DIR) $(SRC_PREFIX)\$(PRODUCT)-$(VERSION)\devtools
for %f in (ChangeLog $(MKFILES) $(SOURCES) $(RESOURCES)) do \
$(COPY_FILE) %f $(SRC_PREFIX)\$(PRODUCT)-$(VERSION)\%f
for %f in ($(DOC_SOURCES) $(DOC_MKFILES) $(DOC_RESOURCES)) do \
$(COPY_FILE) %f $(SRC_PREFIX)\$(PRODUCT)-$(VERSION)\%f
for %f in ($(TOOLS)) do \
$(COPY_FILE) %f $(SRC_PREFIX)\$(PRODUCT)-$(VERSION)\%f
$(COPY_FILE) doc\$(TXT_DIR)\DISCLAIMER.txt $(SRC_PREFIX)\$(PRODUCT)-$(VERSION)\DISCLAIMER
$(COPY_FILE) doc\$(TXT_DIR)\INSTALL.txt $(SRC_PREFIX)\$(PRODUCT)-$(VERSION)\INSTALL
$(COPY_FILE) doc\$(TXT_DIR)\LICENSE.txt $(SRC_PREFIX)\$(PRODUCT)-$(VERSION)\LICENSE
$(COPY_FILE) doc\$(TXT_DIR)\README.txt $(SRC_PREFIX)\$(PRODUCT)-$(VERSION)\README
$(COPY_FILE) doc\$(TXT_DIR)\TODO.txt $(SRC_PREFIX)\$(PRODUCT)-$(VERSION)\TODO
distsrc-zip:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).zip
cd $(SRC_PREFIX) && \
$(ZIP) ..\$(PRODUCT)-$(VERSION).zip $(PRODUCT)-$(VERSION)
distsrc-rar:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).rar
cd $(SRC_PREFIX) && \
$(RAR) ..\$(PRODUCT)-$(VERSION).rar $(PRODUCT)-$(VERSION)
distsrc-7z:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).7z
cd $(SRC_PREFIX) && \
$(7ZIP) ..\$(PRODUCT)-$(VERSION).7z $(PRODUCT)-$(VERSION)
distsrc-exe:
-$(DEL_FILE) $(PRODUCT)-$(VERSION).exe
cd $(SRC_PREFIX) && \
$(RARSFX) ..\$(PRODUCT)-$(VERSION).exe $(PRODUCT)-$(VERSION)
distcvs: distsrc-prep distsrc-zip distsrc-rar distsrc-7z distsrc-exe
$(RENAME_FILE) $(PRODUCT)-$(VERSION).zip $(PRODUCT)-cvs-snapshot.zip
$(RENAME_FILE) $(PRODUCT)-$(VERSION).rar $(PRODUCT)-cvs-snapshot.rar
$(RENAME_FILE) $(PRODUCT)-$(VERSION).exe $(PRODUCT)-cvs-snapshot.exe
distclean: uninstall clean distclean-doc clean-changelog clean-defs clean-in
-$(DEL_DIR) dist-win32
-$(DEL_DIR) dist-src
distclean-doc: make-defs
-cd doc && \
$(MAKE) distclean
make-changelog::
$(CHECK_NOT_EXIST_FILE) ChangeLog \
$(PERL) $(CVS2CL)
make-defs::
echo INSTALL_HTML_DIR = $(DOC_DIR)\html > $(DOC_DEFS)
echo INSTALL_TXT_DIR = $(DOC_DIR)\txt >> $(DOC_DEFS)
echo INSTALL_MAN_DIR = $(DOC_DIR)\man >> $(DOC_DEFS)
$(PRODUCT).rc: $(PRODUCT).rc.in
-$(DEL_FILE) $(PRODUCT).rc
sed -e "s/@PRODUCT@/$(PRODUCT)/g" -e "s/@VERSION@/$(VERSION)/g" -e "s/@DESCRIPTION@/$(DESCRIPTION)/g" \
-e "s/@AUTHOR_CONTACT@/$(AUTHOR_CONTACT)/g" -e "s/@HOMEPAGE@/$(HOMEPAGE)/g" -e "s/@CATEGORY@/$(CATEGORY)/g" \
-e "s/@LICENSE@/$(LICENSE)/g" -e "s/@VERSION_RC@/$(VERSION_RC)/g" $(PRODUCT).rc.in > $(PRODUCT).rc
.SUFFIXES: .c .rc
{.}.c{.}.obj::
$(CC) -c $(CFLAGS) $(INCPATH) -Fo.\ @<<
$<
<<
{.}.rc{.}.res::
rc @<<
$<
<<
$(PRODUCT).res: $(PRODUCT).rc
adobe.obj: adobe.c adobe.h config.h
exif.obj: exif.c exif.h config.h
iptc.obj: iptc.c iptc.h config.h
jfif.obj: jfif.c jfif.h config.h
main.obj: main.c config.h
util-gnu.obj: util-gnu.c util-gnu.h config.h
util.obj: util.c util.h config.h
pecomato-0.0.15/adobe.c 0000644 0001752 0001752 00000037233 10677223051 013621 0 ustar devel devel #include "adobe.h"
#include "iptc.h"
#include "jfif.h"
extern struct prefs_struct prefs;
extern unsigned char* rewrite_cache;
extern unsigned long int rewrite_cache_offset;
struct adobe_resource_descr adobe_resources_descr[]=
{
{ ADOBE_RSC_RASTER_INFO, "raster info" },
{ ADOBE_RSC_MACINTOSH_PRINT_INFO, "macintosh print info" },
{ ADOBE_RSC_INDEXED_COLOR_TABLE, "indexed color table" },
{ ADOBE_RSC_RESOLUTION, "resolution" },
{ ADOBE_RSC_ALPHA_CHANNEL_NAMES, "alpha channel names" },
{ ADOBE_RSC_DISPLAY, "display" },
{ ADOBE_RSC_CAPTION, "caption" },
{ ADOBE_RSC_BORDER_STYLE, "border style" },
{ ADOBE_RSC_BACRKGROUND_COLOR, "bacrkground color" },
{ ADOBE_RSC_PRINT_FLAGS, "print flags" },
{ ADOBE_RSC_GRAYSCALE_MULTICHANNEL_HALFTONING, "grayscale multichannel halftoning" },
{ ADOBE_RSC_COLOR_HALFTONING, "color halftoning" },
{ ADOBE_RSC_DUOTONE_HALFTONING, "duotone halftoning" },
{ ADOBE_RSC_GRAYSCALE_MULTICHANNEL_TRANSFER, "grayscale multichannel transfer" },
{ ADOBE_RSC_COLOR_TRANSFER, "color transfer" },
{ ADOBE_RSC_DUOTONE_TRANSFER, "duotone transfer" },
{ ADOBE_RSC_DUOTONE_IMAGE, "duotone image" },
{ ADOBE_RSC_BW_VALUES, "bw values" },
{ ADOBE_RSC_OBSOLETE1, "obsolete1" },
{ ADOBE_RSC_EPS_OPTIONS, "eps options" },
{ ADOBE_RSC_QUICK_MASK, "quick mask" },
{ ADOBE_RSC_OBSOLETE2, "obsolete2" },
{ ADOBE_RSC_LAYER_STATE, "layer state" },
{ ADOBE_RSC_WORKING_PATH, "working path" },
{ ADOBE_RSC_LAYER_GROUP, "layer group" },
{ ADOBE_RSC_OBSOLETE3, "obsolete3" },
{ ADOBE_RSC_IPTC_FILE_INFO, "iptc file info" },
{ ADOBE_RSC_IMAGE_MODE, "image mode" },
{ ADOBE_RSC_JPEG_QUALITY, "jpeg quality" },
{ ADOBE_RSC_GRID_GUIDES_INFO, "grid guides info" },
{ ADOBE_RSC_THUMBNAIL_RESOURCE1, "thumbnail resource1" },
{ ADOBE_RSC_COPYRIGHT_FLAG, "copyright flag" },
{ ADOBE_RSC_UNIFORM_RESOURCE_LOCATOR, "uniform resource locator" },
{ ADOBE_RSC_THUMBNAIL_RESOURCE2, "thumbnail resource2" },
{ ADOBE_RSC_GLOBAL_ANGLE, "global angle" },
{ ADOBE_RSC_COLOR_SAMPLERS_RESOURCE1, "color samplers resource1" },
{ ADOBE_RSC_ICC_PROFILE, "icc profile" },
{ ADOBE_RSC_WATERMARK, "watermark" },
{ ADOBE_RSC_ICC_UNTAGGER, "icc untagger" },
{ ADOBE_RSC_EFFECTS_VISIBLE, "effects visible" },
{ ADOBE_RSC_SPOT_HALFTONE, "spot halftone" },
{ ADOBE_RSC_DOCUMENT_SPECIFIC_IDS, "document specific ids" },
{ ADOBE_RSC_UNICODE_ALPHA_NAMES, "unicode alpha names" },
{ ADOBE_RSC_INDEXED_COLOR_TABLE_COUNT, "indexed color table count" },
{ ADOBE_RSC_TRANSPARENT_INDEX, "transparent index" },
{ ADOBE_RSC_GLOBAL_ALTITUDE, "global altitude" },
{ ADOBE_RSC_SLICES, "slices" },
{ ADOBE_RSC_WORKFLOW_URL, "workflow url" },
{ ADOBE_RSC_XPEP_JUMP, "xpep jump" },
{ ADOBE_RSC_ALPHA_IDENTIFIERS, "alpha identifiers" },
{ ADOBE_RSC_URL_LIST, "url list" },
{ ADOBE_RSC_VERSION_INFO, "version info" },
{ ADOBE_RSC_CLIPPING_PATH, "clipping path" },
{ ADOBE_RSC_PRINT_FLAGS_INFO, "print flags info" },
/* reserved */
{ ADOBE_RSC_EOT, NULL }
};
struct adobe_resource_range_descr adobe_resource_ranges_descr[]=
{
{ 0x07d0, 0x0bb6, "path info" }, /* ADOBE_RSC_PATH_INFO */
/* reserved */
{ ADOBE_RSC_EOT, ADOBE_RSC_EOT, NULL }
};
/* Photoshop 3.0 .psd */
/* 8BPS contents is being parsed, nested JFIF, Exif and 8BIM chunks are parsed,
other data is skipped */
void adobe_8bps_parse(unsigned char* buffer, unsigned long int bytes_left,
struct parser_result* result)
{
struct parser_result res;
unsigned char* ptr;
unsigned long int chunks;
unsigned long int written_bytes;
long int bytes;
bool ret;
chunks=0;
ptr=buffer;
bytes=bytes_left;
written_bytes=0;
ret=true;
debug("8BPS parser: %ld byte(s) to parse", bytes);
/* parse 8BPS header */
if (bytes<26)
{
ret=false;
error("8BPS parser: chunk underrun (%ld byte(s) remaining, 26 or more expected)",
bytes);
}
else
{
/* 8BPS marker expected */
if (getlong(ptr, 0)!=ADOBE_8BPS_MARKER)
{
ret=false;
error("8BPS parser: expected marker not matched");
}
else
{
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 4);
bytes-=4;
ptr+=4;
/* version (value 1 expected) */
if (getword(ptr, 0)!=0x0001)
{
ret=false;
error("8BPS parser: expected version not matched (found 0x%04x, expected 0x0001)",
getword(ptr, 0), 0x0001);
}
else
{
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 2);
bytes-=2;
ptr+=2;
/* reserved bytes (value 0 expected) */
if ((getlong(ptr, 0)!=0x00000000) || (getword(ptr, 4)!=0x0000))
{
ret=false;
error("8BPS parser: expected reserved bytes value not matched (found 0x%08lx%04x, expected 0x000000000000)",
getlong(ptr, 0), getword(ptr, 4));
}
else
{
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 6);
bytes-=6;
ptr+=6;
/* skip channels, rows, columns, depth, mode info */
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 2+4+4+2+2);
bytes-=2+4+4+2+2;
ptr+=2+4+4+2+2;
chunks++;
/* parse in-8BPS embedded possible 8BIM or JFIF chunks */
while (bytes>0)
{
if (getlong(ptr, 0)==ADOBE_8BPS_MARKER)
{
debug("8BPS parser: 8BPS marker found");
adobe_8bps_parse(ptr, bytes, &res);
ret=res.ret;
ptr+=res.parsed_bytes;
bytes-=res.parsed_bytes;
written_bytes+=res.written_bytes;
chunks++;
}
else
if (getlong(ptr, 0)==ADOBE_8BIM_MARKER)
{
debug("8BPS parser: 8BIM marker found");
adobe_8bim_parse(ptr, bytes, 0, &res);
ret=res.ret;
ptr+=res.parsed_bytes;
bytes-=res.parsed_bytes;
written_bytes+=res.written_bytes;
chunks++;
}
else
if (getword(buffer, 0)==((JFIF_TAG<<8)|JFIF_SOI))
{
debug("8BPS parser: SOI tag found");
jfif_parse(ptr, bytes, &res);
ret=res.ret;
ptr+=res.parsed_bytes;
bytes-=res.parsed_bytes;
written_bytes+=res.written_bytes;
chunks++;
}
else
{
if (bytes>0)
{
ret=false;
error("8BPS parser: unsupported chunk follows (%lu byte(s))",
bytes);
}
break;
}
/* no need to change any chunk length back if we have rewritten
modified chunk in write cache */
}
}
}
}
}
debug("8BPS parser: %u dataset(s) inspected, total length: %lu byte(s)",
chunks, bytes_left-bytes);
if (prefs.rewrite)
debug("8BPS parser: %lu byte(s) rewritten", written_bytes);
result->parsed_bytes=bytes_left-bytes;
result->written_bytes=written_bytes;
result->ret=ret;
}
/* Photoshop ff0 file (some IPTC fields plus some extra Photoshop metadata) */
void adobe_ffo_parse(unsigned char* buffer, unsigned long int bytes_left,
const unsigned short int photoshop_version, struct parser_result* result)
{
struct parser_result res;
unsigned char* ptr;
unsigned long int chunks;
long int bytes;
unsigned long int written_bytes;
bool ret;
chunks=0;
ptr=buffer;
bytes=bytes_left;
written_bytes=0;
ret=true;
debug("8BIM parser: %ld byte(s), version: %u", bytes, photoshop_version);
/* parse ff0 chunk */
if (bytes<16)
{
ret=false;
error("FFO parser: chunk underrun (%ld byte(s) remaining, 16 or more expected)",
bytes);
}
else
{
/* 8BIM marker expected */
if (getbyte(ptr, 0)==ADOBE_FFO_MARKER)
{
unsigned char version;
bool copyrighted;
unsigned long int length;
debug("8BIM parser: FFO tag found");
/* version? */
version=getbyte(ptr, 1);
if (prefs.technical && (version!=1))
warning("FFO parser: possibly unsupported FFO version %u (expected: 1)", version);
/* copyrighted */
copyrighted=(bool)getbyte(ptr, 2);
debug("FFO parser: copyrighted flag is %sset", copyrighted?"":"not");
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 1);
ptr+=3;
bytes-=3;
/* image URL (and its length, 1 minimum, and to multiply by 2) */
length=getlong(ptr, 0);
if (prefs.technical && (length==0))
warning("FFO parser: zero length image URL field (expected: 1 minimum)");
length*=2;
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, length+4);
ptr+=length+4;
bytes-=length+4;
/* IPTC application record version expected (7 bytes): */
/* left for further sublevel parser */
/* more IPTC datasets */
iptc_parse(ptr, bytes, false, &res);
ret=res.ret;
}
else
{
ret=false;
error("FFO parser: expected marker not matched");
}
}
result->parsed_bytes=bytes_left-bytes;
result->written_bytes=written_bytes;
result->ret=ret;
}
/* Photoshop basic image resource block */
/* 8BIM chunks are recognized and skipped, only IPTC data is being parsed */
void adobe_8bim_parse(unsigned char* buffer, unsigned long int bytes_left,
const unsigned short int photoshop_version, struct parser_result* result)
{
struct parser_result res;
unsigned char* ptr;
unsigned long int chunks;
unsigned long int written_bytes;
unsigned long int data_len;
unsigned short int resource;
long int bytes;
short int str_len;
bool ret;
chunks=0;
ptr=buffer;
bytes=bytes_left;
written_bytes=0;
ret=true;
debug("8BIM parser: %ld byte(s), version: %u", bytes, photoshop_version);
/* parse 8BIM chunk(s) */
while (bytes>0)
{
if (bytes<4)
{
ret=false;
error("8BIM parser: chunk underrun (%ld byte(s) remaining, 4 or more expected)",
bytes);
break;
}
/* 8BIM marker expected */
if (getlong(ptr, 0)==ADOBE_8BIM_MARKER)
{
bool parsed;
debug("8BIM parser: 8BIM tag found");
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 4);
ptr+=4;
bytes-=4;
if (bytes<2)
{
ret=false;
error("8BIM parser: Photoshop generic chunk underrun (%ld byte(s) remaining, 2 or more expected)",
bytes);
break;
}
/* resource ID */
resource=getword(ptr, 0);
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 2);
ptr+=2;
bytes-=2;
debug("8BIM parser: Photoshop generic chunk assumed");
if (bytes<6)
{
ret=false;
error("8BIM parser: chunk underrun (%ld byte(s) remaining, 6 or more expected)",
bytes);
break;
}
/* resource name (usually empty, padded pstring) */
str_len=getbyte(ptr, 0);
str_len++; /* count the size byte itself */
/* pad the pstring size to be even */
if (str_len&1)
str_len++;
/* skip the pstring */
if (prefs.rewrite && (str_len>0))
written_bytes+=dump_rewrite(ptr, str_len);
ptr+=str_len;
bytes-=str_len;
/* chunk length */
data_len=getlong(ptr, 0);
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 4);
ptr+=4;
bytes-=4;
if (resource==ADOBE_RSC_IPTC_FILE_INFO)
{
/* parse ITPC datasets */
debug("8BIM parser: IPTC signature found, invoking sublevel IPTC parser");
iptc_parse(ptr, data_len, false, &res);
ret=res.ret;
parsed=true;
}
else
{
/* non-ITPC resource */
struct adobe_resource_descr* resource_descr;
resource_descr=adobe_match_resource((const enum ADOBE_RESOURCE)resource);
if (resource_descr)
debug("8BIM parser: Photoshop %s resource chunk found, skipped",
resource_descr->label);
else
{
struct adobe_resource_range_descr* resource_range_descr;
resource_range_descr=adobe_match_resource_range((const enum ADOBE_RESOURCE)resource);
if (resource_range_descr)
debug("8BIM parser: Photoshop %s resource chunk found, skipped",
resource_range_descr->label);
else
warning("8BIM parser: unknown Adobe resource code %04x", resource);
}
/* rewrite the whole chunk (not eaten here) */
res.parsed_bytes=0;
res.written_bytes=0;
parsed=false;
}
if (prefs.rewrite)
{
written_bytes+=res.written_bytes;
/* change back chunk length when written bytes != parsed bytes (which means
that some bytes have been filtered out or added */
if (res.written_bytes!=res.parsed_bytes)
{
debug("8BIM parser: backward change of chunk length is necessary (%lu -> %lu)",
res.parsed_bytes, res.written_bytes);
if (prefs.rewrite_cached)
{
unsigned long int offset;
/* reconstitute the offset of the length bytes to change back */
offset=rewrite_cache_offset-res.written_bytes-4;
debug("8BIM parser: chunk length to change backwardly at offset %lu: %lu (instead of %lu)",
offset, res.written_bytes, getlong(rewrite_cache, offset));
/* write modified length to cache */
setlong(rewrite_cache, offset, res.written_bytes);
}
else
error("8BIM parser: attempting to do backward changes to uncached write buffer");
}
}
/* if any resource was parsed (and already re-written if enabled) */
if (res.parsed_bytes>0)
{
/* check remaining length consistency (prevents overflow, theorical case) */
if (res.parsed_bytes>(unsigned long int)bytes)
{
/* raise an error (for the caller to know) but continue */
ret=false;
error("8BIM parser: 8BIM chunk size inconsistency (%lu byte(s), %lu expected)",
res.parsed_bytes, bytes);
}
else
{
/* is embedded data was smaller than the reserved chunk size then */
/* write the missing extra bytes */
if (prefs.rewrite && (res.parsed_bytes<data_len))
written_bytes+=dump_rewrite(ptr+res.parsed_bytes,
data_len-res.parsed_bytes);
}
}
else
if (prefs.rewrite && (data_len>0))
written_bytes+=dump_rewrite(ptr, data_len);
/* pad the read bytes (so that the size is even), if byte remains */
if ((data_len<(unsigned long int)bytes) && data_len&1)
{
debug("8BIM parser: found padding byte");
/* pad written bytes according to what we read (sinec ) */
if (prefs.rewrite && (!prefs.rewrite_cached || !parsed))
{
written_bytes+=dump_rewrite(ptr+data_len, 1);
debug("8BIM parser: written padding byte to file");
}
data_len++;
}
/* pad written bytes (if not already done) */
if (prefs.rewrite && prefs.rewrite_cached && parsed && res.written_bytes&1)
{
/* we are using cached rewritting (so we are filtering in)
in any way), so we cannot use any padding byte from the read
flow. let's write a blank padding byte */
unsigned char foo;
foo='\0';
written_bytes+=dump_rewrite(&foo, 1);
debug("8BIM parser: written padding byte to cache");
}
ptr+=data_len;
bytes-=data_len;
chunks++;
}
else
{
ret=false;
error("8BIM parser: expected marker not matched");
break;
}
}
debug("8BIM parser: %u chunk(s) inspected, total length: %lu byte(s)",
chunks, bytes_left-bytes);
if (prefs.rewrite)
debug("8BIM parser: %lu byte(s) rewritten", written_bytes);
result->parsed_bytes=bytes_left-bytes;
result->written_bytes=written_bytes;
result->ret=ret;
}
struct adobe_resource_descr* adobe_match_resource(const enum ADOBE_RESOURCE resource)
{
int i;
i=0;
while (adobe_resources_descr[i].resource!=ADOBE_RSC_EOT)
{
if (adobe_resources_descr[i].resource==resource)
return(&adobe_resources_descr[i]);
i++;
}
return(NULL);
}
struct adobe_resource_range_descr* adobe_match_resource_range(const enum ADOBE_RESOURCE resource)
{
int i;
/* match ranges */
i=0;
while (adobe_resource_ranges_descr[i].lower_boundary!=ADOBE_RSC_EOT)
{
if ( (resource<=adobe_resource_ranges_descr[i].lower_boundary)
|| (resource<=adobe_resource_ranges_descr[i].upper_boundary))
return(&adobe_resource_ranges_descr[i]);
i++;
}
return(NULL);
}
void adobe_dump_resource_list(void)
{
}
pecomato-0.0.15/exif.c 0000644 0001752 0001752 00000047470 10677223051 013506 0 ustar devel devel #include "exif.h"
#include <stdlib.h>
extern struct prefs_struct prefs;
extern unsigned char* rewrite_cache;
extern unsigned long int rewrite_cache_offset;
/* some TIFF definitions */
struct tiff_ifd_type_size tiff_ifd_type_sizes[]=
{
{ TIFF_IFD_TYPE_BYTE, 1 },
{ TIFF_IFD_TYPE_STRING, 1 },
{ TIFF_IFD_TYPE_USHORT, 2 },
{ TIFF_IFD_TYPE_ULONG, 4 },
{ TIFF_IFD_TYPE_URATIONAL, 8 },
{ TIFF_IFD_TYPE_SBYTE, 1 },
{ TIFF_IFD_TYPE_UNDEFINED, 8 },
{ TIFF_IFD_TYPE_SSHORT, 2 },
{ TIFF_IFD_TYPE_SLONG, 4 },
{ TIFF_IFD_TYPE_SRATIONAL, 8 },
{ TIFF_IFD_TYPE_FLOAT, 4 },
{ TIFF_IFD_TYPE_DOUBLE, 8 },
/* reserved */
{ TIFF_IFD_TYPE_UNKNOWN, 0 }
};
struct exif_ifd_field exif_ifd_fields[]=
{
{ EXIF_IFD_IMAGE_WIDTH, TIFF_IFD_TYPE_ULONG, 1, "image width" },
{ EXIF_IFD_IMAGE_HEIGHT, TIFF_IFD_TYPE_ULONG, 1, "image height" },
{ EXIF_IFD_BITS_PER_SAMPLE, TIFF_IFD_TYPE_USHORT, 3, "bits per sample" },
{ EXIF_IFD_COMPRESSION, TIFF_IFD_TYPE_USHORT, 1, "compression" },
{ EXIF_IFD_PHOTOMETRIC_INTERPRETATION, TIFF_IFD_TYPE_USHORT, 1, "photometric interpretation" },
{ EXIF_IFD_IMAGE_DESCR, TIFF_IFD_TYPE_STRING, 20, "image description" },
{ EXIF_IFD_MAKE, TIFF_IFD_TYPE_STRING, 6, "make" },
{ EXIF_IFD_MODEL, TIFF_IFD_TYPE_STRING, 20, "model" },
{ EXIF_IFD_STRIP_OFFSETS, TIFF_IFD_TYPE_ULONG, 1, "strip offsets" },
{ EXIF_IFD_ORIENTATION, TIFF_IFD_TYPE_USHORT, 1, "orientation" },
{ EXIF_IFD_SAMPLES_PER_PIXEL, TIFF_IFD_TYPE_USHORT, 1, "samples per pixel" },
{ EXIF_IFD_ROWS_PER_STRIP, TIFF_IFD_TYPE_ULONG, 1, "rows per strip" },
{ EXIF_IFD_STRIP_BYTE_COUNT, TIFF_IFD_TYPE_ULONG, 1, "strip byte count" },
{ EXIF_IFD_XRES, TIFF_IFD_TYPE_URATIONAL, 1, "x resolution" },
{ EXIF_IFD_YRES, TIFF_IFD_TYPE_URATIONAL, 1, "y resolution" },
{ EXIF_IFD_RES_UNIT, TIFF_IFD_TYPE_USHORT, 1, "resolution unit" },
{ EXIF_IFD_SOFTWARE, TIFF_IFD_TYPE_STRING, 23, "software" },
{ EXIF_IFD_DATE_TIME, TIFF_IFD_TYPE_STRING, 20, "date/time" },
{ EXIF_IFD_JPEG_IF_OFFSET, TIFF_IFD_TYPE_ULONG, 1, "JPEG IF offset" },
{ EXIF_IFD_JPEG_IF_BYTE_COUNT, TIFF_IFD_TYPE_ULONG, 1, "JPEG IF byte count" },
{ EXIF_IFD_YCBCR_POS, TIFF_IFD_TYPE_USHORT, 1, "YCbCr positioning" },
{ EXIF_IFD_EXPOSURE_TIME, TIFF_IFD_TYPE_URATIONAL, 1, "exposure time" },
{ EXIF_IFD_F_NUMBER, TIFF_IFD_TYPE_URATIONAL, 1, "F number" },
{ EXIF_IFD_OFFSET, TIFF_IFD_TYPE_ULONG, 1, "EXIF offset" },
{ EXIF_IFD_LOCATION_OFFSET, TIFF_IFD_TYPE_URATIONAL, 000, "location offset" },
{ EXIF_IFD_EXPOSURE_PROGRAM, TIFF_IFD_TYPE_USHORT, 1, "exposure program" },
{ EXIF_IFD_ISO_SPEED_RATINGS, TIFF_IFD_TYPE_USHORT, 1, "ISO speed ratings" },
{ EXIF_IFD_EXIF_VERSION, TIFF_IFD_TYPE_UNDEFINED, 4, "EXIF version" },
{ EXIF_IFD_ORIG_DATE_TIME, TIFF_IFD_TYPE_STRING, 20, "original date/time" },
{ EXIF_IFD_DIGIT_DATE_TIME, TIFF_IFD_TYPE_STRING, 20, "digitized date/time" },
{ EXIF_IFD_COMPONENT_CONFIG, TIFF_IFD_TYPE_UNDEFINED, 4, "component configuration" },
{ EXIF_IFD_COMPRESSION_RATE, TIFF_IFD_TYPE_URATIONAL, 1, "compression bits/pixel" },
{ EXIF_IFD_SHUTTER_SPEED, TIFF_IFD_TYPE_SRATIONAL, 1, "shutter speed" },
{ EXIF_IFD_APERTURE, TIFF_IFD_TYPE_URATIONAL, 1, "aperture" },
{ EXIF_IFD_BRIGHTNESS, TIFF_IFD_TYPE_SRATIONAL, 1, "brightness" },
{ EXIF_IFD_EXPOSURE_BIAS, TIFF_IFD_TYPE_SRATIONAL, 1, "exposure bias" },
{ EXIF_IFD_MAX_APERTURE, TIFF_IFD_TYPE_URATIONAL, 1, "max aperture" },
{ EXIF_IFD_SUBJECT_DISTANCE, TIFF_IFD_TYPE_URATIONAL, 1, "subject distance" },
{ EXIF_IFD_METERING_MODE, TIFF_IFD_TYPE_USHORT, 1, "metering mode" },
{ EXIF_IFD_LIGHT_SOURCE, TIFF_IFD_TYPE_USHORT, 1, "light source" },
{ EXIF_IFD_FLASH, TIFF_IFD_TYPE_USHORT, 1, "flash" },
{ EXIF_IFD_FOCAL_LENGTH, TIFF_IFD_TYPE_URATIONAL, 1, "focal length" },
{ EXIF_IFD_MAKER_NOTE, TIFF_IFD_TYPE_UNDEFINED, -1, "maker note" },
{ EXIF_IFD_USER_COMMENT, TIFF_IFD_TYPE_UNDEFINED, -1, "user comment" },
{ EXIF_IFD_FLASH_PIX_VERSION, TIFF_IFD_TYPE_UNDEFINED, 4, "flash pix version" },
{ EXIF_IFD_COLOR_SPACE, TIFF_IFD_TYPE_USHORT, 1, "color space" },
{ EXIF_IFD_IMAGE_WIDTH, TIFF_IFD_TYPE_ULONG, 1, "EXIF image width" },
{ EXIF_IFD_IMAGE_HEIGHT, TIFF_IFD_TYPE_ULONG, 1, "EXIF image height" },
{ EXIF_IFD_SOUND_FILE, TIFF_IFD_TYPE_URATIONAL, 000, "sound file" },
{ EXIF_IFD_INTEROPE_OFFSET, TIFF_IFD_TYPE_ULONG, 1, "EXIF interoperability offset" },
{ EXIF_IFD_FOCAL_PLANE_XRES, TIFF_IFD_TYPE_URATIONAL, 1, "focal plane x resolution" },
{ EXIF_IFD_FOCAL_PLANE_YRES, TIFF_IFD_TYPE_URATIONAL, 1, "focal plane y resolution" },
{ EXIF_IFD_FOCAL_PLANE_RES_UNIT, TIFF_IFD_TYPE_USHORT, 1, "focal plane res unit" },
{ EXIF_IFD_SENSING_METHOD, TIFF_IFD_TYPE_USHORT, 2, "sensing method" },
{ EXIF_IFD_FILE_SOURCE, TIFF_IFD_TYPE_UNDEFINED, 1, "file source" },
{ EXIF_IFD_SCENE_TYPE, TIFF_IFD_TYPE_UNDEFINED, 1, "scene type" },
/* reserved */
{ EXIF_IFD_EOT, TIFF_IFD_TYPE_UNDEFINED, 0, NULL }
};
struct exif_interope_field exif_interope_fields[]=
{
{ EXIF_INTEROPE_INDEX, TIFF_IFD_TYPE_STRING, 4, "index" },
{ EXIF_INTEROPE_VERSION, TIFF_IFD_TYPE_UNDEFINED, 4, "version" },
{ EXIF_INTEROPE_IMAGE_WIDTH, TIFF_IFD_TYPE_USHORT, 1, "image width" },
{ EXIF_INTEROPE_IMAGE_HEIGHT, TIFF_IFD_TYPE_USHORT, 1, "image height" },
/* reserved */
{ EXIF_INTEROPE_EOT, TIFF_IFD_TYPE_UNDEFINED, 0, NULL }
};
struct exif_location_field exif_location_fields[]=
{
{ EXIF_LOCATION_CONTINENT, TIFF_IFD_TYPE_STRING, -1, "continent" },
{ EXIF_LOCATION_COUNTRY, TIFF_IFD_TYPE_STRING, 2, "country (ISO 3166)" },
{ EXIF_LOCATION_COUNTRY_OTHER, TIFF_IFD_TYPE_STRING, -1, "country/other" },
{ EXIF_LOCATION_REGION, TIFF_IFD_TYPE_STRING, -1, "region" },
{ EXIF_LOCATION_AREA, TIFF_IFD_TYPE_STRING, -1, "area" },
{ EXIF_LOCATION_SUB_AREA, TIFF_IFD_TYPE_STRING, -1, "sub-area" },
{ EXIF_LOCATION_PLACE, TIFF_IFD_TYPE_STRING, -1, "place" },
{ EXIF_LOCATION_PLACE_AREA, TIFF_IFD_TYPE_STRING, -1, "place area" },
{ EXIF_LOCATION_LOCATION, TIFF_IFD_TYPE_STRING, -1, "location" },
{ EXIF_LOCATION_ADDRESS, TIFF_IFD_TYPE_STRING, -1, "address" },
{ EXIF_LOCATION_POSTAL_CODE, TIFF_IFD_TYPE_STRING, -1, "postal code" },
{ EXIF_LOCATION_DESCRIPTION, TIFF_IFD_TYPE_STRING, -1, "description" },
/* reserved */
{ EXIF_LOCATION_EOT, TIFF_IFD_TYPE_UNDEFINED, 0, NULL }
};
struct exif_canon_field exif_canon_fields[]=
{
{ EXIF_CANON_MAKER_NOTE_UNKNOWN1, TIFF_IFD_TYPE_USHORT, 6, "unknown1" },
{ EXIF_CANON_MAKER_NOTE_UNKNOWN2, TIFF_IFD_TYPE_USHORT, 19, "unknown2" },
{ EXIF_CANON_MAKER_NOTE_UNKNOWN3, TIFF_IFD_TYPE_USHORT, 4, "unknown3" },
{ EXIF_CANON_MAKER_NOTE_UNKNOWN4, TIFF_IFD_TYPE_USHORT, 4, "unknown4" },
{ EXIF_CANON_MAKER_NOTE_UNKNOWN5, TIFF_IFD_TYPE_USHORT, 15, "unknown5" },
{ EXIF_CANON_MAKER_NOTE_IMAGE_TYPE, TIFF_IFD_TYPE_STRING, 32, "image type" },
{ EXIF_CANON_MAKER_NOTE_FIRMWARE_VERSION, TIFF_IFD_TYPE_STRING, 24, "firmware version" },
{ EXIF_CANON_MAKER_NOTE_IMAGE_NUMBER, TIFF_IFD_TYPE_ULONG, 1, "image number" },
{ EXIF_CANON_MAKER_NOTE_OWNER_NAME, TIFF_IFD_TYPE_STRING, 32, "owner name" },
{ EXIF_CANON_MAKER_NOTE_UNKNOWN6, TIFF_IFD_TYPE_ULONG, 1, "unknown6" },
/* reserved */
{ EXIF_CANON_EOT, TIFF_IFD_TYPE_UNDEFINED, 0, NULL }
};
struct exif_fuji_field exif_fuji_fields[]=
{
{ EXIF_FUJI_MAKER_NOTE_VERSION, TIFF_IFD_TYPE_UNDEFINED, 4, "version" },
{ EXIF_FUJI_MAKER_NOTE_QUALITY, TIFF_IFD_TYPE_STRING, 8, "quality" },
{ EXIF_FUJI_MAKER_NOTE_SHARPNESS, TIFF_IFD_TYPE_USHORT, 1, "sharpness" },
{ EXIF_FUJI_MAKER_NOTE_WHITE_BALANCE, TIFF_IFD_TYPE_USHORT, 1, "white balance" },
{ EXIF_FUJI_MAKER_NOTE_FLASH_MODE, TIFF_IFD_TYPE_USHORT, 1, "flash mode" },
{ EXIF_FUJI_MAKER_NOTE_FLASH_STRENGTH, TIFF_IFD_TYPE_SRATIONAL, 1, "flash strength" },
{ EXIF_FUJI_MAKER_NOTE_MACRO, TIFF_IFD_TYPE_USHORT, 1, "macro" },
{ EXIF_FUJI_MAKER_NOTE_FOCUS_MODE, TIFF_IFD_TYPE_USHORT, 1, "focus mode" },
{ EXIF_FUJI_MAKER_NOTE_SLOW_SYNC, TIFF_IFD_TYPE_USHORT, 1, "slow sync" },
{ EXIF_FUJI_MAKER_NOTE_PICTURE_MODE, TIFF_IFD_TYPE_USHORT, 1, "picture mode" },
{ EXIF_FUJI_MAKER_NOTE_CONT_TAKE_BRACKET, TIFF_IFD_TYPE_USHORT, 1, "contTake/bracket" },
{ EXIF_FUJI_MAKER_NOTE_UNKNOWN, TIFF_IFD_TYPE_USHORT, 1, "unknown" },
{ EXIF_FUJI_MAKER_NOTE_BLUR_WARNING, TIFF_IFD_TYPE_USHORT, 1, "blur warning" },
{ EXIF_FUJI_MAKER_NOTE_FOCUS_WARNING, TIFF_IFD_TYPE_USHORT, 1, "focus warning" },
{ EXIF_FUJI_MAKER_NOTE_AE_WARNING, TIFF_IFD_TYPE_USHORT, 1, "ae warning" },
/* reserved */
{ EXIF_FUJI_EOT, TIFF_IFD_TYPE_UNDEFINED, 0, NULL }
};
struct exif_nikon_field exif_nikon_fields[]=
{
{ EXIF_NIKON_MAKER_NOTE_UNKNOWN1, TIFF_IFD_TYPE_STRING, 6, "unknown1" },
{ EXIF_NIKON_MAKER_NOTE_UNKNOWN2, TIFF_IFD_TYPE_USHORT, 1, "unknown2" },
{ EXIF_NIKON_MAKER_NOTE_UNKNOWN3, TIFF_IFD_TYPE_USHORT, 1, "unknown3" },
{ EXIF_NIKON_MAKER_NOTE_UNKNOWN4, TIFF_IFD_TYPE_USHORT, 1, "unknown4" },
{ EXIF_NIKON_MAKER_NOTE_UNKNOWN5, TIFF_IFD_TYPE_USHORT, 1, "unknown5" },
{ EXIF_NIKON_MAKER_NOTE_UNKNOWN6, TIFF_IFD_TYPE_USHORT, 1, "unknown6" },
{ EXIF_NIKON_MAKER_NOTE_UNKNOWN7, TIFF_IFD_TYPE_URATIONAL, 1, "unknown7" },
{ EXIF_NIKON_MAKER_NOTE_UNKNOWN8, TIFF_IFD_TYPE_STRING, 20, "unknown8" },
{ EXIF_NIKON_MAKER_NOTE_UNKNOWN9, TIFF_IFD_TYPE_URATIONAL, 1, "unknown9" },
{ EXIF_NIKON_MAKER_NOTE_UNKNOWN10, TIFF_IFD_TYPE_USHORT, 1, "unknown10" },
{ EXIF_NIKON_MAKER_NOTE_DATA_DUMP, TIFF_IFD_TYPE_ULONG, 30, "data dump" },
/* reserved */
{ EXIF_NIKON_EOT, TIFF_IFD_TYPE_UNDEFINED, 0, NULL }
};
struct exif_sanyo_field exif_sanyo_fields[]=
{
{ EXIF_SANYO_MAKER_NOTE_START_OFFSET, TIFF_IFD_TYPE_USHORT, 1, "makernote start offset" },
{ EXIF_SANYO_MAKER_NOTE_JPEG_THUMBNAIL, TIFF_IFD_TYPE_UNDEFINED, -1, "JPEG thumbnail data" },
{ EXIF_SANYO_MAKER_NOTE_SPECIAL_MODE, TIFF_IFD_TYPE_ULONG, 3, "special mode" },
{ EXIF_SANYO_MAKER_NOTE_JPEQ_QUALITY, TIFF_IFD_TYPE_USHORT, 1, "JPEG quality" },
{ EXIF_SANYO_MAKER_NOTE_MACRO, TIFF_IFD_TYPE_USHORT, 1, "macro" },
{ EXIF_SANYO_MAKER_NOTE_UNKNOWN1, TIFF_IFD_TYPE_USHORT, 1, "unknown1" },
{ EXIF_SANYO_MAKER_NOTE_DIGITAL_ZOOM1, TIFF_IFD_TYPE_URATIONAL, 1, "digital zoom (1)" },
{ EXIF_SANYO_MAKER_NOTE_UNKNOWN2, TIFF_IFD_TYPE_URATIONAL, 1, "unknown2" },
{ EXIF_SANYO_MAKER_NOTE_UNKNOWN3, TIFF_IFD_TYPE_USHORT, 6, "unknown3" },
{ EXIF_SANYO_MAKER_NOTE_SOFTWARE_RELEASE, TIFF_IFD_TYPE_STRING, -1, "software release" },
{ EXIF_SANYO_MAKER_NOTE_PICT_INFO, TIFF_IFD_TYPE_STRING, -1, "pict info" },
{ EXIF_SANYO_MAKER_NOTE_CAMERA_ID, TIFF_IFD_TYPE_UNDEFINED, 32, "camera ID" },
{ EXIF_SANYO_MAKER_NOTE_SEQUENTIAL_SHOT_METHOD, TIFF_IFD_TYPE_USHORT, 1, "sequential shot method" },
{ EXIF_SANYO_MAKER_NOTE_WIDE_RANGE, TIFF_IFD_TYPE_USHORT, 1, "wide range" },
{ EXIF_SANYO_MAKER_NOTE_COLOUR_ADJUSTMENT_MODE, TIFF_IFD_TYPE_USHORT, 1, "colour adjustment mode" },
{ EXIF_SANYO_MAKER_NOTE_QUICK_SHOT, TIFF_IFD_TYPE_USHORT, 1, "quick shot" },
{ EXIF_SANYO_MAKER_NOTE_SELF_TIMER, TIFF_IFD_TYPE_USHORT, 1, "self timer" },
{ EXIF_SANYO_MAKER_NOTE_VOICE_MEMO, TIFF_IFD_TYPE_USHORT, 1, "voice memo" },
{ EXIF_SANYO_MAKER_NOTE_RECORD_SHUTTER_RELEASE, TIFF_IFD_TYPE_USHORT, 1, "record shutter release" },
{ EXIF_SANYO_MAKER_NOTE_FLICKER_REDUCE, TIFF_IFD_TYPE_USHORT, 1, "flicker reduce" },
{ EXIF_SANYO_MAKER_NOTE_OPTICAL_ZOOM, TIFF_IFD_TYPE_USHORT, 1, "optical zoom" },
{ EXIF_SANYO_MAKER_NOTE_DIGITAL_ZOOM2, TIFF_IFD_TYPE_USHORT, 1, "digital zoom (2)" },
{ EXIF_SANYO_MAKER_NOTE_LIGHT_SOURCE_SPECIAL, TIFF_IFD_TYPE_USHORT, 1, "light source special" },
{ EXIF_SANYO_MAKER_NOTE_RESAVED, TIFF_IFD_TYPE_USHORT, 1, "resaved" },
{ EXIF_SANYO_MAKER_NOTE_SCENE_SELECT, TIFF_IFD_TYPE_USHORT, 1, "scene select" },
{ EXIF_SANYO_MAKER_NOTE_MANUAL_FOCAL_DISTANCE, TIFF_IFD_TYPE_URATIONAL, 1, "manual focal distance" },
{ EXIF_SANYO_MAKER_NOTE_SEQUENTIAL_SHOT_INTERVAL, TIFF_IFD_TYPE_USHORT, 1, "sequential shot interval" },
{ EXIF_SANYO_MAKER_NOTE_FLASH_MODE, TIFF_IFD_TYPE_USHORT, 1, "flash mode" },
{ EXIF_SANYO_MAKER_NOTE_PRINTIM_FLAGS, TIFF_IFD_TYPE_UNDEFINED, -1, "printIM flags" },
{ EXIF_SANYO_MAKER_NOTE_DATA_DUMP, TIFF_IFD_TYPE_ULONG, -1, "data dump" },
/* reserved */
{ EXIF_SANYO_EOT, TIFF_IFD_TYPE_UNDEFINED, 0, NULL }
};
void exif_parse(unsigned char* buffer, const unsigned int bytes_left, struct parser_result* result)
{
unsigned char* ptr;
unsigned long int written_bytes;
unsigned long int ifd_max;
unsigned short int ifd_number;
long int bytes;
bool ret;
/* exif parsing is still embryonic */
return;
ptr=buffer;
bytes=bytes_left;
written_bytes=0;
ifd_number=0;
ifd_max=0;
ret=true;
debug("Exif parser: %ld byte(s) to parse", bytes);
/* parse Exif header */
if (bytes<15)
{
ret=false;
error("Exif parser: chunk underrun (%ld byte(s) remaining, 15 or more expected)",
bytes);
}
else
{
char exif_marker[5];
/* Exif marker expected */
if (strcmp((char*)getraw(ptr, 0, (unsigned char*)exif_marker, 6),
EXIF_MARKER_STRING)!=0)
{
ret=false;
error("Exif parser: expected marker not matched");
}
else
{
bool little_endian;
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 6);
bytes-=6;
ptr+=6;
/* decode the Image File Header */
if (getlong(ptr, 0)==TIFF_BIG_ENDIAN_MARKER_STRING)
{
little_endian=false;
debug("Exif parser: TIFF (big endian) marker found");
}
else
if (getlong(ptr, 0)==TIFF_LITTLE_ENDIAN_MARKER_STRING)
{
little_endian=true;
debug("Exif parser: TIFF (little endian) marker found");
}
else
{
ret=false;
error("Exif parser: expected TIFF marker not matched");
}
if (ret)
{
unsigned char* base_offset;
unsigned long int offset;
base_offset=ptr;
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 4);
bytes-=4;
ptr+=4;
/* offset of the IFD count value (should be =8) */
offset=getrawlong(ptr, 0);
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 4);
bytes-=4;
ptr+=4;
debug("Exif parser: start offset=%lu (0x%08x)", offset, offset);
if (offset<8)
{
ret=false;
error("Exif parser: unexpected initial IFD%lu offset (got %lu, expected >=8)",
ifd_number, offset);
}
else
{
struct tiff_ifd_entry* ifd_entries;
unsigned long int first_value_offset;
unsigned long int next_ifd_offset;
offset-=8;
if (offset>0)
{
warning("Exif parser: unexpected initial IFD%lu offset (got %lu, expected 8)",
ifd_number, offset);
/* eat the unexpected bytes before first IFD */
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 4);
bytes-=offset;
ptr+=offset;
}
/* IFDs count */
ifd_max=getrawword(ptr, 0);
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 2);
bytes-=2;
ptr+=2;
debug("Exif parser: IFDs=%u (0x%04x)", ifd_max, ifd_max);
if ((long int)(ifd_max*12)>bytes)
error("Exif parser: IFD entries list size inconsistency (expected %lu*%lu=%lu, size is only %lu)",
ifd_max, 12, ifd_max*12, bytes);
/* TODO: allocate space to store all IFD entries so that we can
parse the entries list in a 2nd pass, in order to check IFD values
(this would allow to remove some IFDs and to recalculate all offsets) */
if (ifd_max>0)
{
ifd_entries=malloc(ifd_max*sizeof(struct tiff_ifd_entry));
if (!ifd_entries)
fatal_error("Exif parser: could not allocate space for Exif IFD entries list");
}
else
ifd_entries=NULL;
/* decode the IFDs */
ifd_number=0;
while ((bytes>0) && (ifd_number<ifd_max))
{
if (bytes<12)
{
ret=false;
error("Exif parser: IFD%u entry underrun (%lu byte(s) left, 12 expected)",
ifd_number, bytes, 12);
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, bytes);
bytes=0;
ptr+=bytes;
break;
}
ifd_entries[ifd_number].tag=getrawword(ptr, 0);
ifd_entries[ifd_number].type=getrawword(ptr, 2);
ifd_entries[ifd_number].count=getrawlong(ptr, 4);
ifd_entries[ifd_number].value_offset=getrawlong(ptr, 8);
if (!exif_match_tag(ifd_entries[ifd_number].tag))
warning("Exif parser: unknown Exif tag 0x%04x",
ifd_entries[ifd_number].tag);
else
debug("Exif parser: IFD%u found (tag=0x%02x, type=%u, count=%lu)",
ifd_number,
ifd_entries[ifd_number].tag,
ifd_entries[ifd_number].type,
ifd_entries[ifd_number].count);
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 12);
bytes-=12;
ptr+=12;
ifd_number++;
}
/* offset to the next IFD if any (otherwise =0) */
next_ifd_offset=getrawlong(ptr, 0);
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 4);
bytes-=4;
ptr+=4;
debug("Exif parser: next IFD offset is %lu (0 means none)",
next_ifd_offset);
/* skip+rewrite values, determine if there are gaps between values
or between the 1st value and the IFD entries list */
first_value_offset=0;
ifd_number=0;
while ((bytes>0) && (ifd_number<ifd_max))
{
unsigned long int size;
size=get_ifd_type_size(ifd_entries[ifd_number].type)
*ifd_entries[ifd_number].count;
if (size>4)
{
info("Exif parser: outline value for IFD%u (size=%lu byte(s))",
ifd_number, size);
/* currently matching the first outline value? */
if (first_value_offset==0)
{
unsigned long int gap_size;
/* check if there is a gap before the first outline value (rewrite it
if necessary */
gap_size=(base_offset+ifd_entries[ifd_number].value_offset)-ptr;
if (gap_size)
{
warning("Exif parser: there's a gap of %lu byte(s) before the first outline value from IFD%u",
gap_size, ifd_number);
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, gap_size);
bytes-=gap_size;
ptr+=gap_size;
}
}
else
{
/* TODO: check if there is a gap before the next outline value
(rewrite it if necessary */
}
first_value_offset=ifd_entries[ifd_number].value_offset;
/* TODO: dump/dump-full */
bytes+=size;
ptr+=size;
}
else
{
info("Exif parser: inline value for IFD%u (size=%lu byte(s))",
ifd_number, size);
/* TODO: make switch for Exif-specific IFDs (pointers)
and parse the nested chunks */
/* TODO: dump/dump-full */
}
ifd_number++;
}
if (bytes<0)
{
ret=false;
error("Exif parser: dataset underrun (overflow of %lu byte(s))",
abs(bytes));
}
free(ifd_entries);
}
}
}
}
debug("Exif parser: %u dataset(s) inspected, total length: %lu byte(s)",
ifd_max, bytes_left-bytes);
if (prefs.rewrite)
debug("Exif parser: %lu byte(s) rewritten", written_bytes);
result->parsed_bytes=bytes_left-bytes;
result->written_bytes=written_bytes;
result->ret=ret;
}
struct exif_ifd_field* exif_match_tag(const int tag)
{
register unsigned int i;
i=0;
while (exif_ifd_fields[i].tag!=EXIF_IFD_EOT)
{
if (exif_ifd_fields[i].tag==tag)
return(&exif_ifd_fields[i]);
i++;
}
return(NULL);
}
void exif_dump_list(void)
{
}
unsigned int get_ifd_type_size(const enum TIFF_TYPE type)
{
register unsigned int i;
i=0;
while (tiff_ifd_type_sizes[i].type!=TIFF_IFD_TYPE_UNKNOWN)
{
if (tiff_ifd_type_sizes[i].type==type)
return(tiff_ifd_type_sizes[i].size);
i++;
}
return(0);
}
pecomato-0.0.15/gnu-getline.c 0000644 0001752 0001752 00000004474 10677223051 014766 0 ustar devel devel #include "util.h"
/* GNU Mailutils -- a suite of utilities for electronic mail
Copyright (C) 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */
/* First implementation by Alain Magloire */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
ssize_t
getline (char **lineptr, size_t *n, FILE *stream)
{
return getdelim (lineptr, n, '\n', stream);
}
/* Default value for line length. */
static const int line_size = 128;
ssize_t
getdelim (char **lineptr, size_t *n, int delim, FILE *stream)
{
int indx = 0;
int c;
/* Sanity checks. */
if (lineptr == NULL || n == NULL || stream == NULL)
return -1;
/* Allocate the line the first time. */
if (*lineptr == NULL)
{
*lineptr = malloc (line_size);
if (*lineptr == NULL)
return -1;
*n = line_size;
}
while ((c = getc (stream)) != EOF)
{
/* Check if more memory is needed. */
if (indx >= *n)
{
*lineptr = realloc (*lineptr, *n + line_size);
if (*lineptr == NULL)
return -1;
*n += line_size;
}
/* Push the result in the line. */
(*lineptr)[indx++] = c;
/* Bail out. */
if (c == delim)
break;
}
/* Make room for the null character. */
if (indx >= *n)
{
*lineptr = realloc (*lineptr, *n + line_size);
if (*lineptr == NULL)
return -1;
*n += line_size;
}
/* Null terminate the buffer. */
(*lineptr)[indx++] = 0;
/* The last line may not have the delimiter, we have to
* return what we got and the error will be seen on the
* next iteration. */
return (c == EOF && (indx - 1) == 0) ? -1 : indx - 1;
}
pecomato-0.0.15/gnu-mkstemp.c 0000644 0001752 0001752 00000004200 10677223051 015002 0 ustar devel devel #include "util.h"
/* Copyright (C) 1991, 1992, 1995, 1996 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
The GNU C Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with the GNU C Library; see the file COPYING.LIB. If not,
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <stdio.h>
#include <io.h>
#include <fcntl.h>
#include <process.h> /* For spawning child process */
#ifndef __set_errno
#define __set_errno(x) errno=(x)
#endif
/* Generate a unique temporary file name from TEMPLATE.
The last six characters of TEMPLATE must be "XXXXXX";
they are replaced with a string that makes the filename unique.
Returns a file descriptor open on the file for reading and writing. */
int
mkstemp (template)
char *template;
{
static const char letters[]
= "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
size_t len;
size_t i;
len = strlen (template);
if (len < 6 || strcmp (&template[len - 6], "XXXXXX"))
{
__set_errno (EINVAL);
return -1;
}
if (sprintf (&template[len - 5], "%.5u",
(unsigned int) getpid () % 100000) != 5)
/* Inconceivable lossage. */
return -1;
for (i = 0; i < sizeof (letters); ++i)
{
int fd;
template[len - 6] = letters[i];
fd = open (template, O_RDWR|O_BINARY|O_CREAT|O_EXCL, 0600);
if (fd >= 0)
return fd;
}
/* We return the null string if we can't find a unique file name. */
template[0] = '\0';
return -1;
}
pecomato-0.0.15/gnu-strcasecmp.c 0000644 0001752 0001752 00000004156 10677223051 015500 0 ustar devel devel #include "util.h"
/* Copyright (C) 1991, 1992, 1995, 1996 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
The GNU C Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with the GNU C Library; see the file COPYING.LIB. If not,
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */#include <string.h>
#include <ctype.h>
/* Compare S1 and S2, ignoring case, returning less than, equal to or
greater than zero if S1 is lexicographically less than,
equal to or greater than S2. */
int
strcasecmp (const char *s1, const char *s2)
{
register const unsigned char *p1 = (const unsigned char *) s1;
register const unsigned char *p2 = (const unsigned char *) s2;
unsigned char c1, c2;
if (p1 == p2)
return 0;
do
{
c1 = tolower (*p1++);
c2 = tolower (*p2++);
if (c1 == '\0')
break;
}
while (c1 == c2);
return c1 - c2;
}
#include <string.h>
#include <ctype.h>
/* Compare no more than N characters of S1 and S2,
ignoring case, returning less than, equal to or
greater than zero if S1 is lexicographically less
than, equal to or greater than S2. */
int
strncasecmp (const char *s1, const char *s2, size_t n)
{
register const unsigned char *p1 = (const unsigned char *) s1;
register const unsigned char *p2 = (const unsigned char *) s2;
unsigned char c1, c2;
if (p1 == p2 || n == 0)
return 0;
do
{
c1 = tolower (*p1++);
c2 = tolower (*p2++);
if (c1 == '\0' || c1 != c2)
return c1 - c2;
} while (--n > 0);
return c1 - c2;
}
pecomato-0.0.15/gnu-strndup.c 0000644 0001752 0001752 00000003121 10677223051 015022 0 ustar devel devel #include "util.h"
/* Copyright (C) 1991, 1992, 1995, 1996 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
The GNU C Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with the GNU C Library; see the file COPYING.LIB. If not,
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
#include <stdio.h>
#include <sys/types.h>
#if defined _LIBC || defined STDC_HEADERS || defined __STDC__
#include <stdlib.h>
#include <string.h>
#else
char *malloc ();
#endif
char *
strndup (const char *s, size_t n)
{
size_t len = strnlen (s, n);
char *ns = malloc (len + 1);
if (ns == NULL)
return NULL;
ns[len] = '\0';
return (char *) memcpy (ns, s, len);
}
#include <string.h>
/* Find the length of STRING, but scan at most MAXLEN characters.
If no '\0' terminator is found in that many characters, return MAXLEN. */
size_t
strnlen (const char *string, size_t maxlen)
{
const char *end = memchr (string, '\0', maxlen);
return end ? (size_t) (end - string) : maxlen;
}
pecomato-0.0.15/iptc.c 0000644 0001752 0001752 00000126774 10677223051 013517 0 ustar devel devel #include "iptc.h"
#include <stdlib.h>
#include <string.h>
extern struct prefs_struct prefs;
extern unsigned char* rewrite_cache;
extern unsigned long int rewrite_cache_offset;
/* TODO: document the IPTC codes with a leading empty comment below (they are non-IIM 4.1) */
struct iptc_code_descr iptc_codes_descr[]=
{
/* IPTC IIM 4.1 */
/* envelope record */
{ IPTC_MODEL_VERSION, IPTC_DATASET_SPECIFIC, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "model version" },
{ IPTC_DESTINATION, IPTC_DATASET_BINARY, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 1024, "destination" },
{ IPTC_FILE_FORMAT, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "file format" },
{ IPTC_FILE_FORMAT_VERSION, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "file format version" },
{ IPTC_SERVICE_ID, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 10, "service ID" },
{ IPTC_ENVELOPE_NUMBER, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 8, "envelope number" },
{ IPTC_PRODUCT_ID, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 32, "product ID" },
{ IPTC_ENVELOPE_PRIORITY, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 1, "envelope priority" },
{ IPTC_DATE_SENT, IPTC_DATASET_DATE, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 8, "date sent" },
{ IPTC_TIME_SENT, IPTC_DATASET_TIME, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 11, "time sent" },
{ IPTC_CODED_CHARACTER_SET, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 32, "character set" },
{ IPTC_UNO, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 80, "unique name of object" },
{ IPTC_ARM_ID, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "abstract relationship method ID" },
{ IPTC_ARM_VERSION, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "abstract relationship method version" },
/* application record */
{ IPTC_APP_RECORD_VERSION, IPTC_DATASET_SPECIFIC, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "record version" },
{ IPTC_APP_OBJECT_TYPE_REFERENCE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 67, "object type reference" },
{ IPTC_APP_OBJECT_ATTRIBUTE_REFERENCE, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 68, "object attribute reference" },
{ IPTC_APP_OBJECT_NAME, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 64, "object name (title)" },
{ IPTC_APP_EDIT_STATUS, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 64, "edit status" },
{ IPTC_APP_EDITORIAL_UPDATE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "editorial update" },
{ IPTC_APP_URGENCY, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 1, "urgency" },
{ IPTC_APP_SUBJECT_REFERENCE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 236, "subject reference" },
{ IPTC_APP_CATEGORY, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 3, "category" },
/**/{ IPTC_APP_CATEGORY_DESCRIPTION, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 0, "category description" },
{ IPTC_APP_SUPPLEMENTAL_CATEGORY, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 32, "supplemental category" },
/**/{ IPTC_APP_CATEGORY_CODE, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 0, "category code" },
{ IPTC_APP_FIXTURE_IDENTIFIER, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 32, "fixture identifier" },
/**/{ IPTC_APP_NUM, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 0, "num" },
{ IPTC_APP_KEYWORDS, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 64, "keywords" },
{ IPTC_APP_CONTENT_LOCATION_CODE, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_FIXED, 3, "content location code" },
{ IPTC_APP_CONTENT_LOCATION_NAME, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 64, "content location name" },
{ IPTC_APP_RELEASE_DATE, IPTC_DATASET_DATE, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 8, "release date" },
{ IPTC_APP_RELEASE_TIME, IPTC_DATASET_TIME, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 11, "release time" },
{ IPTC_APP_EXPIRATION_DATE, IPTC_DATASET_DATE, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 8, "expiration date" },
{ IPTC_APP_EXPIRATION_TIME, IPTC_DATASET_TIME, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 1, "expiration time" },
{ IPTC_APP_SPECIAL_INSTRUCTIONS, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 256, "special instructions" },
{ IPTC_APP_ACTION_ADVISED, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "action advised" },
{ IPTC_APP_REFERENCE_SERVICE, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 10, "reference service" },
{ IPTC_APP_REFERENCE_DATE, IPTC_DATASET_DATE, IPTC_DATASET_REPEATABLE, IPTC_DATASET_FIXED, 8, "reference date" },
{ IPTC_APP_REFERENCE_NUMBER, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 8, "reference number" },
{ IPTC_APP_DATE_CREATED, IPTC_DATASET_DATE, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 8, "date created" },
/**/{ IPTC_APP_ARCHIVE_DATE, IPTC_DATASET_DATE, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 8, "archive date" },
{ IPTC_APP_TIME_CREATED, IPTC_DATASET_TIME, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 11, "time created" },
{ IPTC_APP_DIGITAL_CREATION_DATE, IPTC_DATASET_DATE, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 8, "digital creation date" },
{ IPTC_APP_DIGITAL_CREATION_TIME, IPTC_DATASET_TIME, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 11, "digital creation time" },
{ IPTC_APP_ORIGINATING_PROGRAM, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 32, "originating program" },
{ IPTC_APP_PROGRAM_VERSION, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 10, "program version" },
{ IPTC_APP_OBJECT_CYCLE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 1, "object cycle" },
{ IPTC_APP_BYLINE, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 32, "byline (author)" },
{ IPTC_APP_BYLINE_TITLE, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 32, "byline title (author position)" },
/**/{ IPTC_APP_TITLE_ORIGINAL, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 0, "title original" },
/**/{ IPTC_APP_PRODUCTOR, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 0, "productor" },
/**/{ IPTC_APP_ACTOR, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 0, "actor" },
{ IPTC_APP_CITY, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 32, "city" },
{ IPTC_APP_SUBLOCATION, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 32, "sub-location" },
{ IPTC_APP_PROVINCE_STATE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 32, "state/province" },
{ IPTC_APP_COUNTRY_CODE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 3, "country/primary location code" },
{ IPTC_APP_COUNTRY, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 64, "country/primary location name" },
{ IPTC_APP_ORIGINAL_TRANSMISSION_REFERENCE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 32, "original transmission reference" },
{ IPTC_APP_HEADLINE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 256, "headline" },
{ IPTC_APP_CREDIT, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 32, "credit" },
/**/{ IPTC_APP_PHOTOGRAPHER_NUMBER, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 0, "photographer number" },
{ IPTC_APP_SOURCE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 32, "source" },
{ IPTC_APP_COPYRIGHT_NOTICE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 128, "copyright notice" },
{ IPTC_APP_CONTACT, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 128, "contact" },
{ IPTC_APP_CAPTION_ABSTRACT, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 2000, "caption/abstract" },
/**/{ IPTC_APP_PHOTOGRAPH_NUMBER, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 0, "photograph number" },
{ IPTC_APP_WRITER_EDITOR, IPTC_DATASET_TEXT, IPTC_DATASET_REPEATABLE, IPTC_DATASET_MAX, 32, "writer/editor" },
/**/{ IPTC_APP_SERIAL_NUMBER, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 0, "serial number" },
{ IPTC_APP_RASTERIZED_CAPTION, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 7360, "rasterized caption" },
{ IPTC_APP_IMAGE_TYPE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "image type" },
{ IPTC_APP_IMAGE_ORIENTATION, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 1, "image orientation" },
/**/{ IPTC_APP_REFERENCE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 0, "reference" },
{ IPTC_APP_LANGUAGE_IDENTIFIER, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 3, "language identifier" },
{ IPTC_APP_AUDIO_TYPE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "audio type" },
{ IPTC_APP_AUDIO_SAMPLING_RATE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 6, "audio sampling rate" },
{ IPTC_APP_AUDIO_SAMPLING_RESOLUTION, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "audio sampling resolution" },
{ IPTC_APP_AUDIO_DURATION, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 6, "audio duration" },
{ IPTC_APP_AUDIO_OUTCUE, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 64, "audio outcue" },
{ IPTC_APP_OBJECTDATA_PREVIEW_FILE_FORMAT, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "objectdata preview file format" },
{ IPTC_APP_OBJECTDATA_PREVIEW_FILE_FORMAT_VERSION, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "objectdata preview file format version" },
{ IPTC_APP_OBJECTDATA_PREVIEW_PREVIEW_DATA, IPTC_DATASET_TEXT, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 256000, "objectdata preview data" },
/* newsphoto */
{ IPTC_NP_RECORD_VERSION, IPTC_DATASET_SPECIFIC, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "record version" },
{ IPTC_NP_PICTURE_NUMBER, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 16, "picture numver" },
{ IPTC_NP_PIXELS_PER_LINE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "pixels per line" },
{ IPTC_NP_NUMBER_OF_LINES, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "number of lines" },
{ IPTC_NP_PIXEL_SIZE_IN_SCANNING_DIRECTION, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "pixel size in scanning direction" },
{ IPTC_NP_PIXEL_SIZE_PERPENDICULAR_TO_SCANNING_DIRECTION, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "pixel size perpendicular to scanning direction" },
{ IPTC_NP_SUPPLEMENTARY_TYPE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 1, "supplementary type" },
{ IPTC_NP_COLOUR_REPRESENTATION, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "colour representation" },
{ IPTC_NP_INTERCHANGE_COLOUR_SPACE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 1, "inter-change colour space" },
{ IPTC_NP_COLOUR_SEQUENCE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 4, "colour sequence" },
{ IPTC_NP_ICC_INPUT_COLOUR_PROFILE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 524288, "ICC input colour profile" },
{ IPTC_NP_COLOUR_CALIBRATION_MATRIX_TABLE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 0xffff, "colour calibration matrix table" },
{ IPTC_NP_LOOKUP_TABLE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 131072, "lookup table" },
{ IPTC_NP_NUMBER_OF_INDEX_ENTRIES, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 2, "number of index entries" },
{ IPTC_NP_COLOUR_PALETTE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 524288, "colour palette" },
{ IPTC_NP_NUMBER_OF_BITS_PER_SAMPLE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 1, "number of bits per sample" },
{ IPTC_NP_SAMPLING_STRUCTURE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 1, "sampling structure" },
{ IPTC_NP_SCANNING_DIRECTION, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 1, "scanning direction" },
{ IPTC_NP_IMAGE_ROTATION, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 1, "image rotation" },
{ IPTC_NP_DATA_COMPRESSION_METHOD, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 4, "data compression method" },
{ IPTC_NP_QUANTISATION_METHOD, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 1, "quantisation method" },
{ IPTC_NP_END_POINTS, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 0xffff, "end points" },
{ IPTC_NP_EXCURSION_TOLERANCE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 1, "excursion tolerance" },
{ IPTC_NP_BITS_PER_COMPONENT, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 4, "bits per component" },
{ IPTC_NP_MAXIMUM_DENSITY_RANGE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "maximum density range" },
{ IPTC_NP_GAMMA_COMPENSATED_VALUE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 2, "gamma compensated value" },
/* pre-objectdata descriptor record */
{ IPTC_PRODD_SIZE_MODE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_FIXED, 1, "size mode" },
{ IPTC_PRODD_MAX_SUBFILE_SIZE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 4, "max subfile size" },
{ IPTC_PRODD_OBJECTDATA_SIZE_ANNOUNCED, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 4, "objectdata size announced" },
{ IPTC_PRODD_MAXIMAL_OBJECTDATA_SIZE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 4, "maximal objectdata size" },
/* objectdata descriptor record */
/* here the 0x7fffffff limit (max size of long signed int) is the effective limit (not because undocumented) */
{ IPTC_ODD_SUBFILE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 0x7fffffff, "subfile" },
/* post-objectdata descriptor record */
{ IPTC_POODD_CONFIRMED_OBJECT_SIZE, IPTC_DATASET_BINARY, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 4, "confirmed object size" },
/* reserved */
{ IPTC_EOT, IPTC_DATASET_UNKNOWN, IPTC_DATASET_UNIQUE, IPTC_DATASET_MAX, 0, NULL }
};
struct iptc_filter_match_data** iptc_filter_table=NULL;
unsigned short int iptc_filter_table_size=0;
unsigned short int iptc_filter_table_inc_size=0;
unsigned short int iptc_filter_table_filters=0;
unsigned char* iptc_extract_buffer;
unsigned long int iptc_extract_buffer_size;
struct iptc_edit_list_cell* iptc_edit_list=NULL;
unsigned short int iptc_edit_list_edits=0;
/* IPTC-NAA IM4.1 */
/* attempts to recognize all IPTC codes, and display data of known ones */
void iptc_parse(unsigned char* buffer, const long int bytes_left, const bool iptc_expected,
struct parser_result* result)
{
struct iptc_code_descr* code_descr;
unsigned short int* iptc_datasets_history;
unsigned char* ptr;
unsigned char* value;
unsigned long int size;
unsigned long int written_bytes;
unsigned long int iptc_datasets;
long int missing;
long int bytes;
unsigned short int code;
long int length;
unsigned short int extended_length;
unsigned char record;
unsigned char last_record;
unsigned char tag;
bool ret;
bool saw_warning_missing_record_version[256];
bool saw_warning_duplicate_record_version[256];
iptc_datasets=0;
ptr=buffer;
bytes=bytes_left;
written_bytes=0;
missing=0;
ret=true;
debug("IPTC parser: %ld byte(s) to parse", bytes);
/* reset table of encountered datasets (to manage repeatable ones) */
if (prefs.technical || (prefs.rewrite && (prefs.filter_mode&FILTER_EDIT)))
{
/* limit count to 65535 per-record occurrences */
size=0x10000UL*sizeof(unsigned short int);
iptc_datasets_history=malloc(size);
if (!iptc_datasets_history)
fatal_error("IPTC parser: could not allocate dataset history buffer");
memset(iptc_datasets_history, 0, size);
}
else
iptc_datasets_history=NULL;
memset(saw_warning_missing_record_version, false, 256*sizeof(bool));
memset(saw_warning_duplicate_record_version, false, 256*sizeof(bool));
/* records must be encountered following a numerical value order */
last_record=0;
while (bytes>0)
{
if (bytes<5)
{
ret=false;
error("IPTC parser: record underrun (%ld byte(s) remaining, 5 or more expected)",
bytes);
break;
}
/* IPTC tag marker expected */
tag=getbyte(ptr, 0);
if ((tag!=IPTC_MARKER) && iptc_expected)
{
ret=false;
error("IPTC parser: expected tag marker not matched");
break;
}
/* IPTC code (record number + code_descr number) expected */
record=getbyte(ptr, 1);
if (prefs.technical && (record==0))
warning("IPTC parser: invalid record number 0");
/* check if records are encountered following a numerical value order */
if (prefs.technical && (record<last_record))
warning("IPTC parser: invalid record order (got 0x%02xxx, last one was 0x%02xxx)",
record, last_record);
last_record=record;
code=(record<<8)|getbyte(ptr, 2);
code_descr=iptc_match_code((const enum IPTC_CODE)code);
if (!code_descr)
warning("IPTC parser: unknown IPTC code 0x%04x", code);
else
{
debug("IPTC parser: code 0x%04x (%s)", code, code_descr->label);
/* update datasets history, check if this dataset occurrence is expected */
if ( prefs.technical
&& (code_descr->repeatable==IPTC_DATASET_UNIQUE)
&& iptc_datasets_history[code])
error("IPTC parser: dataset not repeatable but already found %u time(s), this new one should be ignored",
iptc_datasets_history[code]);
}
if (prefs.technical)
{
if ((code&0x00ff)==0)
{
/* is it a duplicate record version code? */
if ( !saw_warning_duplicate_record_version[record]
&& (iptc_datasets_history[code]>0))
{
saw_warning_duplicate_record_version[record]=true;
warning("IPTC parser: more than one record version found (code: 0x%04x)",
code);
}
}
else
{
/* did we meet a record version code for this record type yet? */
if ( !saw_warning_missing_record_version[record]
&& (iptc_datasets_history[code&0xff00]==0))
{
saw_warning_missing_record_version[record]=true;
warning("IPTC parser: no record version found yet for code 0x%04x (expected code: 0x%04x)",
code, code&0xff00);
}
}
}
if (prefs.technical || (prefs.rewrite && (prefs.filter_mode&FILTER_EDIT)))
iptc_stats_table_inc(code, iptc_datasets_history);
iptc_datasets++;
/* IPTC dataset length */
length=getword(ptr, 3);
/* extended dataset */
if (length>0x7fff)
{
extended_length=length&0x7fff;
switch (extended_length)
{
case 1:
length=getbyte(ptr, 3+2);
break;
case 2:
length=getword(ptr, 3+2);
break;
case 4:
length=getlong(ptr, 3+2);
break;
default:
/* TODO: manage extended datasets where extended_length is not 1, 2 or 4 */
error("IPTC parser: extended dataset found with an unsupported length: %u",
extended_length);
}
}
else
extended_length=0;
/* warn if length doesn't match the expected one */
if (prefs.technical && code_descr)
{
if (code_descr->fixed_length)
{
if (length!=code_descr->length)
warning("IPTC parser: dataset 0x%04x: length (%lu byte(s)) doesn't match the expected length (%lu byte(s))",
code, length, code_descr->length);
}
else
if ((code_descr->length>0) && (length>code_descr->length))
warning("IPTC parser: dataset 0x%04x: length (%lu byte(s)) exceeds the expected max length (%lu byte(s))",
code, length, code_descr->length);
}
/* dump dataset header */
if ((prefs.op==OP_DUMP) || (prefs.op==OP_DUMP_FULL))
{
printf("IPTC ");
#ifdef IPTC_SHOW_NUMERICAL_ID
printf("%d:%03d", (code&0xff00U)>>8, code&0xffU);
#else
printf("0x%04x", code);
#endif
printf(" %s", code_descr?code_descr->label:"<unknown dataset>");
}
/* IPTC dataset value */
missing=bytes-(1+2+2+extended_length+length);
if (missing<0)
{
message(prefs.fix?SEV_WARNING:SEV_ERROR, "IPTC parser: dataset 0x%04x: underrun (%ld byte(s) left, %ld expected)%s",
code, bytes, 1+2+2+extended_length+length, prefs.fix?" - about to be fixed":"");
if (prefs.fix)
{
missing=abs(missing);
prefs.context_fixes++;
prefs.fixes++;
}
else
{
/* don't fix missing bytes, report an error */
missing=0;
ret=false;
}
if (bytes==0)
{
if ((prefs.op==OP_DUMP) || (prefs.op==OP_DUMP_FULL))
printf("\n");
break;
}
/* show remaining bytes even if dataset seems corrupted */
length=bytes;
length-=1+2+2+extended_length;
}
else
missing=0;
value=malloc((length+missing+1)*sizeof(unsigned char));
if (!value)
{
if ((prefs.op==OP_DUMP) || (prefs.op==OP_DUMP_FULL))
printf("\n");
fatal_error("IPTC parser: malloc(%lu) for dataset 0x%04x",
(length+1)*sizeof(unsigned char), code);
}
memcpy(value, ptr+1+2+2+extended_length, length);
/* are there missing bytes to fix? */
if (missing)
/* if so, fill them with 0 */
memset(value+(length*sizeof(unsigned char)), 0xBA,
missing*sizeof(unsigned char));
/* if the value is a string, it will be possible to use its value
as a 0-terminated string */
value[length+missing]=0;
/* filter edit: insertion of chunks whose code is lesser than current code */
if (prefs.rewrite && (prefs.filter_mode&FILTER_EDIT))
written_bytes+=iptc_edit_insert_chunks(false, code, iptc_datasets_history);
/* conditional rewrite of the full dataset (incl. tag and header)
in include/exclude filter mode or in filter edit mode if the current
code has to be overwritten with a chunk in edit table */
if (prefs.rewrite)
{
if (iptc_filter_match(code))
{
written_bytes+=dump_rewrite(ptr, MIN(1+2+2+extended_length+length, bytes));
if (missing>0)
{
debug("IPTC parser: writing %ld byte(s) to fix the underrun",
missing);
written_bytes+=dump_rewrite(ptr+1+2+2+length, missing);
}
}
else
{
/* not writing this record */
if (prefs.filter_mode&FILTER_EDIT)
/* update the IPTC code stats table (or filter edits will get tricked) */
iptc_stats_table_dec(code, iptc_datasets_history);
}
}
/* skip dataset (incl. tag and header) */
ptr+=1+2+2+length;
bytes-=1+2+2+length;
/* dump full dataset values */
if (prefs.op==OP_DUMP_FULL)
{
printf(" ");
iptc_dump_value(code, code_descr, value, length, true, true);
}
else
if (prefs.op==OP_DUMP_VALUE)
{
if (iptc_filter_match(code))
{
debug("IPTC parser: matching IPTC code 0x%04x", code);
iptc_dump_value(code, code_descr, value, length, false, false);
}
}
else
if (prefs.op==OP_DUMP)
printf("\n");
free(value);
value=NULL;
}
/* filter edit: insertion of remaining chunks */
if (prefs.rewrite && (prefs.filter_mode&FILTER_EDIT))
written_bytes+=iptc_edit_insert_chunks(true, 0, iptc_datasets_history);
if (prefs.technical)
{
/* a posteriori check if record version code has been found when it should have been */
/*
unsigned short int record_type;
for (record_type=0x0100;
record_type<=0x0300;
record_type+=0x0100)
{
if (iptc_datasets_history[record_type]==0)
{
register unsigned short int dataset;
for (dataset=1; dataset<=0xff; dataset++)
if (iptc_datasets_history[record_type+dataset]>0)
{
warning("IPTC parser: no record version code found at all for record type 0x%02x",
record_type>>8);
break;
}
}
}
*/
register unsigned short int record_type;
for (record_type=0x01; record_type<=0xff; record_type++)
if (saw_warning_missing_record_version[record_type])
warning("IPTC parser: no record version code found at all for record type 0x%02xxx",
record_type);
}
if (prefs.technical || (prefs.rewrite && (prefs.filter_mode&FILTER_EDIT)))
{
free(iptc_datasets_history);
iptc_datasets_history=NULL;
}
debug("IPTC parser: %u dataset(s) found, total length: %lu byte(s)",
iptc_datasets, bytes_left-bytes);
if (prefs.rewrite)
debug("IPTC parser: %lu byte(s) rewritten", written_bytes);
result->parsed_bytes=bytes_left-bytes;
result->written_bytes=written_bytes;
result->ret=ret;
if (prefs.extract_iptc)
{
if (missing>0)
{
if (!prefs.fix)
error("IPTC parser: unexpected state: fixing not enabled but there are %ld byte(s) marked for fixing (extraction)",
missing);
else
debug("IPTC parser: there are %ld byte(s) marked for fixing (extraction)",
missing);
}
if (prefs.rewrite_cached)
{
/* copy cached rewritten ITPC chunk for later saving */
iptc_extract_buffer_size=result->written_bytes;
iptc_extract_buffer=(unsigned char*)malloc(iptc_extract_buffer_size*sizeof(unsigned char));
if (!iptc_extract_buffer)
fatal_error("IPTC parser: couldn't allocate space for IPTC extract buffer");
memcpy(iptc_extract_buffer,
rewrite_cache+(rewrite_cache_offset-iptc_extract_buffer_size),
iptc_extract_buffer_size);
debug("IPTC parser: IPTC chunk extraction prepared from write cache: %lu bytes(s)",
iptc_extract_buffer_size);
}
else
{
/* copy ITPC chunk from input flow for later saving */
iptc_extract_buffer_size=result->parsed_bytes+missing;
iptc_extract_buffer=(unsigned char*)malloc(iptc_extract_buffer_size*sizeof(unsigned char));
if (!iptc_extract_buffer)
fatal_error("IPTC parser: couldn't allocate space for IPTC extract buffer");
memcpy(iptc_extract_buffer, buffer, iptc_extract_buffer_size);
debug("IPTC parser: IPTC chunk extraction prepared from input flow: %lu bytes(s)",
iptc_extract_buffer_size);
}
}
}
void iptc_stats_table_inc(unsigned int code, unsigned short int* iptc_datasets_history)
{
/* update the IPTC code stats table */
if (iptc_datasets_history[code]==0xffff)
error("iptc_stats_table_inc: datasets history overflow (0x%04x)", code);
else
iptc_datasets_history[code]++;
}
void iptc_stats_table_dec(unsigned int code, unsigned short int* iptc_datasets_history)
{
/* update the IPTC code stats table */
if (iptc_datasets_history[code]==0)
error("iptc_stats_table_inc: datasets history underflow (0x%04x)", code);
else
iptc_datasets_history[code]--;
}
struct iptc_code_descr* iptc_match_code(const enum IPTC_CODE code)
{
register unsigned int i;
i=0;
while (iptc_codes_descr[i].code!=IPTC_EOT)
{
if (iptc_codes_descr[i].code==code)
return(&iptc_codes_descr[i]);
i++;
}
return(NULL);
}
void iptc_dump_value(unsigned short int code, struct iptc_code_descr* code_descr, unsigned char* value,
unsigned short int length, bool dump_length, bool manage_newline)
{
if (!code_descr)
dump_hexa(value, length);
else
{
/* dataset value formatting */
switch (code_descr->format)
{
case IPTC_DATASET_UNKNOWN:
case IPTC_DATASET_BINARY:
dump_hexa(value, length);
break;
case IPTC_DATASET_TEXT:
if (dump_length)
printf("[%u byte(s)]: '%s'\n", length, value);
else
printf("%s\n", (char*)value);
break;
case IPTC_DATASET_DATE:
/* TODO: decode and use a date format instead */
if (dump_length)
printf("[%u byte(s)]: '%s'\n", length, value);
else
printf("%s\n", (char*)value);
break;
case IPTC_DATASET_TIME:
/* TODO: decode and use a time format instead */
if (dump_length)
printf("[%u byte(s)]: '%s'\n", length, value);
else
printf("%s\n", (char*)value);
break;
case IPTC_DATASET_NUMERICAL:
if (length==1)
{
if (dump_length)
printf("[%u byte(s)]: %d\n", length, (char)getbyte(value, 0));
else
printf("%d\n", (char)getbyte(value, 0));
}
else
if (length==2)
{
if (dump_length)
printf("[%u byte(s)]: %d\n", length, (short int)getword(value, 0));
else
printf("%d\n", (short int)getword(value, 0));
}
else
if (length==4)
{
if (dump_length)
printf("[%u byte(s)]: %ld\n", length, (long int)getlong(value, 0));
else
printf("%ld\n", (long int)getlong(value, 0));
}
else
{
if (manage_newline)
printf("\n");
warning("IPTC parser: dataset 0x%04x: don't know how to print numerical value (%u byte(s))\n",
code, length);
}
break;
case IPTC_DATASET_SPECIFIC:
switch ((enum IPTC_CODE)code)
{
case IPTC_APP_RECORD_VERSION:
{
if (dump_length)
printf("[%d byte(s)]: %d.%d\n", length,
getbyte(value, 1), getbyte(value, 0));
else
printf("%d.%d\n", getbyte(value, 1), getbyte(value, 0));
break;
}
default:
if (manage_newline)
printf("\n");
warning("IPTC parser: dataset 0x%04x: don't know how to print specific value (%u byte(s))\n",
code, length);
break;
}
break;
default:
break;
}
}
}
void iptc_dump_list(void)
{
int i;
printf("== IPTC datasets ==\n");
printf("code description\n");
for (i=0; iptc_codes_descr[i].code!=IPTC_EOT; i++)
{
#ifdef IPTC_SHOW_NUMERICAL_ID
printf("%3d:%03d", (iptc_codes_descr[i].code&0xff00U)>>8,
iptc_codes_descr[i].code&0xffU);
#else
printf("0x%04x ", iptc_codes_descr[i].code);
#endif
printf(" %s\n", iptc_codes_descr[i].label);
}
}
void iptc_filter_table_init(void)
{
unsigned int i;
iptc_filter_table_size=50;
iptc_filter_table_inc_size=50;
iptc_filter_table_filters=0;
iptc_filter_table=malloc(iptc_filter_table_size*sizeof(struct iptc_filter_match_data*));
if (!iptc_filter_table)
fatal_error("iptc_filter_table_init: couldn't allocate space for IPTC filter table");
for (i=0; i<iptc_filter_table_size; i++)
iptc_filter_table[i]=NULL;
}
static void iptc_filter_table_realloc(void)
{
struct iptc_filter_match_data** new_ptr;
unsigned int new_len;
unsigned int i;
new_len=iptc_filter_table_size+iptc_filter_table_inc_size;
new_ptr=realloc(iptc_filter_table, new_len*sizeof(struct iptc_filter_match_data*));
if (!new_ptr)
fatal_error("iptc_filter_table_realloc: couldn't reallocate IPTC filter table");
for (i=iptc_filter_table_size; i<new_len; i++)
new_ptr[i]=NULL;
iptc_filter_table=new_ptr;
iptc_filter_table_size=new_len;
}
void iptc_filter_add_value(unsigned int code)
{
struct iptc_filter_match_data* iptc_filter;
debug("iptc_add_filter_value(%u/%u): 0x%04x", iptc_filter_table_filters,
iptc_filter_table_size, code);
/* dynamically realloc filter table */
if (iptc_filter_table_filters+1>=iptc_filter_table_size)
iptc_filter_table_realloc();
iptc_filter=malloc(sizeof(struct iptc_filter_match_data));
if (!iptc_filter)
fatal_error("iptc_filter_add_value: couldn't allocate space for IPTC filter value");
iptc_filter->type=IPTC_FET_VALUE;
iptc_filter->code=code;
iptc_filter_table[iptc_filter_table_filters++]=iptc_filter;
}
void iptc_filter_add_range(unsigned int code, unsigned int code2)
{
struct iptc_filter_match_data* iptc_filter;
debug("iptc_add_filter_range(%u/%u): 0x%04x-%04x", iptc_filter_table_filters,
iptc_filter_table_size, code, code2);
/* dynamically realloc filter table */
if (iptc_filter_table_filters+1>=iptc_filter_table_size)
iptc_filter_table_realloc();
iptc_filter=malloc(sizeof(struct iptc_filter_match_data));
if (!iptc_filter)
fatal_error("iptc_filter_add_range: couldn't allocate space for IPTC filter range");
iptc_filter->type=IPTC_FET_RANGE;
iptc_filter->code=code;
iptc_filter->code2=code2;
iptc_filter_table[iptc_filter_table_filters++]=iptc_filter;
}
void iptc_filter_table_reset(void)
{
if (iptc_filter_table)
{
register unsigned int i;
for (i=0; i<iptc_filter_table_filters; i++)
{
free(iptc_filter_table[i]);
iptc_filter_table[i]=NULL;
}
free(iptc_filter_table);
iptc_filter_table=NULL;
debug("iptc_filter_table_reset: %lu IPTC filter(s) unregistered", i);
}
}
void iptc_filter_table_dump(void)
{
if (iptc_filter_table)
{
register unsigned int i;
debug("iptc_filter_table_dump: %lu element(s) follow", iptc_filter_table_filters);
for (i=0; i<iptc_filter_table_filters; i++)
{
if (iptc_filter_table[i])
{
if (iptc_filter_table[i]->type==IPTC_FET_VALUE)
debug("iptc_filter_table_dump: 0x%04x",
iptc_filter_table[i]->code);
else
debug("iptc_filter_table_dump: 0x%04x-0x%04x",
iptc_filter_table[i]->code, iptc_filter_table[i]->code2);
}
else
error("iptc_filter_table_dump: invalid NULL table element at offset %lu", i);
}
}
}
bool iptc_filter_match(unsigned int code)
/* returns true if the IPTC chunk identified by 'code' matches any code in filter table,
false otherwise
when filtering (include/exclude), a matching code means that it has to be kept
otherwise if it has to be filtered out. match is not applicable in filter edit mode */
{
bool keep;
if (!(prefs.filter_mode&FILTER_EXCLUDE) && !(prefs.filter_mode&FILTER_INCLUDE))
{
/* TODO: if code corresponds to a code in edit table and that this code is not repeatable
then we could set keep=false if we need to override. add the override switch to
the CLI and do the check here */
/* debug("IPTC filter: record code 0x%04x to keep (filter mask not applicable for this filter mode)",
code); */
keep=true;
}
else
{
register unsigned int i;
bool matched;
i=0;
matched=false;
while (i<iptc_filter_table_filters)
{
if (iptc_filter_table[i]->type==IPTC_FET_VALUE)
{
if (iptc_filter_table[i]->code==code)
{
matched=true;
break;
}
}
else
if ((iptc_filter_table[i]->code<=code) && (code<=iptc_filter_table[i]->code2))
{
matched=true;
break;
}
i++;
}
keep=(prefs.filter_mode&FILTER_EXCLUDE)?!matched:matched;
debug("IPTC filter: record code 0x%04x to %s (filter mask %smatched)",
code, keep?"keep":"filter out", matched?"":"not ");
}
return(keep);
}
unsigned short int iptc_filters(void)
{
return(iptc_filter_table_filters);
}
void iptc_edit_list_init(void)
{
iptc_edit_list=NULL;
iptc_edit_list_edits=0;
}
void iptc_edit_add_edit(unsigned int code, size_t len, unsigned char* data, bool* data_in_use)
/* add sorted, to a single-linked list.
will be rejected:
- records whose length doesn't match the record length restrictions
- recoreds with extended datasets (> 32767) */
{
struct iptc_edit_list_cell* new_cell;
struct iptc_edit_list_cell* cell;
struct iptc_edit_list_cell* prev;
struct iptc_edit_data* iptc_edit;
struct iptc_code_descr* code_descr;
debug("IPTC filter edit (%u edit(s)): 0x%04x, %lu byte(s)",
iptc_edit_list_edits, code, len);
code_descr=iptc_match_code(code);
if (code_descr)
{
/* length and value validity checks */
if (code_descr->fixed_length==IPTC_DATASET_FIXED)
{
if ((code_descr->length!=0) && ((size_t)code_descr->length!=len))
{
error("IPTC filter edit: dataset value length to add (%lu byte(s)) doesn't match the size restriction for record 0x%04x (expected exactly %lu byte(s)), record skipped",
len, code, code_descr->length);
*data_in_use=false;
return;
}
}
else
{
if ((code_descr->length!=0) && ((size_t)code_descr->length<len))
{
error("IPTC filter edit: dataset value length to add (%lu byte(s)) doesn't match the size restriction for record 0x%04x (expected max %lu byte(s)), record skipped",
len, code, code_descr->length);
*data_in_use=false;
return;
}
}
}
else
warning("IPTC filter edit: attempting to add a non-standard IPTC dataset (record 0x%04x)", code);
if (len>0x7fff)
{
error("IPTC filter edit: adding extended IPTC datasets (record 0x%04x, size > 32767) is not yet supported, record skipped",
code, len);
*data_in_use=false;
return;
}
/* allocate the edit data */
iptc_edit=malloc(sizeof(struct iptc_edit_data));
if (!iptc_edit)
fatal_error("IPTC filter edit: couldn't allocate space for IPTC edit value");
/* populate the edit data */
iptc_edit->enabled=true;
iptc_edit->code=code;
iptc_edit->length=len;
iptc_edit->data=data;
/* allocate the list cell */
new_cell=malloc(sizeof(struct iptc_edit_list_cell));
if (!new_cell)
fatal_error("IPTC filter edit: couldn't allocate space for IPTC edit list cell");
new_cell->edit_data=iptc_edit;
/* insert cell (sorted) */
prev=NULL;
cell=iptc_edit_list;
while (cell && cell->edit_data && (cell->edit_data->code<=code))
{
prev=cell;
cell=cell->next;
}
if (prev)
{
/* if the added code already exists, check if that code
is repeatable */
if (prev->edit_data
&& (prev->edit_data->code==code)
&& (prev->edit_data->code==IPTC_DATASET_UNIQUE))
{
error("IPTC filter edit: record 0x%04x is not repeatable and there's already a filter edit registered for it, record skipped",
code);
free(new_cell);
new_cell=NULL;
free(iptc_edit->data);
iptc_edit->data=NULL;
free(iptc_edit);
iptc_edit=NULL;
*data_in_use=false;
return;
}
new_cell->next=prev->next;
prev->next=new_cell;
}
else
{
new_cell->next=cell;
iptc_edit_list=new_cell;
}
iptc_edit_list_edits++;
*data_in_use=true;
}
void iptc_edit_list_reset(void)
{
if (iptc_edit_list)
{
struct iptc_edit_list_cell* cell;
struct iptc_edit_list_cell* next;
for (cell=iptc_edit_list; cell; cell=next)
{
if (cell->edit_data)
{
if (cell->edit_data->enabled)
warning("iptc_edit_list_reset: record 0x%04x has not been added. This might be because you're attempting to add IPTC records to a file that doesn't contain any IPTC chunk",
cell->edit_data->code);
if (cell->edit_data->data)
{
free(cell->edit_data->data);
cell->edit_data->data=NULL;
}
free(cell->edit_data);
cell->edit_data=NULL;
}
else
error("iptc_edit_list_reset: invalid NULL edit_data in cell %p", cell);
next=cell->next;
free(cell);
cell=NULL;
}
iptc_edit_list=NULL;
iptc_edit_list_edits=0;
debug("iptc_edit_list_reset: all IPTC edit(s) have been unregistered");
}
}
void iptc_edit_list_dump(void)
{
debug("iptc_edit_list_dump: %lu element(s) follow(s)", iptc_edit_list_edits);
if (iptc_edit_list)
{
struct iptc_edit_list_cell* cell;
unsigned int i;
i=0;
for (cell=iptc_edit_list; cell; cell=cell->next)
{
if (cell->edit_data)
debug("iptc_edit_list_dump: 0x%04x, length: %lu",
cell->edit_data->code, cell->edit_data->length);
else
error("iptc_edit_list_dump: invalid NULL edit_data in cell %p", cell);
i++;
}
if (i!=iptc_edit_list_edits)
error("iptc_edit_list_dump: list inconsistency: counted %u cell(s), expected %u",
i, iptc_edit_list_edits);
}
}
unsigned short int iptc_edits(void)
{
return(iptc_edit_list_edits);
}
size_t iptc_edit_insert_chunks(bool flush, unsigned int code, unsigned short int* iptc_datasets_history)
/* process all enabled edits in list:
if flush is false, insert all enabled edits in list
otherwise, insert enabled chunks when their code is lesser than 'code' */
{
size_t written_bytes=0;
if (iptc_edit_list)
{
struct iptc_edit_list_cell* cell;
struct iptc_edit_data* edit_data;
unsigned char dataset_header[7]; /* IPTC marker + record code (2 bytes) + dataset size (2 bytes) + version (2 bytes)*/
unsigned char* ptr;
if (flush)
debug("iptc_edit_insert_chunks: about to add all IPTC datasets remaining in filter edit list");
else
debug("iptc_edit_insert_chunks: about to add all IPTC datasets with record code < 0x%04x",
code);
for (cell=iptc_edit_list; cell; cell=cell->next)
{
edit_data=cell->edit_data;
if (edit_data)
{
if (edit_data->enabled && (flush || (edit_data->code<code)))
{
struct iptc_code_descr* code_descr;
bool store_it=true;
code_descr=iptc_match_code(edit_data->code);
if (code_descr)
{
/* if code already exist, if so, check it that code must be unique */
if ((iptc_datasets_history[edit_data->code]!=0)
&& (code_descr->repeatable==IPTC_DATASET_UNIQUE))
{
error("iptc_edit_insert_chunks: attempting to add an IPTC record that already exist (it's not repeatable): 0x%04x, record skipped",
edit_data->code);
store_it=false;
}
/* check length */
if (code_descr->fixed_length==IPTC_DATASET_FIXED)
{
if ((code_descr->length!=0) && ((size_t)code_descr->length!=edit_data->length))
{
error("iptc_edit_insert_chunks: dataset value length to add (%lu byte(s)) doesn't match the size restriction for record 0x%04x (expected exactly %lu byte(s)), record skipped",
edit_data->length, code, code_descr->length);
store_it=false;
}
}
else
{
if ((code_descr->length!=0) && ((size_t)code_descr->length<edit_data->length))
{
error("iptc_edit_insert_chunks: dataset value length to add (%lu byte(s)) doesn't match the size restriction for record 0x%04x (expected max %lu byte(s)), record skipped",
edit_data->length, code, code_descr->length);
store_it=false;
}
}
}
else
{
/* store non-standard IPTC record unconditionally */
warning("iptc_edit_insert_chunks: adding non standard IPTC record 0x%04x",
edit_data->code);
}
/* TODO: support writting extended datasets */
if (edit_data->length>0x7fff)
{
error("iptc_edit_insert_chunks: adding extended IPTC datasets (length > 32767) is not supported yet, record skipped");
store_it=false;
}
/* write chunk */
if (store_it)
{
/* if no version record already found, insert it (if it's not a record version itself) */
if (((edit_data->code&0x00ff)!=0)
&& (0x0100<=(edit_data->code&0xff00) && (edit_data->code&0xff00)<=0x0300)
&& (iptc_datasets_history[edit_data->code&0xff00]==0))
{
warning("iptc_edit_insert_chunks: no IPTC version record already exist for 0x%04x, adding record code 0x%04x",
edit_data->code, edit_data->code&0xff00);
ptr=dataset_header;
*ptr++=IPTC_MARKER;
*ptr++=(edit_data->code&0xff00)>>8; /* record code (high bits) */
*ptr++=0x00; /* record code (low bits) */
*ptr++=0x00; /* dataset length (low bits) */
*ptr++=0x02; /* dataset length (high bits) */
*ptr++=0x00; /* minor version number (arbitrary) */
*ptr++=0x02; /* major version number (arbitrary) */
written_bytes+=dump_rewrite(dataset_header, 7);
iptc_stats_table_inc(edit_data->code&0xff00, iptc_datasets_history);
}
ptr=dataset_header;
*ptr++=IPTC_MARKER;
*ptr++=(edit_data->code&0xff00)>>8;
*ptr++=edit_data->code&0x00ff;
*ptr++=(edit_data->length&0xff00)>>8;
*ptr++=edit_data->length&0x00ff;
written_bytes+=dump_rewrite(dataset_header, 5);
written_bytes+=dump_rewrite(edit_data->data, edit_data->length);
iptc_stats_table_inc(edit_data->code, iptc_datasets_history);
debug("iptc_edit_insert_chunks: IPTC dataset added (record 0x%04x, %lu byte(s))",
edit_data->code, edit_data->length);
}
else
debug("iptc_edit_insert_chunks: IPTC dataset NOT added (record 0x%04x), see error above",
edit_data->code);
/* disable edit in list */
edit_data->enabled=false;
}
}
else
error("iptc_edit_insert_chunks: invalid NULL edit_data in cell %p", cell);
}
}
return(written_bytes);
}
pecomato-0.0.15/jfif.c 0000644 0001752 0001752 00000042546 10677223051 013470 0 ustar devel devel #include "jfif.h"
#include "adobe.h"
#include "exif.h"
#include <string.h>
extern struct prefs_struct prefs;
extern unsigned char* rewrite_cache;
extern unsigned long int rewrite_cache_offset;
struct jfif_marker_descr jfif_markers_descr[]=
{
/* frame markers, non-differential, huffman coding */
{ JFIF_SOF0, "SOF0", "baseline DCT" },
{ JFIF_SOF1, "SOF1", "extended sequential DCT" },
{ JFIF_SOF2, "SOF2", "progressive DCT" },
{ JFIF_SOF3, "SOF3", "lossless (sequential)" },
/* frame markers, differential, huffman coding */
{ JFIF_SOF5, "SOF5", "differential sequential DCT" },
{ JFIF_SOF6, "SOF6", "differential progressive DCT" },
{ JFIF_SOF7, "SOF7", "differential lossless (sequential)" },
/* frame markers, non-differential, arithmetic coding */
{ JFIF_JPG, "JPG", "reserved for JPEG extensions" },
{ JFIF_SOF9, "SOF9", "extended sequential DCT" },
{ JFIF_SOF10, "SOF10", "progressive DCT" },
{ JFIF_SOF11, "SOF11", "lessless (sequential)" },
/* frame markers, differential, arithmetic coding */
{ JFIF_SOF13, "SOF13", "differential sequential DCT" },
{ JFIF_SOF14, "SOF14", "differential progressive DCT" },
{ JFIF_SOF15, "SOF15", "differential lossless (sequential)" },
/* huffman table specification */
{ JFIF_DHT, "DHT", "huffman table(s)" },
/* arithmetic coding conditioning specification */
{ JFIF_DAC, "DAC", "arithmetic coding conditiong(s)" },
/* restart internal termination */
{ JFIF_RST0, "RST0", "restart with modulo 8 count 0" },
{ JFIF_RST1, "RST1", "restart with modulo 8 count 1" },
{ JFIF_RST2, "RST2", "restart with modulo 8 count 2" },
{ JFIF_RST3, "RST3", "restart with modulo 8 count 3" },
{ JFIF_RST4, "RST4", "restart with modulo 8 count 4" },
{ JFIF_RST5, "RST5", "restart with modulo 8 count 5" },
{ JFIF_RST6, "RST6", "restart with modulo 8 count 6" },
{ JFIF_RST7, "RST7", "restart with modulo 8 count 7" },
/* other markers */
{ JFIF_SOI, "SOI", "start of image" },
{ JFIF_EOI, "EOI", "end of image" },
{ JFIF_SOS, "SOS", "start of scan" },
{ JFIF_DQT, "DQT", "define quantization table(s)" },
{ JFIF_DNL, "DNL", "define number of lines" },
{ JFIF_DRI, "DRI", "define restart internal" },
{ JFIF_DHP, "DHP", "define hierarchical progression" },
{ JFIF_EXP, "EXP", "expand reference component(s)" },
{ JFIF_APP0, "APP0", "application segment 0" },
{ JFIF_APP1, "APP1", "application segment 1" },
{ JFIF_APP2, "APP2", "application segment 2" },
{ JFIF_APP3, "APP3", "application segment 3" },
{ JFIF_APP4, "APP4", "application segment 4" },
{ JFIF_APP5, "APP5", "application segment 5" },
{ JFIF_APP6, "APP6", "application segment 6" },
{ JFIF_APP7, "APP7", "application segment 7" },
{ JFIF_APP8, "APP8", "application segment 8" },
{ JFIF_APP9, "APP9", "application segment 9" },
{ JFIF_APP10, "APP10", "application segment 10" },
{ JFIF_APP11, "APP11", "application segment 11" },
{ JFIF_APP12, "APP12", "application segment 12" },
{ JFIF_APP13, "APP13", "application segment 13" },
{ JFIF_APP14, "APP14", "application segment 14" },
{ JFIF_APP15, "APP15", "application segment 15" },
{ JFIF_JPG0, "JPG0", "reserved for JPEG extensions" },
{ JFIF_JPG1, "JPG1", "reserved for JPEG extensions" },
{ JFIF_JPG2, "JPG2", "reserved for JPEG extensions" },
{ JFIF_JPG3, "JPG3", "reserved for JPEG extensions" },
{ JFIF_JPG4, "JPG4", "reserved for JPEG extensions" },
{ JFIF_JPG5, "JPG5", "reserved for JPEG extensions" },
{ JFIF_JPG6, "JPG6", "reserved for JPEG extensions" },
{ JFIF_JPG7, "JPG7", "reserved for JPEG extensions" },
{ JFIF_JPG8, "JPG8", "reserved for JPEG extensions" },
{ JFIF_JPG9, "JPG9", "reserved for JPEG extensions" },
{ JFIF_JPG10, "JPG10", "reserved for JPEG extensions" },
{ JFIF_JPG11, "JPG11", "reserved for JPEG extensions" },
{ JFIF_JPG12, "JPG12", "reserved for JPEG extensions" },
{ JFIF_JPG13, "JPG13", "reserved for JPEG extensions" },
{ JFIF_COM, "COM", "comment" },
/* reserved markers */
{ JFIF_TEM, "TEM", "for temporary private use in arithmetic coding" },
/* reserved */
{ JFIF_MARKER_EOT, NULL, NULL }
};
struct jfif_marker_range_descr jfif_marker_ranges_descr[]=
{
{ 0x02, 0xbf, "RES", "reserved" }, /* RES */
/* reserved */
{ JFIF_MARKER_EOT, JFIF_MARKER_EOT, NULL, NULL }
};
/* JPEG/JFIF 1.02 */
/* SOI and leading APPn markers are found and skipped, in-APP13 Photoshop contents is
parsed. Parsing stops when any other JFIF marker is met */
void jfif_parse(unsigned char* buffer, const unsigned long int bytes_left,
struct parser_result* result)
{
struct parser_result res;
unsigned char* ptr;
unsigned long int jfif_chunks;
unsigned long int written_bytes;
long int bytes;
unsigned short int length;
unsigned char tag;
bool ret;
bool saw_EOI;
bool saw_SOS;
jfif_chunks=0;
ptr=buffer;
bytes=bytes_left;
written_bytes=0;
ret=true;
saw_EOI=false;
saw_SOS=false;
debug("JFIF parser: %ld byte(s) to parse", bytes);
while ((bytes>0) && !saw_SOS && !saw_EOI)
{
if (bytes<2)
{
ret=false;
error("JFIF parser: chunk underrun (%ld byte(s) remaining, 2 or more expected)",
bytes);
break;
}
/* JFIF tag marker expected */
tag=getbyte(ptr, 0);
if (tag!=JFIF_TAG)
{
ret=false;
error("JFIF parser: expected tag marker not matched");
break;
}
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 1);
bytes--;
ptr++;
jfif_chunks++;
tag=getbyte(ptr, 0);
switch (tag)
{
case JFIF_SOI:
debug("JFIF parser: SOI tag found");
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 1);
bytes--;
ptr++;
break;
case JFIF_EOI:
saw_EOI=true;
debug("JFIF parser: EOI tag found");
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 1);
bytes--;
ptr++;
if (bytes)
warning("JFIF parser: unexpected trailing data: %ld byte(s), ignored",
bytes);
break;
case JFIF_SOS:
{
ret=jfif_skip_chunk(jfif_tag_name((const enum JFIF_MARKER)tag),
&ptr, &bytes, &written_bytes);
saw_SOS=true;
if (bytes<2)
{
ret=false;
error("JFIF parser: SOS/image-data chunk underrun (%ld byte(s) remaining, 2 bytes expected)",
tag, bytes);
break;
}
/* skip image data (scans): jump to the end (expecting EOI) */
if (prefs.rewrite && (bytes>2))
written_bytes+=dump_rewrite(ptr, (bytes-2));
ptr+=(bytes-2);
bytes=2;
break;
}
/* parse APPn chunks */
case JFIF_APP0:
case JFIF_APP1:
case JFIF_APP2:
case JFIF_APP3:
case JFIF_APP4:
case JFIF_APP5:
case JFIF_APP6:
case JFIF_APP7:
case JFIF_APP8:
case JFIF_APP9:
case JFIF_APP10:
case JFIF_APP11:
case JFIF_APP12:
case JFIF_APP13:
case JFIF_APP14:
case JFIF_APP15:
{
unsigned char* ptr_at_length;
tag-=JFIF_APP0; /* determine APP chunk number (APP0 -> 0, APP1 -> 1, etc.) */
debug("JFIF parser: APP%d chunk found", tag);
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 1);
bytes--;
ptr++;
if (bytes<2)
{
ret=false;
error("JFIF parser: APP%d chunk underrun (%ld byte(s) remaining, 2 or more expected)",
tag, bytes);
break;
}
ptr_at_length=ptr;
length=(getbyte(ptr, 0)<<8)|getbyte(ptr, 1);
if (bytes<length)
{
ret=false;
error("JFIF parser: APP%d chunk underrun (%ld byte(s) remaining, %ld byte(s) expected)",
tag, bytes, length);
break;
}
length-=2; /* skip length bytes themselves */
if (prefs.rewrite)
written_bytes+=dump_rewrite(ptr, 2);
bytes-=2;
ptr+=2;
tag+=JFIF_APP0;
switch (tag)
{
case JFIF_APP0:
/* TODO: detect JFIF/JFXX */
if (prefs.rewrite && (length>0))
written_bytes+=dump_rewrite(ptr, length);
break;
case JFIF_APP1:
{
/* TODO: here parse Exif in */
if (prefs.rewrite && (length>0))
written_bytes+=dump_rewrite(ptr, length);
break; /* disable exif sub-parsing until it works */
if (bytes<4)
{
if (prefs.rewrite && (length>0))
written_bytes+=dump_rewrite(ptr, length);
}
else
{
char exif_marker[5];
if (strcmp((char*)getraw(ptr, 0, (unsigned char*)exif_marker, 6),
EXIF_MARKER_STRING)!=0)
{
ret=false;
error("JFIF parser: expected Exif tag marker not matched");
if (prefs.rewrite && (length>0))
written_bytes+=dump_rewrite(ptr, length);
break;
}
res.parsed_bytes=0;
res.written_bytes=0;
exif_parse(ptr, length, &res);
ret=res.ret;
if (res.parsed_bytes!=length)
{
error("JFIF parser: Exif size inconsistency (%lu byte(s) read, %lu expected)",
res.parsed_bytes, length);
/* limit to length bytes */
if (res.parsed_bytes>length)
{
ret=false; /* that situation might be critical */
length=res.parsed_bytes;
}
else
/* write extra trailing bytes if Exif chunk was shorter than expected */
/* TODO: check if that situation has to be checked everywhere */
if ((res.parsed_bytes<length) && prefs.rewrite)
written_bytes+=dump_rewrite(ptr+length, length-res.parsed_bytes);
}
written_bytes+=res.written_bytes;
}
break;
}
case JFIF_APP6:
/* TODO: detect NITF */
if (prefs.rewrite && (length>0))
written_bytes+=dump_rewrite(ptr, length);
break;
case JFIF_APP13: /* Adobe IRB (commonly IPTC chunks from PhotoShop) */
{
unsigned char* p;
unsigned long int len;
char product[100];
unsigned short int product_len;
unsigned short int product_version;
len=length;
p=ptr;
/* determine and skip product info */
/* Photoshop 3.0, 0-terminated string */
if (strcmp((char*)getraw(p, 0, (unsigned char*)product, 14),
"Photoshop 3.0")==0)
{
product_len=14;
product_version=300;
}
else
/* Photoshop 4.0, 0-terminated string */
if (strcmp((char*)getraw(p, 0, (unsigned char*)product, 14),
"Photoshop 4.0")==0)
{
product_len=14;
product_version=400;
}
else
/* Photoshop 2.5, strange string plus 8 bytes */
if (strncmp((char*)getraw(p, 0, (unsigned char*)product, 19),
"Adobe_Photoshop2.5:", 19)==0)
{
product[19]='\0';
product_len=19+8;
product_version=250;
}
else
/* Adobe Photoshop 7.0 thumbnail?, strange string plus 1 byte */
if (strcmp((char*)getraw(p, 0, (unsigned char*)product, 9),
"Adobe_CM")==0)
{
product_len=9+1;
product_version=0;
}
else
{
warning("JFIF parser: unknown Adobe product name");
*product='\0';
product_len=0;
product_version=0;
}
if (prefs.rewrite && (product_len>0))
written_bytes+=dump_rewrite(ptr, product_len);
len-=product_len;
p+=product_len;
debug("JFIF parser: Photoshop product: '%s' (version %u)", product, product_version);
if (len>=4)
{
bool parsed;
parsed=false;
res.parsed_bytes=0;
res.written_bytes=0;
/* parse 8BIM chunk */
if (getlong(p, 0)==ADOBE_8BIM_MARKER)
{
debug("JFIF parser: 8BIM marker found, invoking sublevel 8BIM parser");
adobe_8bim_parse(p, len, product_version, &res);
parsed=true;
ret=res.ret;
p+=res.parsed_bytes;
}
else
/* parse 8BPS chunk */
if (getlong(p, 0)==ADOBE_8BPS_MARKER)
{
debug("JFIF parser: 8BPS marker found, invoking sublevel 8BPS parser");
adobe_8bps_parse(p, len, &res);
parsed=true;
ret=res.ret;
p+=res.parsed_bytes;
}
else
{
debug("JFIF parser: neither 8BIM nor 8BPS marker found in APP13 chunk");
ret=false;
error("JFIF parser: unsupported or missing Adobe contents");
/* all bytes from this unknown chunk will be written below */
}
if (prefs.rewrite)
written_bytes+=res.written_bytes;
/* change back chunk length when written bytes != parsed bytes (which means
that some bytes have been filtered out or added */
if (parsed && prefs.rewrite && (res.written_bytes!=res.parsed_bytes))
{
debug("JFIF parser: backward change of chunk length is necessary (%lu -> %lu)",
res.parsed_bytes, res.written_bytes);
if (prefs.rewrite_cached)
{
unsigned long int l;
/* reconstitute the length value to write back */
l=res.written_bytes+product_len+2;
/* check length overflow */
if (l>0xffff)
{
l=0xffff;
error("JFIF parser: rewritten chunk size overflow (%lu)", l);
}
debug("JFIF parser: chunk length to change backwardly at offset %lu: %lu (instead of %lu)",
rewrite_cache_offset-l, l, length+2);
/* write modified length to cache */
setword(rewrite_cache, rewrite_cache_offset-l, (unsigned short int)l);
}
else
error("JFIF parser: attempting to do backward changes to uncached write buffer");
}
if (parsed && (res.parsed_bytes+product_len!=length))
{
error("JFIF parser: Adobe chunk size inconsistency (%lu byte(s) read, %lu expected)",
res.parsed_bytes+product_len, length);
/* don't write any bytes more */
res.parsed_bytes=len;
}
/* remaining bytes to rewrite */
len-=res.parsed_bytes;
}
else
if (len>0)
/* see if remaining bytes here should be supported (usual w/
embedded thumbnails w/ product "Adobe CM" */
warning("JFIF parser: JFIF chunk size inconsistency (%lu remaining byte(s))",
len);
/* if there are 'len' bytes unwritten by any sublevel parser */
if (prefs.rewrite && (len>0))
written_bytes+=dump_rewrite(p, len);
break;
}
default:
if (prefs.rewrite && (length>0))
written_bytes+=dump_rewrite(ptr, length);
break;
}
bytes-=length;
ptr+=length;
break;
}
case JFIF_SOF0:
case JFIF_SOF1:
case JFIF_SOF2:
case JFIF_SOF3:
case JFIF_SOF5:
case JFIF_SOF6:
case JFIF_SOF7:
case JFIF_SOF9:
case JFIF_SOF10:
case JFIF_SOF11:
case JFIF_SOF13:
case JFIF_SOF14:
case JFIF_SOF15:
case JFIF_DQT:
case JFIF_DHT:
case JFIF_DRI:
case JFIF_DAC:
case JFIF_COM:
case JFIF_DNL:
case JFIF_DHP:
case JFIF_EXP:
/* default: */
{
struct jfif_marker_descr* marker_descr;
marker_descr=jfif_marker_match((const enum JFIF_MARKER)tag);
if (!marker_descr)
{
struct jfif_marker_range_descr* marker_range_descr;
marker_range_descr=jfif_marker_range_match((const enum JFIF_MARKER)tag);
if (!marker_range_descr)
{
ret=false;
error("JFIF parser: unknown tag 0x%02x", tag);
}
}
/* skip chunk and retain the worst ret possible */
ret&=jfif_skip_chunk(jfif_tag_name((const enum JFIF_MARKER)tag),
&ptr, &bytes, &written_bytes);
break;
}
}
}
if (!ret && (!saw_EOI && !saw_SOS))
{
ret=false;
error("JFIF parser: neither found SOS nor EOI, possibly corrupted file or not a supported JPEG/JFIF file format");
}
debug("JFIF parser: %u dataset(s) inspected, total length: %lu byte(s)",
jfif_chunks, bytes_left-bytes);
if (prefs.rewrite)
debug("JFIF parser: %lu byte(s) rewritten", written_bytes);
result->parsed_bytes=bytes_left-bytes;
result->written_bytes=written_bytes;
result->ret=ret;
}
bool jfif_skip_chunk(char* label, unsigned char** ptr, long int* bytes,
unsigned long int* written_bytes)
{
unsigned char* p;
long int b;
unsigned short int l;
b=*bytes;
p=*ptr;
debug("JFIF parser: %s chunk found", label);
/* skip tag */
if (prefs.rewrite)
written_bytes+=dump_rewrite(p, 1);
b--;
p++;
if (b<2)
{
error("JFIF parser: %s chunk underrun (%ld byte(s) remaining, 2 or more expected)",
label, b);
return(false);
}
l=(getbyte(p, 0)<<8)|getbyte(p, 1);
if (b<l)
{
error("JFIF parser: %s chunk underrun (%ld byte(s) remaining, %ld byte(s) expected)",
label, b, l);
return(false);
}
l-=2; /* skip length bytes themselves */
b-=2;
p+=2;
/* skip chunk */
b-=l;
p+=l;
if (prefs.rewrite)
/* write chunk, including its length bytes */
*written_bytes+=dump_rewrite(*ptr+1, l+2);
*bytes=b;
*ptr=p;
return(true);
}
struct jfif_marker_descr* jfif_marker_match(const enum JFIF_MARKER tag)
{
register unsigned int i;
i=0;
while (jfif_markers_descr[i].tag!=JFIF_MARKER_EOT)
{
if (jfif_markers_descr[i].tag==tag)
return(&jfif_markers_descr[i]);
i++;
}
return(NULL);
}
struct jfif_marker_range_descr* jfif_marker_range_match(const enum JFIF_MARKER tag)
{
register unsigned int i;
/* match ranges */
i=0;
while (jfif_marker_ranges_descr[i].lower_boundary!=JFIF_MARKER_EOT)
{
if ( (tag<=jfif_marker_ranges_descr[i].lower_boundary)
|| (tag<=jfif_marker_ranges_descr[i].upper_boundary))
return(&jfif_marker_ranges_descr[i]);
i++;
}
return(NULL);
}
char* jfif_tag_name(const enum JFIF_MARKER tag)
{
struct jfif_marker_descr* marker_descr;
struct jfif_marker_range_descr* marker_range_descr;
marker_descr=jfif_marker_match(tag);
if (marker_descr)
return(marker_descr->name);
marker_range_descr=jfif_marker_range_match(tag);
if (marker_range_descr)
return(marker_range_descr->name);
return("<unknown>");
}
void jfif_dump_markers_list(void)
{
}
pecomato-0.0.15/main.c 0000644 0001752 0001752 00000077446 10677223051 013505 0 ustar devel devel #include <stdlib.h>
#include <stdio.h>
#if defined(OS_UNIX) || defined(OS_LINUX)
#include <unistd.h>
#endif
#include <errno.h>
#include <string.h>
#include <sys/stat.h>
#include <sys/types.h>
#ifndef PRODUCT_ID
#error PRODUCT_ID must be defined
#endif
#ifndef PRODUCT_VERSION
#error PRODUCT_VERSION must be defined
#endif
#include "jfif.h"
#include "iptc.h"
#include "exif.h"
#include "util.h"
#include "adobe.h"
extern struct op_label op_labels[];
extern struct log_level_descr log_levels[];
extern struct exit_code_label exit_code_labels[];
extern unsigned char* rewrite_cache;
extern unsigned long int rewrite_cache_offset;
extern unsigned long int rewrite_cache_size;
extern FILE* output_file;
extern char* output_filename;
extern size_t input_length;
extern unsigned char* iptc_extract_buffer;
extern unsigned long int iptc_extract_buffer_size;
/* global vars */
struct prefs_struct prefs;
char* program_name;
char* default_iptc_extension="iptc";
/*char* default_iptc_extension="exv";*/
void version(void)
{
printf(PRODUCT_ID " " PRODUCT_VERSION "\n");
exit(EXIT_CODE_NORMAL);
}
void usage(enum EXIT_CODE ret)
{
char spaces[19];
int i;
/* command-line usage */
printf("usage:\n");
printf(" %s [<option> ..] <op> [<expr>] <file> [<file> ..]\n", program_name);
printf(" %s [<option> ..] <op> [<expr>] @<file>\n", program_name);
printf("usage of form <op> <expr> .. only concerns op mode dump-value, see below.\n");
printf("\n");
printf("iuse @<file> to read a list of files from that file. the file must contain exactly\n");
printf("one filename to process per line (don't escape anything, filenames are taken as-is).\n");
/* various general or specific options */
printf("\n");
printf("general options:\n");
printf(" -v --version show version number then exit\n");
printf(" -h --help show this help then exit\n");
printf(" --list list all supported embedded data structures\n");
printf(" -l --log-level <num> define verbosity (see possible values below)\n");
printf(" -c --check-compliance perform full checks to test the strict validity and\n");
printf(" compliance of structures to official formats\n");
printf("\n");
printf("filtering and extracting options:\n");
printf(" -b --backup create backup files of (re)written files if necessary\n");
printf(" -d --target-dir <dir> target directory for all written files\n");
printf(" -f --fix fix metadata inconsistencies when possible\n");
printf("\n");
printf("extracting options:\n");
printf(" -x --extract <type> extract and save metadata to a standalone file (see\n");
printf(" below for a list of metadata that can be extracted)\n");
printf(" -t --ext <extension> define what filename extension to use when writing\n");
printf(" metadata that is extracted (default: .%s)\n",
default_iptc_extension);
/* printf(" metadata that is extracted (default: .%s or .%s)\n",
default_iptc_extension, default_exif_extension);*/
printf(" -a --append-ext append extension to original filename when saving\n");
printf(" the extracted metadata (default: replace original file\n");
printf(" extension)\n");
printf("\n");
printf("filtering options:\n");
printf(" -i --include <expr> a filter expression describing the datasets to keep\n");
printf(" -i --include @<file> or a file containing a list of datasets to keep,\n");
printf(" all other datasets will be filtered out.\n");
printf(" if not used, all datasets will be kept\n");
printf(" -e --exclude <expr> a filter expression describing the datasets to filter out\n");
printf(" -e --exclude @<file> or a file containing a list of datasets to filter out,\n");
printf(" all other datasets will be kept. if not used all\n");
printf(" datasets will be kept\n");
printf(" --edit <expr> a filter edit expression describing the datasets to add\n");
printf(" --edit @<file> or a file containing a list of datasets to add.\n");
printf(" datasets won't be inserted if that breaks compliance\n");
printf(" to the standards\n");
printf(" --test don't override original file(s), create *.rewrite file(s)\n");
printf(" instead\n");
/* printf(" -o --overwrite allow overwriting already existing field values in embedded\n");
printf(" data (with --edit only). if -o is not used, attempting to\n");
printf(" replace an existing value will fail with a warning\n"); */
/* TODO: add a switch to force applying record size restrictions (pad or crop) */
printf("-i and -e can't be mixed together. --edit can be used in conjonction to -i or -e,\n");
printf("in that case, the edits will be processed after the include or exclude filter.\n");
printf("\n");
printf("dump options:\n");
printf(" -w --wrap <num> max column for wrapping (num must be in range\n");
printf(" [%d-%d]). default is to dump unwrapped\n",
MIN_WRAP_DUMP, MAX_WRAP_DUMP);
/* supported operations */
printf("\n");
printf("possible ops:\n");
i=0;
while (op_labels[i].op!=OP_EOT)
{
int j;
for (j=0; j<(int)(18-strlen(op_labels[i].label)); j++)
spaces[j]=' ';
spaces[j]='\0';
printf(" %s%s%s\n", op_labels[i].label, spaces, op_labels[i].description);
i++;
}
/* dump-value expressions */
printf("\n");
printf("dump-value expressions:\n");
printf(" IPTC.<record>\n");
printf("same as filter include/exclude expression, see below:\n");
/* filter expressions */
printf("\n");
printf("filter include/exclude expressions:\n");
printf(" IPTC.<record>\n");
printf("where <record> can be either:\n");
printf(" all: *\n");
printf(" hexadecimal unary: 0xhhhh\n");
printf(" hexadecimal range: 0xhhhh-0xhhhh\n");
printf(" decimal unary: nnn:nnn\n");
printf(" decimal ranges: nnn:nnn-nnn\n");
printf(" nnn:*\n");
printf("examples:\n");
printf(" IPTC.0x0219\n");
printf(" IPTC.0x0300-0x0364\n");
printf(" IPTC.3:0-100\n");
/* filter edit expressions */
printf("\n");
printf("filter edit expressions:\n");
printf(" IPTC.<record>=<type>:<value>\n");
printf("where <record> can be either:\n");
printf(" hexadecimal unary: 0xhhhh\n");
printf(" decimal unary: nnn:nnn\n");
printf("where <type> can be either:\n");
printf(" hex\n");
printf(" text\n");
printf("and <value> is:\n");
printf(" hex: [a-zA-Z0-9] pairs\n");
printf(" text: any char (even widechars) on the line is taken as text, until\n");
printf(" a newline is found\n");
printf("examples:\n");
printf(" IPTC.0x0200=hex:0002\n");
printf(" IPTC.0x0219=text:this is a keyword\n");
/* metadata extraction */
printf("\n");
printf("supported metadata for extraction:\n");
printf(" iptc IPTC datasets\n");
/* printf(" exif Exif datasets\n");*/
/* verbosity (log) levels */
printf("\n");
printf("possible log levels:\n");
i=0;
while (log_levels[i].level!=LOG_LEVEL_EOT)
{
printf(" %2d %s\n", i, log_levels[i].description);
i++;
}
/* supported file formats */
printf("\n");
printf("supported input files:\n");
printf(" JPEG files (commonly .jpeg, .jpg, .jpe, .jfif, .jif)\n");
printf(" Adobe Photoshop files (commonly .psd, .pdd, .ffo)\n");
printf(" FotoStation files (commonly .fdp, .ipt)\n");
printf(" standalone IPTC metadata (commonly .iptc)\n");
/* printf(" standalone Exif metadata (commonly .exv)\n");*/
/* exit codes */
printf("\n");
printf("exit codes:\n");
i=0;
while (exit_code_labels[i].code!=EXIT_EOT)
{
printf(" %d %s\n", exit_code_labels[i].code, exit_code_labels[i].label);
i++;
}
exit(ret);
}
void signal_handler(int sig)
{
fprintf(stderr, "signal %d received\n", sig);
fflush(stderr);
_exit(EXIT_CODE_ASYNCHRONOUS_SIGNAL);
}
int main(int argc, char** argv)
{
char** filenames_list;
unsigned char tmp[7]; /* max length of file signature sequence + 1 */
struct parser_result result;
FILE* input_file;
unsigned char* buffer;
char* ptr;
char* input_filename;
char* include_expression;
char* exclude_expression;
char* edit_expression;
char* extract_extension;
char* target_dirname;
char* iptc_filename;
char* op;
char* arg;
char* dump_value;
size_t ret;
enum EXIT_CODE exit_code;
int filenames_count;
int i;
/* signal re-hooking */
#ifdef SIGHUP
signal(SIGHUP, signal_handler); /* some unix window manager's logout */
#endif
#ifdef SIGQUIT
signal(SIGQUIT, signal_handler);
#endif
#ifdef SIGUSR1
signal(SIGUSR1, signal_handler);
#endif
#ifdef SIGINT
signal(SIGINT, signal_handler);
#endif
#ifdef SIGTERM
signal(SIGTERM, signal_handler);
#endif
/* variables init */
prefs.log_level=LOG_LEVEL_WARNINGS;
prefs.technical=false;
prefs.warnings=0;
prefs.errors=0;
prefs.fixes=0;
prefs.wrap_dump=DEFAULT_WRAP_DUMP;
prefs.rewrite=false;
prefs.rewrite_create_backup=false;
prefs.filter_mode=FILTER_NONE;
prefs.test_rewrite=false;
#ifdef ALWAYS_CACHE_REWRITE
prefs.rewrite_cached=true;
#else
prefs.rewrite_cached=false;
#endif
prefs.extract_iptc=false;
prefs.extract_extension_append=false;
prefs.fix=false;
/* prefs.edit_overwrite=false; */
context_reset();
input_filename=NULL;
output_filename=NULL;
iptc_filename=NULL;
include_expression=NULL;
exclude_expression=NULL;
edit_expression=NULL;
extract_extension=NULL;
target_dirname=NULL;
input_file=NULL;
output_file=NULL;
rewrite_cache=NULL;
rewrite_cache_offset=0;
rewrite_cache_size=0;
iptc_extract_buffer=NULL;
iptc_extract_buffer_size=0;
buffer=NULL;
filenames_list=NULL;
filenames_count=0;
dump_value=NULL;
#ifdef OS_WIN32
program_name=*argv;
#else
/* strip pathname from argv[0] */
ptr=*argv;
ptr+=strlen(ptr)-1;
while ((ptr>*argv))
if (*ptr==DIR_SEPARATOR_CHAR)
{
/* make ptr to point to the first char of the filename itself */
ptr++;
break;
}
else
--ptr;
program_name=ptr;
#endif
/* parse command line options */
argc--;
for (i=1; i<=argc; i++)
{
arg=argv[i];
if ((strcmp(arg, "--help")==0) || (strcmp(arg, "-h")==0))
usage(0);
else
if ((strcmp(arg, "--version")==0) || (strcmp(arg, "-v")==0))
version();
else
if (strcmp(arg, "--list")==0)
{
iptc_dump_list();
exit(EXIT_CODE_NORMAL);
}
else
if ((strcmp(arg, "--log-level")==0) || (strcmp(arg, "-l")==0))
{
if (i<argc)
{
unsigned long int value;
i++;
if (get_unsigned_value(argv[i], &value))
{
if (((int)value<MIN_LOG_LEVEL) || ((int)value>MAX_LOG_LEVEL))
{
error("invalid log level value %d, not in range [%d-%d]",
value, MIN_LOG_LEVEL, MAX_LOG_LEVEL);
usage(EXIT_CODE_USAGE_ERROR);
}
prefs.log_level=(int)value;
}
else
{
error("invalid value for option '%s': %s", arg, argv[i]);
usage(EXIT_CODE_USAGE_ERROR);
}
}
else
{
error("missing value to argument '%s'", arg);
usage(EXIT_CODE_USAGE_ERROR);
}
}
else
if ((strcmp(arg, "--check-compliance")==0) || (strcmp(arg, "-c")==0))
prefs.technical=true;
else
if ((strcmp(arg, "--extract")==0) || (strcmp(arg, "-x")==0))
{
if (i<argc)
{
i++;
if (strcasecmp(argv[i], "iptc")==0)
prefs.extract_iptc=true;
else
{
error("unsupported metadata type to argument '%s'", arg);
usage(EXIT_CODE_USAGE_ERROR);
}
}
else
{
error("missing metadata type to argument '%s'", arg);
usage(EXIT_CODE_USAGE_ERROR);
}
}
else
if ((strcmp(arg, "--backup")==0) || (strcmp(arg, "-b")==0))
prefs.rewrite_create_backup=true;
else
if ((strcmp(arg, "--target-dir")==0) || (strcmp(arg, "-d")==0))
{
if (i<argc)
{
i++;
target_dirname=fcleanpath(argv[i]);
}
else
{
error("missing dirname to argument '%s'", arg);
usage(EXIT_CODE_USAGE_ERROR);
}
}
else
if ((strcmp(arg, "--fix")==0) || (strcmp(arg, "-f")==0))
prefs.fix=true;
else
if ((strcmp(arg, "--ext")==0) || (strcmp(arg, "-t")==0))
{
if (i<argc)
{
i++;
extract_extension=argv[i];
}
else
{
error("missing extension to argument '%s'", arg);
usage(EXIT_CODE_USAGE_ERROR);
}
}
else
if ((strcmp(arg, "--append-ext")==0) || (strcmp(arg, "-a")==0))
prefs.extract_extension_append=true;
else
if ((strcmp(arg, "--include")==0) || (strcmp(arg, "-i")==0))
{
if (i<argc)
{
i++;
include_expression=argv[i];
}
else
{
error("missing filename or expression to argument '%s'", arg);
usage(EXIT_CODE_USAGE_ERROR);
}
}
else
if ((strcmp(arg, "--exclude")==0) || (strcmp(arg, "-e")==0))
{
if (i<argc)
{
i++;
exclude_expression=argv[i];
}
else
{
error("missing filename or expression to argument '%s'", arg);
usage(EXIT_CODE_USAGE_ERROR);
}
}
else
if (strcmp(arg, "--edit")==0)
{
if (i<argc)
{
i++;
edit_expression=argv[i];
}
else
{
error("missing filename or expression to argument '%s'", arg);
usage(EXIT_CODE_USAGE_ERROR);
}
}
else
if (strcmp(arg, "--test")==0)
prefs.test_rewrite=true;
else
if ((strcmp(arg, "--wrap")==0) || (strcmp(arg, "-w")==0))
{
if (i<argc)
{
unsigned long int value;
i++;
if (get_unsigned_value(argv[i], &value))
{
if (((int)value<MIN_WRAP_DUMP) || ((int)value>MAX_WRAP_DUMP))
{
error("invalid wrap dump value %d, not in range [%d-%d]",
value, MIN_WRAP_DUMP, MAX_WRAP_DUMP);
usage(EXIT_CODE_USAGE_ERROR);
}
prefs.wrap_dump=(unsigned short int)value;
}
else
{
error("invalid value for option '%s': %s", arg, argv[i]);
usage(EXIT_CODE_USAGE_ERROR);
}
}
else
{
error("missing filename to argument '%s'", arg);
usage(EXIT_CODE_USAGE_ERROR);
}
}
/* else
if ((strcmp(arg, "--overwrite")==0) || (strcmp(arg, "-o")==0))
prefs.edit_overwrite=true; */
else
if ((strcmp(arg, "--")==0))
break;
else
if (*arg=='-')
{
error("unrecognized option '%s'", arg);
usage(EXIT_CODE_USAGE_ERROR);
}
else
break;
}
/* get mode */
filenames_list=argv;
filenames_count=argc;
if ((argc-i+1)>=2) /* 2 parameters or more */
{
struct op_label* label;
op=argv[i++];
label=op_match_label(op);
if (!label)
{
error("unknown op mode '%s'", op);
usage(EXIT_CODE_USAGE_ERROR);
}
prefs.op=label->op;
info("operating mode: %s", op);
if (prefs.op==OP_FILTER)
prefs.rewrite=true;
/* extra parameter (value) for dump-value mode */
if (prefs.op==OP_DUMP_VALUE)
{
if ((argc-i+1)>=2)
{
dump_value=argv[i++];
/* setup filters (even if we don't rewrite/filter */
filter_load_line(dump_value);
prefs.filter_mode|=FILTER_INCLUDE;
}
else
{
error("missing parameter(s) for dump-value mode");
usage(EXIT_CODE_USAGE_ERROR);
}
}
/* detect @<file> pattern */
if (*argv[i]=='@')
{
FILE* list_file;
char* filename;
/* any further file in command-line will be ignored */
if ((argc-i+1)>1)
warning("ignoring extra parameters in command-line after @<file>");
/* open filenames list file */
filename=argv[i];
filename++;
list_file=fopen(filename, "r");
if (!list_file)
fatal_error("could not open file '%s'", filename);
/* load the filenames list from file */
filenames_list=NULL;
filenames_count=0;
filenames_list_load(&filenames_list, &filenames_count, list_file);
filenames_count--; /* if 0 filenames -> count will be set to -1 */
i=0;
/* free local tmp resource */
fclose(list_file);
}
}
else
{
error("missing parameter(s)");
usage(EXIT_CODE_USAGE_ERROR);
}
/* latest verifications around the passed options coherence */
if (prefs.fix && (!prefs.extract_iptc && !prefs.rewrite))
{
error("nothing to fix if not extracting or filtering");
usage(EXIT_CODE_USAGE_ERROR);
}
if (prefs.rewrite_create_backup && (!prefs.extract_iptc && !prefs.rewrite))
{
error("nothing to backup if not extracting or filtering");
usage(EXIT_CODE_USAGE_ERROR);
}
if (prefs.test_rewrite && !prefs.rewrite)
{
error("test rewrite not possible if not filtering");
usage(EXIT_CODE_USAGE_ERROR);
}
if (extract_extension && !prefs.extract_iptc)
{
error("nothing to do with extension '%s' when not extracting",
extract_extension);
usage(EXIT_CODE_USAGE_ERROR);
}
if (prefs.extract_extension_append && !prefs.extract_iptc)
{
error("no extension to append when not extracting");
usage(EXIT_CODE_USAGE_ERROR);
}
if (include_expression && exclude_expression)
{
if (prefs.op!=OP_FILTER)
error("don't know what to do with extraneous filename or expression for operating mode %s",
op_labels[prefs.op].label);
else
error("cannot mix include and exclude filenames or expressions at the same time");
usage(EXIT_CODE_USAGE_ERROR);
}
/* some adjustments according to passed options */
if (prefs.extract_iptc && !extract_extension)
/* default file extension to assume when extracting IPTC chunk */
extract_extension=default_iptc_extension;
if ((prefs.extract_iptc || prefs.rewrite) && target_dirname)
{
/* check if target dir does exist */
if (!fexist(target_dirname))
{
int err;
/* create the missing target dir */
err=mkdir(target_dirname, 0x1ff);
if (err<0)
fatal_error("couldn't create target directory '%s' (error #%d)",
target_dirname, errno);
}
else
if (!fisdir(target_dirname))
fatal_error("'%s' doesn't seem to be a directory", target_dirname);
}
/* load include/exclude/edit files for filtering */
if (include_expression)
{
prefs.filter_mode|=FILTER_INCLUDE;
if (*include_expression=='@')
{
FILE* include_file;
char* include_filename;
include_filename=include_expression+1;
include_file=fopen(include_filename, "r");
if (!include_file)
fatal_error("could not open file '%s'", include_filename);
debug("loading include file");
filter_load_file(include_file);
fclose(include_file);
}
else
{
debug("evaluating include filter expression");
filter_load_line(include_expression);
}
#if 0
iptc_filter_table_dump();
#endif
/* always cache rewriting */
prefs.rewrite_cached=true;
}
else
if (exclude_expression)
{
prefs.filter_mode|=FILTER_EXCLUDE;
if (*exclude_expression=='@')
{
FILE* exclude_file;
char* exclude_filename;
exclude_filename=exclude_expression+1;
exclude_file=fopen(exclude_filename, "r");
if (!exclude_file)
fatal_error("could not open file '%s'", exclude_filename);
debug("loading exclude file");
filter_load_file(exclude_file);
fclose(exclude_file);
}
else
{
debug("evaluating exclude filter expression");
filter_load_line(exclude_expression);
}
#if 0
iptc_filter_table_dump();
#endif
/* force cached rewriting when some filters are set */
if (iptc_filters()>0)
prefs.rewrite_cached=true;
}
if (edit_expression)
{
prefs.filter_mode|=FILTER_EDIT;
if (*edit_expression=='@')
{
FILE* edit_file;
char* edit_filename;
edit_filename=edit_expression+1;
edit_file=fopen(edit_filename, "r");
if (!edit_file)
fatal_error("could not open file '%s'", edit_filename);
debug("loading edit file");
edit_load_file(edit_file);
fclose(edit_file);
}
else
{
debug("evaluating edit filter expression");
edit_load_line(edit_expression);
}
#if 1
iptc_edit_list_dump();
#endif
/* force cached rewriting when some edits are set */
if (iptc_edits()>0)
prefs.rewrite_cached=true;
}
if (prefs.op==OP_FILTER)
{
if (prefs.filter_mode==FILTER_NONE)
error("unexpected filter mode: none (not set)");
else
info("filter mode:%s%s%s",
(prefs.filter_mode&FILTER_EXCLUDE)?" exclude":"",
(prefs.filter_mode&FILTER_INCLUDE)?" include":"",
(prefs.filter_mode&FILTER_EDIT)?" edit":"");
}
while (i<=filenames_count)
{
bool proceed;
proceed=true;
/* reset rewrite flag according to the current mode (it might has
been discarded for previous file */
if (prefs.op==OP_FILTER)
prefs.rewrite=true;
if (prefs.extract_iptc)
{
iptc_extract_buffer=NULL;
iptc_extract_buffer_size=0;
}
/* open the input file */
input_filename=filenames_list[i];
context_reset();
context_set_text(input_filename);
input_file=fopen(input_filename, "rb");
if (!input_file)
{
error("could not open file '%s'", input_filename);
i++;
context_print_info();
continue;
}
/* output filename will be based on the input filename */
if (prefs.rewrite)
{
if (target_dirname)
{
char* pathname;
char* filename;
size_t sz;
/* output file's path */
sz=0;
if (target_dirname)
pathname=strdup(target_dirname);
else
pathname=fdirname(input_filename);
if (pathname && *pathname)
sz+=strlen(pathname)+1;
/* output filename (get rid of any extension) */
filename=ffilename(input_filename);
sz+=strlen(filename);
sz++;
output_filename=malloc(sz*sizeof(char));
if (!output_filename)
fatal_error("couldn't allocate space for output filename");
*output_filename='\0';
if (pathname && *pathname)
{
strcat(output_filename, pathname);
strcat(output_filename, DIR_SEPARATOR_STRING);
}
strcat(output_filename, filename);
/* free resources */
free(filename);
filename=NULL;
free(pathname);
pathname=NULL;
}
else
output_filename=strdup(input_filename);
}
else
output_filename=NULL;
/* output filename for extracted IPTC data */
if (prefs.extract_iptc)
{
char* pathname;
char* filename;
size_t sz;
/* output file's path */
sz=0;
if (target_dirname)
pathname=strdup(target_dirname);
else
pathname=fdirname(input_filename);
if (pathname && *pathname)
sz+=strlen(pathname)+1;
/* output filename (get rid of any extension) */
if (prefs.extract_extension_append)
filename=ffilename(input_filename);
else
filename=fbasename(input_filename);
sz+=strlen(filename);
/* filename to store the IPTC chunk to */
sz+=1+strlen(extract_extension)+1;
iptc_filename=malloc(sz*sizeof(char));
if (!iptc_filename)
fatal_error("couldn't allocate space for IPTC chunk extraction filename");
*iptc_filename='\0';
if (pathname && *pathname)
{
strcat(iptc_filename, pathname);
strcat(iptc_filename, DIR_SEPARATOR_STRING);
}
strcat(iptc_filename, filename);
strcat(iptc_filename, ".");
strcat(iptc_filename, extract_extension);
free(filename);
filename=NULL;
free(pathname);
pathname=NULL;
}
/* check for concurrential write filenames */
if (prefs.extract_iptc && prefs.rewrite)
{
#ifdef OS_WIN32
if (strcasecmp(output_filename, iptc_filename)==0)
#else
if (strcmp(output_filename, iptc_filename)==0)
#endif
{
error("output filenames clash: filtering and extraction target files are identical (%s)\nthis would lead to unpredictable results",
output_filename);
proceed=false;
}
}
if (proceed)
{
/* read the whole file contents in a newly allocated buffer (TODO: optim this to use
less memory */
input_length=fsize(input_file);
buffer=malloc(input_length*sizeof(unsigned char));
if (!buffer)
fatal_error("could not allocate %lu bytes", input_length*sizeof(unsigned char));
ret=fread((void*)buffer, 1, input_length, input_file);
if ((ret!=input_length) && (ferror(input_file)<0))
error("read error #%d in file '%s', offset %lu: ret=%lu (expected=%lu)",
errno, input_filename, ret, input_length);
/* show input and output filenames */
info("input file: '%s'", input_filename);
if (prefs.rewrite)
info("output file: '%s'%s", output_filename,
fexist(output_filename)?" (already exists)":"");
if (prefs.extract_iptc)
info("IPTC extract output file: '%s'%s", iptc_filename,
fexist(iptc_filename)?" (already exists)":"");
result.parsed_bytes=0;
result.written_bytes=0;
result.ret=true;
if (input_length==0)
warning("empty file, skipped");
else
/* detect and parse contents */
if (strcmp((char*)getstring(buffer, 0, tmp, 5), GIF87_MARKER_STRING)==0)
{
debug("GIF87 marker found");
info("GIF87 contents expected (unsupported)");
prefs.rewrite=false;
}
else
if (strcmp((char*)getstring(buffer, 0, tmp, 5), GIF89_MARKER_STRING)==0)
{
debug("GIF89 marker found");
info("GIF89 contents expected (unsupported)");
prefs.rewrite=false;
}
else
if (strcmp((char*)getstring(buffer, 0, tmp, 6), EXIF_MARKER_STRING)==0)
{
debug("Exif marker found");
info("Exif contents expected");
exif_parse(buffer, input_length, &result);
if (!result.ret)
debug("Exif parser has reported error(s)");
}
else
if (getlong(buffer, 0)==ADOBE_8BPS_MARKER)
{
debug("8BPS marker found");
info("Adobe Photoshop contents expected");
if (prefs.rewrite)
init_rewrite();
adobe_8bps_parse(buffer, input_length, &result);
if (!result.ret)
debug("8BPS parser has reported error(s)");
}
else
if (getlong(buffer, 0)==ADOBE_8BIM_MARKER)
{
debug("8BIM marker found");
info("Adobe Photoshop contents expected");
/* it seems not possible make a distinction between the generic
8BIM format and the Photoshop 4.0's one (it's only possible if the 8BIM chunk is
embedded in a JFIF APP0 chunk)
*/
if (prefs.rewrite)
init_rewrite();
adobe_8bim_parse(buffer, input_length, 0, &result);
if (!result.ret)
debug("8BIM parser has reported error(s)");
}
else
if (getlong(buffer, 0)==TIFF_LITTLE_ENDIAN_MARKER_STRING)
{
debug("TIFF (little endian) marker found");
info("TIFF (little endian) contents expected (unsupported)");
prefs.rewrite=false;
}
else
if (getlong(buffer, 0)==TIFF_BIG_ENDIAN_MARKER_STRING)
{
debug("TIFF (big endian) marker found");
info("TIFF (big endian) contents expected (unsupported)");
prefs.rewrite=false;
}
else
if (getlong(buffer, 0)==PNG_MARKER_STRING)
{
debug("PNG marker found");
info("PNG contents expected (unsupported)");
prefs.rewrite=false;
}
else
if (strcmp((char*)getstring(buffer, 0, tmp, 4), DJVU_MARKER_STRING)==0)
{
debug("DJVU marker found");
info("DJVU contents expected (unsupported)");
prefs.rewrite=false;
}
else
if (getword(buffer, 0)==((JFIF_TAG<<8)|JFIF_SOI))
{
debug("SOI tag found");
info("JPEG/JFIF contents expected");
if (prefs.rewrite)
init_rewrite();
jfif_parse(buffer, input_length, &result);
if (!result.ret)
debug("JFIF parser has reported error(s)");
}
else
if (strcmp((char*)getstring(buffer, 0, tmp, 2), BMP_MARKER_STRING)==0)
{
debug("Windows Bitmap marker found");
info("Windows Bitmap contents expected (unsupported)");
prefs.rewrite=false;
}
else
if (getbyte(buffer, 0)==IPTC_MARKER)
{
debug("IPTC marker found");
info("IPTC contents expected");
if (prefs.rewrite)
init_rewrite();
iptc_parse(buffer, input_length, true, &result);
if (!result.ret)
debug("IPTC parser has reported error(s)");
}
else
if (getbyte(buffer, 0)==ADOBE_FFO_MARKER)
{
debug("FF0 marker found");
info("Adobe FF0 contents expected");
if (prefs.rewrite)
init_rewrite();
adobe_ffo_parse(buffer, input_length, true, &result);
if (!result.ret)
debug("FF0 parser has reported error(s)");
}
else
{
error("not a supported file (contents not recognized)");
prefs.rewrite=false;
}
if (result.parsed_bytes>input_length)
error("%lu byte(s) have been parsed whereas the file length is %lu",
result.parsed_bytes, input_length);
if (result.parsed_bytes<input_length)
debug("%lu remaining byte(s)", input_length-result.parsed_bytes);
/* close input file */
fclose(input_file);
input_file=NULL;
if (prefs.rewrite)
{
int err;
size_t len;
post_rewrite(buffer, &result);
if (!result.ret)
{
warning("at least one parser error has been encountered,\nwritten file might be corrupted (unreliable data)");
/* unlink(output_filename); */
}
len=fsize(output_file);
if (output_file)
{
fclose(output_file);
output_file=NULL;
}
/* rename the temp file to override the original filename */
if (prefs.test_rewrite)
{
char* rewrite_filename;
size_t len;
len=strlen(output_filename)-7; /* get rid of the trailing random chars from mkstemp */
rewrite_filename=malloc((len+1+7+1)*sizeof(char));
if (!rewrite_filename)
fatal_error("couldn't allocate space for rewrite filename");
strncpy(rewrite_filename, output_filename, len);
strncpy(rewrite_filename+len, ".rewrite", 1+7);
rewrite_filename[len+1+7]='\0';
/* create a backup of the target file by renaming it */
if (prefs.rewrite_create_backup)
backup_file(rewrite_filename);
err=frename(output_filename, rewrite_filename);
if (err!=0)
error("couldn't rename '%s' to '%s' (error #%d)",
output_filename, rewrite_filename, err);
free(rewrite_filename);
rewrite_filename=NULL;
}
else
{
char* target_filename;
/* get rid of the trailing random chars from mkstemp */
target_filename=strndup(output_filename, strlen(output_filename)-7);
/* create a backup of the target file (it can be the input filename itself if no
target dir has been set) by renaming it */
if (prefs.rewrite_create_backup)
backup_file(target_filename);
err=frename(output_filename, target_filename);
if (err!=0)
error("couldn't rename '%s' to '%s' (error #%d)",
output_filename, target_filename, err);
else
info("written %d byte(s) to file '%s'", len, target_filename);
free(target_filename);
target_filename=NULL;
}
}
if (prefs.extract_iptc)
{
if (iptc_extract_buffer)
{
FILE* iptc_file;
unsigned long int len;
if (prefs.rewrite_create_backup)
backup_file(iptc_filename);
/* store the extracted IPTC chunk to file */
iptc_file=fopen(iptc_filename, "w+b");
if (!iptc_file)
fatal_error("couldn't create file '%s' for IPTC chunk extraction",
iptc_filename);
len=fwrite(iptc_extract_buffer, 1, iptc_extract_buffer_size, iptc_file);
if (len!=iptc_extract_buffer_size)
error("error %d while attempting to save %lu byte(s) from the IPTC chunk (%lu written)",
errno, iptc_extract_buffer_size, len);
debug("IPTC chunk extracted and saved: %lu byte(s) to file '%s'",
len, iptc_filename);
info("written %d byte(s) to file '%s'", len, iptc_filename);
/* free resources */
fclose(iptc_file);
iptc_file=NULL;
free(iptc_extract_buffer);
iptc_extract_buffer=NULL;
iptc_extract_buffer_size=0;
}
else
error("unexpected uninitialized IPTC extract buffer");
}
/* free resources */
if (buffer)
{
free(buffer);
buffer=NULL;
}
}
/* free resources */
if (iptc_filename)
{
free(iptc_filename);
iptc_filename=NULL;
}
if (output_filename)
{
free(output_filename);
output_filename=NULL;
}
i++;
context_print_info();
}
/* free resources */
if (prefs.op==OP_DUMP_VALUE)
iptc_filter_table_reset();
else
if (prefs.rewrite)
{
iptc_filter_table_reset();
iptc_edit_list_reset();
}
if (target_dirname)
{
free(target_dirname);
target_dirname=NULL;
}
if ((filenames_list!=argv) && filenames_list)
{
for (i=0; i<=filenames_count; i++)
{
free(filenames_list[i]);
filenames_list[i]=NULL;
}
free(filenames_list);
filenames_list=NULL;
}
info("total: %lu warning(s), %lu error(s)", prefs.warnings, prefs.errors);
if (prefs.fix)
info("total: %lu fix(es)", prefs.fixes);
exit_code=EXIT_CODE_NORMAL;
if (prefs.errors)
exit_code=EXIT_CODE_NORMAL_WITH_ERRORS;
else
if (prefs.warnings)
exit_code=EXIT_CODE_NORMAL_WITH_WARNINGS;
exit(exit_code);
}
pecomato-0.0.15/tiff.c 0000644 0001752 0001752 00000000022 10677223051 013461 0 ustar devel devel #include "tiff.h"
pecomato-0.0.15/util.c 0000644 0001752 0001752 00000111534 10677223051 013521 0 ustar devel devel /**
\file util.c
\brief Contains all-purpose tables and functions.
This file contains all general tables (or const variables) and functions definitions
that are need as general tools.
*/
#include "util.h"
#include "iptc.h"
#include <stdlib.h>
#include <stdio.h>
#ifndef OS_WIN32
#ifdef __GNUC__
#if (__GNUC__ < 4)
#include <unistd.h>
#endif
#else
#include <unistd.h>
#endif
#endif
#include <string.h>
#include <errno.h>
#include <sys/stat.h>
extern struct prefs_struct prefs; /**< preferences struct defined in main.c */
/** \var op_labels
\brief Description table for enum OP values.
This table implements all data for all enum OP values and their relevant
label structures.
*/
struct op_label op_labels[]=
{
{ OP_CHECK, "check", "just check embedded data structures" },
{ OP_DUMP, "dump", "show embedded data (headers only)" },
{ OP_DUMP_FULL, "dump-full", "show all embedded data (including values)" },
{ OP_DUMP_VALUE, "dump-value", "show requested value (headers only)" },
{ OP_FILTER, "filter", "filter embedded data (see -i, -e and --edit)" },
/** \TODO
- purge (iptc, exif, .., *),
- merge (picture file+iptc/exif/photoshop file)
- filter/extract (exif)
*/
/* reserved */
{ OP_EOT, NULL, NULL }
};
/** \var log_levels
\brief Description table for enum log_level values.
This table implements all data for all enum log_level values and their relevant
description structures.
*/
struct log_level_descr log_levels[]=
{
{ LOG_LEVEL_QUIET, "quiet, no output at all" },
{ LOG_LEVEL_ERRORS, "error messages only (default)" },
{ LOG_LEVEL_WARNINGS, "warning and error messages" },
{ LOG_LEVEL_INFO, "informative, warning and error messages" },
{ LOG_LEVEL_DEBUG, "all messages including debug ones" },
/* reserved */
{ LOG_LEVEL_EOT, NULL }
};
/** \var exit_code_labels
\brief Description table for enum EXIT_CODE values.
This table implements all data for all enum EXIT_CODE values and their relevant
label structures.
*/
struct exit_code_label exit_code_labels[]=
{
{ EXIT_CODE_NORMAL, "normal exit" },
{ EXIT_CODE_USAGE_ERROR, "usage error" },
{ EXIT_CODE_ASYNCHRONOUS_SIGNAL, "asynchronous signal termination" },
{ EXIT_CODE_NORMAL_WITH_WARNINGS, "normal exit, with warning(s)" },
{ EXIT_CODE_NORMAL_WITH_ERRORS, "normal exit, with error(s)" },
{ EXIT_CODE_FATAL_ERROR, "fatal error encountered" },
/* reserved */
{ EXIT_EOT, NULL }
};
/** \var rewrite_cache
\brief Write cache buffer.
Pointer to write cache buffer (to be allocated and freed).
*/
/** \var rewrite_cache_offset
\brief Write cache current offset.
The offset is increasing as bytes are stored in the cache. It starts at 0.
*/
/** \var rewrite_cache_size
\brief Write cache size.
Size of the write cache. Usually equal to the input file size. Does not
increase dynamically.
*/
/** \var output_file
\brief Output file handler.
Pointer to the output file handler.
*/
/** \var output_filename
\brief Output filename.
*/
/** \var input_length
\brief Input file length.
*/
unsigned char* rewrite_cache;
unsigned long int rewrite_cache_offset;
unsigned long int rewrite_cache_size;
FILE* output_file;
char* output_filename;
size_t input_length;
/** \brief Get a file size.
\param[in] file: pointer to an file handler (it must have been fopen()'ed).
\return The file length or 0 if an error occurred.
*/
size_t fsize(FILE* file)
{
size_t tmp;
fseek(file, 0, SEEK_END);
tmp=(size_t)ftell(file);
fseek(file, 0, SEEK_SET);
return(tmp);
}
/** \brief Check if a file exists (whatever its type is).
\param[in] filename: filename to check if it exists.
\return True if filename exists, otherwise returns false.
*/
bool fexist(const char* filename)
{
struct stat st;
if (stat(filename, &st)==0)
return(true);
return(false);
}
/** \brief Rename source_filename to target_filename.
\param[in] source_filename: original filename to rename.
\param[in] target_filename: new filename.
\return 0 if the file could be renamed, otherwise return an int (err).
Rename a file. Tries first to remove the destination file if it already
exists. This function doesn't interpret the return code, it's up to the
caller to check if it's 0 (OK) or non-0 (NOK). But if the removal of any
already existing target file fails, it will show an error.
*/
int frename(const char* source_filename, const char* target_filename)
{
int err;
if (fexist(target_filename))
{
#ifdef OS_WIN32
err=remove(target_filename);
if (err!=0)
error("frename: couldn't remove '%s' (error #%d)",
target_filename, err);
#else
err=unlink(target_filename);
if (err!=0)
error("frename: couldn't remove '%s' (error #%d)",
target_filename, err);
#endif
}
err=rename(source_filename, target_filename);
return(err);
}
/** \brief Check if a file is a regular file.
\param[in] filename: file to check if it's a regular file.
\return True if filename is a regular file, otherwise returns false.
*/
bool fisfile(const char* filename)
{
struct stat st;
if (stat(filename, &st)<0)
return(false);
if (S_ISREG(st.st_mode))
return(true);
return(false);
}
/** \brief Check if a file is to a link.
\param[in] filename: file to check if it's a link.
\return True if filename is a link, otherwise returns false.
*/
bool fislink(const char* filename)
{
struct stat st;
if (stat(filename, &st)<0)
return(false);
if (S_ISLNK(st.st_mode))
return(true);
return(false);
}
/** \brief Check if a file is a directory.
\param[in] filename: file to check if it's a directory.
\return True if filename is a directory, otherwise returns false.
*/
bool fisdir(const char* filename)
{
struct stat st;
if (stat(filename, &st)<0)
return(false);
if (S_ISDIR(st.st_mode))
return(true);
return(false);
}
/** \brief Get a file's extension.
\param[in] path: file path/name to look for an extension into.
\return A pointer to the 1st char of the file extension (if none, pointer to \\0).
Return a newly allocated string with the file extension if any
(or "" if none). it's up to the caller to free it using returned pointer.
*/
char* fextension(const char* path)
{
char* extension;
const char* filename;
int dot;
int sep;
/* keep the filename only */
sep=strrpos(path, DIR_SEPARATOR_CHAR);
if (sep==0)
filename=path;
else
filename=path+sep;
dot=strrpos(filename, '.');
if (dot==0)
extension=(char*)strdup("");
else
extension=(char*)strdup(filename+dot);
return(extension);
}
/** \brief Get a file's base name (no path, no extension).
\param[in] path: file path/name to look for a base name into.
\return A pointer to the 1st char of the file base name (if none, pointer to \\0).
Return a newly allocated string with the file base name (the filename
itself, with no path nor extension) if any (or "" if none). it's up to
the caller to free it using returned pointer.
*/
char* fbasename(const char* path)
{
char* basename;
const char* filename;
int dot;
int sep;
/* keep the filename only */
sep=strrpos(path, DIR_SEPARATOR_CHAR);
if (sep==0)
filename=path;
else
filename=path+sep;
dot=strrpos(filename, '.');
if (dot==0)
basename=(char*)strdup(filename);
else
basename=(char*)strndup(filename, dot-1);
return(basename);
}
/** \brief Get a file's base name (no path).
\param[in] path: file path/name to look for a filename into.
\return A pointer to the 1st char of the file name (if none, pointer to \\0).
Return a newly allocated string with the file name (with no path) if any
(or "" if none). it's up to the caller to free it using returned pointer.
*/
char* ffilename(const char* path)
{
char* filename;
int sep;
sep=strrpos(path, DIR_SEPARATOR_CHAR);
if (sep==0)
filename=(char*)strdup(path);
else
filename=(char*)strdup(path+sep);
return(filename);
}
/** \brief Get a file's base name (no filename, only the path remains).
\param[in] path: file path/name to look for a dir name into.
\return A pointer to the 1st char of the dir name (if none, pointer to \\0).
Return a newly allocated string with the dirname (everything but the
filename) if any (or "" if none). it's up to the caller to free the
returned pointer.
*/
char* fdirname(const char* path)
{
char* dirname;
int sep;
sep=strrpos(path, DIR_SEPARATOR_CHAR);
if (sep==0)
dirname=(char*)strdup("");
else
dirname=(char*)strndup(path, sep-1);
return(dirname);
}
/** \brief Get a cleaned-up pathname string (ensure that the path string is canonical).
\param[in] path: pathname to clean
\return A pointer to the 1st char of the dir name (if none, pointer to \\0).
Return a newly allocated string with the clean path (no duplicate or
trailing /). It's up to the caller to free the returned pointer.
*/
char* fcleanpath(const char* path)
{
const char* ptr;
size_t len;
/* skip trailing slashes */
len=strlen(path);
ptr=path+len-1;
while ((ptr>=path) && (*ptr==DIR_SEPARATOR_CHAR))
{
ptr--;
len--;
}
return((char*)strndup(path, len));
}
/** \brief Create a backup (.bak) of a file. Any already existing backup file will be removed.
\param[in] filename File name to backup.
\return Nothing.
Create a backup file by renaming the filename to a .bak one. Any already
existing .bak file gets removed. Errors (non-fatal for file I/O) are
managed here.
*/
void backup_file(const char* filename)
{
char* backup_filename;
int err;
/* build the backup filename */
err=0;
backup_filename=malloc((strlen(filename)+1+4)*sizeof(char));
if (!backup_filename)
fatal_error("backup_file: couldn't allocate space for backup filename");
strcpy(backup_filename, filename);
strcat(backup_filename, ".bak");
debug("backing up '%s' to '%s'", filename, backup_filename);
/* remove any already existing backup file */
if (fisfile(backup_filename) || fislink(backup_filename))
{
err=remove(backup_filename);
if (err!=0)
error("backup_file: couldn't remove previous backup file '%s' (error #%d)",
backup_filename, err);
}
/* rename the original file to back it up */
if (fisfile(filename) || fislink(backup_filename))
{
err=frename(filename, backup_filename);
if (err!=0)
error("backup_file: couldn't create backup '%s' from '%s' (error #%d)",
backup_filename, filename, err);
}
if (err==0)
info("'%s' file created", backup_filename);
/* free resources */
free(backup_filename);
backup_filename=NULL;
}
/** \brief
\param
\return
TODO
*/
unsigned char getbyte(unsigned char* ptr, unsigned long int offset)
{
return(ptr[offset]);
}
/** \brief
\param
\return
TODO
*/
unsigned short int getword(unsigned char* ptr, unsigned long int offset)
{
return((ptr[offset]<<8)|ptr[offset+1]);
}
/** \brief
\param
\return
TODO
*/
unsigned short int getrawword(unsigned char* ptr, unsigned long int offset)
{
return((ptr[offset+1]<<8)|ptr[offset]);
}
/** \brief
\param
\return
TODO
*/
unsigned long int getlong(unsigned char* ptr, unsigned long int offset)
{
return((((ptr[offset]<<8)|ptr[offset+1])<<16)|((ptr[offset+2]<<8)|ptr[offset+3]));
}
/** \brief
\param
\return
TODO
*/
unsigned long int getrawlong(unsigned char* ptr, unsigned long int offset)
{
return((((ptr[offset+3]<<8)|ptr[offset+2])<<16)|((ptr[offset+1]<<8)|ptr[offset]));
}
/** \brief
\param
\return
TODO
*/
unsigned char* getstring(unsigned char* ptr, unsigned long int offset, unsigned char* buf,
const unsigned long int len)
{
register unsigned int i;
for (i=0; i<len; i++)
buf[i]=ptr[offset+i];
buf[i]='\0';
return(buf);
}
/** \brief
\param
\return
TODO
*/
unsigned char* getraw(unsigned char* ptr, unsigned long int offset, unsigned char* buf,
const unsigned long int len)
{
memcpy(buf, ptr+offset, len*sizeof(unsigned char));
return(buf);
}
/** \brief
\param
\return
TODO
*/
void setbyte(unsigned char* ptr, unsigned long int offset, unsigned char byte)
{
ptr[offset]=byte;
}
/** \brief
\param
\return
TODO
*/
void setword(unsigned char* ptr, unsigned long int offset, unsigned short int word)
{
ptr[offset]=(word&0xff00)>>8;
ptr[offset+1]=word&0x00ff;
}
/** \brief
\param
\return
TODO
*/
void setlong(unsigned char* ptr, unsigned long int offset, unsigned long int dword)
{
ptr[offset]=(dword&0xff000000UL)>>24;
ptr[offset+1]=(dword&0x00ff0000UL)>>16;
ptr[offset+2]=(dword&0x0000ff00UL)>>8;
ptr[offset+3]=dword&0x000000ffUL;
}
/** \brief
\param
\return
TODO
*/
void message_fatal_error(char* format, va_list args)
{
if (prefs.log_level>=LOG_LEVEL_ERRORS)
{
context_print_text();
prefs.context_errors++;
prefs.errors++;
fprintf(stderr, "error: ");
vfprintf(stderr, format, args);
fprintf(stderr, "\nfatal error encountered, bailing out\n");
context_print_info();
}
_exit(EXIT_CODE_FATAL_ERROR);
}
/** \brief
\param
\return
TODO
*/
void message_error(char* format, va_list args)
{
if (prefs.log_level>=LOG_LEVEL_ERRORS)
{
context_print_text();
prefs.context_errors++;
prefs.errors++;
fprintf(stderr, "error: ");
vfprintf(stderr, format, args);
fprintf(stderr, "\n");
}
}
/** \brief
\param
\return
TODO
*/
void message_warning(char* format, va_list args)
{
if (prefs.log_level>=LOG_LEVEL_WARNINGS)
{
context_print_text();
prefs.context_warnings++;
prefs.warnings++;
fprintf(stderr, "warning: ");
vfprintf(stderr, format, args);
fprintf(stderr, "\n");
}
}
/** \brief
\param
\return
TODO
*/
void message_info(char* format, va_list args)
{
if (prefs.log_level>=LOG_LEVEL_INFO)
{
fprintf(stdout, "info: ");
vfprintf(stdout, format, args);
fprintf(stdout, "\n");
fflush(stdout);
}
}
/** \brief
\param
\return
TODO
*/
void message_debug(char* format, va_list args)
{
if (prefs.log_level>=LOG_LEVEL_DEBUG)
{
fprintf(stdout, "debug: ");
vfprintf(stdout, format, args);
fprintf(stdout, "\n");
fflush(stdout);
}
}
/** \brief
\param
\return
TODO
*/
void fatal_error(char* format, ...)
{
va_list args;
va_start(args, format);
message_fatal_error(format, args);
va_end(args);
}
/** \brief
\param
\return
TODO
*/
void error(char* format, ...)
{
va_list args;
va_start(args, format);
message_error(format, args);
va_end(args);
}
/** \brief
\param
\return
TODO
*/
void warning(char* format, ...)
{
va_list args;
va_start(args, format);
message_warning(format, args);
va_end(args);
}
/** \brief
\param
\return
TODO
*/
void info(char* format, ...)
{
va_list args;
va_start(args, format);
message_info(format, args);
va_end(args);
}
/** \brief
\param
\return
TODO
*/
void debug(char* format, ...)
{
va_list args;
va_start(args, format);
message_debug(format, args);
va_end(args);
}
/** \brief
\param
\return
TODO
*/
void message(enum SEVERITY severity, char* format, ...)
{
va_list args;
va_start(args, format);
switch (severity)
{
case SEV_FATAL_ERROR:
message_fatal_error(format, args);
break;
case SEV_ERROR:
message_error(format, args);
break;
case SEV_WARNING:
message_warning(format, args);
break;
case SEV_INFO:
message_info(format, args);
break;
case SEV_DEBUG:
message_debug(format, args);
break;
}
va_end(args);
}
/** \brief
\param
\return
TODO
*/
void context_set_text(char* text)
{
prefs.context_text=text;
}
/** \brief
\param
\return
TODO
*/
void context_print_text(void)
{
/* show context information when first warning/error is encounter */
if (prefs.context_text)
if ((prefs.context_warnings+prefs.context_errors)==0)
fprintf(stderr, "in file '%s':\n", prefs.context_text);
}
/** \brief
\param
\return
TODO
*/
void context_print_info(void)
{
if ((prefs.context_warnings+prefs.context_errors)>0)
fprintf(stderr, "%lu warning(s), %lu error(s)\n",
prefs.context_warnings, prefs.context_errors);
if (prefs.fix && (prefs.context_fixes>0))
fprintf(stderr, "%lu fix(es)\n",
prefs.fixes);
}
/** \brief
\param
\return
TODO
*/
void context_reset(void)
{
prefs.context_text=NULL;
prefs.context_warnings=0;
prefs.context_errors=0;
prefs.context_fixes=0;
}
/** \brief
\param
\return
TODO
*/
struct op_label* op_match_label(char* label)
{
register int i;
i=0;
while (op_labels[i].op!=OP_EOT)
{
if (strcmp(op_labels[i].label, label)==0)
return(&op_labels[i]);
i++;
}
return(NULL);
}
/** \brief
\param
\return
TODO
*/
void init_rewrite(void)
{
char* filename;
size_t len;
int fd;
FILE* file;
if (!prefs.rewrite)
fatal_error("init_rewrite: rewrite flag not set");
if (output_file)
fatal_error("init_rewrite: bad output file handler");
if (!output_filename)
fatal_error("init_rewrite: bad output filename");
/* get a temporary filename */
len=strlen(output_filename);
filename=malloc((len+1+6+1)*sizeof(char));
if (!filename)
fatal_error("init_rewrite: couldn't allocate space for init_rewrite");
strcpy(filename, output_filename);
strcat(filename, ".XXXXXX");
fd=mkstemp(filename);
if (fd<0)
fatal_error("init_rewrite: couldn't create a temporary file from '%s'", output_filename);
/* open file for writing */
file=fdopen(fd, "w+b");
if (!file)
{
close(fd);
fatal_error("init_rewrite: couldn't open temporary file '%s' for writing", output_filename);
}
/* write back values to caller */
output_file=file;
free(output_filename); /* free previous allocation (from caller) */
output_filename=(char*)strdup(filename);
free(filename);
/* cached rewriting */
if (prefs.rewrite_cached)
{
rewrite_cache=malloc(input_length*sizeof(char));
if (!rewrite_cache)
fatal_error("init_rewrite: couldn't allocate space for rewrite cache (%lu byte(s))",
rewrite_cache_size);
rewrite_cache_offset=0;
rewrite_cache_size=input_length;
}
}
/** \brief
\param
\return
TODO
*/
size_t dump_rewrite(unsigned char* buffer, unsigned long int length)
/* returns the number of bytes written */
{
size_t len;
if (!prefs.rewrite)
fatal_error("init_rewrite: rewrite flag not set");
debug("dump_rewrite: writing %lu byte(s)", length);
len=0;
if (length>0)
{
if (prefs.rewrite_cached)
{
if (rewrite_cache_offset+length>rewrite_cache_size)
{
/* reallocate more space for cached writing */
rewrite_cache_size+=length+1024;
rewrite_cache=realloc(rewrite_cache, rewrite_cache_size);
if (!rewrite_cache)
fatal_error("dump_rewrite: couldn't rellocate more space for rewrite_cache (%lu byte(s))",
rewrite_cache_size);
}
/* write bytes to cache */
memcpy(rewrite_cache+rewrite_cache_offset, buffer, length);
rewrite_cache_offset+=length;
len=length;
}
else
{
/* dump bytes to file */
len=fwrite(buffer, 1, length, output_file);
if (len!=length)
error("dump_rewrite: error %d while attempting to write %lu byte(s) (%lu written)",
errno, length, len);
}
}
return(len);
}
/** \brief
\param
\return
TODO
*/
void post_rewrite(unsigned char* buffer, struct parser_result* result)
{
unsigned long int len;
if (!prefs.rewrite)
fatal_error("post_rewrite: rewrite flag not set");
if (!result)
fatal_error("post_rewrite: bad pointer to struct result");
/* write remaining bytes */
if (input_length>result->parsed_bytes)
{
len=input_length-result->parsed_bytes;
/*
if (result->parsed_bytes!=result->written_bytes)
len-=(result->parsed_bytes-result->written_bytes);
*/
}
else
len=0;
if (prefs.rewrite_cached)
{
if (len>0)
{
debug("post_rewrite: writing remaining %lu byte(s) to cache", len);
memcpy(rewrite_cache+rewrite_cache_offset, buffer+result->parsed_bytes, len);
rewrite_cache_offset+=len;
}
/* flush cache to disk */
len=fwrite(rewrite_cache, 1, rewrite_cache_offset, output_file);
if (len!=rewrite_cache_offset)
error("post_rewrite: error %d while attempting to flush %lu cached bytes (%lu written)",
errno, rewrite_cache_offset, len);
if (rewrite_cache_offset>input_length)
info("rewritten file is %lu byte(s) bigger than the original",
rewrite_cache_offset-input_length);
else
if (rewrite_cache_offset<input_length)
info("rewritten file is %lu byte(s) smaller than the original",
input_length-rewrite_cache_offset);
else
info("rewritten file and original file have the same size");
}
else
if (len>0)
{
debug("post_rewrite: writing remaining %lu byte(s)", len);
dump_rewrite(buffer+result->parsed_bytes, len);
}
/* deallocate resource */
free(rewrite_cache);
rewrite_cache=NULL;
}
/** \brief
\param
\return
TODO
*/
bool get_unsigned_value(const char* param, unsigned long int* var)
{
unsigned int value;
char* chk;
value=(unsigned int) strtoul(param, &chk, 10);
if (!*chk)
{
*var=value;
return(true);
}
return(false);
}
/** \brief
\param
\return
TODO
*/
bool get_signed_value(const char* param, long int* var)
{
int value;
char* chk;
value=(int)strtol(param, &chk, 10);
if (!*chk)
{
*var=value;
return(true);
}
return(false);
}
/** \brief
\param
\return
TODO
*/
bool get_hexa_value(const char* param, unsigned long int* var)
{
unsigned int value;
char* chk;
value=strtoul(param, &chk, 16);
if (!*chk)
{
*var=value;
return(true);
}
return(false);
}
/** \brief
\param
\return
TODO
*/
size_t strpos(const char* string, const char c)
{
char* ptr;
ptr=(char*)string;
while (*ptr)
if (*ptr==c)
return((size_t)(ptr-string+1));
else
ptr++;
return(0);
}
/** \brief
\param
\return
TODO
*/
size_t strrpos(const char* string, const char c)
{
char* ptr;
ptr=(char*)string+strlen(string)-1;
while (ptr>=string)
if (*ptr==c)
return((size_t)(ptr-string+1));
else
ptr--;
return(0);
}
/** \brief
\param
\return
TODO
*/
void filenames_list_load(char*** filenames_list_ptr, int* filenames_count_ptr, FILE* list_file)
{
char** filenames_list;
char* buffer;
ssize_t len;
unsigned long int filenames_count;
size_t size;
int copy_limit;
/* allocate a minimum amount of copied-lines */
copy_limit=256;
filenames_list=(char**)malloc(copy_limit*sizeof(char*));
if (!filenames_list)
fatal_error("filenames_list_load: couldn't allocate more space for filenames list (%lu byte(s))",
copy_limit*sizeof(char*));
filenames_count=0;
buffer=NULL;
size=32*1024; /* should match any MAX_PATH */
while (((len=getline(&buffer, &size, list_file))!=-1) && buffer)
{
char* ptr;
char* p;
ptr=buffer;
/* skip leading non printable chars if any */
while (*ptr && (*ptr<32))
ptr++;
/* skip trailing non printable chars if any */
p=buffer+len-1;
while ((p>=ptr) && (*p<32))
*p--='\0';
debug("filenames_list_load: line %lu, %lu byte(s)", filenames_count, len);
if (*buffer)
{
/* dynamically realloc copied-lines buffer */
if ((int)filenames_count>=copy_limit)
{
char** ptr;
copy_limit+=256;
ptr=(char**)realloc(filenames_list, copy_limit*sizeof(char*));
if (!ptr)
{
free(filenames_list);
fatal_error("filenames_list_load: couldn't rellocate more space for filenames list (%lu byte(s))",
copy_limit*sizeof(char*));
}
filenames_list=ptr;
}
/* duplicate the filename */
filenames_list[filenames_count]=strndup(buffer, strlen(buffer)+1);
if (!filenames_list[filenames_count])
fatal_error("filenames_list_load: couldn't allocate space for filenames list contents (%lu byte(s))",
(strlen(buffer)+1)*sizeof(char));
filenames_count++;
}
}
if (buffer)
free(buffer);
*filenames_list_ptr=filenames_list;
*filenames_count_ptr=filenames_count;
}
/** \brief
\param
\return
TODO
*/
bool filter_parse_line(char* buffer, size_t len, unsigned long int line)
{
char *ptr;
char* p;
int errors;
errors=0;
ptr=buffer;
/* skip leading non printable chars and whitespaces if any */
while (*ptr && (*ptr<=32))
ptr++;
/* skip trailing non printable chars and whitespaces if any */
p=buffer+len-1;
while ((p>=ptr) && (*p<=32))
*p--='\0';
/* ignore empty lines as well as comments */
if (!*ptr || (*ptr=='#'))
debug("filter_parse_file: ignore blank line or comment at line %lu", line);
else
{
/* IPTC filter masks decoding */
if (strncmp(ptr, "IPTC.", 5)==0)
{
/* possible IPTC filter masks:
IPTC.* all
IPTC.0xhhhh record+dataset (4-digit hexadecimal)
IPTC.0xhhhh-0xhhhh record+dataset range (4-digit hexadecimals)
IPTC.nnn:nnn record+dataset (1-3 digits per decimal value, each value [0-255])
IPTC.nnn:* all datasets from record nnn (1-3 digits per decimal value, each value [0-255])
IPTC.nnn:nnn-nnn record and dataset range (1-3 digits per decimal value, each value [0-255])
for instance:
IPTC.*
IPTC.0x0219
IPTC.0x0200-0x07ff
IPTC.2:*
IPTC.2:25
IPTC.2:0-255
*/
debug("filter_parse_line: found IPTC filter item");
ptr+=5;
if (strcmp(ptr, "*")==0)
iptc_filter_add_range(0x0000, 0xffff);
else
if (strncmp(ptr, "0x", 2)==0)
{
/* hexadecimal */
unsigned long int code;
unsigned long int code2;
p=strstr(ptr, "-0x");
if (p)
{
/* range value */
debug("filter_parse_line: hexadecimal range at line %lu", line);
*p='\0';
/* skip the range separator */
p++;
if ((strlen(ptr)==6) && get_hexa_value(ptr, &code)
&& (strlen(p)==6) && get_hexa_value(p, &code2))
iptc_filter_add_range(code, code2);
else
{
errors++;
error("filter_parse_line: bad hexadecimal range (0xhhhh-0xhhhh) at line %lu",
line);
}
}
else
{
/* unary value */
debug("filter_parse_line: hexadecimal unary value at line %lu", line);
if ((strlen(ptr)==6) && get_hexa_value(ptr, &code))
iptc_filter_add_value(code);
else
{
errors++;
error("filter_parse_line: bad hexadecimal unary value (0xhhhh) at line %lu",
line);
}
}
}
else
{
/* decimal duplet */
unsigned long int record;
unsigned long int dataset;
unsigned long int dataset2;
int pos;
pos=strpos(ptr, ':');
if (pos)
{
debug("filter_parse_line: decimal value at line %lu", line);
ptr[pos-1]='\0';
p=ptr+pos;
/* record value */
if (get_unsigned_value(ptr, &record) && (record<=0xff))
{
if (strcmp(p, "*")==0)
iptc_filter_add_range((unsigned short int)(record<<8),
(unsigned short int)(record<<8)|0xff);
else
{
/* range value */
ptr=p;
pos=strpos(ptr, '-');
if (pos)
{
ptr[pos-1]='\0';
p=ptr+pos;
if (get_unsigned_value(ptr, &dataset) && (dataset<=0xff)
&& get_unsigned_value(p, &dataset2) && (dataset2<=0xff))
iptc_filter_add_range((unsigned short int)(record<<8)|dataset,
(unsigned short int)(record<<8)|dataset2);
else
{
errors++;
error("filter_parse_line: bad range value in decimal duplet (nnn-nnn) at line %lu",
line);
}
}
else
{
/* unary value */
if (get_unsigned_value(p, &dataset) && (dataset<0xff))
iptc_filter_add_value((unsigned short int)((record<<8)|dataset));
else
{
errors++;
error("filter_parse_line: bad dataset value in decimal duplet (nnn) at line %lu",
line);
}
}
}
}
else
{
errors++;
error("filter_parse_line: bad record value in decimal duplet (nnn) at line %lu",
line);
}
}
else
{
errors++;
error("filter_parse_line: bad decimal duplet value (nnn:nnn) at line %lu: %s",
line, ptr);
}
}
}
/* else
if (strncmp(buffer, "Exif.", 5))
{
}
else
if (strncmp(buffer, "Adobe.", 6))
{
}
*/ else
{
errors++;
error("filter_parse_line: invalid filter file contents at line %lu (%lu byte(s))",
line, len);
debug("filter_parse_line: line is: %s", buffer);
}
}
return((errors==0));
}
/** \brief
\param
\return
TODO
*/
void filter_load_line(char* buffer)
{
ssize_t len;
if (!buffer)
error("filter_load_line: bad pointer to buffer");
if (!*buffer)
error("filter_load_line: empty buffer");
iptc_filter_table_init();
len=strlen(buffer);
if (!filter_parse_line(buffer, len, 0))
fatal_error("filter_load_line: bad filter line");
}
/** \brief
\param
\return
TODO
*/
void filter_load_file(FILE* list_file)
{
ssize_t len;
unsigned long int line;
unsigned long int errors;
char* buffer;
size_t size;
if (!list_file)
error("filter_load_file: bad input file handler");
iptc_filter_table_init();
line=0;
errors=0;
buffer=NULL;
size=100;
while (((len=getline(&buffer, &size, list_file))!=-1) && buffer)
{
buffer[len]='\0';
debug("filter_load_file: line %lu, %lu byte(s)", line, len);
if (!filter_parse_line(buffer, len, line))
errors++;
line++;
}
if (buffer)
free(buffer);
debug("filter_load_file: %lu line(s), %lu error(s)", line, errors);
if (errors)
fatal_error("filter_load_file: bad filter file");
}
/** \brief
\param
\return
TODO
*/
bool edit_parse_line(const char* buffer, size_t len, unsigned long int line)
/* strdup/strlen/etc. functions can't be used there, as it's possible to get '\0' char in the
value part of the edit expression (if it contains widechars). all length calculation
accross the whole line of the value part must be based upon 'len'. */
{
const char* const_ptr;
char* buffer_copy;
char *ptr;
char* p;
size_t buffer_length;
int errors;
errors=0;
/* skip trailing cr/lf chars */
buffer_length=len;
const_ptr=buffer+buffer_length-1;
while ((const_ptr>=buffer) && ((*const_ptr=='\n') || (*const_ptr=='\r')))
{
buffer_length--;
const_ptr++;
}
buffer_length++; /* count the trailing '\0' */
/* work on a copy of the buffer (we'll need to write '\0' chars to work on sub-expressions) */
buffer_copy=malloc(buffer_length);
if (!buffer_copy)
fatal_error("edit_parse_line: couldn't allocate buffer_copy for value");
memcpy(buffer_copy, buffer, buffer_length);
buffer_copy[buffer_length-1]='\0';
ptr=buffer_copy;
/* skip leading non printable chars and whitespaces if any */
while (*ptr && (*ptr<=32))
ptr++;
/* ignore empty lines as well as comments */
if (!*ptr || (*ptr=='#'))
debug("edit_parse_file: ignore blank line or comment at line %lu", line);
else
{
/* IPTC edit (add/replace) expression decoding */
if (strncmp(ptr, "IPTC.", 5)==0)
{
/* possible IPTC edit masks:
IPTC.0xhhhh=<type>:<value> record+dataset (4-digit hexadecimal)
IPTC.nnn:nnn=<type>:<value> record+dataset (1-3 digits per decimal value, each value [0-255])
where <type> can be hex or text
where <value> is either a text: ASCII 7-bit string, trailing spaces matter
or a set of hexadecimal digit pairs (matching regex ([0-9a-fA-F]{2})+)
for instance:
IPTC.0x0219=text:keyword1
IPTC.0x0219=hex:
IPTC.2:25=text:keyword1
IPTC.2:25
*/
int pos;
debug("edit_parse_line: found IPTC edit item");
ptr+=5;
pos=strpos(ptr, '=');
if (pos)
{
/* decode type and value */
ptr[pos-1]='\0';
p=ptr+pos;
pos=strpos(p, ':');
if (pos)
{
enum FILTER_EDIT_VALUE_TYPE type=FEV_NONE;
char* typename;
char* value;
char* stored_value=NULL;
size_t stored_value_length=0;
bool stored_value_in_use=false;
/* get type */
p[pos-1]='\0';
typename=p;
if (strcmp(typename, "hex")==0)
type=FEV_HEX;
else
if (strcmp(typename, "text")==0)
type=FEV_TEXT;
else
{
errors++;
error("edit_parse_line: bad value type '%s' at line %lu, expected 'hex' or 'text'",
p, line);
}
if (errors)
goto edit_parse_line_abort;
/* get value */
value=p+pos;
stored_value_length=buffer_length-(value-buffer_copy)-1; /* don't count the trailing '\0' */
/* check the value according to its type and store/encore it to binary */
if (stored_value_length==0)
{
errors++;
error("edit_parse_line: empty %s value at line %lu",
typename, line);
}
if (type==FEV_HEX)
{
char* hex;
char one_byte[3];
unsigned long int byte_val;
char* bin;
if (stored_value_length%2)
{
errors++;
error("edit_parse_line: invalid odd length (%lu byte(s)) for hex value '%s' at line %lu",
stored_value_length, value, line);
}
hex=value;
while (*hex &&
( (('a'<=*hex) && (*hex<='f'))
|| (('A'<=*hex) && (*hex<='F'))
|| (('0'<=*hex) && (*hex<='9'))))
hex++;
if (*hex!='\0')
{
errors++;
error("edit_parse_line: invalid hex value '%s' at line %lu",
value, line);
}
stored_value_length/=2;
stored_value=malloc(stored_value_length);
if (!stored_value)
fatal_error("edit_parse_line: couldn't allocate storage buffer for hex value");
/* encode hex string value to binary */
one_byte[2]=0;
hex=value;
bin=stored_value;
while (*hex)
{
*one_byte=*hex;
one_byte[1]=hex[1];
if (get_hexa_value(one_byte, &byte_val))
*bin=(unsigned char)byte_val;
hex+=2;
bin++;
}
}
else
if (type==FEV_TEXT)
{
stored_value=malloc(stored_value_length);
if (!stored_value)
fatal_error("edit_parse_line: couldn't allocate storage buffer for text value");
memcpy(stored_value, value, stored_value_length);
}
if (errors)
goto edit_parse_line_abort;
/* decode the record+dataset part */
if (strncmp(ptr, "0x", 2)==0)
{
/* hexadecimal */
unsigned long int code;
/* unary value */
debug("edit_parse_line: hexadecimal unary value at line %lu", line);
if ((strlen(ptr)==6) && get_hexa_value(ptr, &code))
iptc_edit_add_edit(code, stored_value_length,
(unsigned char*)stored_value,
&stored_value_in_use);
else
{
errors++;
error("edit_parse_line: bad hexadecimal unary value (0xhhhh) at line %lu: %s",
line, ptr);
}
}
else
{
/* decimal duplet */
unsigned long int record;
unsigned long int dataset;
int pos;
pos=strpos(ptr, ':');
if (pos)
{
debug("edit_parse_line: decimal value at line %lu", line);
ptr[pos-1]='\0';
p=ptr+pos;
/* record value */
if (get_unsigned_value(ptr, &record) && (record<=0xff))
{
/* unary value */
if (get_unsigned_value(p, &dataset) && (dataset<0xff))
iptc_edit_add_edit((unsigned short int)((record<<8)|dataset),
stored_value_length, (unsigned char*)stored_value,
&stored_value_in_use);
else
{
errors++;
error("edit_parse_line: bad dataset value in decimal duplet (nnn) at line %lu: %s",
line, p);
}
}
else
{
errors++;
error("edit_parse_line: bad record value in decimal duplet (nnn) at line %lu: %s",
line, ptr);
}
}
else
{
errors++;
error("edit_parse_line: bad decimal duplet value (nnn:nnn) at line %lu: %s",
line, ptr);
}
}
edit_parse_line_abort:
if (!stored_value_in_use)
{
free(stored_value);
stored_value=NULL;
}
}
else
{
errors++;
error("edit_parse_line: bad value sub-expression in edit expression at line %lu: %s",
line, ptr);
}
}
else
{
errors++;
error("edit_parse_line: invalid edit expression at line %lu: %s",
line, ptr);
}
}
/* else
if (strncmp(buffer, "Exif.", 5))
{
}
else
if (strncmp(buffer, "Adobe.", 6))
{
}
*/ else
{
errors++;
error("edit_parse_line: invalid edit file contents at line %lu (%lu byte(s))",
line, buffer_length);
debug("edit_parse_line: line is: %s", buffer);
}
}
free(buffer_copy);
return((errors==0));
}
/** \brief
\param
\return
TODO
*/
void edit_load_line(const char* buffer)
{
ssize_t len;
if (!buffer)
error("edit_load_line: bad pointer to buffer");
if (!*buffer)
error("edit_load_line: empty buffer");
iptc_edit_list_init();
/* FIXME: strlen should not be used there (buffer might contain widechars -> possibly '\0' chars) */
len=strlen(buffer);
if (!edit_parse_line(buffer, len, 0))
fatal_error("edit_load_line: bad edit line");
}
/** \brief
\param
\return
TODO
*/
void edit_load_file(FILE* list_file)
{
ssize_t len;
unsigned long int line;
unsigned long int errors;
char* buffer;
size_t size;
if (!list_file)
error("edit_load_file: bad input file handler");
iptc_edit_list_init();
line=0;
errors=0;
buffer=NULL;
size=100;
while (((len=getline(&buffer, &size, list_file))!=-1) && buffer)
{
buffer[len]='\0';
debug("edit_load_file: line %lu, %lu byte(s)", line, len);
if (!edit_parse_line(buffer, len, line))
errors++;
line++;
}
if (buffer)
free(buffer);
debug("edit_load_file: %lu line(s), %lu error(s)", line, errors);
if (errors)
fatal_error("edit_load_file: bad edit file");
}
/** \brief
\param
\return
TODO
*/
void dump_hexa(unsigned char* value, unsigned long int length)
{
unsigned long int i;
printf("[%lu byte(s)]:", length);
if (prefs.wrap_dump>0)
printf("\n");
else
printf(" ");
for (i=1; i<=length; i++)
{
printf("%02x ", value[i-1]);
if (prefs.wrap_dump>0)
/* append a newline char each 32 hexabyte printed */
if ((i%prefs.wrap_dump)==0)
printf("\n");
}
if (prefs.wrap_dump>0)
{
if (length!=prefs.wrap_dump) /* newline if not just appended */
printf("\n");
}
else
printf("\n");
}
pecomato-0.0.15/adobe.h 0000644 0001752 0001752 00000006373 10677223051 013627 0 ustar devel devel #ifndef _adobe_h_
#define _adobe_h_
#include "util.h"
#define ADOBE_8BPS_MARKER 0x38425053UL /* 8BPS from Photoshop 3.0 */
#define ADOBE_8BIM_MARKER 0x3842494dUL /* 8BIM from Adobe IRB */
#define ADOBE_FFO_MARKER 0xaa /* FFO from Photoshop 6.0+ */
/* Photoshop fields (specs from 2.0 up to 6.0) */
enum ADOBE_RESOURCE
{
ADOBE_RSC_RASTER_INFO =0x03e8,
ADOBE_RSC_MACINTOSH_PRINT_INFO =0x03e9,
ADOBE_RSC_INDEXED_COLOR_TABLE =0x03eb,
ADOBE_RSC_RESOLUTION =0x03ed,
ADOBE_RSC_ALPHA_CHANNEL_NAMES =0x03ee,
ADOBE_RSC_DISPLAY =0x03ef,
ADOBE_RSC_CAPTION =0x03f0,
ADOBE_RSC_BORDER_STYLE =0x03f1,
ADOBE_RSC_BACRKGROUND_COLOR =0x03f2,
ADOBE_RSC_PRINT_FLAGS =0x03f3,
ADOBE_RSC_GRAYSCALE_MULTICHANNEL_HALFTONING =0x03f4,
ADOBE_RSC_COLOR_HALFTONING =0x03f5,
ADOBE_RSC_DUOTONE_HALFTONING =0x03f6,
ADOBE_RSC_GRAYSCALE_MULTICHANNEL_TRANSFER =0x03f7,
ADOBE_RSC_COLOR_TRANSFER =0x03f8,
ADOBE_RSC_DUOTONE_TRANSFER =0x03f9,
ADOBE_RSC_DUOTONE_IMAGE =0x03fa,
ADOBE_RSC_BW_VALUES =0x03fb,
ADOBE_RSC_OBSOLETE1 =0x03fc,
ADOBE_RSC_EPS_OPTIONS =0x03fd,
ADOBE_RSC_QUICK_MASK =0x03fe,
ADOBE_RSC_OBSOLETE2 =0x03ff,
ADOBE_RSC_LAYER_STATE =0x0400,
ADOBE_RSC_WORKING_PATH =0x0401,
ADOBE_RSC_LAYER_GROUP =0x0402,
ADOBE_RSC_OBSOLETE3 =0x0403,
ADOBE_RSC_IPTC_FILE_INFO =0x0404,
ADOBE_RSC_IMAGE_MODE =0x0405,
ADOBE_RSC_JPEG_QUALITY =0x0406,
ADOBE_RSC_GRID_GUIDES_INFO =0x0408,
ADOBE_RSC_THUMBNAIL_RESOURCE1 =0x0409,
ADOBE_RSC_COPYRIGHT_FLAG =0x040a,
ADOBE_RSC_UNIFORM_RESOURCE_LOCATOR =0x040b,
ADOBE_RSC_THUMBNAIL_RESOURCE2 =0x040c,
ADOBE_RSC_GLOBAL_ANGLE =0x040d,
ADOBE_RSC_COLOR_SAMPLERS_RESOURCE1 =0x040e,
ADOBE_RSC_ICC_PROFILE =0x040f,
ADOBE_RSC_WATERMARK =0x0410,
ADOBE_RSC_ICC_UNTAGGER =0x0411,
ADOBE_RSC_EFFECTS_VISIBLE =0x0412,
ADOBE_RSC_SPOT_HALFTONE =0x0413,
ADOBE_RSC_DOCUMENT_SPECIFIC_IDS =0x0414,
ADOBE_RSC_UNICODE_ALPHA_NAMES =0x0415,
ADOBE_RSC_INDEXED_COLOR_TABLE_COUNT =0x0416,
ADOBE_RSC_TRANSPARENT_INDEX =0x0417,
ADOBE_RSC_GLOBAL_ALTITUDE =0x0419,
ADOBE_RSC_SLICES =0x041a,
ADOBE_RSC_WORKFLOW_URL =0x041b,
ADOBE_RSC_XPEP_JUMP =0x041c,
ADOBE_RSC_ALPHA_IDENTIFIERS =0x041d,
ADOBE_RSC_URL_LIST =0x041e,
ADOBE_RSC_VERSION_INFO =0x0421,
ADOBE_RSC_CLIPPING_PATH =0x0bb7,
ADOBE_RSC_PRINT_FLAGS_INFO =0x2710,
/* reserved */
ADOBE_RSC_EOT =0xffff
};
struct adobe_resource_descr
{
unsigned short int resource;
char* label;
};
struct adobe_resource_range_descr
{
unsigned short int lower_boundary;
unsigned short int upper_boundary;
char* label;
};
void adobe_8bps_parse(unsigned char*, unsigned long int, struct parser_result*);
void adobe_ffo_parse(unsigned char*, unsigned long int, const unsigned short int, struct parser_result*);
void adobe_8bim_parse(unsigned char*, unsigned long int, const unsigned short int, struct parser_result*);
struct adobe_resource_descr* adobe_match_resource(const enum ADOBE_RESOURCE);
struct adobe_resource_range_descr* adobe_match_resource_range(const enum ADOBE_RESOURCE);
void adobe_dump_resource_list(void);
#endif
pecomato-0.0.15/config.h 0000644 0001752 0001752 00000000522 10677223051 014010 0 ustar devel devel #ifndef _config_h_
#define _config_h_
/* define this to show IPTC resource IDs as numerical (for instance: 2:015 instead of 0x020f) */
/* #define IPTC_SHOW_NUMERICAL_ID */
/* define this to always use cached writing (otherwise, cached writing will be used when any
filter table is used */
/* #define ALWAYS_CACHE_REWRITE */
#endif
pecomato-0.0.15/exif.h 0000644 0001752 0001752 00000020061 10677223051 013476 0 ustar devel devel #ifndef _exif_h_
#define _exif_h_
#include <string.h>
#include "util.h"
#define EXIF_MARKER 0x45786966UL /* followed by 0x0000 */
#define EXIF_MARKER_STRING "Exif\0\0"
/* some TIFF definitions */
enum TIFF_TYPE
{
TIFF_IFD_TYPE_BYTE =1,
TIFF_IFD_TYPE_STRING =2,
TIFF_IFD_TYPE_USHORT =3,
TIFF_IFD_TYPE_ULONG =4,
TIFF_IFD_TYPE_URATIONAL =5,
TIFF_IFD_TYPE_SBYTE =6,
TIFF_IFD_TYPE_UNDEFINED =7,
TIFF_IFD_TYPE_SSHORT =8,
TIFF_IFD_TYPE_SLONG =9,
TIFF_IFD_TYPE_SRATIONAL =10,
TIFF_IFD_TYPE_FLOAT =11,
TIFF_IFD_TYPE_DOUBLE =12,
/* reserved */
TIFF_IFD_TYPE_UNKNOWN =-1
};
struct tiff_ifd_entry
{
unsigned short int tag;
unsigned short int type;
unsigned long int count;
unsigned long int value_offset;
};
struct tiff_ifd_type_size
{
enum TIFF_TYPE type;
unsigned int size;
};
/* TIFF types in fact, Exif types only represents a subset */
enum EXIF_IFD_CODE
{
EXIF_IFD_IMAGE_WIDTH =0x0100,
EXIF_IFD_IMAGE_HEIGHT =0x0101,
EXIF_IFD_BITS_PER_SAMPLE =0x0102,
EXIF_IFD_COMPRESSION =0x0103,
EXIF_IFD_PHOTOMETRIC_INTERPRETATION =0x0106,
EXIF_IFD_IMAGE_DESCR =0x010e,
EXIF_IFD_MAKE =0x010f,
EXIF_IFD_MODEL =0x0110,
EXIF_IFD_STRIP_OFFSETS =0x0111,
EXIF_IFD_ORIENTATION =0x0112,
EXIF_IFD_SAMPLES_PER_PIXEL =0x0115,
EXIF_IFD_ROWS_PER_STRIP =0x0116,
EXIF_IFD_STRIP_BYTE_COUNT =0x0117,
EXIF_IFD_XRES =0x011a,
EXIF_IFD_YRES =0x011b,
EXIF_IFD_RES_UNIT =0x0128,
EXIF_IFD_SOFTWARE =0x0131,
EXIF_IFD_DATE_TIME =0x0132,
EXIF_IFD_JPEG_IF_OFFSET =0x0201,
EXIF_IFD_JPEG_IF_BYTE_COUNT =0x0202,
EXIF_IFD_YCBCR_POS =0x0213,
EXIF_IFD_EXPOSURE_TIME =0x829a,
EXIF_IFD_F_NUMBER =0x829d,
EXIF_IFD_OFFSET =0x8769,
EXIF_IFD_LOCATION_OFFSET =0x8787,
EXIF_IFD_EXPOSURE_PROGRAM =0x8822,
EXIF_IFD_GPS_IFD_OFFSET =0x8825,
EXIF_IFD_ISO_SPEED_RATINGS =0x8827,
EXIF_IFD_EXIF_VERSION =0x9000,
EXIF_IFD_ORIG_DATE_TIME =0x9003,
EXIF_IFD_DIGIT_DATE_TIME =0x9004,
EXIF_IFD_COMPONENT_CONFIG =0x9101,
EXIF_IFD_COMPRESSION_RATE =0x9102,
EXIF_IFD_SHUTTER_SPEED =0x9201,
EXIF_IFD_APERTURE =0x9202,
EXIF_IFD_BRIGHTNESS =0x9203,
EXIF_IFD_EXPOSURE_BIAS =0x9204,
EXIF_IFD_MAX_APERTURE =0x9205,
EXIF_IFD_SUBJECT_DISTANCE =0x9206,
EXIF_IFD_METERING_MODE =0x9207,
EXIF_IFD_LIGHT_SOURCE =0x9208,
EXIF_IFD_FLASH =0x9209,
EXIF_IFD_FOCAL_LENGTH =0x920a,
EXIF_IFD_MAKER_NOTE =0x927c,
EXIF_IFD_USER_COMMENT =0x9286,
EXIF_IFD_FLASH_PIX_VERSION =0xa000,
EXIF_IFD_COLOR_SPACE =0xa001,
EXIF_IFD_EXIF_IMAGE_WIDTH =0xa002,
EXIF_IFD_EXIF_IMAGE_HEIGHT =0xa003,
EXIF_IFD_SOUND_FILE =0xa004,
EXIF_IFD_INTEROPE_OFFSET =0xa005,
EXIF_IFD_FOCAL_PLANE_XRES =0xa20e,
EXIF_IFD_FOCAL_PLANE_YRES =0xa20f,
EXIF_IFD_FOCAL_PLANE_RES_UNIT =0xa210,
EXIF_IFD_SENSING_METHOD =0xa217,
EXIF_IFD_FILE_SOURCE =0xa300,
EXIF_IFD_SCENE_TYPE =0xa301,
/* reserved */
EXIF_IFD_EOT =0xffff
};
enum EXIF_INTEROPE_CODE
{
EXIF_INTEROPE_INDEX =0x0001,
EXIF_INTEROPE_VERSION =0x0002,
EXIF_INTEROPE_IMAGE_WIDTH =0x1001,
EXIF_INTEROPE_IMAGE_HEIGHT =0x1002,
/* reserved */
EXIF_INTEROPE_EOT =0xffff
};
enum EXIF_LOCATION_CODE
{
EXIF_LOCATION_CONTINENT =0x1000,
EXIF_LOCATION_COUNTRY =0x1001,
EXIF_LOCATION_COUNTRY_OTHER =0x1002,
EXIF_LOCATION_REGION =0x1003,
EXIF_LOCATION_AREA =0x1004,
EXIF_LOCATION_SUB_AREA =0x1005,
EXIF_LOCATION_PLACE =0x1006,
EXIF_LOCATION_PLACE_AREA =0x1007,
EXIF_LOCATION_LOCATION =0x1008,
EXIF_LOCATION_ADDRESS =0x1009,
EXIF_LOCATION_POSTAL_CODE =0x100a,
EXIF_LOCATION_DESCRIPTION =0x100b,
/* reserved */
EXIF_LOCATION_EOT =0xffff
};
enum EXIF_CANON_CODE
{
EXIF_CANON_MAKER_NOTE_UNKNOWN1 =0x0000,
EXIF_CANON_MAKER_NOTE_UNKNOWN2 =0x0001,
EXIF_CANON_MAKER_NOTE_UNKNOWN3 =0x0002,
EXIF_CANON_MAKER_NOTE_UNKNOWN4 =0x0003,
EXIF_CANON_MAKER_NOTE_UNKNOWN5 =0x0004,
EXIF_CANON_MAKER_NOTE_IMAGE_TYPE =0x0006,
EXIF_CANON_MAKER_NOTE_FIRMWARE_VERSION =0x0007,
EXIF_CANON_MAKER_NOTE_IMAGE_NUMBER =0x0008,
EXIF_CANON_MAKER_NOTE_OWNER_NAME =0x0009,
EXIF_CANON_MAKER_NOTE_UNKNOWN6 =0x0010,
/* reserved */
EXIF_CANON_EOT =0xffff
};
enum EXIF_FUJI_CODE
{
EXIF_FUJI_MAKER_NOTE_VERSION =0x0000,
EXIF_FUJI_MAKER_NOTE_QUALITY =0x1000,
EXIF_FUJI_MAKER_NOTE_SHARPNESS =0x1001,
EXIF_FUJI_MAKER_NOTE_WHITE_BALANCE =0x1002,
EXIF_FUJI_MAKER_NOTE_FLASH_MODE =0x1010,
EXIF_FUJI_MAKER_NOTE_FLASH_STRENGTH =0x1011,
EXIF_FUJI_MAKER_NOTE_MACRO =0x1020,
EXIF_FUJI_MAKER_NOTE_FOCUS_MODE =0x1021,
EXIF_FUJI_MAKER_NOTE_SLOW_SYNC =0x1030,
EXIF_FUJI_MAKER_NOTE_PICTURE_MODE =0x1031,
EXIF_FUJI_MAKER_NOTE_CONT_TAKE_BRACKET =0x1100,
EXIF_FUJI_MAKER_NOTE_UNKNOWN =0x1200,
EXIF_FUJI_MAKER_NOTE_BLUR_WARNING =0x1300,
EXIF_FUJI_MAKER_NOTE_FOCUS_WARNING =0x1301,
EXIF_FUJI_MAKER_NOTE_AE_WARNING =0x1302,
/* reserved */
EXIF_FUJI_EOT =0xffff
};
enum EXIF_NIKON_CODE
{
EXIF_NIKON_MAKER_NOTE_UNKNOWN1 =0x0002,
EXIF_NIKON_MAKER_NOTE_UNKNOWN2 =0x0003,
EXIF_NIKON_MAKER_NOTE_UNKNOWN3 =0x0004,
EXIF_NIKON_MAKER_NOTE_UNKNOWN4 =0x0005,
EXIF_NIKON_MAKER_NOTE_UNKNOWN5 =0x0006,
EXIF_NIKON_MAKER_NOTE_UNKNOWN6 =0x0007,
EXIF_NIKON_MAKER_NOTE_UNKNOWN7 =0x0008,
EXIF_NIKON_MAKER_NOTE_UNKNOWN8 =0x0009,
EXIF_NIKON_MAKER_NOTE_UNKNOWN9 =0x000a,
EXIF_NIKON_MAKER_NOTE_UNKNOWN10 =0x000b,
EXIF_NIKON_MAKER_NOTE_DATA_DUMP =0x0f00,
/* reserved */
EXIF_NIKON_EOT =0xffff
};
enum EXIF_SANYO_CODE /* Olympus, "and so on" */
{
EXIF_SANYO_MAKER_NOTE_START_OFFSET =0x00ff,
EXIF_SANYO_MAKER_NOTE_JPEG_THUMBNAIL =0x0100,
EXIF_SANYO_MAKER_NOTE_SPECIAL_MODE =0x0200,
EXIF_SANYO_MAKER_NOTE_JPEQ_QUALITY =0x0201,
EXIF_SANYO_MAKER_NOTE_MACRO =0x0202,
EXIF_SANYO_MAKER_NOTE_UNKNOWN1 =0x0203,
EXIF_SANYO_MAKER_NOTE_DIGITAL_ZOOM1 =0x0204,
EXIF_SANYO_MAKER_NOTE_UNKNOWN2 =0x0205,
EXIF_SANYO_MAKER_NOTE_UNKNOWN3 =0x0206,
EXIF_SANYO_MAKER_NOTE_SOFTWARE_RELEASE =0x0207,
EXIF_SANYO_MAKER_NOTE_PICT_INFO =0x0208,
EXIF_SANYO_MAKER_NOTE_CAMERA_ID =0x0209,
EXIF_SANYO_MAKER_NOTE_SEQUENTIAL_SHOT_METHOD =0x020e,
EXIF_SANYO_MAKER_NOTE_WIDE_RANGE =0x020f,
EXIF_SANYO_MAKER_NOTE_COLOUR_ADJUSTMENT_MODE =0x0210,
EXIF_SANYO_MAKER_NOTE_QUICK_SHOT =0x0213,
EXIF_SANYO_MAKER_NOTE_SELF_TIMER =0x0214,
EXIF_SANYO_MAKER_NOTE_VOICE_MEMO =0x0216,
EXIF_SANYO_MAKER_NOTE_RECORD_SHUTTER_RELEASE =0x0217,
EXIF_SANYO_MAKER_NOTE_FLICKER_REDUCE =0x0218,
EXIF_SANYO_MAKER_NOTE_OPTICAL_ZOOM =0x0219,
EXIF_SANYO_MAKER_NOTE_DIGITAL_ZOOM2 =0x021b,
EXIF_SANYO_MAKER_NOTE_LIGHT_SOURCE_SPECIAL =0x021d,
EXIF_SANYO_MAKER_NOTE_RESAVED =0x021e,
EXIF_SANYO_MAKER_NOTE_SCENE_SELECT =0x021f,
EXIF_SANYO_MAKER_NOTE_MANUAL_FOCAL_DISTANCE =0x0223,
EXIF_SANYO_MAKER_NOTE_SEQUENTIAL_SHOT_INTERVAL =0x0224,
EXIF_SANYO_MAKER_NOTE_FLASH_MODE =0x0225,
EXIF_SANYO_MAKER_NOTE_PRINTIM_FLAGS =0x0e00,
EXIF_SANYO_MAKER_NOTE_DATA_DUMP =0x0f00,
/* reserved */
EXIF_SANYO_EOT =0xffff
};
struct exif_ifd_field
{
enum TIFF_TYPE tag;
enum EXIF_IFD_CODE format;
int components;
char* entry;
};
struct exif_interope_field
{
enum TIFF_TYPE tag;
enum EXIF_INTEROPE_CODE format;
int components;
char* entry;
};
struct exif_location_field
{
enum TIFF_TYPE tag;
enum EXIF_LOCATION_CODE format;
int components;
char* entry;
};
struct exif_canon_field
{
enum TIFF_TYPE tag;
enum EXIF_CANON_CODE format;
int components;
char* entry;
};
struct exif_fuji_field
{
enum TIFF_TYPE tag;
enum EXIF_FUJI_CODE format;
int components;
char* entry;
};
struct exif_nikon_field
{
enum TIFF_TYPE tag;
enum EXIF_NIKON_CODE format;
int components;
char* entry;
};
struct exif_sanyo_field
{
enum TIFF_TYPE tag;
enum EXIF_SANYO_CODE format;
int components;
char* entry;
};
void exif_parse(unsigned char*, const unsigned int, struct parser_result*);
struct exif_ifd_field* exif_match_tag(const int);
void exif_dump_list(void);
unsigned int get_ifd_type_size(const enum TIFF_TYPE);
#endif
pecomato-0.0.15/gnu-getline.h 0000644 0001752 0001752 00000002003 10677223051 014755 0 ustar devel devel #include "util.h"
/* GNU Mailutils -- a suite of utilities for electronic mail
Copyright (C) 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */
ssize_t getline (char **_lineptr, size_t *_n, FILE *_stream);
ssize_t getdelim (char **_lineptr, size_t *_n, int _delimiter, FILE *_stream);
pecomato-0.0.15/gnu-mkstemp.h 0000644 0001752 0001752 00000002263 10677223051 015016 0 ustar devel devel #include "util.h"
/* Copyright (C) 1991, 1992, 1996, 1998 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
The GNU C Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with the GNU C Library; see the file COPYING.LIB. If not,
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
/* Generate a unique temporary file name from TEMPLATE.
The last six characters of TEMPLATE must be "XXXXXX";
they are replaced with a string that makes the filename unique.
Returns a file descriptor open on the file for reading and writing. */
int mkstemp (char *template);
pecomato-0.0.15/gnu-strcasecmp.h 0000644 0001752 0001752 00000002556 10677223051 015507 0 ustar devel devel #include "util.h"
/* Copyright (C) 1991, 1992, 1996, 1998 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
The GNU C Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with the GNU C Library; see the file COPYING.LIB. If not,
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
/* Compare S1 and S2, ignoring case, returning less than, equal to or
greater than zero if S1 is lexicographically less than,
equal to or greater than S2. */
int strcasecmp (const char *s1, const char *s2);
/* Compare no more than N characters of S1 and S2,
ignoring case, returning less than, equal to or
greater than zero if S1 is lexicographically less
than, equal to or greater than S2. */
int strncasecmp (const char *s1, const char *s2, size_t n);
pecomato-0.0.15/gnu-strndup.h 0000644 0001752 0001752 00000002205 10677223051 015031 0 ustar devel devel #include "util.h"
/* Copyright (C) 1991, 1992, 1996, 1998 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
The GNU C Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with the GNU C Library; see the file COPYING.LIB. If not,
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
char *strndup (const char *s, size_t n);
/* Find the length of STRING, but scan at most MAXLEN characters.
If no '\0' terminator is found in that many characters, return MAXLEN. */
size_t strnlen (const char *string, size_t maxlen);
pecomato-0.0.15/iptc.h 0000644 0001752 0001752 00000017005 10677223051 013506 0 ustar devel devel #ifndef _iptc_h_
#define _iptc_h_
#include "util.h"
#define IPTC_MARKER 0x1c
enum IPTC_CODE
{
/* IPTC-NAA IIM 4.1 (few ones from IPTC Core 1.0) / XMP) */
/* envelope record */
IPTC_MODEL_VERSION =0x0100,
IPTC_DESTINATION =0x0105,
IPTC_FILE_FORMAT =0x0114,
IPTC_FILE_FORMAT_VERSION =0x0116,
IPTC_SERVICE_ID =0x011e,
IPTC_ENVELOPE_NUMBER =0x0128,
IPTC_PRODUCT_ID =0x0132,
IPTC_ENVELOPE_PRIORITY =0x013c,
IPTC_DATE_SENT =0x0146,
IPTC_TIME_SENT =0x0150,
IPTC_CODED_CHARACTER_SET =0x015a,
IPTC_UNO =0x0164,
/* abstract relationship method identifiers */
IPTC_ARM_ID =0x0178,
IPTC_ARM_VERSION =0x017a,
/* Universal Application Record */
IPTC_APP_RECORD_VERSION =0x0200,
IPTC_APP_OBJECT_TYPE_REFERENCE =0x0203,
IPTC_APP_OBJECT_ATTRIBUTE_REFERENCE =0x0204,
IPTC_APP_OBJECT_NAME =0x0205,
IPTC_APP_EDIT_STATUS =0x0207,
IPTC_APP_EDITORIAL_UPDATE =0x0208,
IPTC_APP_URGENCY =0x020a,
IPTC_APP_SUBJECT_REFERENCE =0x020c,
IPTC_APP_CATEGORY =0x020f,
IPTC_APP_CATEGORY_DESCRIPTION =0x0210,
IPTC_APP_SUPPLEMENTAL_CATEGORY =0x0214,
IPTC_APP_CATEGORY_CODE =0x0215,
IPTC_APP_FIXTURE_IDENTIFIER =0x0216,
IPTC_APP_NUM =0x0217,
IPTC_APP_KEYWORDS =0x0219,
IPTC_APP_CONTENT_LOCATION_CODE =0x021a,
IPTC_APP_CONTENT_LOCATION_NAME =0x021b,
IPTC_APP_RELEASE_DATE =0x021e,
IPTC_APP_RELEASE_TIME =0x0223,
IPTC_APP_EXPIRATION_DATE =0x0225,
IPTC_APP_EXPIRATION_TIME =0x0226,
IPTC_APP_SPECIAL_INSTRUCTIONS =0x0228,
IPTC_APP_ACTION_ADVISED =0x022a,
IPTC_APP_REFERENCE_SERVICE =0x022d,
IPTC_APP_REFERENCE_DATE =0x022f,
IPTC_APP_REFERENCE_NUMBER =0x0232,
IPTC_APP_DATE_CREATED =0x0237,
IPTC_APP_ARCHIVE_DATE =0x0238,
IPTC_APP_TIME_CREATED =0x023c,
IPTC_APP_DIGITAL_CREATION_DATE =0x023e,
IPTC_APP_DIGITAL_CREATION_TIME =0x023f,
IPTC_APP_ORIGINATING_PROGRAM =0x0241,
IPTC_APP_PROGRAM_VERSION =0x0246,
IPTC_APP_OBJECT_CYCLE =0x024b,
IPTC_APP_BYLINE =0x0250,
IPTC_APP_BYLINE_TITLE =0x0255,
IPTC_APP_TITLE_ORIGINAL =0x0256,
IPTC_APP_PRODUCTOR =0x0257,
IPTC_APP_ACTOR =0x0258,
IPTC_APP_CITY =0x025a,
IPTC_APP_SUBLOCATION =0x025c,
IPTC_APP_PROVINCE_STATE =0x025f,
IPTC_APP_COUNTRY_CODE =0x0264,
IPTC_APP_COUNTRY =0x0265,
IPTC_APP_ORIGINAL_TRANSMISSION_REFERENCE =0x0267,
IPTC_APP_HEADLINE =0x0269,
IPTC_APP_CREDIT =0x026e,
IPTC_APP_PHOTOGRAPHER_NUMBER =0x0270,
IPTC_APP_SOURCE =0x0273,
IPTC_APP_COPYRIGHT_NOTICE =0x0274,
IPTC_APP_CONTACT =0x0276,
IPTC_APP_CAPTION_ABSTRACT =0x0278,
IPTC_APP_PHOTOGRAPH_NUMBER =0x0279,
IPTC_APP_WRITER_EDITOR =0x027a,
IPTC_APP_SERIAL_NUMBER =0x027b,
IPTC_APP_RASTERIZED_CAPTION =0x027d,
IPTC_APP_IMAGE_TYPE =0x0282,
IPTC_APP_IMAGE_ORIENTATION =0x0283,
IPTC_APP_REFERENCE =0x0285,
IPTC_APP_LANGUAGE_IDENTIFIER =0x0287,
IPTC_APP_AUDIO_TYPE =0x0296,
IPTC_APP_AUDIO_SAMPLING_RATE =0x0297,
IPTC_APP_AUDIO_SAMPLING_RESOLUTION =0x0298,
IPTC_APP_AUDIO_DURATION =0x0299,
IPTC_APP_AUDIO_OUTCUE =0x029a,
IPTC_APP_OBJECTDATA_PREVIEW_FILE_FORMAT =0x02c8,
IPTC_APP_OBJECTDATA_PREVIEW_FILE_FORMAT_VERSION =0x02c9,
IPTC_APP_OBJECTDATA_PREVIEW_PREVIEW_DATA =0x02ca,
/* newsphoto */
IPTC_NP_RECORD_VERSION =0x0300,
IPTC_NP_PICTURE_NUMBER =0x030a,
IPTC_NP_PIXELS_PER_LINE =0x0314,
IPTC_NP_NUMBER_OF_LINES =0x031e,
IPTC_NP_PIXEL_SIZE_IN_SCANNING_DIRECTION =0x0328,
IPTC_NP_PIXEL_SIZE_PERPENDICULAR_TO_SCANNING_DIRECTION =0x0332,
IPTC_NP_SUPPLEMENTARY_TYPE =0x0337,
IPTC_NP_COLOUR_REPRESENTATION =0x033c,
IPTC_NP_INTERCHANGE_COLOUR_SPACE =0x0340,
IPTC_NP_COLOUR_SEQUENCE =0x0341,
IPTC_NP_ICC_INPUT_COLOUR_PROFILE =0x0342,
IPTC_NP_COLOUR_CALIBRATION_MATRIX_TABLE =0x0346,
IPTC_NP_LOOKUP_TABLE =0x0350,
IPTC_NP_NUMBER_OF_INDEX_ENTRIES =0x0354,
IPTC_NP_COLOUR_PALETTE =0x0355,
IPTC_NP_NUMBER_OF_BITS_PER_SAMPLE =0x0356,
IPTC_NP_SAMPLING_STRUCTURE =0x035a,
IPTC_NP_SCANNING_DIRECTION =0x0364,
IPTC_NP_IMAGE_ROTATION =0x0366,
IPTC_NP_DATA_COMPRESSION_METHOD =0x036e,
IPTC_NP_QUANTISATION_METHOD =0x0378,
IPTC_NP_END_POINTS =0x037d,
IPTC_NP_EXCURSION_TOLERANCE =0x0382,
IPTC_NP_BITS_PER_COMPONENT =0x0387,
IPTC_NP_MAXIMUM_DENSITY_RANGE =0x038c,
IPTC_NP_GAMMA_COMPENSATED_VALUE =0x0391,
/* pre-objectdata descriptor record */
IPTC_PRODD_SIZE_MODE =0x070a,
IPTC_PRODD_MAX_SUBFILE_SIZE =0x0714,
IPTC_PRODD_OBJECTDATA_SIZE_ANNOUNCED =0x075a,
IPTC_PRODD_MAXIMAL_OBJECTDATA_SIZE =0x075f,
/* objectdata descriptor record */
IPTC_ODD_SUBFILE =0x080a,
/* post-objectdata descriptor record */
IPTC_POODD_CONFIRMED_OBJECT_SIZE =0x090a,
/* reserved */
IPTC_EOT =0xffff
};
enum IPTC_DATASET_FORMAT
{
IPTC_DATASET_UNKNOWN, /* we don't know yet, defaults to binary */
IPTC_DATASET_NUMERICAL, /* numerical digits stored as graphical text (allows decimal value checks) */
IPTC_DATASET_BINARY, /* dump raw binary bytes (hexadecimal) */
IPTC_DATASET_TEXT, /* graphical (printable) characters */
IPTC_DATASET_SPECIFIC, /* a kind of encoding format that we KNOW how to decode (for instance,
a version number stored in 2 bytes), otherwise it's binary-equivalent */
IPTC_DATASET_DATE, /* same as text, but allow date format checks */
IPTC_DATASET_TIME, /* same as text, but allow time format checks */
/* reserved */
IPTC_DATASET_EOT
};
enum IPTC_DATASET_UNICITY
{
IPTC_DATASET_REPEATABLE,
IPTC_DATASET_UNIQUE
};
enum IPTC_DATASET_SIZE
{
IPTC_DATASET_MAX,
IPTC_DATASET_FIXED
};
struct iptc_code_descr
{
enum IPTC_CODE code;
enum IPTC_DATASET_FORMAT format;
enum IPTC_DATASET_UNICITY repeatable;
enum IPTC_DATASET_SIZE fixed_length;
long int length; /* expected (max or exact) length, 0 to ignore */
char* label;
};
enum iptc_filter_element_type
{
IPTC_FET_VALUE,
IPTC_FET_RANGE
};
struct iptc_filter_match_data
{
enum iptc_filter_element_type type;
unsigned short int code;
unsigned short int code2;
};
struct iptc_edit_data
{
bool enabled;
unsigned short int code;
size_t length;
unsigned char* data;
};
struct iptc_edit_list_cell
{
struct iptc_edit_data* edit_data;
struct iptc_edit_list_cell* next;
};
void iptc_parse(unsigned char*, const long int, const bool, struct parser_result*);
void iptc_stats_table_inc(unsigned int, unsigned short int*);
void iptc_stats_table_dec(unsigned int, unsigned short int*);
struct iptc_code_descr* iptc_match_code(const enum IPTC_CODE);
void iptc_dump_value(unsigned short int, struct iptc_code_descr*, unsigned char*, unsigned short int,
bool dump_length, bool manage_newline);
void iptc_dump_list(void);
void iptc_filter_table_init(void);
void iptc_filter_add_value(unsigned int);
void iptc_filter_add_range(unsigned int, unsigned int);
void iptc_filter_table_reset(void);
void iptc_filter_table_dump(void);
bool iptc_filter_match(unsigned int);
unsigned short int iptc_filters(void);
void iptc_edit_list_init(void);
void iptc_edit_add_edit(unsigned int, size_t, unsigned char*, bool*);
void iptc_edit_list_reset(void);
void iptc_edit_list_dump(void);
unsigned short int iptc_edits(void);
size_t iptc_edit_insert_chunks(bool, unsigned int, unsigned short int*);
#endif
pecomato-0.0.15/jfif.h 0000644 0001752 0001752 00000004527 10677223051 013472 0 ustar devel devel #ifndef _jfif_h_
#define _jfif_h_
#include "util.h"
#define JFIF 0x4a464946UL /* JFIF (followed by 0x00) */
#define JFXX 0x4a465858UL /* JFXX (followed by 0x00) */
#define JFIF_TAG 0xff /* preceeds all JFIF markers */
enum JFIF_MARKER
{
/* frame markers, non-differential, huffman coding */
JFIF_SOF0 =0xc0,
JFIF_SOF1 =0xc1,
JFIF_SOF2 =0xc2,
JFIF_SOF3 =0xc3,
/* frame markers, differential, huffman coding */
JFIF_SOF5 =0xc5,
JFIF_SOF6 =0xc6,
JFIF_SOF7 =0xc7,
/* frame markers, non-differential, arithmetic coding */
JFIF_JPG =0xc8,
JFIF_SOF9 =0xc9,
JFIF_SOF10 =0xca,
JFIF_SOF11 =0xcb,
/* frame markers, differential, arithmetic coding */
JFIF_SOF13 =0xcd,
JFIF_SOF14 =0xce,
JFIF_SOF15 =0xcf,
/* huffman table specification */
JFIF_DHT =0xc4,
/* arithmetic coding conditioning specification */
JFIF_DAC =0xcc,
/* restart internal termination */
JFIF_RST0 =0xd0,
JFIF_RST1 =0xd1,
JFIF_RST2 =0xd2,
JFIF_RST3 =0xd3,
JFIF_RST4 =0xd4,
JFIF_RST5 =0xd5,
JFIF_RST6 =0xd6,
JFIF_RST7 =0xd7,
/* other markers */
JFIF_SOI =0xd8,
JFIF_EOI =0xd9,
JFIF_SOS =0xda,
JFIF_DQT =0xdb,
JFIF_DNL =0xdc,
JFIF_DRI =0xdd,
JFIF_DHP =0xde,
JFIF_EXP =0xdf,
JFIF_APP0 =0xe0,
JFIF_APP1 =0xe1,
JFIF_APP2 =0xe2,
JFIF_APP3 =0xe3,
JFIF_APP4 =0xe4,
JFIF_APP5 =0xe5,
JFIF_APP6 =0xe6,
JFIF_APP7 =0xe7,
JFIF_APP8 =0xe8,
JFIF_APP9 =0xe9,
JFIF_APP10 =0xea,
JFIF_APP11 =0xeb,
JFIF_APP12 =0xec,
JFIF_APP13 =0xed,
JFIF_APP14 =0xee,
JFIF_APP15 =0xef,
JFIF_JPG0 =0xf0,
JFIF_JPG1 =0xf1,
JFIF_JPG2 =0xf2,
JFIF_JPG3 =0xf3,
JFIF_JPG4 =0xf4,
JFIF_JPG5 =0xf5,
JFIF_JPG6 =0xf6,
JFIF_JPG7 =0xf7,
JFIF_JPG8 =0xf8,
JFIF_JPG9 =0xf9,
JFIF_JPG10 =0xfa,
JFIF_JPG11 =0xfb,
JFIF_JPG12 =0xfc,
JFIF_JPG13 =0xfd,
JFIF_COM =0xfe,
/* reserved markers */
JFIF_TEM =0x01,
/* reserved */
JFIF_MARKER_EOT =0
};
struct jfif_marker_descr
{
unsigned char tag;
char* name;
char* label;
};
struct jfif_marker_range_descr
{
unsigned char lower_boundary;
unsigned char upper_boundary;
char* name;
char* label;
};
void jfif_parse(unsigned char*, const unsigned long int, struct parser_result*);
bool jfif_skip_chunk(char*, unsigned char**, long int*, unsigned long int*);
char* jfif_tag_name(const enum JFIF_MARKER);
struct jfif_marker_descr* jfif_marker_match(const enum JFIF_MARKER);
struct jfif_marker_range_descr* jfif_marker_range_match(const enum JFIF_MARKER);
#endif
pecomato-0.0.15/tiff.h 0000644 0001752 0001752 00000000053 10677223051 013472 0 ustar devel devel #ifndef _tiff_h_
#define _tiff_h_
#endif
pecomato-0.0.15/util.h 0000644 0001752 0001752 00000030033 10677223051 013520 0 ustar devel devel /**
\file util.h
\brief Header file for util.c. Contains all-purpose macros, types and function protos.
This header file contains all general macros, types/enums/structs declaration and functions
prototypes that are used as general tools.
*/
#ifndef _util_h_
#define _util_h_
#include <stdio.h>
#include <stdarg.h>
#include "config.h"
#define MIN(X,Y) ((X)>(Y)?(Y):(X))
#define MAX(X,Y) ((X)>(Y)?(X):(Y))
#ifndef ssize_t
#ifndef _GNU_SOURCE
#define ssize_t long int
#define _SSIZE_T
#endif
#endif
/* Mac OS X specific defines */
#ifdef OS_DARWIN
#include "gnu-getline.h"
#include "gnu-strndup.h"
#endif
/* QNX specific defines */
#ifdef OS_QNX
#include "gnu-getline.h"
#include "gnu-strndup.h"
#endif
/* BeOS specific defines */
#ifdef OS_BEOS
#include "gnu-strndup.h"
#endif
/* Sun Solaris (SunOS) specific defines */
#ifdef OS_SUNOS
#include "gnu-getline.h"
#include "gnu-strndup.h"
#endif
/* HP-UX specific defines */
#ifdef OS_HPUX
#include "gnu-getline.h"
#include "gnu-strndup.h"
#endif
/* IBM Aix specific defines */
#ifdef OS_AIX
#include "gnu-getline.h"
#include "gnu-strndup.h"
#endif
/* FreeBSD specific defines */
#ifdef OS_FREEBSD
#ifdef __GNUC__
#if __GNUC__ >= 4
#define _SSIZE_T_DECLARED
#endif
#endif
#include "gnu-getline.h"
#include "gnu-strndup.h"
#endif
/* Microsoft Windows specific defines */
#ifdef OS_WIN32
#ifndef lstat
#define lstat(x, y) stat(x, y)
#endif
#ifndef S_ISLNK
#define S_ISLNK(m) (0)
#endif
#ifndef S_ISREG
#define S_ISREG(m) ((m&_S_IFREG)==_S_IFREG)
#endif
#ifndef S_ISDIR
#define S_ISDIR(m) (((m)&_S_IFDIR)==_S_IFDIR)
#endif
#ifndef O_CREAT
#define O_CREAT _O_CREAT
#endif
#ifndef O_BINARY
#define O_BINARY _O_BINARY
#endif
#ifndef O_EXCL
#define O_EXCL _O_EXCL
#endif
#include "gnu-getline.h"
#include "gnu-mkstemp.h"
#include "gnu-strcasecmp.h"
#include "gnu-strndup.h"
#endif
/* define per-system PATH separator (char/string used to separate
sublevels of directories in a path
*/
#ifdef OS_WIN32
/** \def DIR_SEPARATOR_STRING
\brief Defines what's the path separator string for WIN32 platform.
*/
#define DIR_SEPARATOR_STRING "\\"
/** \def DIR_SEPARATOR_CHAR
\brief Defines what's the path separator character for WIN32 platform.
*/
#define DIR_SEPARATOR_CHAR '\\'
#else
/** \def DIR_SEPARATOR_STRING
\brief Defines what's the path separator string for POSIX systems.
*/
#define DIR_SEPARATOR_STRING "/"
/** \def DIR_SEPARATOR_CHAR
\brief Defines what's the path separator character for POSIX systems.
*/
#define DIR_SEPARATOR_CHAR '/'
#endif
/* define some picture formats markers and tags
note: markers and tags that belongs to supported formats and data
structures are defined in the relevant .h files (Adobe, Exiv, IPTC, JFIF)
*/
#define GIF87_MARKER_STRING "GIF87"
#define GIF89_MARKER_STRING "GIF89"
#define BMP_MARKER_STRING "BM"
#define PNG_MARKER_STRING 0x89504e47UL
#define TIFF_LITTLE_ENDIAN_MARKER_STRING 0x49492a00UL
#define TIFF_BIG_ENDIAN_MARKER_STRING 0x4d4d002aUL
#define DJVU_MARKER_STRING "DJvu"
/** \typedef bool
\brief Invent the boolean type.
*/
typedef short int bool;
#define false 0
#define true 1
/** \enum OP
\brief Possible operation types.
Define OPeration types.
*/
enum OP
{
OP_CHECK, /**< check mode (only check known data structures) */
OP_DUMP, /**< dump mode: check and dump data structures */
OP_DUMP_FULL, /**< full dump mode: check, dump data structures and relevant values */
OP_DUMP_VALUE, /**< dump value mode: check and dump requested value only */
OP_FILTER, /**< filter mode: check and filter datasets (filter is excluding (remove), including (keep),
or editing (add/replace). if no filter pattern is set, nothing will be done) */
/* reserved */
OP_EOT /**< reserved */
};
/* define minimum and maximum log level */
#define MIN_LOG_LEVEL 0
#define MAX_LOG_LEVEL 4
/* define some default, minimum and maximum values for dump wrapping of
metadata
*/
#define DEFAULT_WRAP_DUMP 0
#define MIN_WRAP_DUMP 8
#define MAX_WRAP_DUMP 1024
/** \enum LOG_LEVEL
\brief Possible log levels.
Define log levels (from quiet to debug).
*/
enum LOG_LEVEL
{
LOG_LEVEL_QUIET, /**< */
LOG_LEVEL_ERRORS, /**< */
LOG_LEVEL_WARNINGS, /**< */
LOG_LEVEL_INFO, /**< */
LOG_LEVEL_DEBUG, /**< */
/* reserved */
LOG_LEVEL_EOT /**< reserved */
};
/** \enum SEVERITY
\brief Possible messages severities.
Define all messages severities (from fatal error to debug).
*/
enum SEVERITY
{
SEV_FATAL_ERROR, /**< */
SEV_ERROR, /**< */
SEV_WARNING, /**< */
SEV_INFO, /**< */
SEV_DEBUG /**< reserved */
};
/** \enum FILTER_MODE
\brief Possible filter modes.
Define all possible filter modes.
*/
enum FILTER_MODE
{
FILTER_NONE=0, /**< */
FILTER_INCLUDE=1, /**< */
FILTER_EXCLUDE=2, /**< */
FILTER_EDIT=4 /**< */
};
/** \enum FILTER_EDIT_VALUE_TYPE
\brief Possible filter edit value types.
Define all possible types for filter edits values.
*/
enum FILTER_EDIT_VALUE_TYPE
{
FEV_NONE, /**< */
FEV_HEX, /**< */
FEV_TEXT /**< */
};
/** \struct op_label
\brief OP label data structure.
Defines a structure so that labels and descriptions can be associated to
enum OP values.
*/
struct op_label
{
enum OP op; /**< operation type ID */
char* label; /**< operation label (short, to be used in command-line invocation) */
char* description; /**< operation description (long, shown in usage help) */
};
/** \struct log_level_descr
\brief Log level data structure.
Defines a data structure so that descriptions can be associated to enum
LOG_LEVEL values.
*/
struct log_level_descr
{
enum LOG_LEVEL level; /**< log level ID */
char* description; /**< log level description (long, shown in usage help) */
};
/** \struct prefs_struct
\brief Preferences structure.
Defines a data structure of the preferences (aimed to be globally used).
*/
struct prefs_struct
{
enum LOG_LEVEL log_level; /**< log level */
bool technical; /**< technical flag: is set, extra checks will be made and severity level of some messages might be increased */
enum OP op; /**< operation type */
char* context_text; /**< current context descriptive text */
unsigned long int context_warnings; /**< number of encountered warnings in current context */
unsigned long int context_errors; /**< number of encountered errors in current context */
unsigned long int context_fixes; /**< number of fixes done in current context */
unsigned long int warnings; /**< total number of encountered warnings */
unsigned long int errors; /**< total number of encountered errors */
unsigned long int fixes; /**< total number of fixed done */
unsigned short int wrap_dump; /**< wrap dump of dataset value flag: is set, long data dump will be wrapped */
bool rewrite; /**< rewrite mode flag: set according to the operation type and some other settings */
bool rewrite_create_backup; /**< create backup of written files flag: if set, backup will be created for each file open in write mode */
bool fix; /**< fix flag: is set, fixes will be done (if possible) when a broken structure is encountered */
int filter_mode; /**< filter mode flag: used when the operation type is filter */
bool rewrite_cached; /**< cached write mode flag: if set, written bytes will pass thru a cache in memory */
bool extract_iptc; /**< IPTC extraction flag: is set, IPTC datasets will be written to a file */
bool extract_extension_append; /**< extraction: filename extension append flag: is set, extension will be appended to the input filename (when writing datasets) */
bool test_rewrite; /**< test write flag: mostly provided for debug purposes: if set, files opened in write mode will not override any existing file but the temporary write file will be kept */
/* bool edit_overwrite; */ /**< allow overwriting existing field values when adding (edit) */
};
/** \struct parser_result
\brief Parser result structure.
Define a data structure that is returned/modified by a parser, and which
will contain a sum up of the parsing results.
*/
struct parser_result
{
unsigned long int parsed_bytes; /**< (parsed bytes) bytes eaten by the parser */
unsigned long int written_bytes; /**< (written bytes) bytes rewritten by the parser (following the OP mode and some other conditions) */
bool ret; /**< (parser return code) false if any critical parsing error has been found */
};
/** \enum EXIT_CODE
\brief Possible program exit codes.
\todo Make this portable (BSD, VMS, etc.), regarding to EXIT_SUCCESS/EXIT_FAILURE (man 3 exit).
Defines the possible exit code returned by the program (from normal
termination to fatal error).
*/
enum EXIT_CODE
{
EXIT_CODE_NORMAL=0, /**< indicates a normal termination of the program */
EXIT_CODE_USAGE_ERROR, /**< indicates a usage error (commonly command-line parser error) */
EXIT_CODE_ASYNCHRONOUS_SIGNAL, /**< indicates that the program stopped due to a signal trap */
EXIT_CODE_NORMAL_WITH_WARNINGS, /**< indicates that some non critical warning(s) have been encountered */
EXIT_CODE_NORMAL_WITH_ERRORS, /**< indicates that some non critical error(s) have been encountered */
EXIT_CODE_FATAL_ERROR, /**< indicates a fatal error has been encountered */
/* reserved */
EXIT_EOT /**< reserved */
};
/** \struct exit_code_label
\brief Exit code label data structure.
Defines a data structure so that labels can be associated to enum EXIT_CODE
values.
*/
struct exit_code_label
{
enum EXIT_CODE code; /**< exit code (see EXIT_CODE enum) */
char* label; /**< label */
};
/* functions prototypes */
/* low-level file management */
size_t fsize(FILE*);
bool fexist(const char*);
int frename(const char*, const char*);
int fremove(const char*, const char*);
bool fisfile(const char*);
bool fislink(const char*);
bool fisdir(const char*);
char* fextension(const char*);
char* fbasename(const char*);
char* ffilename(const char*);
char* fdirname(const char*);
char* fcleanpath(const char*);
/* high-level file management */
void backup_file(const char*);
/* memory random access */
unsigned char getbyte(unsigned char*, unsigned long int);
unsigned short int getword(unsigned char*, unsigned long int);
unsigned short int getrawword(unsigned char*, unsigned long int);
unsigned long int getlong(unsigned char*, unsigned long int);
unsigned long int getrawlong(unsigned char*, unsigned long int);
unsigned char* getstring(unsigned char*, unsigned long int, unsigned char*, const unsigned long int);
unsigned char* getraw(unsigned char*, unsigned long int, unsigned char*, const unsigned long int);
void setbyte(unsigned char*, unsigned long int, unsigned char);
void setword(unsigned char*, unsigned long int, unsigned short int);
void setlong(unsigned char*, unsigned long int, unsigned long int);
/* verbosity (output), error management */
void message_fatal_error(char*, va_list);
void message_error(char*, va_list);
void message_warning(char*, va_list);
void message_info(char*, va_list);
void message_debug(char*, va_list);
void fatal_error(char*, ...);
void error(char*, ...);
void warning(char*, ...);
void info(char*, ...);
void debug(char*, ...);
void message(enum SEVERITY, char*, ...);
/* context management (mostly for verbosity purposes) */
void context_set_text(char*);
void context_print_text(void);
void context_print_info(void);
void context_reset(void);
/* internal tables access */
struct op_label* op_match_label(char*);
/* write mode */
void init_rewrite();
size_t dump_rewrite(unsigned char*, unsigned long int);
void post_rewrite(unsigned char*, struct parser_result*);
/* type convertion */
bool get_unsigned_value(const char*, unsigned long int*);
bool get_hexa_value(const char*, unsigned long int*);
/* string manipulation */
size_t strpos(const char*, const char);
size_t strrpos(const char*, const char);
/* filter exclude/include pattern loading/decoding */
bool filter_parse_line(char*, size_t, unsigned long int);
void filter_load_line(char*);
void filter_load_file(FILE*);
/* filter edit pattern loading/decoding */
bool edit_parse_line(const char*, size_t, unsigned long int);
void edit_load_line(const char*);
void edit_load_file(FILE*);
/* dumping dataset values */
void dump_hexa(unsigned char*, unsigned long int);
/* @<file> files list loading (into a vector) */
void filenames_list_load(char***, int*, FILE*);
#endif
pecomato-0.0.15/pecomato-32.ico 0000644 0001752 0001752 00000004276 10677223051 015131 0 ustar devel devel ¨ ( @ € ÿÿÿ Ë1 †½ uÊû SPI Ê‹ i ^•¨ 1T‘ ™…l $'. h4 W•æ ]3 ¢çþ hhq n¸Ì +@c Z™ @x¾ Ï•b ²²² Iuˆ ?`h ˆÓà ´„I ˆnW ‚N) b²í 2=C A… ³b µ~ 9i¤ PŒÃ ºm: 8Jv 7' \¥Ã £lH lH6 :MU #C ŒÙü Q3 b_Z rÇÝ ÈG K„ i¥ "2P A[‚ %By Re| Mƒš Kp³ F†Ó 1 zX WŒÖ Bl’ Ú¯… xkY %1: ‚Æé Wž´ ]¤à ^P< m½ù DwŸ
Áy> @[• uF$ /=Q MŽ c·Ô 4I` Õ“M <l¸ Fmx 4W # ¦^% Ј< „ÇÕ S‘Ÿ s@ f¥¾ Âs/ ¾œu +Hn 3+( Ow¹ Ae 5`š Blƒ ˜Üù e®È 9Uo rÀÔ ´u0 ‚Óü Øå (6H ;`Œ -Px ;Uc $* jC( &'# –†s $<Y '=m 4BJ b©ò B}Æ 8O„ ?t² %3 ,> 6`¨ lÄù ¯j> P–µ ,J\ }Ðà #7` Ft© >a{ P‰¥ R‡´ ´z9 f²õ S•Ø 'n ^¡» »qB Tžã X3 &,D ,5> ?W ;`q l¿Ø Ad Ôd =b” " Co™ Y—¯ (.5 ,7V j¼ò e«¿ RƒÄ Js½ 4Gn j³Í L‹Ð !*6 ªqJ Ë‹O c7 Dco '=M `Ÿ³ šäý cºô Z¥è F~Á :P[ zÄ× kºÐ 0?` :Vw ( Y“Ý />I T¿ @g‹ 6K[ #! />e :U‰ Gm} `¥¸ 6Oz Ch{ RÑ &6T / b§Â S†Ô 6\y }ÈÛ &D .De 2X ,7N Go¡ ’Þþ $2G ̃8 wÎß $4 5Pp Q‰œ >W} ",+ *@Y 3Mk „Ôâ ΑP 4Ww !) [œ· 3` >Yi |Ðû ++( m³È T‰Û *2D &! .Ir 3Y— ‡Øý '/ `¤é [˜â &1B 5FQ R¦ @sœ <[Ž _°í #+3 *3: *Cf Bv· 4Ef 9gª "&' c¶Î xÈÚ h·ñ aõ &? q¼=¼¼ ’ ¼™™===”””””””== q===¼Á``ÍÍø& =”””””””= N q¼===K>í’9 9´ÔÞ™™”””=œ N‹ q====k–¡å
·˜9x½½½Ô=””””ú N‹ q=¼¼ú ¾Çvþvì´‘îækô=””””ú N‹ q=ôkîˆGˆì˜ô=””=”='¨ _ ‹ q¼æËö?†µ ‰‰””””çLJÜ1ÒVÁ3 q¼œkî¼====‰=”””” —
‡a œqúú¼¼===¼=====.F h! ‘ô¼¼ú¼====¼====] MMÍ=¼=====¼¼===A Ò 5΃B======¼ú===A W ÍÁÁ4‰‰™¼¼¥¥ôØ==~
W ´’–Á‰‰Þë¥èèÕB¼p@/ Z\ ¢òòT뉙Ðl¹Cd-¹Ù㦠Q ÍÍÄ^lo‰^âêϬ÷˜7<@"rr]§ æBÝñÚЉ{Ãi-êê}ùÄ^×*~%%) îkÚÝkBë‰sžêâi}#4¶ëë„2HºP õ »Mkôô™‰mEó óbÿ¶™k„š?f¸ õ +»»nnôÑÑÄw|RÌщô»á„šÕP õôõu°áÂBÑzÊÅÊѱ‘u‘õB¸ï ‘õ‘ôœ¸noÑ{$ ÊU±±¸° ¸u¸ œ‘õõœôõ‰¶¯Rù;II±Bõõu°‘‘ œ ‘ï¸õ Ñ4Ž#¤w,IIëõ ¿°° u+°°u¸¸zTž®óó6IIo“SSŸû(ß ©Âc€^¤w#b±I뻩ÓOÆ ¿…ß«Xc^Š ¯yt±±kYÀj•ä eÛÛÉÉ[èG:‚±±Æ³g0 ³gÉüɲg²ÈýâéÑoggüüüg•É äg³£³«sàö‰ÑÖ³e³•³³g ÀŸÆÆÆeÆ(Æ8ª‰‰k8eÆ(Æe££e ›DDߌߛ›ßð››«ßßÀßߌŒÆ[ÆŸ ÿ ù ñ ã Ç ? ? ? ? ? ? ? ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ pecomato-0.0.15/resource-xptheme.bin 0000644 0001752 0001752 00000001140 10677223051 016360 0 ustar devel devel <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly
xmlns="urn:schemas-microsoft-com:asm.v1"
manifestVersion="1.0">
<assemblyIdentity
processorArchitecture="x86"
version="5.1.0.0"
type="win32"
name="pecomato"/>
<description>Test Application</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
publicKeyToken="6595b64144ccf1df"
language="*"
processorArchitecture="x86"/>
</dependentAssembly>
</dependency>
</assembly>
pecomato-0.0.15/pecomato.Description.plist.in 0000644 0001752 0001752 00000000710 10677223051 020144 0 ustar devel devel <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>IFPkgDescriptionDeleteWarning</key>
<string></string>
<key>IFPkgDescriptionDescription</key>
<string>@DESCRIPTION@</string>
<key>IFPkgDescriptionTitle</key>
<string>@PRODUCT@</string>
<key>IFPkgDescriptionVersion</key>
<string>@VERSION@</string>
</dict>
</plist>
pecomato-0.0.15/pecomato.fileInfo.in 0000644 0001752 0001752 00000000364 10677223051 016267 0 ustar devel devel Title @PRODUCT@
Version @VERSION@
Description @DESCRIPTION@
DefaultLocation /usr/local
DeleteWarning
### Package Flags
NeedsAuthorization YES
Required NO
Relocatable YES
RequiresReboot NO
UseUserMask NO
OverwritePermissions NO
InstallFat NO
pecomato-0.0.15/pecomato.Info.plist.in 0000644 0001752 0001752 00000002313 10677223051 016555 0 ustar devel devel <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>CFBundleGetInfoString</key>
<string>@PRODUCT@ @VERSION@</string>
<key>CFBundleIdentifier</key>
<string>@PRODUCT@</string>
<key>CFBundleName</key>
<string>@PRODUCT@</string>
<key>CFBundleShortVersionString</key>
<string>@VERSION@</string>
<key>IFMajorVersion</key>
<integer>0</integer>
<key>IFMinorVersion</key>
<integer>1</integer>
<key>IFPkgFlagAllowBackRev</key>
<false/>
<key>IFPkgFlagAuthorizationAction</key>
<string>RootAuthorization</string>
<key>IFPkgFlagDefaultLocation</key>
<string>/usr/local</string>
<key>IFPkgFlagFollowLinks</key>
<false/>
<key>IFPkgFlagInstallFat</key>
<false/>
<key>IFPkgFlagIsRequired</key>
<false/>
<key>IFPkgFlagOverwritePermissions</key>
<false/>
<key>IFPkgFlagRelocatable</key>
<true/>
<key>IFPkgFlagRestartAction</key>
<string>NoRestart</string>
<key>IFPkgFlagRootVolumeOnly</key>
<false/>
<key>IFPkgFlagUpdateInstalledLanguages</key>
<false/>
<key>IFPkgFlagUseUserMask</key>
<false/>
<key>IFPkgFormatVersion</key>
<real>0.10000000149011612</real>
</dict>
</plist>
pecomato-0.0.15/pecomato.pkginfo.in 0000644 0001752 0001752 00000000174 10677223051 016170 0 ustar devel devel PKG=@PRODUCT@
NAME=@PRODUCT@
DESC="@DESCRIPTION@"
VERSION=@VERSION@
CLASSES=none
CATEGORY=@CATEGORY@
EMAIL=@AUTHOR_CONTACT@
pecomato-0.0.15/pecomato.prototype.in 0000644 0001752 0001752 00000001450 10677223051 016576 0 ustar devel devel #! /usr/bin/pkgmk -f
# Sun Solaris prototype file for pkgmk(1)
#
!prefix=/usr/local
!bindir=$prefix/bin
!docdir=$prefix/doc/@PRODUCT@-@VERSION@
#
!search .
i pkginfo=pecomato.pkginfo
#
!search dist-unix/bin dist-unix/doc/html dist-unix/doc/man dist-unix/doc/txt
!default 755 root bin
#
d none $bindir
f none $bindir/pecomato
d none $docdir
d none $docdir/html
d none $docdir/txt
d none $docdir/man
#
!default 644 root bin
#
f none $docdir/html/DISCLAIMER.html
f none $docdir/html/INSTALL.html
f none $docdir/html/LICENSE.html
f none $docdir/html/README.html
f none $docdir/html/TODO.html
f none $docdir/html/manpage.html
f none $docdir/man/manpage.man
f none $docdir/txt/DISCLAIMER.txt
f none $docdir/txt/INSTALL.txt
f none $docdir/txt/LICENSE.txt
f none $docdir/txt/README.txt
f none $docdir/txt/TODO.txt
pecomato-0.0.15/pecomato.qpg.in 0000644 0001752 0001752 00000015340 10677223051 015323 0 ustar devel devel <QPG:Generation>
<QPG:Options>
<QPG:User unattended="no" verbosity="2" listfiles="yes"/>
<QPG:Defaults type="qnx_package"/>
<QPG:Source></QPG:Source>
<QPG:Release number="+"/>
<QPG:Build></QPG:Build>
<QPG:FileSorting strip="yes"/>
<QPG:Package targets="combine"/>
<QPG:Repository generate="yes"/>
<QPG:FinalDir></QPG:FinalDir>
<QPG:Cleanup></QPG:Cleanup>
</QPG:Options>
<QPG:Responsible>
<QPG:Company>QNX.ORG.RU Community</QPG:Company>
<QPG:Department>R and D</QPG:Department>
<QPG:Group></QPG:Group>
<QPG:Team>QNX.ORG.RU Team</QPG:Team>
<QPG:Employee xmlmultiple="true">Dmitry Alexeyev</QPG:Employee>
<QPG:EmailAddress xmlmultiple="true">dmi@qnx.org.ru</QPG:EmailAddress>
<QPG:Employee xmlmultiple="true">Mike Gorchak</QPG:Employee>
<QPG:EmailAddress xmlmultiple="true">mike@malva.ua</QPG:EmailAddress>
</QPG:Responsible>
<QPG:Values>
<QPG:Files>
<QPG:Add file="dist-qnx/doc/@PRODUCT@-@VERSION@/txt/LICENSE.txt" install="LicenseUrl/" handling="repdata"/>
<QPG:Add file="dist-qnx/doc/@PRODUCT@-@VERSION@/html/DISCLAIMER.html" permissions="0644" install="/usr/local/doc/@PRODUCT@-@VERSION@/html/"/>
<QPG:Add file="dist-qnx/doc/@PRODUCT@-@VERSION@/html/INSTALL.html" permissions="0644" install="/usr/local/doc/@PRODUCT@-@VERSION@/html/"/>
<QPG:Add file="dist-qnx/doc/@PRODUCT@-@VERSION@/html/LICENSE.html" permissions="0644" install="/usr/local/doc/@PRODUCT@-@VERSION@/html/"/>
<QPG:Add file="dist-qnx/doc/@PRODUCT@-@VERSION@/html/README.html" permissions="0644" install="/usr/local/doc/@PRODUCT@-@VERSION@/html/"/>
<QPG:Add file="dist-qnx/doc/@PRODUCT@-@VERSION@/html/TODO.html" permissions="0644" install="/usr/local/doc/@PRODUCT@-@VERSION@/html/"/>
<QPG:Add file="dist-qnx/doc/@PRODUCT@-@VERSION@/html/manpage.html" permissions="0644" install="/usr/local/doc/@PRODUCT@-@VERSION@/html/"/>
<QPG:Add file="dist-qnx/doc/@PRODUCT@-@VERSION@/man/manpage.man" permissions="0644" install="/usr/local/doc/@PRODUCT@-@VERSION@/man/"/>
<QPG:Add file="dist-qnx/doc/@PRODUCT@-@VERSION@/txt/DISCLAIMER.txt" permissions="0644" install="/usr/local/doc/@PRODUCT@-@VERSION@/text/"/>
<QPG:Add file="dist-qnx/doc/@PRODUCT@-@VERSION@/txt/INSTALL.txt" permissions="0644" install="/usr/local/doc/@PRODUCT@-@VERSION@/txt/"/>
<QPG:Add file="dist-qnx/doc/@PRODUCT@-@VERSION@/txt/LICENSE.txt" permissions="0644" install="/usr/local/doc/@PRODUCT@-@VERSION@/txt/"/>
<QPG:Add file="dist-qnx/doc/@PRODUCT@-@VERSION@/txt/README.txt" permissions="0644" install="/usr/local/doc/@PRODUCT@-@VERSION@/txt/"/>
<QPG:Add file="dist-qnx/doc/@PRODUCT@-@VERSION@/txt/TODO.txt" permissions="0644" install="/usr/local/doc/@PRODUCT@-@VERSION@/txt/"/>
<QPG:Add file="dist-qnx/bin/pecomato" permissions="0755" install="/usr/local/bin/"/>
</QPG:Files>
<QPG:PackageFilter>
<QPM:PackageManifest>
<QPM:PackageDescription>
<QPM:PackageType>Application</QPM:PackageType>
<QPM:PackageRepository></QPM:PackageRepository>
<QPM:FileVersion>2.0</QPM:FileVersion>
</QPM:PackageDescription>
<QPM:ProductDescription>
<QPM:ProductName>@PRODUCT@</QPM:ProductName>
<QPM:ProductIdentifier>@PRODUCT@</QPM:ProductIdentifier>
<QPM:ProductEmail>@AUTHOR_CONTACT@</QPM:ProductEmail>
<QPM:VendorName></QPM:VendorName>
<QPM:VendorInstallName></QPM:VendorInstallName>
<QPM:VendorURL></QPM:VendorURL>
<QPM:VendorEmbedURL></QPM:VendorEmbedURL>
<QPM:VendorEmail></QPM:VendorEmail>
<QPM:AuthorName></QPM:AuthorName>
<QPM:ProductIconSmall></QPM:ProductIconSmall>
<QPM:ProductIconLarge></QPM:ProductIconLarge>
<QPM:ProductDescriptionShort>@DESCRIPTION@</QPM:ProductDescriptionShort>
<QPM:ProductDescriptionLong>@DESCRIPTION@</QPM:ProductDescriptionLong>
<QPM:ProductDescriptionURL>@HOMEPAGE@</QPM:ProductDescriptionURL>
<QPM:ProductDescriptionEmbedURL></QPM:ProductDescriptionEmbedURL>
</QPM:ProductDescription>
<QPM:ReleaseDescription>
<QPM:ReleaseVersion>@VERSION@</QPM:ReleaseVersion>
<QPM:ReleaseUrgency>Medium</QPM:ReleaseUrgency>
<QPM:ReleaseStability>Stable</QPM:ReleaseStability>
<QPM:ReleaseNoteMinor></QPM:ReleaseNoteMinor>
<QPM:ReleaseNoteMajor></QPM:ReleaseNoteMajor>
<QPM:CountryExclude></QPM:CountryExclude>
<QPM:ReleaseCopyright>@LICENSE@</QPM:ReleaseCopyright>
</QPM:ReleaseDescription>
<QPM:ContentDescription>
<QPM:ContentTopic xmlmultiple="true">@CATEGORY@</QPM:ContentTopic>
<QPM:ContentKeyword>pecomato, metadata, picture-embedded, processor, filter, jpg, jpeg, jfif, IPTC, Exif, Photoshop, Fotostation</QPM:ContentKeyword>
<QPM:TargetOS>qnx6</QPM:TargetOS>
<QPM:HostOS>none</QPM:HostOS>
<QPM:DisplayEnvironment xmlmultiple="true">Console</QPM:DisplayEnvironment>
<QPM:TargetAudience xmlmultiple="true">User</QPM:TargetAudience>
</QPM:ContentDescription>
<QPM:LicenseUrl>repdata://LicenseUrl/COPYING</QPM:LicenseUrl>
</QPM:PackageManifest>
</QPG:PackageFilter>
<QPG:PackageFilter proc="none" target="none">
<QPM:PackageManifest>
<QPM:ProductInstallationDependencies>
<QPM:ProductRequirements></QPM:ProductRequirements>
</QPM:ProductInstallationDependencies>
<QPM:ProductInstallationProcedure>
<QPM:Script xmlmultiple="true">
<QPM:ScriptName>/usr/photon/bin/launchmenu_notify</QPM:ScriptName>
<QPM:ScriptTiming>Post</QPM:ScriptTiming>
<QPM:ScriptType>Use</QPM:ScriptType>
</QPM:Script>
<QPM:Script xmlmultiple="true">
<QPM:ScriptName>/usr/photon/bin/launchmenu_notify</QPM:ScriptName>
<QPM:ScriptTiming>Post</QPM:ScriptTiming>
<QPM:ScriptType>Unuse</QPM:ScriptType>
</QPM:Script>
</QPM:ProductInstallationProcedure>
</QPM:PackageManifest>
</QPG:PackageFilter>
<QPG:PackageFilter proc="x86" target="none">
<QPM:PackageManifest>
<QPM:ProductInstallationDependencies>
<QPM:ProductRequirements></QPM:ProductRequirements>
</QPM:ProductInstallationDependencies>
</QPM:PackageManifest>
</QPG:PackageFilter>
</QPG:Values>
</QPG:Generation>
pecomato-0.0.15/pecomato.rc.in 0000644 0001752 0001752 00000001610 10677223051 015133 0 ustar devel devel 1 24 DISCARDABLE "resource-xptheme.bin"
IDI_ICON1 ICON DISCARDABLE "pecomato-32.ico"
#include <windows.h>
VS_VERSION_INFO VERSIONINFO
FILEVERSION @VERSION_RC@
PRODUCTVERSION @VERSION_RC@
FILEFLAGSMASK 0x3fL
#ifdef _DEBUG
FILEFLAGS 0x1L
#else
FILEFLAGS 0x0L
#endif
FILEOS 0x4L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "040904B0"
BEGIN
VALUE "Comment", "@DESCRIPTION@\0"
VALUE "Contact", "@AUTHOR_CONTACT@\0"
VALUE "Url", "@HOMEPAGE@\0"
VALUE "FileDescription", "@PRODUCT@\0"
VALUE "FileVersion", "@VERSION@\0"
VALUE "InternalName", "@PRODUCT@\0"
VALUE "LegalCopyright", "@LICENSE@\0"
VALUE "OriginalFilename", "@PRODUCT@.exe\0"
VALUE "ProductName", "@PRODUCT@\0"
VALUE "ProductVersion", "@VERSION@\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x409, 1200
END
END
pecomato-0.0.15/pecomato.spec.in 0000644 0001752 0001752 00000003565 10677223051 015474 0 ustar devel devel # to build: rpm/rpmbuild -ba %name.spec
# or: rpm/rpmbuild -ta %name-%version.tar.gz
# the tar.gz should contain a directory %name-%version
Name: @PRODUCT@
Version: @VERSION@
Release: 1
License: @LICENSE@
Summary: @DESCRIPTION@
Group: @CATEGORY@
ExclusiveOS: Linux
Packager: @AUTHOR_CONTACT@
Url: @HOMEPAGE@
Source: @HOMEPAGE@download/%name-%version.tar.gz
BuildRoot: %_tmppath/%name-%version-%release
#BuildRequires:
#Requires:
Prefix: /usr/local
%description
See the README file.
%prep
%setup -q
%build
test -s /usr/bin/gcc32 && \
export CC=gcc32 || \
export CFLAGS="$RPM_OPT_FLAGS"
PREFIX=%buildroot/usr/local make -f Makefile.linux -s full
%install
rm -Rf %buildroot
test -s /usr/bin/gcc32 && \
export CC=gcc32 || \
export CFLAGS="$RPM_OPT_FLAGS"
PREFIX=%buildroot/usr/local make -f Makefile.linux -s install
rm -Rf dist-src/
%clean
rm -Rf %buildroot
%pre
%post
%preun
%postun
%files
# here, we list all the files that form the binary package.
# executable files should be : rwxr-xr-x
%defattr(755,root,root)
%dir /usr/local/bin
/usr/local/bin/pecomato
# config files should be : rw-r--r--
# doc files should be : rw-r--r--
%defattr(644,root,root)
%dir /usr/local/doc/%name-%version
/usr/local/doc/%name-%version/html/DISCLAIMER.html
/usr/local/doc/%name-%version/html/INSTALL.html
/usr/local/doc/%name-%version/html/LICENSE.html
/usr/local/doc/%name-%version/html/README.html
/usr/local/doc/%name-%version/html/TODO.html
/usr/local/doc/%name-%version/html/manpage.html
/usr/local/doc/%name-%version/txt/DISCLAIMER.txt
/usr/local/doc/%name-%version/txt/INSTALL.txt
/usr/local/doc/%name-%version/txt/LICENSE.txt
/usr/local/doc/%name-%version/txt/README.txt
/usr/local/doc/%name-%version/txt/TODO.txt
/usr/local/doc/%name-%version/man/manpage.man
/usr/local/doc/%name-%version/pdf/user-manual.pdf
%changelog
pecomato-0.0.15/DISCLAIMER 0000644 0001752 0001752 00000001262 10677223051 013733 0 ustar devel devel
DISCLAIMER
==========
Copyright (C) 2005-2007 Tristan Chabredier.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
pecomato-0.0.15/INSTALL 0000644 0001752 0001752 00000024324 10677223051 013431 0 ustar devel devel
PECOMATO - INSTALLATION
=======================
GNU/Linux installation
======================
Available packages for GNU/Linux systems:
- sources archives as .tar.gz and .tar.bz2 files (.zip and .rar can also
be used if unzip and unrar are installed).
- binary archives for glibc 2.2 x86 32bit, successfully tested on RedHat 7.0
to 9, RHEL 2.1 to 3, Fedora Core 1 and 2, SuSE 7.1 to 9.1, Mandrake 10.x.
Other distros are untested yet.
- binary archives for glibc 2.4 x86 32bit, successfully tested on FC5.
Other distros are still untested.
- binary RPMs and sources RPM built on RH7 (glibc 2.2 x86 32bit) and FC5
(glibc 2.4 x86 32bit), those packages have no distro-specific dependencies
excepted the glibc, so they can be used on other rpm-based systems.
Installing from the sources
===========================
Pre-requisites: installing pecomato from the sources requires a common
GNU/Linux system to be configured, including the traditional toolchain for
ANSI C development (GNU make 3.79, gcc, binutils, etc.). Python 1.5 mininum is
required to generate the documentation. Perl 5 minimum and CVS access are
necessary to build the sources archives (for packagers).
Unpack the sources archive, enter the sources directory then:
$ make -f Makefile.linux
$ make -f Makefile.linux install
This will install all files in dist-linux/, it's up to you to install the
binary and doc files to your user's home or to a system-wide location (as
root), preferably so that pecomato binary is found on all users' PATH.
Installing from a binary archive
================================
Unpack the archive, enter the extracted directory and copy the pecomato binary
and doc files somewhere on the PATH, as root or not according to your
permissions or wishes.
Installing from a RPM
=====================
Prefer RPMs if your system is RPM-based and a RPM is available for your distro.
$ rpm -ivh filename.rpm
or to upgrade an already existing version:
$ rpm -Uvh filename.rpm
Unix installation
=================
Available packages for Unix systems:
- sources archives as .tar.gz and .tar.bz2 files (.zip and .rar can also
be used if unzip and unrar are installed).
- binary archives for IBM Aix 4.3.3 32bit to Aix 5.3 32bit.
- binary archives for FreeBSD 5.4 i386 32bit. FreeBSD port is also available.
- binary archives for HP-UX 11.00 32bit to HP-UX 11.11 32bit.
- binary archives for HP-UX 11.23 64bit (Itanium2).
- binary archives for Sun Solaris 2.6 SPARC 32bit (SunOS 5.6) to Solaris 8
SPARC 32bit (SunOS 5.8).
- binary archives for Sun Solaris 10 Intel (SunOS 5.10 i386 32bit).
- binary archives for GNU/Solaris Nexenta (SunOS 5.11 i386 32bit).
FreeBSD specific notes
======================
pecomato is available from the ports collection of FreeBSD. Make sure that
the ports are installed on your FreeBSD system, then:
$ cd /usr/ports/graphics/pecomato
$ make install distclean
pecomato is known to compile on FreeBSD 5.4 up to 7.0, with either gcc 3.x or
gcc 4.x, x86 and amd64.
Other than that, you can install pecomato from the sources or from the
available binary package, see below.
Installing from the sources
===========================
Pre-requisites: installing pecomato from the sources requires the GNU ANSI C
compiler to be installed (gcc), other traditional development tools are
required (GNU make 3.79, binutils). Python 1.5 mininum is required to generate
the documentation. Perl 5 minimum and CVS access are necessary to build the
sources archives (for packagers).
Unpack the sources archive, enter the sources directory then:
$ make -f Makefile.unix
$ make -f Makefile.unix install
This will install all files in dist-unix/, it's up to you to install the
binary and doc files to your user's home or to a system-wide location (as
root), preferably so that pecomato binary is found on all users' PATH.
Installing from a binary archive
================================
Unpack the archive, enter the extracted directory and copy the pecomato binary
and doc files somewhere on the PATH, as root or not according to your
permissions or wishes.
QNX installation
================
Available packages for QNX systems:
- sources archives as .tar.gz and .tar.bz2 files (.zip and .rar can also
be used if unzip and unrar are installed).
- binary archives for QNX 6.3.0 x86 32bit.
Installing from the sources
===========================
Pre-requisites: installing pecomato from the sources requires the GNU ANSI C
compiler to be installed (gcc), other traditional development tools are
required (GNU make 3.79, binutils). Python 1.5 mininum is required to generate
the documentation. Perl 5 minimum and CVS access are necessary to build the
sources archives (for packagers).
Unpack the sources archive, enter the sources directory then:
$ make -f Makefile.qnx
$ make -f Makefile.qnx install
This will install all files in dist-qnx/, it's up to you to install the
binary and doc files to your user's home or to a system-wide location (as
root), preferably so that pecomato binary is found on all users' PATH.
Installing from a binary archive
================================
Unpack the archive, enter the extracted directory and copy the pecomato binary
and doc files somewhere on the PATH, as root or not according to your
permissions or wishes.
BeOS installation
=================
Available packages for BeOS systems:
- sources archives as .tar.gz and .tar.bz2 files (.zip and .rar can also
be used if unzip and unrar are installed).
- binary archive for BeOS Commercial/Personal Editions 5.0.3 x86 32bit.
- binary packages for BeOS Commercial/Personal Editions 5.0.3 x86 32bit, as
well as a .pkg and a .sea.
Installing from the sources
===========================
Pre-requisites: installing pecomato from the sources requires the GNU ANSI C
compiler to be installed (gcc), other traditional development tools are
required (GNU make 3.79, binutils). Python 1.5 mininum is required to generate
the documentation. Perl 5 minimum and CVS access are necessary to build the
sources archives (for packagers).
Unpack the sources archive, enter the sources directory then:
$ make -f Makefile.beos
$ make -f Makefile.beos install
This will install all files in dist-beos/, it's up to you to install the
binary and doc files to your home or to a system-wide location, so that
pecomato is found on the PATH.
Installing from a binary archive
================================
Unpack the archive, enter the extracted directory and copy the pecomato binary
and doc files somewhere on the PATH.
Installing from a package (.pkg, .sea)
======================================
Open the package, and follow the installation instructions (what to install,
where to install).
Darwin (MacOS X) installation
=============================
Available packages for Darwin systems:
- sources archives as .tar.gz and .tar.bz2 files (.zip and .rar can also
be used if unzip and unrar are installed).
- binary archives for Darwin 7.9.0 powerpc 32bit (MacOS X 10.3.19 aka Panther).
Installing from the sources
===========================
Pre-requisites: installing pecomato from the sources requires the GNU ANSI C
compiler to be installed (gcc), other traditional development tools are
required (GNU make 3.79, binutils). Python 1.5 mininum is required to generate
the documentation. Perl 5 minimum and CVS access are necessary to build the
sources archives (for packagers). In other word, you need to install the
Devtools.
Unpack the sources archive, enter the sources directory then:
$ make -f Makefile.darwin
$ make -f Makefile.darwin install
This will install all files in dist-darwin/, it's up to you to install the
binary and doc files to your user's home or to a system-wide location (as
root), preferably so that pecomato binary is found on all users' PATH.
Installing from a binary package
================================
Unpack the archive, enter the extracted directory and copy the pecomato binary
and doc files somewhere on the PATH, as root or not according to your
permissions or wishes.
Microsoft Windows installation
==============================
Running pecomato needs a common Windows system to be configured.
Available packages for win32 systems:
- sources archive, as .zip, .rar files and self-extractible .exe (as well as
.tar.gz and .tar.bz2 that can be used with winzip, winrar or from cygwin
or mingw environments for instance).
- binary archives, successfully tested on the following win32 x86 32bit OSes:
NT4+SP6, ME, 2000, XP (vanilla, SP1 or SP2) and 2003. Other versions are
untested yet. Those static binary archives are available as .zip, .rar and
.exe (self-extractible) files.
Installing from the sources
===========================
Pre-requisites: installing pecomato from the sources requires a complete ANSI C
development system to be configured (for instance, MSVC++ 6.x and 7.x aka .NET
s OK, but the MS compiler and nmake are sufficient). The sources can be compiled
from a mingw32 or msys subsystem. Python 1.5 mininum is required to generate the
documentation. Perl 5 minimum and CVS access are necessary to build the
sources archives (for packagers). Some GNU utilies (grep, sed, etc.) are also
necessary, they are part of many distributions like UnxUtils
(http://unxutils.sf.net/), Cygwin, Mingw32/Msys, SFU.
Unpack the sources. Open a console window (cmd.exe) and enter the sources
directory then:
$ nmake -f Makefile.win32
$ nmake -f Makefile.win32 install
This will install all files in dist-win32/, it's up to you to install the
binary and/or doc files to your user's home or to a system-wide directory (as
an admin user, following the system), preferably so that pecomato.exe executable
is found on all users' PATH.
Installing from a binary package
================================
Manually unpack the archive to C:\Program files (for instance) or run the self
extracting package and select the install location.
Installing on other OSes
========================
You might be able to compile from the sources under some other Unices or even
different architectures, possibly with minor adaptations. Please report
successful compilations and send me the necessary changes you've made to make
is compile and run OK :-).
pecomato-0.0.15/LICENSE 0000644 0001752 0001752 00000104553 10677223051 013410 0 ustar devel devel
GNU GENERAL PUBLIC LICENSE
==========================
Version 3, 29 June 2007
Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
========
The GNU General Public License is a free, copyleft license for
software and other kinds of works.
The licenses for most software and other practical works are designed
to take away your freedom to share and change the works. By contrast,
the GNU General Public License is intended to guarantee your freedom to
share and change all versions of a program--to make sure it remains free
software for all its users. We, the Free Software Foundation, use the
GNU General Public License for most of our software; it applies also to
any other work released this way by its authors. You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
them if you wish), that you receive source code or can get it if you
want it, that you can change the software or use pieces of it in new
free programs, and that you know you can do these things.
To protect your rights, we need to prevent others from denying you
these rights or asking you to surrender the rights. Therefore, you have
certain responsibilities if you distribute copies of the software, or if
you modify it: responsibilities to respect the freedom of others.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must pass on to the recipients the same
freedoms that you received. You must make sure that they, too, receive
or can get the source code. And you must show them these terms so they
know their rights.
Developers that use the GNU GPL protect your rights with two steps:
(1) assert copyright on the software, and (2) offer you this License
giving you legal permission to copy, distribute and/or modify it.
For the developers' and authors' protection, the GPL clearly explains
that there is no warranty for this free software. For both users' and
authors' sake, the GPL requires that modified versions be marked as
changed, so that their problems will not be attributed erroneously to
authors of previous versions.
Some devices are designed to deny users access to install or run
modified versions of the software inside them, although the manufacturer
can do so. This is fundamentally incompatible with the aim of
protecting users' freedom to change the software. The systematic
pattern of such abuse occurs in the area of products for individuals to
use, which is precisely where it is most unacceptable. Therefore, we
have designed this version of the GPL to prohibit the practice for those
products. If such problems arise substantially in other domains, we
stand ready to extend this provision to those domains in future versions
of the GPL, as needed to protect the freedom of users.
Finally, every program is threatened constantly by software patents.
States should not allow patents to restrict development and use of
software on general-purpose computers, but in those that do, we wish to
avoid the special danger that patents applied to a free program could
make it effectively proprietary. To prevent this, the GPL assures that
patents cannot be used to render the program non-free.
The precise terms and conditions for copying, distribution and
modification follow.
TERMS AND CONDITIONS
====================
0. Definitions.
"This License" refers to version 3 of the GNU General Public License.
"Copyright" also means copyright-like laws that apply to other kinds of
works, such as semiconductor masks.
"The Program" refers to any copyrightable work licensed under this
License. Each licensee is addressed as "you". "Licensees" and
"recipients" may be individuals or organizations.
To "modify" a work means to copy from or adapt all or part of the work
in a fashion requiring copyright permission, other than the making of an
exact copy. The resulting work is called a "modified version" of the
earlier work or a work "based on" the earlier work.
A "covered work" means either the unmodified Program or a work based
on the Program.
To "propagate" a work means to do anything with it that, without
permission, would make you directly or secondarily liable for
infringement under applicable copyright law, except executing it on a
computer or modifying a private copy. Propagation includes copying,
distribution (with or without modification), making available to the
public, and in some countries other activities as well.
To "convey" a work means any kind of propagation that enables other
parties to make or receive copies. Mere interaction with a user through
a computer network, with no transfer of a copy, is not conveying.
An interactive user interface displays "Appropriate Legal Notices"
to the extent that it includes a convenient and prominently visible
feature that (1) displays an appropriate copyright notice, and (2)
tells the user that there is no warranty for the work (except to the
extent that warranties are provided), that licensees may convey the
work under this License, and how to view a copy of this License. If
the interface presents a list of user commands or options, such as a
menu, a prominent item in the list meets this criterion.
1. Source Code.
The "source code" for a work means the preferred form of the work
for making modifications to it. "Object code" means any non-source
form of a work.
A "Standard Interface" means an interface that either is an official
standard defined by a recognized standards body, or, in the case of
interfaces specified for a particular programming language, one that
is widely used among developers working in that language.
The "System Libraries" of an executable work include anything, other
than the work as a whole, that (a) is included in the normal form of
packaging a Major Component, but which is not part of that Major
Component, and (b) serves only to enable use of the work with that
Major Component, or to implement a Standard Interface for which an
implementation is available to the public in source code form. A
"Major Component", in this context, means a major essential component
(kernel, window system, and so on) of the specific operating system
(if any) on which the executable work runs, or a compiler used to
produce the work, or an object code interpreter used to run it.
The "Corresponding Source" for a work in object code form means all
the source code needed to generate, install, and (for an executable
work) run the object code and to modify the work, including scripts to
control those activities. However, it does not include the work's
System Libraries, or general-purpose tools or generally available free
programs which are used unmodified in performing those activities but
which are not part of the work. For example, Corresponding Source
includes interface definition files associated with source files for
the work, and the source code for shared libraries and dynamically
linked subprograms that the work is specifically designed to require,
such as by intimate data communication or control flow between those
subprograms and other parts of the work.
The Corresponding Source need not include anything that users
can regenerate automatically from other parts of the Corresponding
Source.
The Corresponding Source for a work in source code form is that
same work.
2. Basic Permissions.
All rights granted under this License are granted for the term of
copyright on the Program, and are irrevocable provided the stated
conditions are met. This License explicitly affirms your unlimited
permission to run the unmodified Program. The output from running a
covered work is covered by this License only if the output, given its
content, constitutes a covered work. This License acknowledges your
rights of fair use or other equivalent, as provided by copyright law.
You may make, run and propagate covered works that you do not
convey, without conditions so long as your license otherwise remains
in force. You may convey covered works to others for the sole purpose
of having them make modifications exclusively for you, or provide you
with facilities for running those works, provided that you comply with
the terms of this License in conveying all material for which you do
not control copyright. Those thus making or running the covered works
for you must do so exclusively on your behalf, under your direction
and control, on terms that prohibit them from making any copies of
your copyrighted material outside their relationship with you.
Conveying under any other circumstances is permitted solely under
the conditions stated below. Sublicensing is not allowed; section 10
makes it unnecessary.
3. Protecting Users' Legal Rights From Anti-Circumvention Law.
No covered work shall be deemed part of an effective technological
measure under any applicable law fulfilling obligations under article
11 of the WIPO copyright treaty adopted on 20 December 1996, or
similar laws prohibiting or restricting circumvention of such
measures.
When you convey a covered work, you waive any legal power to forbid
circumvention of technological measures to the extent such circumvention
is effected by exercising rights under this License with respect to
the covered work, and you disclaim any intention to limit operation or
modification of the work as a means of enforcing, against the work's
users, your or third parties' legal rights to forbid circumvention of
technological measures.
4. Conveying Verbatim Copies.
You may convey verbatim copies of the Program's source code as you
receive it, in any medium, provided that you conspicuously and
appropriately publish on each copy an appropriate copyright notice;
keep intact all notices stating that this License and any
non-permissive terms added in accord with section 7 apply to the code;
keep intact all notices of the absence of any warranty; and give all
recipients a copy of this License along with the Program.
You may charge any price or no price for each copy that you convey,
and you may offer support or warranty protection for a fee.
5. Conveying Modified Source Versions.
You may convey a work based on the Program, or the modifications to
produce it from the Program, in the form of source code under the
terms of section 4, provided that you also meet all of these conditions:
a) The work must carry prominent notices stating that you modified
it, and giving a relevant date.
b) The work must carry prominent notices stating that it is
released under this License and any conditions added under section
7. This requirement modifies the requirement in section 4 to
"keep intact all notices".
c) You must license the entire work, as a whole, under this
License to anyone who comes into possession of a copy. This
License will therefore apply, along with any applicable section 7
additional terms, to the whole of the work, and all its parts,
regardless of how they are packaged. This License gives no
permission to license the work in any other way, but it does not
invalidate such permission if you have separately received it.
d) If the work has interactive user interfaces, each must display
Appropriate Legal Notices; however, if the Program has interactive
interfaces that do not display Appropriate Legal Notices, your
work need not make them do so.
A compilation of a covered work with other separate and independent
works, which are not by their nature extensions of the covered work,
and which are not combined with it such as to form a larger program,
in or on a volume of a storage or distribution medium, is called an
"aggregate" if the compilation and its resulting copyright are not
used to limit the access or legal rights of the compilation's users
beyond what the individual works permit. Inclusion of a covered work
in an aggregate does not cause this License to apply to the other
parts of the aggregate.
6. Conveying Non-Source Forms.
You may convey a covered work in object code form under the terms
of sections 4 and 5, provided that you also convey the
machine-readable Corresponding Source under the terms of this License,
in one of these ways:
a) Convey the object code in, or embodied in, a physical product
(including a physical distribution medium), accompanied by the
Corresponding Source fixed on a durable physical medium
customarily used for software interchange.
b) Convey the object code in, or embodied in, a physical product
(including a physical distribution medium), accompanied by a
written offer, valid for at least three years and valid for as
long as you offer spare parts or customer support for that product
model, to give anyone who possesses the object code either (1) a
copy of the Corresponding Source for all the software in the
product that is covered by this License, on a durable physical
medium customarily used for software interchange, for a price no
more than your reasonable cost of physically performing this
conveying of source, or (2) access to copy the
Corresponding Source from a network server at no charge.
c) Convey individual copies of the object code with a copy of the
written offer to provide the Corresponding Source. This
alternative is allowed only occasionally and noncommercially, and
only if you received the object code with such an offer, in accord
with subsection 6b.
d) Convey the object code by offering access from a designated
place (gratis or for a charge), and offer equivalent access to the
Corresponding Source in the same way through the same place at no
further charge. You need not require recipients to copy the
Corresponding Source along with the object code. If the place to
copy the object code is a network server, the Corresponding Source
may be on a different server (operated by you or a third party)
that supports equivalent copying facilities, provided you maintain
clear directions next to the object code saying where to find the
Corresponding Source. Regardless of what server hosts the
Corresponding Source, you remain obligated to ensure that it is
available for as long as needed to satisfy these requirements.
e) Convey the object code using peer-to-peer transmission, provided
you inform other peers where the object code and Corresponding
Source of the work are being offered to the general public at no
charge under subsection 6d.
A separable portion of the object code, whose source code is excluded
from the Corresponding Source as a System Library, need not be
included in conveying the object code work.
A "User Product" is either (1) a "consumer product", which means any
tangible personal property which is normally used for personal, family,
or household purposes, or (2) anything designed or sold for incorporation
into a dwelling. In determining whether a product is a consumer product,
doubtful cases shall be resolved in favor of coverage. For a particular
product received by a particular user, "normally used" refers to a
typical or common use of that class of product, regardless of the status
of the particular user or of the way in which the particular user
actually uses, or expects or is expected to use, the product. A product
is a consumer product regardless of whether the product has substantial
commercial, industrial or non-consumer uses, unless such uses represent
the only significant mode of use of the product.
"Installation Information" for a User Product means any methods,
procedures, authorization keys, or other information required to install
and execute modified versions of a covered work in that User Product from
a modified version of its Corresponding Source. The information must
suffice to ensure that the continued functioning of the modified object
code is in no case prevented or interfered with solely because
modification has been made.
If you convey an object code work under this section in, or with, or
specifically for use in, a User Product, and the conveying occurs as
part of a transaction in which the right of possession and use of the
User Product is transferred to the recipient in perpetuity or for a
fixed term (regardless of how the transaction is characterized), the
Corresponding Source conveyed under this section must be accompanied
by the Installation Information. But this requirement does not apply
if neither you nor any third party retains the ability to install
modified object code on the User Product (for example, the work has
been installed in ROM).
The requirement to provide Installation Information does not include a
requirement to continue to provide support service, warranty, or updates
for a work that has been modified or installed by the recipient, or for
the User Product in which it has been modified or installed. Access to a
network may be denied when the modification itself materially and
adversely affects the operation of the network or violates the rules and
protocols for communication across the network.
Corresponding Source conveyed, and Installation Information provided,
in accord with this section must be in a format that is publicly
documented (and with an implementation available to the public in
source code form), and must require no special password or key for
unpacking, reading or copying.
7. Additional Terms.
"Additional permissions" are terms that supplement the terms of this
License by making exceptions from one or more of its conditions.
Additional permissions that are applicable to the entire Program shall
be treated as though they were included in this License, to the extent
that they are valid under applicable law. If additional permissions
apply only to part of the Program, that part may be used separately
under those permissions, but the entire Program remains governed by
this License without regard to the additional permissions.
When you convey a copy of a covered work, you may at your option
remove any additional permissions from that copy, or from any part of
it. (Additional permissions may be written to require their own
removal in certain cases when you modify the work.) You may place
additional permissions on material, added by you to a covered work,
for which you have or can give appropriate copyright permission.
Notwithstanding any other provision of this License, for material you
add to a covered work, you may (if authorized by the copyright holders of
that material) supplement the terms of this License with terms:
a) Disclaiming warranty or limiting liability differently from the
terms of sections 15 and 16 of this License; or
b) Requiring preservation of specified reasonable legal notices or
author attributions in that material or in the Appropriate Legal
Notices displayed by works containing it; or
c) Prohibiting misrepresentation of the origin of that material, or
requiring that modified versions of such material be marked in
reasonable ways as different from the original version; or
d) Limiting the use for publicity purposes of names of licensors or
authors of the material; or
e) Declining to grant rights under trademark law for use of some
trade names, trademarks, or service marks; or
f) Requiring indemnification of licensors and authors of that
material by anyone who conveys the material (or modified versions of
it) with contractual assumptions of liability to the recipient, for
any liability that these contractual assumptions directly impose on
those licensors and authors.
All other non-permissive additional terms are considered "further
restrictions" within the meaning of section 10. If the Program as you
received it, or any part of it, contains a notice stating that it is
governed by this License along with a term that is a further
restriction, you may remove that term. If a license document contains
a further restriction but permits relicensing or conveying under this
License, you may add to a covered work material governed by the terms
of that license document, provided that the further restriction does
not survive such relicensing or conveying.
If you add terms to a covered work in accord with this section, you
must place, in the relevant source files, a statement of the
additional terms that apply to those files, or a notice indicating
where to find the applicable terms.
Additional terms, permissive or non-permissive, may be stated in the
form of a separately written license, or stated as exceptions;
the above requirements apply either way.
8. Termination.
You may not propagate or modify a covered work except as expressly
provided under this License. Any attempt otherwise to propagate or
modify it is void, and will automatically terminate your rights under
this License (including any patent licenses granted under the third
paragraph of section 11).
However, if you cease all violation of this License, then your
license from a particular copyright holder is reinstated (a)
provisionally, unless and until the copyright holder explicitly and
finally terminates your license, and (b) permanently, if the copyright
holder fails to notify you of the violation by some reasonable means
prior to 60 days after the cessation.
Moreover, your license from a particular copyright holder is
reinstated permanently if the copyright holder notifies you of the
violation by some reasonable means, this is the first time you have
received notice of violation of this License (for any work) from that
copyright holder, and you cure the violation prior to 30 days after
your receipt of the notice.
Termination of your rights under this section does not terminate the
licenses of parties who have received copies or rights from you under
this License. If your rights have been terminated and not permanently
reinstated, you do not qualify to receive new licenses for the same
material under section 10.
9. Acceptance Not Required for Having Copies.
You are not required to accept this License in order to receive or
run a copy of the Program. Ancillary propagation of a covered work
occurring solely as a consequence of using peer-to-peer transmission
to receive a copy likewise does not require acceptance. However,
nothing other than this License grants you permission to propagate or
modify any covered work. These actions infringe copyright if you do
not accept this License. Therefore, by modifying or propagating a
covered work, you indicate your acceptance of this License to do so.
10. Automatic Licensing of Downstream Recipients.
Each time you convey a covered work, the recipient automatically
receives a license from the original licensors, to run, modify and
propagate that work, subject to this License. You are not responsible
for enforcing compliance by third parties with this License.
An "entity transaction" is a transaction transferring control of an
organization, or substantially all assets of one, or subdividing an
organization, or merging organizations. If propagation of a covered
work results from an entity transaction, each party to that
transaction who receives a copy of the work also receives whatever
licenses to the work the party's predecessor in interest had or could
give under the previous paragraph, plus a right to possession of the
Corresponding Source of the work from the predecessor in interest, if
the predecessor has it or can get it with reasonable efforts.
You may not impose any further restrictions on the exercise of the
rights granted or affirmed under this License. For example, you may
not impose a license fee, royalty, or other charge for exercise of
rights granted under this License, and you may not initiate litigation
(including a cross-claim or counterclaim in a lawsuit) alleging that
any patent claim is infringed by making, using, selling, offering for
sale, or importing the Program or any portion of it.
11. Patents.
A "contributor" is a copyright holder who authorizes use under this
License of the Program or a work on which the Program is based. The
work thus licensed is called the contributor's "contributor version".
A contributor's "essential patent claims" are all patent claims
owned or controlled by the contributor, whether already acquired or
hereafter acquired, that would be infringed by some manner, permitted
by this License, of making, using, or selling its contributor version,
but do not include claims that would be infringed only as a
consequence of further modification of the contributor version. For
purposes of this definition, "control" includes the right to grant
patent sublicenses in a manner consistent with the requirements of
this License.
Each contributor grants you a non-exclusive, worldwide, royalty-free
patent license under the contributor's essential patent claims, to
make, use, sell, offer for sale, import and otherwise run, modify and
propagate the contents of its contributor version.
In the following three paragraphs, a "patent license" is any express
agreement or commitment, however denominated, not to enforce a patent
(such as an express permission to practice a patent or covenant not to
sue for patent infringement). To "grant" such a patent license to a
party means to make such an agreement or commitment not to enforce a
patent against the party.
If you convey a covered work, knowingly relying on a patent license,
and the Corresponding Source of the work is not available for anyone
to copy, free of charge and under the terms of this License, through a
publicly available network server or other readily accessible means,
then you must either (1) cause the Corresponding Source to be so
available, or (2) arrange to deprive yourself of the benefit of the
patent license for this particular work, or (3) arrange, in a manner
consistent with the requirements of this License, to extend the patent
license to downstream recipients. "Knowingly relying" means you have
actual knowledge that, but for the patent license, your conveying the
covered work in a country, or your recipient's use of the covered work
in a country, would infringe one or more identifiable patents in that
country that you have reason to believe are valid.
If, pursuant to or in connection with a single transaction or
arrangement, you convey, or propagate by procuring conveyance of, a
covered work, and grant a patent license to some of the parties
receiving the covered work authorizing them to use, propagate, modify
or convey a specific copy of the covered work, then the patent license
you grant is automatically extended to all recipients of the covered
work and works based on it.
A patent license is "discriminatory" if it does not include within
the scope of its coverage, prohibits the exercise of, or is
conditioned on the non-exercise of one or more of the rights that are
specifically granted under this License. You may not convey a covered
work if you are a party to an arrangement with a third party that is
in the business of distributing software, under which you make payment
to the third party based on the extent of your activity of conveying
the work, and under which the third party grants, to any of the
parties who would receive the covered work from you, a discriminatory
patent license (a) in connection with copies of the covered work
conveyed by you (or copies made from those copies), or (b) primarily
for and in connection with specific products or compilations that
contain the covered work, unless you entered into that arrangement,
or that patent license was granted, prior to 28 March 2007.
Nothing in this License shall be construed as excluding or limiting
any implied license or other defenses to infringement that may
otherwise be available to you under applicable patent law.
12. No Surrender of Others' Freedom.
If conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot convey a
covered work so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you may
not convey it at all. For example, if you agree to terms that obligate you
to collect a royalty for further conveying from those to whom you convey
the Program, the only way you could satisfy both those terms and this
License would be to refrain entirely from conveying the Program.
13. Use with the GNU Affero General Public License.
Notwithstanding any other provision of this License, you have
permission to link or combine any covered work with a work licensed
under version 3 of the GNU Affero General Public License into a single
combined work, and to convey the resulting work. The terms of this
License will continue to apply to the part which is the covered work,
but the special requirements of the GNU Affero General Public License,
section 13, concerning interaction through a network will apply to the
combination as such.
14. Revised Versions of this License.
The Free Software Foundation may publish revised and/or new versions of
the GNU General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the
Program specifies that a certain numbered version of the GNU General
Public License "or any later version" applies to it, you have the
option of following the terms and conditions either of that numbered
version or of any later version published by the Free Software
Foundation. If the Program does not specify a version number of the
GNU General Public License, you may choose any version ever published
by the Free Software Foundation.
If the Program specifies that a proxy can decide which future
versions of the GNU General Public License can be used, that proxy's
public statement of acceptance of a version permanently authorizes you
to choose that version for the Program.
Later license versions may give you additional or different
permissions. However, no additional obligations are imposed on any
author or copyright holder as a result of your choosing to follow a
later version.
15. Disclaimer of Warranty.
THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
16. Limitation of Liability.
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
SUCH DAMAGES.
17. Interpretation of Sections 15 and 16.
If the disclaimer of warranty and limitation of liability provided
above cannot be given local legal effect according to their terms,
reviewing courts shall apply local law that most closely approximates
an absolute waiver of all civil liability in connection with the
Program, unless a warranty or assumption of liability accompanies a
copy of the Program in return for a fee.
END OF TERMS AND CONDITIONS
===========================
How to Apply These Terms to Your New Programs
=============================================
If you develop a new program, and you want it to be of the greatest
possible use to the public, the best way to achieve this is to make it
free software which everyone can redistribute and change under these terms.
To do so, attach the following notices to the program. It is safest
to attach them to the start of each source file to most effectively
state the exclusion of warranty; and each file should have at least
the "copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) <year> <name of author>
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
Also add information on how to contact you by electronic and paper mail.
If the program does terminal interaction, make it output a short
notice like this when it starts in an interactive mode:
<program> Copyright (C) <year> <name of author>
This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the appropriate
parts of the General Public License. Of course, your program's commands
might be different; for a GUI interface, you would use an "about box".
You should also get your employer (if you work as a programmer) or school,
if any, to sign a "copyright disclaimer" for the program, if necessary.
For more information on this, and how to apply and follow the GNU GPL, see
<http://www.gnu.org/licenses/>.
The GNU General Public License does not permit incorporating your program
into proprietary programs. If your program is a subroutine library, you
may consider it more useful to permit linking proprietary applications with
the library. If this is what you want to do, use the GNU Lesser General
Public License instead of this License. But first, please read
<http://www.gnu.org/philosophy/why-not-lgpl.html>.
pecomato-0.0.15/README 0000644 0001752 0001752 00000005401 10677223051 013253 0 ustar devel devel
PECOMATO - RELEASE NOTES
========================
1. Summary
==========
PECoMaTo stands for Picture-Embedded COntents MAnipulation TOol.
It is basically designed to display any kind of information embedded in
picture files, as well as checking, filtering, extracting, removing, adding and
fixing such information. In other words, it's a metadata processor.
It supports the following file formats: JPEG/JFIF, Adobe PSD and FFO, raw IPTC.
And it knows about the following metadata formats: JFIF, IPTC, Exif, Adobe and
Fotostation. More file and metadata formats might be supported later: TIFF,
Adobe-specific metadata including XMP, etc.
It aims to be portable (see installation section below). One of its main goals
is to check the validity of parsed metadata as well as optionally check the
strict compliance to official standards. On another hand, it aims to provide
ways of fixing broken or not compliant chunks as well as providing general
basic functions to manipulate the metadata.
This program is subject to copyright. However you can copy, use and distribute
it according to the GNU General Public License (GPL v3 or above). See the
DISCLAIMER and LICENSE doc files for further information. It is free of charge,
as well as open-source (the source is available, feel free to submit patches).
2. Installation
===============
pecomato builds and runs on various x86, ppc, 32bit and 64bit systems:
GNU/Linux, Microsoft Windows (win32), QNX 6, Darwin (and MacOS X), BeOS 5 and
many Unices (IBM Aix, FreeBSD, HP-UX, Sun Solaris, GNU/OpenSolaris, etc).
Some other systems will probably be supported later (other Unices or
platforms/architectures).
pecomato can be installed from the sources or binary packages or a variety of
self-installers and system-specific package formats (.rpm, .pkg, etc.).
There is no dependency at runtime, and building from the sources requires the
minimal GNU ANSI C development toolchain. See the INSTALL file to know what are
the available packages and how to install them. Building the doc requires
python.
3. Usage
========
Simply run pecomato from a console or tty. You can get command-line usage or
further information using:
$ pecomato --help
A man page (Unix, GNU/Linux) and a short user guide is also available.
4. Bugs and issues
==================
See the TODO file to get a clue about what is planned to be added or fixed.
Please report detailed problems and bugs to the author (see the links section
of this document).
5. Links
========
- Project main page: http://www.mollux.org/projects/pecomato
- Downloads page: http://www.mollux.org/projects/pecomato/download/
- Bug tracker: http://www.mollux.org/projects/services/bugzilla/
- Author: Tristan Chabredier aka wwp <subscript (at) free.fr>
pecomato-0.0.15/TODO 0000644 0001752 0001752 00000004044 10677223051 013065 0 ustar devel devel
PECOMATO - TODO
===============
for 0.1.0:
==========
- write a user manual!
- better support for all Photoshop variants (minor)
- add support for IPTC extended datasets (length >32767)
- filter edit: add --overwrite (matters with records unicity)
and --force-sizing (to crop or pad)
- dump EXIF values (major)
- allow filtering of EXIF fields (major)
- more IPTC fixing abilities (add missing record version dataset, crop/enlarge dataset size
according to what the fixed/max size should be)
- better location/name for the man page ($(PREFIX)/man/1/@PRODUCT@.man)
- fix lock w/ latest version of cvs2cl under win32
- backtrace support (either gdb rehooking or glibc's execinfo)
- NSIS or installbuilder win32 packages
- .deb packages
- add a way to create an iptc or exif chunk when it's not present (for instance, prior to
filter edit)
- add a merge command (merge standalone .iptc or .exv files to higher-level files)
== later: ==
- build fat binaries for OSX (see gcc-fat.sh)
- rewrite a modular/object-like management of structure -> allow recursive load/save or nested data structures
- merging (w/ or w/o overriding), replacing, purging of metadata in a jpeg, from an external file
- fix missing mandatory IPTC (and other) data
- support TIFF and PNG reading (as well as other formats)
- macro language to perform all tasks
- split code in a library and a wrapper
- integrate to 4D thru its plugin API
- Qt4 or GTK+ frontend?
- move generated tmp files in .<platform>/
- use _16, _32 types
- comply to C code rules (Parasoft ones, etc.)
- use getopt or any further alternative
- use a better/proper command-line analysis method
- add djvu support
- check if we should mmap reads and writes
ports:
======
- Darwin x86, OpenDarwin, OpenBeOS, OpenBSD
- MacOS 9?
- more Unices
- Atari, Amiga?
- binary packages (QNX qpr, Solaris 10 pkgmk)
- determine if we should link statically for the binary archives we're providing (at least
the gcc lib)
- become a GNU project, opensource certified
- get rid of gnu-*.[ch] files, see if -D_GNU_SOURCE could help
]]></plaintext></eod;></eof;></font></rc></rc></eou;></kfogel@red-bean.com></fluffy@cpan.org></perl></file::basename></time::local></text::wrap></bug-cvs2cl@red-bean.com></jrandom@red-bean.com></ufile></ufile></opts></opts></opts></opts></opts></opts></opts></opts></to_tag></from_tag></to_tag></from_tag></tag></tag></cvsroot></cvsroot></encoding.></file></file></branch></branch></branch></branch></branch></regexp></regexp></regexp></regexp></regexp></regexp></domain></domain-name></dnsdomainname></hostname></passwordfile></ufile></ufile></ufile></u></secs></secs></file></file></file></file2></file1></options></cvs2cl></data></slurpee></log></mapfile></mapfile></reader></old_log></changelog></filelist,></screen></center></div>