1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
#! /usr/bin/env python
# #
# GNAT COMPILER COMPONENTS #
# #
# X S P A C K #
# #
# Copyright (C) 2001-2024, Free Software Foundation, Inc. #
# #
# GNAT is free software; you can redistribute it and/or modify it under #
# terms of the GNU General Public License as published by the Free Soft- #
# ware Foundation; either version 3, or (at your option) any later ver- #
# sion. GNAT is distributed in the hope that it will be useful, but WITH- #
# OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY #
# or FITNESS FOR A PARTICULAR PURPOSE. #
# #
# As a special exception under Section 7 of GPL version 3, you are granted #
# additional permissions described in the GCC Runtime Library Exception, #
# version 3.1, as published by the Free Software Foundation. #
# #
# You should have received a copy of the GNU General Public License and #
# a copy of the GCC Runtime Library Exception along with this program; #
# see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #
# <http://www.gnu.org/licenses/>. #
# #
# GNAT was originally developed by the GNAT team at New York University. #
# Extensive contributions were provided by Ada Core Technologies Inc. #
# xspack
# Generate s-pack*.{ads,adb} from templates s-pack.ads.tmpl and s-pack.adb.tmpl
tmpl_base = "s-pack.ad%c.tmpl"
def read_template(part):
return open(tmpl_base % part).readlines()
def output(pkg, bits, part):
global tmpl
bits_str_pad = "%02d" % bits
if bits > 99:
bits_str_dbl = "1 %d %d" % ((bits / 10) % 10, bits % 10)
else:
bits_str_dbl = "%d %d " % (bits / 10, bits % 10)
bits_str = "%d" % bits
out = open(pkg % (bits, part), 'w')
skip = False
for line in tmpl[part]:
if line.find('@even') == 0 and bits % 2 == 1:
skip = True
if line.find('@/even') == 0:
skip = False
if line[0] != '@' and not skip:
line = line.replace('@@', bits_str_pad)
line = line.replace('@ @ ', bits_str_dbl)
line = line.replace('@', bits_str)
out.write(line)
parts = ['s', 'b']
tmpl = {}
for part in parts:
tmpl[part] = read_template(part)
for bits in range(1, 128):
if bits & (bits - 1) == 0:
# Power of two: no package generated
continue
if bits > 99:
pkg_base = "s-pack%3d.ad%c"
else:
pkg_base = "s-pack%02d.ad%c"
for part in parts:
output(pkg_base, bits, part)
|
