2 files changed, 636 insertions, 0 deletions

diff --git a/Lib/irix5/flp.py b/Lib/irix5/flp.py
new file mode 100755
index 0000000..6aae82c
--- /dev/null
+++ b/Lib/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
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