source: proto/charsetcompiler/charset_compiler.py @ 2702

Last change on this file since 2702 was 2232, checked in by cameron, 7 years ago

Transcode compiler generates charset_compiler input

File size: 23.0 KB
Line 
1# -*- coding: utf-8 -*-
2#
3#  Character Class Compiler
4#
5#  Version 0.8 - Feb. 17, 2012
6#     Add command-line option for specifying basis_pattern
7#  Copyright (c) 2007-12, Robert D. Cameron
8#  All rights reserved.
9#
10#  TO DO Notes
11#
12#  1.  Perhaps the character set definition should be extended to
13#      allow other set operations.   For example, the 'Restricted' set
14#      of XML might be defined as ['\x00-\x1f'] - ['\x09', '\x0a', '\x0d']
15#      This would require fewer operations to compute.
16#
17#  2.  The range logic generator should be modified to group
18#      bit variables the same way as the individual character logic
19#      generator (i.e., combining bits 0 and 1, 2 and 3, 4 and 5 and
20#      6 and 7 first.
21#
22#  3.  Extend for 16-bit and full Unicode character values.
23#
24#
25#--------------------------------------------------------------------------
26#
27#  Data types
28#  1. Character Set Definitions
29#  2. Boolean Expressions
30#  3. Code Generator Objects
31#
32import sys, optparse
33import re, binascii, string
34
35import charset_def
36CharDef = charset_def.CharDef
37CharSetDef = charset_def.CharSetDef
38
39import charsets
40DefinitionSet = charsets.DefinitionSet
41
42import charset_input_parser
43
44#
45# Symbolic Representations of Boolean Expressions
46#
47
48class BoolExpr:
49   """The BoolExpr class and its subclasses provide a symbolic
50      representation of Boolean expressions.
51   """
52   pass
53
54class Var(BoolExpr):
55    def __init__(self, varname):
56        self.varname = varname
57    def show(self): return 'Var("' + self.varname + '")'
58
59class TrueLiteral(BoolExpr):
60    def __init__(self):
61        self.value = True
62    def show(self): return 'T'
63
64class FalseLiteral(BoolExpr):
65    def __init__(self):
66        self.value = False
67    def show(self): return 'F'
68
69class Not(BoolExpr):
70    def __init__(self, expr):
71        self.operand = expr
72    def show(self): return 'Not(%s)' % (self.operand.show())
73
74class And(BoolExpr):
75    def __init__(self, expr1, expr2):
76        self.operand1 = expr1
77        self.operand2 = expr2
78    def show(self): return 'And(%s, %s)' % (self.operand1.show(), self.operand2.show())
79
80class Or(BoolExpr):
81    def __init__(self, expr1, expr2):
82        self.operand1 = expr1
83        self.operand2 = expr2
84    def show(self): return 'Or(%s, %s)' % (self.operand1.show(), self.operand2.show())
85
86class Xor(BoolExpr):
87    def __init__(self, expr1, expr2):
88        self.operand1 = expr1
89        self.operand2 = expr2
90    def show(self): return 'Xor(%s, %s)' % (self.operand1.show(), self.operand2.show())
91
92class Sel(BoolExpr):
93    def __init__(self, expr1, expr2, expr3):
94        self.sel = expr1
95        self.true_branch = expr2
96        self.false_branch = expr3
97    def show(self): return 'Sel(%s, %s, %s)' % (self.sel.show(), self.true_branch.show(), self.false_branch.show())
98
99
100#
101# Optimizing Constructors for Boolean Expressions
102# - Maintaining Assembler Instruction Form:
103#   - All boolean algebraic rules involving true/false applied.
104#   - Negations restricted:
105#       - no negations within or (DeMorgan's to nand)
106#       - at most one negation within and
107#
108
109def make_not(expr):
110    if isinstance(expr, TrueLiteral):
111        return FalseLiteral()
112    elif isinstance(expr, FalseLiteral):
113        return TrueLiteral()
114    elif isinstance(expr, Not):
115        return expr.operand
116    else: return Not(expr)
117
118def make_and(expr1, expr2):
119    if isinstance(expr1, TrueLiteral):
120        return expr2
121    elif isinstance(expr2, TrueLiteral):
122        return expr1
123    elif isinstance(expr1, FalseLiteral):
124        return FalseLiteral()
125    elif isinstance(expr2, FalseLiteral):
126        return FalseLiteral()
127    elif equal_exprs(expr1, expr2): return expr1
128    elif isinstance(expr1, Not):
129        if isinstance(expr2, Not):
130            return make_not(make_or(expr1.operand, expr2.operand))
131        elif equal_exprs(expr1.operand, expr2): return FalseLiteral()
132        else: return And(expr1, expr2)
133    elif isinstance(expr2, Not):
134        if equal_exprs(expr1, expr2.operand): return FalseLiteral()
135        else: return And(expr1, expr2)
136    else: return And(expr1, expr2)
137
138def make_or(expr1, expr2):
139    if isinstance(expr1, FalseLiteral):
140        return expr2
141    elif isinstance(expr2, FalseLiteral):
142        return expr1
143    elif isinstance(expr1, TrueLiteral):
144        return TrueLiteral()
145    elif isinstance(expr2, TrueLiteral):
146        return TrueLiteral()
147    elif isinstance(expr1, Not):
148        return make_not(make_and(expr1.operand, make_not(expr2)))
149    elif isinstance(expr2, Not):
150        return make_not(make_and(make_not(expr1), expr2.operand))
151    elif equal_exprs(expr1, expr2): return expr1
152    elif isinstance(expr1, And) and isinstance(expr2, And):
153        # These optimizations factor out common components that
154        # can occur when sets are formed by union (e.g., union of
155        # [a-z] and [A-Z].
156        if equal_exprs(expr1.operand1, expr2.operand1):
157            return make_and(expr1.operand1, make_or(expr1.operand2, expr2.operand2))
158        elif equal_exprs(expr1.operand2, expr2.operand2):
159            return make_and(expr1.operand2, make_or(expr1.operand1, expr2.operand1))
160        elif equal_exprs(expr1.operand1, expr2.operand2):
161            return make_and(expr1.operand1, make_or(expr1.operand2, expr2.operand1))
162        elif equal_exprs(expr1.operand2, expr2.operand1):
163            return make_and(expr1.operand2, make_or(expr1.operand1, expr2.operand2))
164        else: return Or(expr1, expr2)
165    else: return Or(expr1, expr2)
166
167def make_sel(if_expr, T_expr, F_expr):
168    if isinstance(if_expr, TrueLiteral):
169        return T_expr
170    elif isinstance(if_expr, FalseLiteral):
171        return F_expr
172    elif isinstance(T_expr, TrueLiteral):
173        # if x then T else y = x or y
174        return make_or(if_expr, F_expr) 
175    elif isinstance(T_expr, FalseLiteral):
176        # if x then F else y = not(x) and y
177        return make_and(make_not(if_expr), F_expr) 
178    elif isinstance(F_expr, FalseLiteral):
179        # if x then y else F = x and y
180        return make_and(if_expr, T_expr) 
181    elif isinstance(F_expr, TrueLiteral):
182        # if x then y else T = not(x) or y
183        return make_or(make_not(if_expr), T_expr)
184    elif equal_exprs(T_expr, F_expr):
185        return T_expr
186    else: return Sel(if_expr, T_expr, F_expr)
187
188
189def make_xor(expr1, expr2):
190    if isinstance(expr1, FalseLiteral):
191        return expr2
192    elif isinstance(expr2, FalseLiteral):
193        return expr1
194    elif isinstance(expr1, TrueLiteral):
195        return make_not(expr2)
196    elif isinstance(expr2, TrueLiteral):
197        return make_not(expr1)
198    elif isinstance(expr1, Not) and isinstance(expr2, Not):
199        return make_xor(expr1.operand, expr2.operand)
200    else: return Xor(expr1, expr2)
201
202# Return True if e1 and e2 can be proven equivalent according
203# to some rules, False otherwise.   Note that False may
204# be returned in some cases when the exprs are equivalent.
205def equal_exprs(e1, e2):
206    if isinstance(e1, FalseLiteral): return isinstance(e2, FalseLiteral)
207    elif isinstance(e1, TrueLiteral): return isinstance(e2, TrueLiteral)
208    elif isinstance(e1, Var) and isinstance(e2, Var):
209        return e1.varname == e2.varname
210    elif isinstance(e1, Not) and isinstance(e2, Not):
211        return equal_exprs(e1.operand, e2.operand)
212    elif isinstance(e1, And) and isinstance(e2, And):
213        if equal_exprs(e1.operand1, e2.operand1):
214            return equal_exprs(e1.operand2, e2.operand2)
215        elif equal_exprs(e1.operand1, e2.operand2):
216            return equal_exprs(e1.operand2, e2.operand1)
217        else: return False
218    elif isinstance(e1, Or) and isinstance(e2, Or):
219        if equal_exprs(e1.operand1, e2.operand1):
220            return equal_exprs(e1.operand2, e2.operand2)
221        elif equal_exprs(e1.operand1, e2.operand2):
222            return equal_exprs(e1.operand2, e2.operand1)
223        else: return False
224    elif isinstance(e1, Xor) and isinstance(e2, Xor):
225        if equal_exprs(e1.operand1, e2.operand1):
226            return equal_exprs(e1.operand2, e2.operand2)
227        elif equal_exprs(e1.operand1, e2.operand2):
228            return equal_exprs(e1.operand2, e2.operand1)
229        else: return False
230    elif isinstance(e1, Sel) and isinstance(e2, Sel):
231        if equal_exprs(e1.sel, e2.sel):
232             if equal_exprs(e1.true_branch, e2.true_branch):
233                 return equal_exprs(e1.false_branch, e2.false_branch)
234             else: return False
235        else: return False
236
237
238#
239#
240#  Boolean Expressions for Character Class Definitions
241#
242
243def bit_var(n):
244    global options
245#    return 'bit[%i]' % n
246    return options.basis_pattern % n
247def make_bitv(n):
248    return Var(bit_var(n))
249
250# Deprecated
251def make_2bit_test(var1, var2, bit_pattern):
252  if bit_pattern == 0: 
253    return make_not(make_or(var1, var2))
254  elif bit_pattern == 1:
255    return make_and(make_not(var1), var2)
256  elif bit_pattern == 2:
257    return make_and(var1, make_not(var2))
258  else: return make_and(var1, var2)
259
260# Deprecated
261def make_8bit_test(bit_pattern):
262  return make_and(make_and(make_2bit_test(make_bitv(0), make_bitv(1), (bit_pattern >> 6) & 3),
263                           make_2bit_test(make_bitv(2), make_bitv(3), (bit_pattern >> 4) & 3)),
264                  make_and(make_2bit_test(make_bitv(4), make_bitv(5), (bit_pattern >> 2) & 3),
265                           make_2bit_test(make_bitv(6), make_bitv(7), (bit_pattern) & 3)))
266
267
268def make_bit_test(pattern, bit_count):
269    if bit_count == 0: return TrueLiteral()
270    bit_terms = []
271    test_bit = 2**(bit_count - 1)
272    for i in range(0, bit_count):
273        if (pattern & test_bit) == 0:
274            bit_terms.append(make_not(make_bitv(i)))
275        else: bit_terms.append(make_bitv(i))
276        test_bit >>= 1
277    while len(bit_terms) > 1:
278        new_terms = []
279        for i in range(0, len(bit_terms)/ 2):
280            new_terms.append(make_and(bit_terms[2*i], bit_terms[2*i+1]))
281        if len(bit_terms) % 2 == 1:
282            new_terms.append(bit_terms[-1])
283        bit_terms = new_terms
284    return bit_terms[0]
285
286
287def char_test_expr(ch):
288    return make_bit_test(ord(ch), 8)
289    #return make_8bit_test(ord(ch))
290
291def GE_Range(N, n):
292    if N == 0: return TrueLiteral()
293    elif N % 2 == 0 and (n >> (N - 2)) == 0:
294        return make_or(make_or(make_bitv(8-N), make_bitv(9-N)),
295                        GE_Range(N - 2, n))
296    elif N % 2 == 0 and (n >> (N - 2)) == 3:   # >= 11xxxx
297        return make_and(make_and(make_bitv(8-N), make_bitv(9-N)),
298                        GE_Range(N - 2, n - (3 << (N-2))))
299    elif N >= 1:
300        hi_bit = n & (1 << (N-1))
301        lo_bits = n - hi_bit
302        lo_range = GE_Range(N-1, lo_bits)
303        if hi_bit == 0:
304            # If the hi_bit of n is not set, then whenever the corresponding bit
305            # is set in the target, the target will certainly be >=.  Otherwise,
306            # the value of GE_range(N-1, lo_bits) is required.
307            return make_or(make_bitv(8-N), lo_range)
308        else: 
309            # If the hi_bit of n is set, then the corresponding bit must be set
310            # in the target for >= and GE_range(N-1, lo_bits) must also be true.
311            return make_and(make_bitv(8-N), lo_range)
312
313def LE_Range(N, n):
314    # If an N-bit pattern is all ones, then it is always
315    # true that any n-bit value is LE this pattern.
316    # Handling this as a special case avoids an overflow
317    # issue with n+1 requiring more than N bits.
318    if n+1 == 2 ** N:
319        return TrueLiteral()
320    else:
321        return make_not(GE_Range(N, n+1))
322
323BadRange = Exception()
324
325
326def Make_Range(n1, n2):  # require n2 >= n1
327    diff_bits = n1 ^ n2
328    diff_count = 0
329    while diff_bits > 0:
330        diff_count += 1
331        diff_bits >>= 1
332    if n2 < n1 or diff_count > 8: raise BadRange()
333    mask = 2**(diff_count-1) - 1
334    common = make_bit_test(n1 >> diff_count, 8 - diff_count)
335    if diff_count == 0: return common
336    mask = 2**(diff_count-1) - 1
337    lo_test = GE_Range(diff_count-1, n1 & mask)
338    hi_test = LE_Range(diff_count-1, n2 & mask)
339    return make_and(common, make_sel(make_bitv(8-diff_count), hi_test, lo_test))
340
341# Deprecated   
342def Inclusive_Range(N, n1, n2):  # require n2 >= n1
343    if N == 0: return TrueLiteral()
344    elif n1 >= 2**(N-1):
345        return make_and(make_bitv(8-N), Inclusive_Range(N-1, n1 - 2**(N-1), n2 - 2**(N-1)))
346    elif n2 < 2**(N-1):
347        return make_and(make_not(make_bitv(8-N)), Inclusive_Range(N-1, n1, n2))
348    else:
349        n2_lo = n2 - 2**(N-1)
350        lo_test = GE_Range(N-1, n1)
351        hi_test = LE_Range(N-1, n2_lo)
352        # special optimization?
353        # if n2_lo + 1 == n1: return make_xor(make_bit_test(8-N), lo_test)
354        return make_sel(make_bitv(8-N), lo_test, hi_test)
355
356BadCharSetItem = Exception()
357
358def char_or_range_expr(charset_item):
359    if len(charset_item) == 1:
360        return char_test_expr(charset_item[0])
361    elif len(charset_item) == 3:
362        if charset_item[1] == '-' and ord(charset_item[0]) <= ord(charset_item[2]):
363             return Make_Range(ord(charset_item[0]), ord(charset_item[2]))
364             #  return Inclusive_Range(8, ord(charset_item[0]), ord(charset_item[2]))
365    print charset_item
366    raise BadCharSetItem
367
368def charset_expr(chardef):
369    if chardef.items == []: return FalseLiteral()
370    e1 = char_or_range_expr(chardef.items[0])
371    for i in range(1, len(chardef.items)):
372        e1 = make_or(e1, char_or_range_expr(chardef.items[i]))
373    if chardef.complemented: return make_not(e1)
374    else: return e1
375
376#
377#
378#  Code Generation
379#
380class CodeGenObject:
381    def __init__(self, predeclared, typedecl='BitBlock '):
382        self.gensym_template = options.gensym_pattern
383        self.gensym_counter = 0
384        self.generated_code = []
385        self.common_expression_map = {}
386        for sym in predeclared: self.common_expression_map[sym] = sym
387        self.typedecl = typedecl
388    def add_assignment(self, varname, expr):
389        self.common_expression_map[expr] = varname
390        #self.generated_code.append('%s%s = %s;\n' % (self.typedecl, varname, expr))
391        self.generated_code.append('\t%s%s = %s\n' % (self.typedecl, varname, expr))
392    def expr_string_to_variable(self, expr_string):
393        if self.common_expression_map.has_key(expr_string): 
394            return self.common_expression_map[expr_string]
395        else:
396            self.gensym_counter += 1
397            sym = self.gensym_template % self.gensym_counter
398            self.add_assignment(sym, expr_string)
399            return sym
400    def showcode(self):
401        s = ''
402        for stmt in self.generated_code: s += stmt
403        return s
404
405def expr2simd(genobj, expr):
406    """Translate a Boolean expression into three-address Altivec code
407       using code generator object genobj.
408    """
409    if isinstance(expr, TrueLiteral): return 'simd_const_1(1)'
410    elif isinstance(expr, FalseLiteral): return 'simd_const_1(0)'
411    elif isinstance(expr, Var): return expr.varname
412    elif isinstance(expr, Not):
413       e = genobj.expr_string_to_variable(expr2simd(genobj, expr.operand))
414       return 'simd_andc(simd_const_1(1), %s)' % (e)
415    elif isinstance(expr, Or):
416       e1 = genobj.expr_string_to_variable(expr2simd(genobj, expr.operand1))
417       e2 = genobj.expr_string_to_variable(expr2simd(genobj, expr.operand2))
418       return 'simd_or(%s, %s)' % (e1, e2)
419    elif isinstance(expr, Xor):
420       e1 = genobj.expr_string_to_variable(expr2simd(genobj, expr.operand1))
421       e2 = genobj.expr_string_to_variable(expr2simd(genobj, expr.operand2))
422       return 'simd_xor(%s, %s)' % (e1, e2)
423    elif isinstance(expr, And):
424       if isinstance(expr.operand1, Not):
425           e1 = genobj.expr_string_to_variable(expr2simd(genobj, expr.operand1.operand))
426           e2 = genobj.expr_string_to_variable(expr2simd(genobj, expr.operand2))
427           return 'simd_andc(%s, %s)' % (e2, e1)
428       elif isinstance(expr.operand2, Not):
429           e1 = genobj.expr_string_to_variable(expr2simd(genobj, expr.operand1))
430           e2 = genobj.expr_string_to_variable(expr2simd(genobj, expr.operand2.operand))
431           return 'simd_andc(%s, %s)' % (e1, e2)
432       else:
433           e1 = genobj.expr_string_to_variable(expr2simd(genobj, expr.operand1))
434           e2 = genobj.expr_string_to_variable(expr2simd(genobj, expr.operand2))
435           return 'simd_and(%s, %s)' % (e1, e2)
436    elif isinstance(expr, Sel):
437       sel = genobj.expr_string_to_variable(expr2simd(genobj, expr.sel))
438       e1 = genobj.expr_string_to_variable(expr2simd(genobj, expr.true_branch))
439       e2 = genobj.expr_string_to_variable(expr2simd(genobj, expr.false_branch))
440       return 'simd_if(%s, %s, %s)' %(sel, e1, e2)
441
442def chardef2simd(genobj, chardef):
443    genobj.add_assignment(chardef.name, expr2simd(genobj, charset_expr(chardef)))
444
445def chardeflist2simd(chardeflist):
446    cgo = CodeGenObject([bit_var(i) for i in range(0,8)])
447    for d in chardeflist:
448        chardef2simd(cgo, d)
449    return cgo.showcode()
450
451def expr2py(genobj, expr):
452    """Translate a Boolean expression into three-address python code
453       using code generator object genobj.
454    """
455    if isinstance(expr, TrueLiteral): return '-1'
456    elif isinstance(expr, FalseLiteral): return '0'
457    elif isinstance(expr, Var): return expr.varname
458    elif isinstance(expr, Not):
459       e = genobj.expr_string_to_variable(expr2py(genobj, expr.operand))
460       return '(~%s)' % (e)
461    elif isinstance(expr, Or):
462       e1 = genobj.expr_string_to_variable(expr2py(genobj, expr.operand1))
463       e2 = genobj.expr_string_to_variable(expr2py(genobj, expr.operand2))
464       return '(%s | %s)' % (e1, e2)
465    elif isinstance(expr, Xor):
466       e1 = genobj.expr_string_to_variable(expr2py(genobj, expr.operand1))
467       e2 = genobj.expr_string_to_variable(expr2py(genobj, expr.operand2))
468       return '(%s ^ %s)' % (e1, e2)
469    elif isinstance(expr, And):
470       if isinstance(expr.operand1, Not):
471           e1 = genobj.expr_string_to_variable(expr2py(genobj, expr.operand1.operand))
472           e2 = genobj.expr_string_to_variable(expr2py(genobj, expr.operand2))
473           return '(%s &~ %s)' % (e2, e1)
474       elif isinstance(expr.operand2, Not):
475           e1 = genobj.expr_string_to_variable(expr2py(genobj, expr.operand1))
476           e2 = genobj.expr_string_to_variable(expr2py(genobj, expr.operand2.operand))
477           return '(%s &~ %s)' % (e1, e2)
478       else:
479           e1 = genobj.expr_string_to_variable(expr2py(genobj, expr.operand1))
480           e2 = genobj.expr_string_to_variable(expr2py(genobj, expr.operand2))
481           return '(%s & %s)' % (e1, e2)
482    elif isinstance(expr, Sel):
483       sel = genobj.expr_string_to_variable(expr2py(genobj, expr.sel))
484       e1 = genobj.expr_string_to_variable(expr2py(genobj, expr.true_branch))
485       e2 = genobj.expr_string_to_variable(expr2py(genobj, expr.false_branch))
486       return '((%s & %s)|(~(%s) & %s))' %(sel, e1, sel, e2)
487
488def chardef2py(genobj, chardef):
489    genobj.add_assignment(chardef.name, expr2py(genobj, charset_expr(chardef)))
490
491
492def py_chardefmap(chardeflist):
493    defs = ["'%s' : %s" % (d.name,d.name) for d in chardeflist]
494    return  '{%s}' % string.join(defs, ',\n\t')
495
496def chardeflist2py(chardeflist):
497    cgo = CodeGenObject([bit_var(i) for i in range(0,8)],'')
498    for d in chardeflist:
499        chardef2py(cgo, d) 
500    return cgo.showcode()# + "  return "+ py_chardefmap(chardeflist) + "\n"
501
502
503def code_gen_for_transcode(transcode_tbl_h, transcode_tbl_l):
504  cgo = CodeGenObject([bit_var(i) for i in range(0,8)])
505  xor_tbl_l = [transcode_tbl_l[code] ^ code for code in range(256)]
506  code_gen_for_transcode_8bit(cgo, "x16h", transcode_tbl_h)
507  code_gen_for_transcode_8bit(cgo, "x16l", xor_tbl_l)
508  return cgo.showcode()
509
510def code_gen_for_transcode_8bit(cgo, pfx, tbl):
511  for bit in range(8):
512    bit_mask = 256 >> bit
513    in_run = False
514    first_expr_found = False
515    bit_expr = FalseLiteral()
516    for code in range(256):
517      if tbl[code] & bit_mask != 0:
518        if not in_run:
519          in_run = True
520          run_start = code
521      else:
522        if in_run:
523          if run_start == code-1:
524            e1 = char_test_expr(chr(code - 1))
525          else:
526            e1 = Make_Range(run_start, code - 1)
527          if first_expr_found:
528            bit_expr = make_or(bit_expr, e1)
529          else:
530            first_expr_found = True
531            bit_expr = e1
532    if first_expr_found:
533      cgo.add_assignment("%s[%i]" % (pfx, bit), expr2simd(cgo, bit_expr))
534
535# Work with tables from
536# /home/cameron/glibc-2.3.5/localedata/charmaps/
537
538charmap_line_RE = re.compile("<U([0-9A-F][0-9A-F])([0-9A-Z][0-9A-Z])>\s+/x([0-9a-f][0-9a-f])\s")
539
540def read_char_map(file):
541  f = open(file)
542  lines = f.readlines()
543  matches = [charmap_line_RE.match(l) for l in lines]
544  u16hi = [ord(binascii.unhexlify(m.group(1))) for m in matches if m]
545  u16lo = [ord(binascii.unhexlify(m.group(2))) for m in matches if m]
546  codes = [ord(binascii.unhexlify(m.group(3))) for m in matches if m]
547  codes_OK = [c for c in range(256) if codes[c] == c]
548  if len(codes_OK) != 256:
549    print("Code map failure reading %s" % file)
550  return (u16hi, u16lo)
551
552import codecs
553def ascii2ebcdic_chardeflist(defs):
554        encoder = codecs.getencoder('cp037')
555        return [xlate_chardef(d, encoder) for d in defs]
556
557def xlate_char_or_range(charset_item, encoder):
558    if len(charset_item) == 1:
559        return encoder(charset_item[0])
560    elif len(charset_item) == 3:
561        if charset_item[1] == '-' and ord(charset_item[0]) <= ord(charset_item[2]):
562             return Make_Range(ord(charset_item[0]), ord(charset_item[2]))
563             #  return Inclusive_Range(8, ord(charset_item[0]), ord(charset_item[2]))
564    print charset_item
565    raise BadCharSetItem
566       
567def xlate_chardef(chardef, encoder):
568  if isinstance(chardef, CharDef):
569    return CharDef(chardef.name, encoder(chardef.items[0])[0], chardef.complemented)
570  else:
571    cdefs = []
572    for item in chardef.items:
573        if len(item) == 1: cdefs.append(encoder(item)[0])
574        elif len(item) == 3:
575          for v in range(ord(item[0]), ord(item[-1])+1):
576            cdefs.append(encoder(chr(v))[0])
577        else: raise BadCharSetItem
578    return CharSetDef(chardef.name, cdefs, chardef.complemented)
579
580
581
582def main():
583
584    global options
585    # Option definition
586    option_parser = optparse.OptionParser(usage='python %prog [options] <input file>', version='0.8')
587
588    option_parser.add_option('-b', '--basis_pattern', 
589                             dest='basis_pattern',
590                             type='string',
591                             default='basis_bits.bit_%i',
592                             help='pattern for basis bit streams; default: basis_bits.bit_%i',
593                             )
594    option_parser.add_option('-g', '--gensym_pattern', 
595                             dest='gensym_pattern',
596                             type='string',
597                             default='temp%i',
598                             help='pattern for generated temporaries; default: temp%i',
599                             )
600    options, args = option_parser.parse_args(sys.argv[1:])
601
602    # Positional arguments
603    if len(args) == 1:
604        # if the specified argument is not in the DefinitionSet, then assume that it's a filename
605        if args[0] not in DefinitionSet:
606            #define the characters in the list
607            defs = charset_input_parser.input_chardef(args[0])
608                                               
609            #print chardeflist2simd(defs)
610            print chardeflist2py(defs)
611        else:
612            #print chardeflist2simd(DefinitionSet[args[1]])
613            print chardeflist2py(DefinitionSet[args[1]])
614    elif len(args) == 2 and args[1] == 'EBCDIC':
615        defs = ascii2ebcdic_chardeflist(DefinitionSet[sys.argv[0]])
616        print chardeflist2simd(defs)
617    else:
618        option_parser.print_usage()
619
620if __name__ == "__main__": main()
621
Note: See TracBrowser for help on using the repository browser.