112 lines
4.5 KiB
Python
112 lines
4.5 KiB
Python
#!/usr/bin/env python
|
|
|
|
|
|
import sys
|
|
import re
|
|
header="""-------------------------------------------------------------------------------
|
|
-- --
|
|
-- 0MQ Ada-binding --
|
|
-- --
|
|
-- Z M Q . L O W _ L E V E L --
|
|
-- --
|
|
-- S p e c --
|
|
-- --
|
|
-- Copyright (C) 2010-2011, per.sandberg@bredband.net --
|
|
-- --
|
|
-- Permission is hereby granted, free of charge, to any person obtaining a --
|
|
-- copy of this software and associated documentation files --
|
|
-- (the "Software"), to deal in the Software without restriction, including --
|
|
-- without limitation the rights to use, copy, modify, merge, publish, --
|
|
-- distribute, sublicense, and / or sell copies of the Software, and to --
|
|
-- permit persons to whom the Software is furnished to do so, subject to --
|
|
-- the following conditions : --
|
|
-- --
|
|
-- The above copyright notice and this permission notice shall be included --
|
|
-- in all copies or substantial portions of the Software. --
|
|
-- --
|
|
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
|
|
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
|
|
-- MERCHANTABILITY, --
|
|
-- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL --
|
|
-- THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR --
|
|
-- OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, --
|
|
-- ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR --
|
|
-- OTHER DEALINGS IN THE SOFTWARE. --
|
|
-------------------------------------------------------------------------------
|
|
|
|
|
|
-- The contents of this file is derived from zmq.h using the
|
|
-- -fdump-ada-spec switch for gcc.
|
|
|
|
"""
|
|
|
|
renames=[["stddef_h.size_t","size_t"],
|
|
["with stddef_h;",""],
|
|
["with stdint_h;","with Interfaces.C.Extensions;"],
|
|
["stdint_h.uint16_t","Extensions.Unsigned_16"],
|
|
["stdint_h.int32_t","Extensions.Signed_32"],
|
|
["stdint_h.uint8_t","Extensions.Unsigned_8"],
|
|
["package zmq_h is","""package ZMQ.Low_Level is
|
|
|
|
pragma Preelaborate;
|
|
pragma Warnings (Off);
|
|
|
|
package Defs is
|
|
-- This package is here to give a namespace to constants, since
|
|
-- identifiers in Ada are caseinsensetive.
|
|
|
|
"""],
|
|
["procedure zmq_version",""" end Defs;
|
|
|
|
procedure zmq_version"""],
|
|
["zmq_h","ZMQ.Low_Level"]]
|
|
|
|
|
|
obslolete_functions=["zmq_ctx_shutdown","zmq_ctx_term","zmq_term","zmq_sendmsg","zmq_recvmsg"]
|
|
|
|
def main(path):
|
|
dumped = False
|
|
with file(path) as f:
|
|
buffer=f.read()
|
|
|
|
for i in renames:
|
|
buffer=buffer.replace(i[0],i[1])
|
|
|
|
buffer=buffer.split("\n")
|
|
include_matcher=re.compile("(.+-- +)(/.+/include/)(.*)")
|
|
# -- unsupported macro: EFSM (ZMQ_HAUSNUMERO + 51)
|
|
e_matcher=re.compile(r""".+unsupported macro: (\w+) \((\w+) \+ (\w+)\).*""")
|
|
|
|
#-- unsupported macro: ZMQ_XREQ ZMQ_DEALER
|
|
r_matcher=re.compile(r""".+unsupported macro: (\w+) (\w+)$""")
|
|
for i in range(0,len(buffer)):
|
|
m=include_matcher.match(buffer[i])
|
|
if m:
|
|
buffer[i]=m.group(1) + m.group(3)
|
|
m=e_matcher.match(buffer[i])
|
|
if m:
|
|
buffer[i]="%s : constant := %s + %s;" % (m.group(1) , m.group(2), m.group(3))
|
|
|
|
m=r_matcher.match(buffer[i])
|
|
if m:
|
|
buffer[i]="%s : constant := %s;" % (m.group(1) , m.group(2))
|
|
|
|
for obslolete in obslolete_functions:
|
|
pattern=r'^.*pragma Import *\(C, *(%s), *"%s"\);' % (obslolete, obslolete)
|
|
if not dumped:
|
|
print pattern
|
|
matcher=re.compile(pattern)
|
|
if matcher.match(buffer[i]):
|
|
buffer[i] = " pragma Obsolescent;\n%s" % buffer[i]
|
|
dumped = True
|
|
|
|
|
|
buffer="\n".join(buffer)
|
|
with file(path,"w") as f:
|
|
f.write(header)
|
|
f.write(buffer)
|
|
|
|
|
|
if __name__ == "__main__":
|
|
main(sys.argv[1])
|