Commit 269cf0a5 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Generate Ada file in lowercases

parent 5eda64b9
......@@ -71,6 +71,7 @@
import logging
import traceback
import os
from singledispatch import singledispatch
import ogAST
......@@ -638,11 +639,11 @@ package {process_name} is'''.format(process_name=process_name,
ads_template.append('end {process_name};'
.format(process_name=process_name))
with open(process_name + '.adb', 'w') as ada_file:
with open(process_name.lower() + os.extsep + 'adb', 'w') as ada_file:
ada_file.write(
u'\n'.join(format_ada_code(taste_template)).encode('latin1'))
with open(process_name + '.ads', 'w') as ada_file:
with open(process_name.lower() + os.extsep + 'ads', 'w') as ada_file:
ada_file.write(
u'\n'.join(format_ada_code(ads_template)).encode('latin1'))
......
......@@ -12,7 +12,7 @@ test-ada:
$(OPENGEODE) DemoDeviceDSAP_fixed.pr --toAda
$(ASN1SCC) -Ada dv.asn -typePrefix asn1Scc -equal
$(GNATMAKE) -O$(O) -c *.adb
$(GNATBIND) -n DemoDeviceDSAP_fixed.ali
$(GNATBIND) -n demodemodevicedsap.ali
test-c:
$(OPENGEODE) DemoDeviceDSAP_fixed.pr --toC
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment