diff options
Diffstat (limited to 'Lib/plat-irix5/flp.py')
| -rwxr-xr-x | Lib/plat-irix5/flp.py | 318 |
1 files changed, 318 insertions, 0 deletions
diff --git a/Lib/plat-irix5/flp.py b/Lib/plat-irix5/flp.py new file mode 100755 index 0000000..6aae82c --- /dev/null +++ b/Lib/plat-irix5/flp.py @@ -0,0 +1,318 @@ +# +# flp - Module to load fl forms from fd files +# +# Jack Jansen, December 1991 +# +import string +import path +import sys +import fl +import FL + +SPLITLINE = '--------------------' +FORMLINE = '=============== FORM ===============' +ENDLINE = '==============================' + +error = 'flp.error' + +################################################################## +# Part 1 - The parsing routines # +################################################################## + +# +# Externally visible function. Load form. +# +def parse_form(filename, formname): + fp = _open_formfile(filename) + nforms = _parse_fd_header(fp) + for i in range(nforms): + form = _parse_fd_form(fp, formname) + if form <> None: + return form + raise error, 'No such form in fd file' + +# +# Externally visible function. Load all forms. +# +def parse_forms(filename): + fp = _open_formfile(filename) + nforms = _parse_fd_header(fp) + forms = {} + for i in range(nforms): + form = _parse_fd_form(fp, None) + forms[form[0].Name] = form + return forms + +# +# Internal: Locate form file (using PYTHONPATH) and open file +# +def _open_formfile(filename): + if filename[-3:] <> '.fd': + filename = filename + '.fd' + if filename[0] = '/': + try: + fp = open(filename,'r') + except RuntimeError: #BCOMPAT + fp = None + except IOError: + fp = None + else: + for pc in sys.path: + pn = path.join(pc, filename) + try: + fp = open(pn, 'r') + break + except RuntimeError: #BCOMPAT + fp = None + except IOError: + fp = None + if fp = None: + raise error, 'Cannot find forms file ' + filename + return fp + +# +# Internal: parse the fd file header, return number of forms +# +def _parse_fd_header(file): + # First read the magic header line + datum = _parse_1_line(file) + if datum <> ('Magic', 12321): + raise error, 'Not a forms definition file' + # Now skip until we know number of forms + while 1: + datum = _parse_1_line(file) + if type(datum) = type(()) and datum[0] = 'Numberofforms': + break + return datum[1] +# +# Internal: parse fd form, or skip if name doesn't match. +# the special value None means 'allways parse it'. +# +def _parse_fd_form(file, name): + datum = _parse_1_line(file) + if datum <> FORMLINE: + raise error, 'Missing === FORM === line' + form = _parse_object(file) + if form.Name = name or name = None: + objs = [] + for j in range(form.Numberofobjects): + obj = _parse_object(file) + objs.append(obj) + return (form, objs) + else: + for j in range(form.Numberofobjects): + _skip_object(file) + return None + +# +# Internal class: a convient place to store object info fields +# +class _newobj(): + def init(self): + return self + def add(self, (name, value)): + cmd = 'self.'+name+' = '+`value`+'\n' + exec(cmd) + +# +# Internal parsing routines. +# +def _parse_string(str): + return string.strip(str) + +def _parse_num(str): + return eval(string.strip(str)) + +def _parse_numlist(str): + slist = string.split(str) + nlist = [] + for i in slist: + nlist.append(_parse_num(i)) + return nlist + +# This dictionary maps item names to parsing routines. +# If no routine is given '_parse_num' is default. +_parse_func = { \ + 'Name': _parse_string, \ + 'Box': _parse_numlist, \ + 'Colors': _parse_numlist, \ + 'Label': _parse_string, \ + 'Name': _parse_string, \ + 'Callback': _parse_string, \ + 'Argument': _parse_string } + +# This function parses a line, and returns either +# a string or a tuple (name,value) + +def _parse_line(line): + try: + colonpos = string.index(line,':') + except string.index_error: + return string.strip(line) + name = line[:colonpos] + name = string.joinfields(string.split(name),'') + name = string.lower(name) + name = string.upper(name[0]) + name[1:] + value = line[colonpos+1:] + try: + pf = _parse_func[name] + except RuntimeError: # BCOMPAT + pf = _parse_num + except KeyError: + pf = _parse_num + value = pf(value) + return (name, value) + +def _readline(file): + line = file.readline() + if line <> '': + line = line[:-1] + return line + +def _parse_1_line(file): + line = '' + while line = '': + line = _readline(file) + return _parse_line(line) + +def _skip_object(file): + line = '' + while not line in (SPLITLINE, FORMLINE, ENDLINE): + pos = file.tell() + line = _readline(file) + if line = FORMLINE: + file.seek(pos) + +def _parse_object(file): + obj = _newobj().init() + while 1: + pos = file.tell() + datum = _parse_1_line(file) + if datum in (SPLITLINE, FORMLINE, ENDLINE): + if datum = FORMLINE: + file.seek(pos) + return obj + if type(datum) <> type(()): + raise error, 'Parse error, illegal line in object: '+datum + obj.add(datum) + +################################################################# +# Part 2 - High-level object/form creation routines # +################################################################# + +# +# External - Create a form an link to an instance variable. +# +def create_full_form(inst, (fdata, odatalist)): + form = create_form(fdata) + exec('inst.'+fdata.Name+' = form\n') + for odata in odatalist: + create_object_instance(inst, form, odata) + +# +# External - Merge a form into an existing form in an instance +# variable. +# +def merge_full_form(inst, form, (fdata, odatalist)): + exec('inst.'+fdata.Name+' = form\n') + if odatalist[0].Class <> FL.BOX: + raise error, 'merge_full_form() expects FL.BOX as first obj' + for odata in odatalist[1:]: + create_object_instance(inst, form, odata) + + +################################################################# +# Part 3 - Low-level object/form creation routines # +################################################################# + +# +# External Create_form - Create form from parameters +# +def create_form(fdata): + return fl.make_form(FL.NO_BOX,fdata.Width, fdata.Height) + +# +# External create_object - Create an object. Make sure there are +# no callbacks. Returns the object created. +# +def create_object(form, odata): + obj = _create_object(form, odata) + if odata.Callback: + raise error, 'Creating free object with callback' + return obj +# +# External create_object_instance - Create object in an instance. +# +def create_object_instance(inst, form, odata): + obj = _create_object(form, odata) + if odata.Callback: + cbfunc = eval('inst.'+odata.Callback) + obj.set_call_back(cbfunc, odata.Argument) + if odata.Name: + exec('inst.' + odata.Name + ' = obj\n') +# +# Internal _create_object: Create the object and fill options +# +def _create_object(form, odata): + crfunc = _select_crfunc(form, odata.Class) + obj = crfunc(odata.Type, odata.Box[0], odata.Box[1], odata.Box[2], \ + odata.Box[3], odata.Label) + if not odata.Class in (FL.BEGIN_GROUP, FL.END_GROUP): + obj.boxtype = odata.Boxtype + obj.col1 = odata.Colors[0] + obj.col2 = odata.Colors[1] + obj.align = odata.Alignment + obj.lstyle = odata.Style + obj.lsize = odata.Size + obj.lcol = odata.Lcol + return obj +# +# Internal crfunc: helper function that returns correct create function +# +def _select_crfunc(fm, cl): + if cl = FL.BEGIN_GROUP: return fm.bgn_group + elif cl = FL.END_GROUP: return fm.end_group + elif cl = FL.BITMAP: return fm.add_bitmap + elif cl = FL.BOX: return fm.add_box + elif cl = FL.BROWSER: return fm.add_browser + elif cl = FL.BUTTON: return fm.add_button + elif cl = FL.CHART: return fm.add_chart + elif cl = FL.CHOICE: return fm.add_choice + elif cl = FL.CLOCK: return fm.add_clock + elif cl = FL.COUNTER: return fm.add_counter + elif cl = FL.DIAL: return fm.add_dial + elif cl = FL.FREE: return fm.add_free + elif cl = FL.INPUT: return fm.add_input + elif cl = FL.LIGHTBUTTON: return fm.add_lightbutton + elif cl = FL.MENU: return fm.add_menu + elif cl = FL.POSITIONER: return fm.add_positioner + elif cl = FL.ROUNDBUTTON: return fm.add_roundbutton + elif cl = FL.SLIDER: return fm.add_slider + elif cl = FL.VALSLIDER: return fm.add_valslider + elif cl = FL.TEXT: return fm.add_text + elif cl = FL.TIMER: return fm.add_timer + else: + raise error, 'Unknown object type: ' + `cl` + + +def test(): + if len(sys.argv) == 2: + forms = parse_forms(sys.argv[1]) + for i in forms.keys(): + _printform(forms[i]) + elif len(sys.argv) == 3: + form = parse_form(sys.argv[1], sys.argv[2]) + _printform(form) + else: + print 'Usage: test fdfile [form]' + +def _printform(form): + f = form[0] + objs = form[1] + print 'Form ', f.Name, ', size: ', f.Width, f.Height, ' Nobj ', f.Numberofobjects + for i in objs: + print ' Obj ', i.Name, ' type ', i.Class, i.Type + print ' Box ', i.Box, ' btype ', i.Boxtype + print ' Label ', i.Label, ' size/style/col/align ', i.Size,i.Style, i.Lcol, i.Alignment + print ' cols ', i.Colors + print ' cback ', i.Callback, i.Argument |