384 lines
14 KiB
Python
Executable File
384 lines
14 KiB
Python
Executable File
#! /usr/bin/env python
|
|
#
|
|
# Modulator - Generate skeleton modules.
|
|
#
|
|
# The user fills out some forms with information about what the module
|
|
# should support (methods, objects), names of these things, prefixes to
|
|
# use for C code, whether the objects should also support access as numbers,
|
|
# etc etc etc.
|
|
# When the user presses 'Generate code' we generate a complete skeleton
|
|
# module in C.
|
|
#
|
|
# Alternatively, the selections made can be save to a python sourcefile and
|
|
# this sourcefile can be passed on the command line (resulting in the same
|
|
# skeleton C code).
|
|
#
|
|
# Jack Jansen, CWI, October 1994.
|
|
#
|
|
|
|
import sys, os
|
|
if os.name <> 'mac':
|
|
sys.path.append(os.path.join(os.environ['HOME'],
|
|
'src/python/Tools/modulator'))
|
|
|
|
from Tkinter import *
|
|
from Tkextra import *
|
|
from ScrolledListbox import ScrolledListbox
|
|
import sys
|
|
import genmodule
|
|
import string
|
|
|
|
oops = 'oops'
|
|
|
|
IDENTSTARTCHARS = string.letters + '_'
|
|
IDENTCHARS = string.letters + string.digits + '_'
|
|
|
|
# Check that string is a legal C identifier
|
|
def checkid(str):
|
|
if not str: return 0
|
|
if not str[0] in IDENTSTARTCHARS:
|
|
return 0
|
|
for c in str[1:]:
|
|
if not c in IDENTCHARS:
|
|
return 0
|
|
return 1
|
|
|
|
def getlistlist(list):
|
|
rv = []
|
|
n = list.size()
|
|
for i in range(n):
|
|
rv.append(list.get(i))
|
|
return rv
|
|
|
|
class UI:
|
|
def __init__(self):
|
|
self.main = Frame()
|
|
self.main.pack()
|
|
self.main.master.title('Modulator: Module view')
|
|
self.cmdframe = Frame(self.main, {'relief':'raised', 'bd':'0.5m',
|
|
Pack:{'side':'top',
|
|
'fill':'x'}})
|
|
self.objframe = Frame(self.main, {Pack:{'side':'top', 'fill':'x',
|
|
'expand':1}})
|
|
|
|
|
|
self.check_button = Button(self.cmdframe,
|
|
{'text':'Check', 'command':self.cb_check,
|
|
Pack:{'side':'left', 'padx':'0.5m'}})
|
|
self.save_button = Button(self.cmdframe,
|
|
{'text':'Save...', 'command':self.cb_save,
|
|
Pack:{'side':'left', 'padx':'0.5m'}})
|
|
self.code_button = Button(self.cmdframe,
|
|
{'text':'Generate code...',
|
|
'command':self.cb_gencode,
|
|
Pack:{'side':'left', 'padx':'0.5m'}})
|
|
self.quit_button = Button(self.cmdframe,
|
|
{'text':'Quit',
|
|
'command':self.cb_quit,
|
|
Pack:{'side':'right', 'padx':'0.5m'}})
|
|
|
|
self.module = UI_module(self)
|
|
self.objects = []
|
|
self.modified = 0
|
|
|
|
def run(self):
|
|
self.main.mainloop()
|
|
|
|
def cb_quit(self, *args):
|
|
if self.modified:
|
|
if not askyn('You have not saved\nAre you sure you want to quit?'):
|
|
return
|
|
sys.exit(0)
|
|
|
|
def cb_check(self, *args):
|
|
try:
|
|
self.module.synchronize()
|
|
for o in self.objects:
|
|
o.synchronize()
|
|
except oops:
|
|
pass
|
|
|
|
def cb_save(self, *args):
|
|
try:
|
|
pycode = self.module.gencode('m', self.objects)
|
|
except oops:
|
|
return
|
|
|
|
fn = askfile('Python file name: ')
|
|
if not fn:
|
|
return
|
|
|
|
fp = open(fn, 'w')
|
|
|
|
fp.write(pycode)
|
|
fp.close()
|
|
|
|
def cb_gencode(self, *args):
|
|
try:
|
|
pycode = self.module.gencode('m', self.objects)
|
|
except oops:
|
|
pass
|
|
|
|
fn = askfile('C file name: ')
|
|
if not fn:
|
|
return
|
|
|
|
fp = open(fn, 'w')
|
|
|
|
try:
|
|
exec pycode
|
|
except:
|
|
message('An error occurred:-)')
|
|
return
|
|
genmodule.write(fp, m)
|
|
fp.close()
|
|
|
|
class UI_module:
|
|
def __init__(self, parent):
|
|
self.parent = parent
|
|
self.frame = Frame(parent.objframe, {'relief':'raised', 'bd':'0.2m',
|
|
Pack:{'side':'top',
|
|
'fill':'x'}})
|
|
self.f1 = Frame(self.frame, {Pack:{'side':'top', 'pady':'0.5m',
|
|
'fill':'x'}})
|
|
self.f2 = Frame(self.frame, {Pack:{'side':'top', 'pady':'0.5m',
|
|
'fill':'x'}})
|
|
self.f3 = Frame(self.frame, {Pack:{'side':'top', 'pady':'0.5m',
|
|
'fill':'x'}})
|
|
self.f4 = Frame(self.frame, {Pack:{'side':'top', 'pady':'0.5m',
|
|
'fill':'x'}})
|
|
|
|
self.l1 = Label(self.f1, {'text':'Module:', Pack:{'side':'left',
|
|
'padx':'0.5m'}})
|
|
self.name_entry = Entry(self.f1, {'relief':'sunken',
|
|
Pack:{'side':'left', 'padx':'0.5m', 'expand':1}})
|
|
self.l2 = Label(self.f1, {'text':'Abbrev:', Pack:{'side':'left',
|
|
'padx':'0.5m'}})
|
|
self.abbrev_entry = Entry(self.f1, {'relief':'sunken', 'width':5,
|
|
Pack:{'side':'left', 'padx':'0.5m'}})
|
|
|
|
self.l3 = Label(self.f2, {'text':'Methods:', Pack:{'side':'left',
|
|
'padx':'0.5m'}})
|
|
self.method_list = ScrolledListbox(self.f2, {'relief':'sunken','bd':2,
|
|
Pack:{'side':'left', 'expand':1,
|
|
'padx':'0.5m', 'fill':'both'}})
|
|
|
|
self.l4 = Label(self.f3, {'text':'Add method:', Pack:{'side':'left',
|
|
'padx':'0.5m'}})
|
|
self.method_entry = Entry(self.f3, {'relief':'sunken',
|
|
Pack:{'side':'left', 'padx':'0.5m', 'expand':1}})
|
|
self.method_entry.bind('<Return>', self.cb_method)
|
|
self.delete_button = Button(self.f3, {'text':'Delete method',
|
|
'command':self.cb_delmethod,
|
|
Pack:{'side':'left',
|
|
'padx':'0.5m'}})
|
|
|
|
self.newobj_button = Button(self.f4, {'text':'new object',
|
|
'command':self.cb_newobj,
|
|
Pack:{'side':'left',
|
|
'padx':'0.5m'}})
|
|
|
|
def cb_delmethod(self, *args):
|
|
list = self.method_list.curselection()
|
|
for i in list:
|
|
self.method_list.delete(i)
|
|
|
|
def cb_newobj(self, *arg):
|
|
self.parent.objects.append(UI_object(self.parent))
|
|
|
|
def cb_method(self, *arg):
|
|
name = self.method_entry.get()
|
|
if not name:
|
|
return
|
|
self.method_entry.delete('0', 'end')
|
|
self.method_list.insert('end', name)
|
|
|
|
def synchronize(self):
|
|
n = self.name_entry.get()
|
|
if not n:
|
|
message('Module name not set')
|
|
raise oops
|
|
if not checkid(n):
|
|
message('Module name not an identifier:\n'+n)
|
|
raise oops
|
|
if not self.abbrev_entry.get():
|
|
self.abbrev_entry.insert('end', n)
|
|
m = getlistlist(self.method_list)
|
|
for n in m:
|
|
if not checkid(n):
|
|
message('Method name not an identifier:\n'+n)
|
|
raise oops
|
|
|
|
def gencode(self, name, objects):
|
|
rv = ''
|
|
self.synchronize()
|
|
for o in objects:
|
|
o.synchronize()
|
|
onames = []
|
|
for i in range(len(objects)):
|
|
oname = 'o'+`i+1`
|
|
rv = rv + objects[i].gencode(oname)
|
|
onames.append(oname)
|
|
rv = rv + (name+' = genmodule.module()\n')
|
|
rv = rv + (name+'.name = '+`self.name_entry.get()`+'\n')
|
|
rv = rv + (name+'.abbrev = '+`self.abbrev_entry.get()`+'\n')
|
|
rv = rv + (name+'.methodlist = '+`getlistlist(self.method_list)`+'\n')
|
|
rv = rv + (name+'.objects = ['+','.join(onames)+']\n')
|
|
rv = rv + ('\n')
|
|
return rv
|
|
|
|
object_number = 0
|
|
|
|
class UI_object:
|
|
def __init__(self, parent):
|
|
global object_number
|
|
|
|
object_number = object_number + 1
|
|
self.num = object_number
|
|
self.vpref = 'o'+`self.num`+'_'
|
|
self.frame = Toplevel(parent.objframe)
|
|
# self.frame.pack()
|
|
self.frame.title('Modulator: object view')
|
|
# self.frame = Frame(parent.objframe, {'relief':'raised', 'bd':'0.2m',
|
|
# Pack:{'side':'top',
|
|
# 'fill':'x'}})
|
|
self.f1 = Frame(self.frame, {Pack:{'side':'top', 'pady':'0.5m',
|
|
'fill':'x'}})
|
|
self.f2 = Frame(self.frame, {Pack:{'side':'top', 'pady':'0.5m',
|
|
'fill':'x'}})
|
|
self.f3 = Frame(self.frame, {Pack:{'side':'top', 'pady':'0.5m',
|
|
'fill':'x'}})
|
|
self.f4 = Frame(self.frame, {Pack:{'side':'top', 'pady':'0.5m',
|
|
'fill':'x'}})
|
|
|
|
|
|
self.l1 = Label(self.f1, {'text':'Object:', Pack:{'side':'left',
|
|
'padx':'0.5m'}})
|
|
self.name_entry = Entry(self.f1, {'relief':'sunken',
|
|
Pack:{'side':'left', 'padx':'0.5m', 'expand':1}})
|
|
self.l2 = Label(self.f1, {'text':'Abbrev:', Pack:{'side':'left',
|
|
'padx':'0.5m'}})
|
|
self.abbrev_entry = Entry(self.f1, {'relief':'sunken', 'width':5,
|
|
Pack:{'side':'left', 'padx':'0.5m'}})
|
|
|
|
self.l3 = Label(self.f2, {'text':'Methods:', Pack:{'side':'left',
|
|
'padx':'0.5m'}})
|
|
self.method_list = ScrolledListbox(self.f2, {'relief':'sunken','bd':2,
|
|
Pack:{'side':'left', 'expand':1,
|
|
'padx':'0.5m', 'fill':'both'}})
|
|
|
|
self.l4 = Label(self.f3, {'text':'Add method:', Pack:{'side':'left',
|
|
'padx':'0.5m'}})
|
|
self.method_entry = Entry(self.f3, {'relief':'sunken',
|
|
Pack:{'side':'left', 'padx':'0.5m', 'expand':1}})
|
|
self.method_entry.bind('<Return>', self.cb_method)
|
|
self.delete_button = Button(self.f3, {'text':'Delete method',
|
|
'command':self.cb_delmethod,
|
|
Pack:{'side':'left',
|
|
'padx':'0.5m'}})
|
|
|
|
|
|
self.l5 = Label(self.f4, {'text':'functions:',
|
|
Pack:{'side':'left',
|
|
'padx':'0.5m'}})
|
|
self.f5 = Frame(self.f4, {Pack:{'side':'left', 'pady':'0.5m',
|
|
'fill':'both'}})
|
|
self.l6 = Label(self.f4, {'text':'Types:',
|
|
Pack:{'side':'left', 'padx':'0.5m'}})
|
|
self.f6 = Frame(self.f4, {Pack:{'side':'left', 'pady':'0.5m',
|
|
'fill':'x'}})
|
|
self.funcs = {}
|
|
for i in genmodule.FUNCLIST:
|
|
vname = self.vpref+i
|
|
self.f5.setvar(vname, 0)
|
|
b = Checkbutton(self.f5, {'variable':vname, 'text':i,
|
|
Pack:{'side':'top', 'pady':'0.5m',
|
|
'anchor':'w','expand':1}})
|
|
self.funcs[i] = b
|
|
self.f5.setvar(self.vpref+'new', 1)
|
|
|
|
self.types = {}
|
|
for i in genmodule.TYPELIST:
|
|
vname = self.vpref + i
|
|
self.f6.setvar(vname, 0)
|
|
b = Checkbutton(self.f6, {'variable':vname, 'text':i,
|
|
Pack:{'side':'top', 'pady':'0.5m',
|
|
'anchor':'w'}})
|
|
self.types[i] = b
|
|
|
|
def cb_method(self, *arg):
|
|
name = self.method_entry.get()
|
|
if not name:
|
|
return
|
|
self.method_entry.delete('0', 'end')
|
|
self.method_list.insert('end', name)
|
|
|
|
def cb_delmethod(self, *args):
|
|
list = self.method_list.curselection()
|
|
for i in list:
|
|
self.method_list.delete(i)
|
|
|
|
def synchronize(self):
|
|
n = self.name_entry.get()
|
|
if not n:
|
|
message('Object name not set')
|
|
raise oops
|
|
if not self.abbrev_entry.get():
|
|
self.abbrev_entry.insert('end', n)
|
|
n = self.abbrev_entry.get()
|
|
if not checkid(n):
|
|
message('Abbreviation not an identifier:\n'+n)
|
|
raise oops
|
|
m = getlistlist(self.method_list)
|
|
for n in m:
|
|
if not checkid(n):
|
|
message('Method name not an identifier:\n'+n)
|
|
raise oops
|
|
if m:
|
|
self.f5.setvar(self.vpref+'tp_getattr', 1)
|
|
pass
|
|
|
|
def gencode(self, name):
|
|
rv = ''
|
|
rv = rv + (name+' = genmodule.object()\n')
|
|
rv = rv + (name+'.name = '+`self.name_entry.get()`+'\n')
|
|
rv = rv + (name+'.abbrev = '+`self.abbrev_entry.get()`+'\n')
|
|
rv = rv + (name+'.methodlist = '+`getlistlist(self.method_list)`+'\n')
|
|
fl = []
|
|
for fn in genmodule.FUNCLIST:
|
|
vname = self.vpref + fn
|
|
if self.f5.getvar(vname) == '1':
|
|
fl.append(fn)
|
|
rv = rv + (name+'.funclist = '+`fl`+'\n')
|
|
|
|
fl = []
|
|
for fn in genmodule.TYPELIST:
|
|
vname = self.vpref + fn
|
|
if self.f5.getvar(vname) == '1':
|
|
fl.append(fn)
|
|
|
|
rv = rv + (name+'.typelist = '+`fl`+'\n')
|
|
|
|
rv = rv + ('\n')
|
|
return rv
|
|
|
|
|
|
def main():
|
|
if len(sys.argv) < 2:
|
|
ui = UI()
|
|
ui.run()
|
|
elif len(sys.argv) == 2:
|
|
fp = open(sys.argv[1])
|
|
pycode = fp.read()
|
|
try:
|
|
exec pycode
|
|
except:
|
|
sys.stderr.write('An error occurred:-)\n')
|
|
sys.exit(1)
|
|
##genmodule.write(sys.stdout, m)
|
|
else:
|
|
sys.stderr.write('Usage: modulator [file]\n')
|
|
sys.exit(1)
|
|
|
|
main()
|